REM Created in CorelPhotoPaint Version 9.397
REM Created On December 1, 1999 by linkaxdx
REM			DreamWeaver3  based on "rose" curve with fountain fill
'	subringx2.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 6, 0, 3, TRUE, FALSE, TRUE	' edit line width here (6)
				.SetPaintColor 5, 0, 0, 255, 0
				.FillFountainColor 5, 255, 0, 0, 0, 0, 0
				.FillFountainColor 5, 255, 241, 0, 0, 50, 1
				.FillFountainColor 5, 255, 255, 0, 0, 100, 2
				.FillFountainApply 4, 3, 999, 0, 0, 0, 0, 50
				.Ellipse pRX&-pRR&, pRY&-pRR&, pRX&+pRR&, pRY&+pRR&
	END SUB
	
	.ImageInvert
		.EndColorEffect
	
	FOR J = 0 TO 2*pi STEP pi/16
		x& = cx& + 200 * sin(4*J)*cos(J) 	' try more than (4) petals 
		y& = cy& + 200 * sin(4*J)*sin(J)	' try more than (4) petals
		
		FOR I = 100 TO 50 STEP -20		' try other numbers from 10 - 50
			xRing x&, y&, I
		NEXT I
	NEXT J

END WITHOBJECT