Computertechnik mit Mikrocontrollern

ANHANG D. PROGRAMM PCB 232
/wire2 % (a1) (c3) wire2
{
0.8 setlinewidth
iwire
} def
/ipad
{
0 setlinewidth
0 1 multy 1 sub
{
dy mul ypos add /argy exch def
0 1 multx 1 sub
{
dx mul xpos add /argx exch def
argx argy 0.3 boardscale mul 0 360 arc fill
white setcolor argx argy 0.1 boardscale mul 0 360 arc fill black setcolor
} for
} for
} def
/pad % (a1) pad
{ cvpad ipad } def
/smd
{
cvpad
0 setlinewidth
0 1 multy 1 sub
{
dy mul ypos add /argy exch def
0 1 multx 1 sub
{
dx mul xpos add .25 sub argy .25 sub moveto
.5 0 rlineto 0 .5 rlineto -.5 0 rlineto closepath fill
} for
} for
} def
/xpad % (a1) 3 xpad => (a1) pad (b1) pad (c1) pad
{ 1 sub boardscale mul exch cvpad xpos exch boardscale exch xpos add
{ /xpos exch def ipad } for
} def
/ypad % (a1) 3 ypad => (a1) pad (a2) pad (a3) pad
{ 1 sub boardscale mul exch cvpad ypos exch boardscale exch ypos add
{ /ypos exch def ipad } for
} def
/mirror { pagewidth 0 translate -1 1 scale } def
%(n15)board (n1)(n15)wire (a1)pad(n1)pad(n14)pad(n15)smd (c3)4 xpad(e3)4 ypad
end_of_pslayout
}
#.#############################################################################
#. Methods
#.#############################################################################
################################## info ###################################
Lot="$Lot cat echo"