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 >
Wrap
Text File
|
1992-08-27
|
391b
|
18 lines
PROC circlef:
LOCAL c&,d%,x&,y&,r&,h,y%
dINIT "Draw a filled circle"
x&=120 :dLONG x&,"Centre x pos",0,239
y&=40 :dLONG y&,"Centre y pos",0,79
r&=20 :dLONG r&,"Radius",1,120
h=1 :dFLOAT h,"Relative height",0,999
IF DIALOG
c&=1 :d%=2*r& :gAT x&-r&,y& :gLINEBY 0,0
WHILE c&<=d%
y%=-SQR(r&*c&*2-c&**2)*h
gAT x&-r&+c&,y&-y% :gLINEBY 0,2*y%
c&=c&+1
ENDWH
GET
ENDIF
ENDP