z:header:expose-a1 []

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
#-*- 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
%comment-end ---------------------------------------------------------------