#-*- coding: utf-8-unix mode: text; mode: ctp -*-
# flyer-a1.txt
#
# from expose-a1.txt
#
%text

# set patch id 
# patch_a("xx")
#
#
# .-- args
#
# lout_include_suffix=""   # "dw-ta1" eg.
# gs_w=240
# gs_h=350
# gs_b=300
#
# lout_def=""
# InitialLanguage="German"     # Italian
# InitialFont="Times Base 18p"
# 
# Place_IncludeGraphic="" # default
# Place_IncludeGraphic="""@Place  x{ left +0c}  y{ top - ysize +15p}
#   { 0.85 1.0 }
#   @Scale @IncludeGraphic { "ciel1-1454.eps" } //
# """
#---
%form lout
%code
pb="@DP @LLP"
lb="@B @Ul"

gs_b=300
 
%text
%produce-arg gs: 

%produce-mod outp_lout    __{.outpsuffix.}       @Outdir
%print __{.outpsuffix.}   @Noout
#-*- coding: utf-8-unix  mode: text; mode: ctp -*-

@SysInclude{xrgb}
@SysInclude{eq}     # 1 @Sup {er} , 2 @Sub drunder  eg.
@Include{myslides{.lout_include_suffix.}}

def @Dpx {l}
def @Dpxa {l //} #do not as indented
def @vleft right x {@Place  x{ left +5p}  y{ foot +5p } 90d @Rotate x}

{.lout_def.}

@OverheadTransparencies
 @InitialLanguage{ {.InitialLanguage.} }
 @InitialBreak{ unbreakablefirst ragged 1.2fx nohyphen }
 @InitialFont{ {.InitialFont.} } 
 @PageOrientation{ Portrait }
 @PageHeaders{None}   #Simple}
// #//
@Overhead
@Begin

{.Place_IncludeGraphic.}

#---
#@Gc{ @Verbatim{ {._fname.}} @LLP
#@Ul {0 pos. zero, test} // #////////
#  this is printed on y= (top+foot)*1/4 ca.
#---

#if (patch_more_str) {  #TODO

# more...    www.xxxx.net  eg.
#@ZeroHeight @ZeroWidth
#@Place  x{ right -xsize +0c}  y{ foot +5p } { {.patch_more_str.}}//
@Place  x{ right -xsize}  y{ foot +25p } { {.patch_more_str.}}//


#
# .-- my solution to place the object on top of slide.
#
# .-- adjustment for hidden boarder of printer
# hp of gd
#
#@Place x{ left +2.6c } y{ top -1.5c -ysize }
@Place x{ left +2.6c } y{ top -1c -ysize }
{0.9 0.9} @Scale
#{1. 1.5} @Scale 
{

# mode %text will continue
# --- include end ---