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