home *** CD-ROM | disk | FTP | other *** search
/ Super Sampler 1 / SAMPLER1.iso / sdemos / grw2demo / psq / sockel.psq < prev   
Encoding:
Text File  |  1993-10-12  |  359 b   |  25 lines

  1. %  ***************
  2. %  ** IC-Sockel **
  3. %  ***************
  4. %
  5. %
  6. 1 setpen
  7. 1 setdash
  8. getcursor
  9. /xpos cursorx def
  10. /ypos cursory def
  11. /augen (Anzahl der L÷taugen ?) input def
  12. /abst augen 24 idiv 1 add 7.62 mul def
  13. /augen augen 2 div def
  14. augen {
  15. xpos ypos moveto
  16. 0.8 dup rbox
  17. xpos ypos abst add
  18. moveto
  19. 0.8 dup rbox
  20. /xpos xpos 2.54 add def
  21. }
  22.  
  23.  
  24.  
  25.