REM Created in CorelPhotoPaint Version 9.397
REM Created On Monday, November, 30, 1999 by linkaxdx
REM				DreamWeaver2
'	subflowerf.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 2, 0, 3, TRUE, FALSE, TRUE
 				.SetPaintColor 5, 0, 0, 255, 0
				.FillSolid 5, 255, 0, 0, 0
 				.Ellipse x&-pR&, y&-pR&, x&+pR&, y&+pR&
		NEXT I
	END SUB
	
	.ImageInvert
		.EndColorEffect
	Msg$ = "Enter step size: " & CHR(13) & "Try 5, 18, 25, 40, 50..."
	uix$ = INPUTBOX(Msg$)
	xs& = VAL (uix$)
	IF xs = 0 THEN xs = 10	
	FOR J = 50 TO 100 STEP xs	' for STEP 10: try 5, 18, 25, 40, 50
		rr& = J
		Flower12 cx&, cy&, rr&
	NEXT J
	
END WITHOBJECT