home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 004 / oplexamp_z / EX_CIRC2.OPL < prev    next >
Text File  |  1992-08-27  |  391b  |  18 lines

  1. PROC circlef:
  2. LOCAL c&,d%,x&,y&,r&,h,y%
  3. dINIT "Draw a filled circle"
  4. x&=120 :dLONG x&,"Centre x pos",0,239
  5. y&=40 :dLONG y&,"Centre y pos",0,79
  6. r&=20 :dLONG r&,"Radius",1,120
  7. h=1 :dFLOAT h,"Relative height",0,999
  8. IF DIALOG
  9.     c&=1 :d%=2*r& :gAT x&-r&,y& :gLINEBY 0,0
  10.     WHILE c&<=d%
  11.         y%=-SQR(r&*c&*2-c&**2)*h
  12.         gAT x&-r&+c&,y&-y% :gLINEBY 0,2*y%
  13.         c&=c&+1
  14.     ENDWH
  15. GET
  16. ENDIF
  17. ENDP
  18.