REM Created in CorelPhotoPaint Version 9.397
REM Created On Monday, November, 30, 1999 by linkaxdx
'	subflower.csc

WITHOBJECT "CorelPhotoPaint.Automation.9"
	w& = .GetDocumentWidth()
	h& = .GetDocumentHeight()
	.SetDocumentInfo w&, h&	' at least 500 pixel square at 300 dpi
	cx& = w&/2
	cy& = h&/2
	
	SUB Flower12 (pCX&,pCY&,pR&)

		FOR I = 0 to 330 STEP 30
			xrad = ANGLECONVERT(1, 2, I)
			R& = pR& * 1.414
			x& = pCX& + cos(xrad) * R&
			y& = pCY& + sin(xrad) * R&
			.EllipseTool 1, 0, 0, TRUE, FALSE, FALSE
 				.SetPaintColor 5, 0, 0, 0, 0
 				.Ellipse x&-pR&, y&-pR&, x&+pR&, y&+pR&
		NEXT I
	
	END SUB
	Msg$ = "Enter the step size:"
	uix$ = INPUTBOX(Msg$)
	xs& = VAL(uix$)
	IF xs = 0 THEN xs = 10
	FOR J& = 20 TO 100 STEP xs
		Flower12 cx&, cy&, J
	NEXT J&
	
END WITHOBJECT