home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Educational / Sphere / Source / DrawPoly.psw < prev    next >
Encoding:
Text File  |  1995-06-12  |  563 b   |  48 lines
  1. defineps DrawPoly3 (float x1,y1,x2,y2,x3,y3)
  2.     
  3.     0 setgray
  4.     x1 y1 moveto
  5.     x2 y2 lineto
  6.     x3 y3 lineto
  7.     closepath
  8.     stroke
  9.  
  10. endps
  11.  
  12. defineps DrawPoly3s (float x1,y1,x2,y2,x3,y3,gray)
  13.     
  14.     gray setgray
  15.     x1 y1 moveto
  16.     x2 y2 lineto
  17.     x3 y3 lineto
  18.     closepath
  19.     fill
  20.  
  21. endps
  22.  
  23.  
  24. defineps DrawPoly4 (float x1,y1,x2,y2,x3,y3,x4,y4)
  25.     
  26.     0 setgray
  27.     x1 y1 moveto
  28.     x2 y2 lineto
  29.     x3 y3 lineto
  30.     x4 y4 lineto
  31.     closepath
  32.     stroke
  33.  
  34. endps
  35.  
  36. defineps DrawPoly4s (float x1,y1,x2,y2,x3,y3,x4,y4,gray)
  37.     
  38.     gray setgray
  39.     x1 y1 moveto
  40.     x2 y2 lineto
  41.     x3 y3 lineto
  42.     x4 y4 lineto
  43.     closepath
  44.     fill
  45.  
  46. endps
  47.  
  48.