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

# a.txt oa/welsch # #—

#%digest-stat
%includepath _/patch
%code
lout_include_suffix="dw-ta1"
gs_w=240
gs_h=350
patch_more("@Gh @B lire de plus...")
patch_more("|120p @Gf @B more...")

InitialLanguage="French"  #"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 welsch-1.txt

%code
gs_h=350
     

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

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

patch_a(“3”) %include welsch-3.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")        

%print-end