Computertechnik mit Mikrocontrollern

ANHANG D. PROGRAMM PCB 230
/mm { 25.4 div 72 mul } def
/inch { 72 mul } def
/pt { 1 mul } def
/white [ 1.0 1.0 1.0 ] def
/black [ 0.0 0.0 0.0 ] def
/setcolor { aload pop setrgbcolor } def
/leftmargin 25.4 mm def
/topmargin 10 mm def
/pageheight 297 mm def /pagewidth 210 mm def % a4
%%EndProlog
/boardscale 1 def % 1 is normal scale, 2 is wide scale
/psize 7.2 def % diameter of one pad (0.1 inch)
% /xpos 0 def % xresult of cvpad
% /ypos 0 def % yresult of cvpad
/multpcb false def % Platine nur einfach ausgeben
/multx 1 def % Kopien in x-Richtung
/multy 1 def % Kopien in y-Richtung
% /dx 0 def % x-size
% /dy 0 def % y-size
1 setlinejoin
/cvpad % (a15) cvpad => xpos=1 ypos=15 ; works from (a1)..(z1),(A1)..(Z1)
% to (Z113)
{
dup 0 get
dup 64 le % A-1
{ pop 0 }
{ dup 90 le % Z
{ 64 sub 26 add }
{ dup 96 le % a-1
{ pop 0 }
{ dup 122 le % z
{ 96 sub }
{ pop 0
} ifelse
} ifelse
} ifelse
} ifelse
/xpos exch def
dup length 1 sub 1 exch getinterval cvi /ypos exch def
} def
/mboard { /multy exch def /multx exch def /multpcb true def } def
/board2 { /boardscale 2 def /psize psize 2 div def board } def
/board % (n15) board
{
cvpad /dy ypos 1 add def /dx xpos 1 add def
/st ( ) def
[ 1 0 0 -1 0 0 ] concat
multpcb
{
leftmargin
pageheight topmargin sub -1 mul
translate