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

# a.txt :oa

#%digest-stat
%includepath _/patch

# patch_a_init() # see 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("|120p @Gd @B more...")

InitialLanguage="German"  #"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(“chde”) # see ctp-mod-div-a %include chde-1.txt

## %code

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

patch_a(“welsch”) %include welsch-1.txt

%code

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

patch_a(“it”) %include it-1.txt

# .— web page

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

      dbgsaved=dbg
      prprint_delimiter("\n") # see ctp-mod-div-a
      
      prprint_patch(".:chde:a","chde")
      prprint_patch(".:it:a","it")
      prprint_patch(".:welsch:a","welsch")        

#—————————————– %print-end

# .— NOTES

# function patch_a patch_more prprint_delimiter prprint_patch # see ctp-mod-div-a