home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1995 August / NEBULA.bin / SourceCode / AlexNeXTSTEPSource / Source / Chapter7_Views / Shapes / drawcircle.psw < prev    next >
Encoding:
Text File  |  1993-04-14  |  287 b   |  18 lines
  1. // wraps routine to draw a circle
  2. defineps drawcircle(float x, y,
  3.             angle, xScale, yScale)
  4.     % translate axes
  5.     x y translate
  6.     % rotate
  7.     angle rotate
  8.     % scale
  9.     xScale yScale scale
  10.     % move to new origin
  11.     0 0 moveto
  12.     % draw circle
  13.     0 0 5 0 angle arc
  14.     % fill to white
  15.     1 setgray
  16.     fill
  17. endps
  18.