#-*- coding: utf-8-unix mode: text; mode: ctp -*- # expose-a1.txt # %text
# set patch id # patch_a(“xx”) # # # .– args # # lout_include_suffix=“dw-ta1” # gs_w=240 # gs_h=350 # # 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” } # ”“” # #— %form lout %code if (! gs_w) gs_w=240 if (! gs_h) gs_h=350 # used in: y{ top -{.gs_b.}p } { {.patch_more_str.}} gs_b=gs_h -110 # -100 … -120 # used in: |5p {.gs_c.}p @VShift 90d @Rotate # @ZeroHeight @ZeroWidth gs_c=100 #gs_h -190 switch (gs_h) { case “350”: lout_include_suffix=“dw-ah350” break case “200”: lout_include_suffix=“dw-ah200” break # default: # lout_include_suffix=“” # “dw-ta1” # myslidesdw-ta1 # ? } %text %produce-arg gs: -r100 -dDEVICEWIDTH={.gs_w.} -dDEVICEHEIGHT={.gs_h.} # correspond with @Include{myslidesdw-ah350} # eg. # @PageWidth {120} @PageHeight {240} eg. # see bottom of file. %text %produce-mod outp_lout {.outpsuffix.} @Outdir %print {.outpsuffix.} @Noout #-*- coding: utf-8-unix mode: text; mode: ctp -*- @Include{myslides{.lout_include_suffix.}} # {myslidesdw-ta1} def @Dpx {l} def @Dpxa {l } #do not as indented def @vleft right x {@Place x{ left +3p} y{ top -{.gs_b.}p +5p } 90d @Rotate x}
@OverheadTransparencies @InitialLanguage{ {.InitialLanguage.} } @InitialBreak{ unbreakablefirst ragged 1.2fx nohyphen } @InitialFont{ {.InitialFont.} } #@InitialFont{Courier Base 18p} @PageOrientation{ Portrait } @PageHeaders{None} #Simple} # @Overhead @Begin
{.Place_IncludeGraphic.}
# — test not adjusted zero position #@Gc{ @Verbatim{ {._fname.}} @LLP #0 expose-a1.txt: top, test} @LP # this will be printed on line 5 ca. #—
#if (patch_more_str) { #TODO
#@ZeroHeight @ZeroWidth #@Place x{ right -xsize +0c} y{ top -{.gs_b.}p } { {.patch_more_str.}} @Place x{ left } y{ top -{.gs_b.}p } { {.patch_more_str.}}
# # .– my solution to place the object on top of slide. # @Place x{ left +5p} y{ top -ysize +3p} #10p { # – test adjusted zero position #1 test @LLP #@Gc{ @Verbatim{ {._fname.}} @LLP 1.0~~ “@“Place…} @LLP
# – other solution: try with @VShift - did not succeed. ##{+4w} @VShift
# mode %text will continue # — include end —
%comment ——————————————————————– @Include{myslidesdw-ah350} # eg.
@InitialFont { Times Base 20p } # initial font @InitialBreak { ragged 1.2fx nohyphen } # initial break @PageType {Other} @PageWidth {120p @OrIfPlain 20s} @PageHeight {240p @OrIfPlain 20f}
@TopMargin { 2.1c @OrIfPlain 0f } # top margin of all pages @FootMargin { 0.0c @OrIfPlain 0f } # bottom margin of all pages @OddLeftMargin { 0.0c @OrIfPlain 0s } # left margin of odd pages @OddRightMargin { 0.0c @OrIfPlain 0s } # right margin of odd pages @EvenLeftMargin { 0.0c @OrIfPlain 0s } # left margin of even pages @EvenRightMargin { 0.0c @OrIfPlain 0s } # right margin of even pages