#-*- 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