home *** CD-ROM | disk | FTP | other *** search
/ Education Sampler 1992 [NeXTSTEP] / Education_1992_Sampler.iso / Programming / Source / StereoScope-3.2 / dotAt.psw < prev    next >
Encoding:
Text File  |  1992-04-02  |  376 b   |  19 lines
  1. defineps dotAt(float mkcpath[ntotal]; int ntotal; userobject mygstate)
  2.     mkcpath {} forall
  3.     1 1 ntotal 2 div {
  4.         pop
  5.         0 0 5 5 mygstate
  6.         7 -2 roll
  7.         PlusD composite
  8.     } for
  9. endps
  10.  
  11. defineps dotAtPSonly(float mkcpath[ntotal]; int ntotal; float radius; float shade)
  12.     mkcpath {} forall
  13.     1 1 ntotal 2 div {
  14.         pop
  15.         newpath radius 0 360 arc
  16.         shade setgray fill
  17.         stroke
  18.     } for
  19. endps