home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume1 / 8710 / 14 / circle.f < prev    next >
Encoding:
Text File  |  1990-07-13  |  535 b   |  25 lines
  1.     subroutine circle(xorg,yorg,rad)
  2. C
  3. C   draw a circle in PostScript for ccps library
  4. C     Rex Sanders, 3/87
  5. C
  6.     common /cqpbnf/ xold, yold, fac, ires
  7.     save   /cqpbnf/
  8.     real            xold, yold, fac
  9.     integer                          ires
  10.  
  11. C
  12. C   Output "stroke x y radius 0 360 arc stroke"
  13. C
  14.     call plsout ("stroke ")
  15.     call pliout (nint (xorg*fac*ires))
  16.     call plcout (32)
  17.     call pliout (nint (yorg*fac*ires))
  18.     call plcout (32)
  19.     call pliout (nint (rad*fac*ires))
  20.     call plsout (" 0 360 arc stroke\n")
  21.     call plot(xorg,yorg,3)
  22.  
  23.     return
  24.     end
  25.