home *** CD-ROM | disk | FTP | other *** search
- % ***************
- % ** IC-Sockel **
- % ***************
- %
- %
- 1 setpen
- 1 setdash
- getcursor
- /xpos cursorx def
- /ypos cursory def
- /augen (Anzahl der L÷taugen ?) input def
- /abst augen 24 idiv 1 add 7.62 mul def
- /augen augen 2 div def
- augen {
- xpos ypos moveto
- 0.8 dup rbox
- xpos ypos abst add
- moveto
- 0.8 dup rbox
- /xpos xpos 2.54 add def
- }
-
-
-
-