Computertechnik mit Mikrocontrollern

ANHANG D. PROGRAMM PCB 231
psize psize scale
0 setlinewidth
1 1 multy
{
/y exch def
1 1 multx
{
1 sub dx mul y 1 sub dy mul moveto
dx 0 rlineto 0 dy rlineto dx -1 mul 0 rlineto closepath stroke
} for
} for
}
{
pagewidth leftmargin sub dx psize mul sub 2 div leftmargin add
pageheight dy psize mul add -2 div
translate
psize psize scale
0 setlinewidth
0 0 moveto dx 0 lineto dx dy lineto 0 dy lineto closepath stroke
/Courier findfont .8 scalefont setfont
1 1 dx 1 sub
{
dup -1 moveto
dup 26 gt
{ 64 add 26 sub } % A..Z
{ 96 add } ifelse % a..z
st exch 0 exch put st
[ 1 0 0 -1 0 0 ] concat -.4 0 rmoveto show [ 1 0 0 -1 0 0 ] concat
} for
1 1 dy 1 sub
{
dup -1 exch moveto 10 (999) cvrs
[ 1 0 0 -1 0 0 ] concat -1 -.4 rmoveto show [ 1 0 0 -1 0 0 ] concat
} for
} ifelse
} def
/iwire % (a1) (c3) iwire
{
exch
cvpad
/xlen xpos def /ylen ypos def
cvpad
/xlen xlen xpos sub def /ylen ylen ypos sub def
0 1 multy 1 sub
{
dy mul ypos add /y exch def
0 1 multx 1 sub
{
dx mul xpos add y moveto xlen ylen rlineto closepath stroke
} for
} for
} def
/wire % (a1) (c3) wire
{
0.2 setlinewidth
iwire
} def