z:header:vot-2021jun13:def-dp-lp-donot []

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: ctp -*-

# vot2021jun13-r1.txt
#

%form lout
%digest-stat

#------ %include .head

%text
@SysInclude{ xrgb }
@Include{myslides-c1}
@SysInclude{eq}  # 1 @Sup {er} , 2 @Sub drunder

# --- specific definitions 
def @pa {@LP}
def @pb {@DP @LLP}

def @Ol { @Outline }

def @NO {55p @Font @B NON}
def @dNO {100p @Font @B NON}
def @iNO {|17p 37d @Rotate @ZeroHeight @ZeroWidth 45p @Font @Outline NON}

def @Oui {55p @Font @B Oui}
def @bOui {28p @Font @B Oui} # border

def @vRule_a {-90d @Rotate { @ZeroWidth @ZeroHeight 5c @Wide ~ @LocalWidthRule linewidth {.1p} } }

def @Rule_a  {@LocalWidthRule linewidth {.1p} }
def @Rule_cb {chessboard @Texture scale {5} {lightgray} @Colour  @LocalWidthRule linewidth {25p} }
def @vRule_cb {90d @Rotate { @ZeroWidth @ZeroHeight 5c @Wide ~ chessboard @Texture linewidth {16p} } }

# this do not shift
#def @shift_a {@ZeroHeight {+.0w} @VShift}

#@shift_a {@ZeroHeight {+.4w} @VShift

@OverheadTransparencies
 @InitialLanguage {German}
 @InitialBreak{ unbreakablefirst ragged 1.2fx nohyphen }
 @InitialFont{ Times Base 40p }
 #  @InitialFont{Courier Base 13p}
#? @InitialBackgroundColour{ @Xrgb ivory1 }
 @PageOrientation{ Portrait }
 @PageHeaders{Simple}
// #//
@Overhead
# @Title{ .... }
@Begin

%comment-begin
%text
  @Place x{ left +10.c } y{ top -4c -ysize }
    25d @Rotate @CurveBox margin{0.5f} paint{ @Xrgb lightgrey } #darkseagreen2 }
      ragged @Break 50p @Font { Entwurf } //
%comment-end
#end--------- %include .head

%text
@Place x{ left +.5c } y{ top -1.5c -ysize }
{
%comment-begin
120p @Font {
3~ X~ NON
#3 foix NON
} #@DP @DP @DP 

#@Place x{ left +.5c } y{ top -8c -ysize }
#{
%comment-end

@Rule_cb @DP

|1c loie @Ol PMT  @LLP
@B {État policier} |1.2c @ZeroHeight {+.2w} @VShift @dNO

#@B {dangereux, @LP anti-democratique} @DP @DP
@pb 


|1c @Ol {loie Covid} @LLP
@B {inutile et dictatrice} |1.2c @ZeroHeight {+.2w} @VShift  @dNO

@pb

|1c loie @Ol{ CO @Sub 2 }  @LLP
@B {f~~a~~u~~t ~~} |1.3c @ZeroHeight {+.2w} @VShift @dNO

@pb

@Rule_cb
@DP
@Oui pour @B{l'eau propre} @LP
@Oui pour @B{des aliments saines} @LP
@Oui 35p @Font{ pour une @B{Agriculture respensable}}

@DP
@Rule_cb

}



%comment
# left border
@Place x{ left +0.5c }  y{ top -5c -ysize }
{
+90d @Rotate { @bOui pour une Agriculture respensable @LLP
@Rule_a
}


%comment
# right border
@Place x{ right -2.5c }  y{ top -12c -ysize }
+90d @Rotate 9c @Wide {
#@LocalWidthRule linewidth {.1p}
@Rule_a
@LLP
@bOui pour l'eaux propre  }
}

%comment
#@Place x{ left +0.5c }  y{ bottom }
@Place x{ left +0.5c } y{ top +16c} 
{
@LocalWidthRule linewidth {.1p} @LLP

pour une nouvelle  Suisse @DP
base sur ......... @DP
@Fss {des frvaleurs - pour tous - la veritee stile }//
}

%comment-end
@End @Overhead 


%comment
# Ghostscript OK
@Place x{ right -2.c }  y{ top -10c -ysize } xxx

%comment
# produce Ghostscript error
@Place x{ left +0.5c }  y{ bottom +5c } xxx
@Place x{ right -2.0c }  y{ bottom -5.c } XXX
@Place x{ right -2.0c }  y{ bottom +5.c } XXX
%comment-end