#-*- coding: utf-8-unix mode: text; mode: ctp -*-

# a.txt oax/it

#%digest-stat
%includepath _/patch
%code
# patch_a_init() # done in ctp-mod-div-a BEGIN{}

lout_include_suffix="dw-ta1"
gs_w=240
gs_h=350
patch_more("|70p @Gc @B leggere di piu...")
#patch_more("|90p @Gh @B {more...}")

InitialLanguage="Italian"
InitialFont="Times Base 18p"

Place_IncludeGraphic="""@Place  x{ left +0c}  y{ top - ysize +15p}
  { 0.85 1.0 }
  @Scale @IncludeGraphic { "ciel1-1454.eps" } //
# @Scale @IncludeGraphic { "orange.eps" } //
"""

patch_a(“1”) %include vaccino-danneggia-1.txt

%code
#lout_include_suffix="dw-ta1"; #gs_w=240
gs_h=350

patch_a(“2”) %include risolviamo-problemi-1.txt

%code
Place_IncludeGraphic="""@Place  x{ left +0c}  y{ top - ysize +15p}
  { 0.85 1.0 } @Scale @IncludeGraphic { "orange.eps" } //"""

patch_a(“3”) %include via-buggie-1.txt

# .— flyer

%code
# patch_a_init() # done in ctp-mod-div-a BEGIN{}

lout_include_suffix="-a4"     # A4
lout_include_suffix="-a4-b"   # A4 with boarder "dw-ta1"
##gs_w=240
##gs_h=350

#patch_more("@Ge {www.arean.net}")
patch_more("@HExpand{~}  @Gh {www.arean.net -- www.byoblu.com}")  
#patch_more("|4c @Gh {www.arean.net}")

InitialLanguage="Italian"
InitialFont="Times Base 60p"

Place_IncludeGraphic="""@Place  x{ left +0c}  y{ top - ysize +15p}
  #{ 0.85 1.0 } @Scale @IncludeGraphic { "ciel1-1454.eps" } //
  {3. 3.} @Scale @IncludeGraphic { "orange.eps" } //
"""
Place_IncludeGraphic=""

patch_a(“v1f”) %include vaccino-1-fly.txt

patch_a(“v2f”) %include vaccino-5G-sone-arme-fly.txt

patch_a(“c1f”) %include credere-morire.txt

# .— web page

%produce-mod outp_plaintext @@ @Outdir;.txt %print __@@ %mix

      dbgsaved=dbg
      prprint_delimiter("\n")
      
      prprint_patch(".:more:a1","1")
      prprint_patch(".:more:a2","2")
      prprint_patch(".:more:a3","3")        

#—————————————–

flyer== # vaccino Covid

dbg=3
if (dbg>=3) showArray("Patch_a")
      dbg=dbgsaved

      prprint_flyer("v1f","300")
      dbg=dbgsaved

      prprint_flyer("v2f","300")     

      prprint_flyer("c1f","200")