REM Created in CorelPhotoPaint Version 9.397
REM Created On December 1, 1999 by linkaxdx
REM			DreamWeaver3  based on "rose" curve
'	subringx.csc

WITHOBJECT "CorelPhotoPaint.Automation.9"
	.SetDocumentInfo 1200, 1200	' 4 x 4 inch at 300 dpi
	cx& = 600
	cy& = 600
	CONST pi AS DOUBLE  = 3.1415926535
	
	SUB xRing ( ByVal pRX&, ByVal pRY&, ByVal pRR&)
		.EllipseTool 4, 0, 3, TRUE, FALSE, TRUE
				.SetPaintColor 5, 0, 0, 255, 0
				.FillSolid 5, 255, 0, 0, 0
				.Ellipse pRX&-pRR&, pRY&-pRR&, pRX&+pRR&, pRY&+pRR&
	END SUB
	
	.ImageInvert
		.EndColorEffect
	Msg1$ = "Enter number of rose petals, even numbers, 4 - 12:"
	Msg2$ = "Enter step sizes from 10 - 50:"
	uix1$ = INPUTBOX(Msg1$)
	uix2$ = INPUTBOX(Msg2$)
	xrp& = VAL(uix1$)
	xs& = VAL(uix2$)
	IF xrp = 0 THEN xrp = 4
	IF xs = 0 THEN xs = 20
	FOR J = 0 TO 2*pi STEP pi/16
		x& = cx& + 200 * sin(xrp*J)*cos(J) 	' try more than (4) petals 
		y& = cy& + 200 * sin(xrp*J)*sin(J)		' try more than (4) petals
		
		FOR I = 100 TO 50 STEP -xs			' try other numbers from 10 - 50
			xRing x&, y&, I
		NEXT I
		
	NEXT J

END WITHOBJECT