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

WITHOBJECT "CorelPhotoPaint.Automation.9"
	.SetDocumentInfo 1200, 1200	' 4 x 4 inch at 300 dpi
	cx& = 600
	cy& = 600
	SUB xRing (ByVal pRX&, ByVal pRY&, ByVal pRR&)
		.EllipseTool 1, 0, 0, TRUE, FALSE, FALSE
				.SetPaintColor 5, 0, 0, 0, 0
				.Ellipse pRX&-pRR&, pRY&-pRR&, pRX&+pRR&, pRY&+pRR&
	END SUB
	
	Msg$ = "Enter step size: "
	iux$ = INPUTBOX(Msg$)
	xs& = VAL(iux$)
	IF xs = 0 THEN xs = 4
	
	FOR J = 0 TO 330 STEP 30
		xrad = ANGLECONVERT(1, 2, J)
		x& = cx& + cos(xrad) * 100
		y& = cy& + sin(xrad) * 100
		
		FOR I = 50 TO 100 STEP xs
			xRing x&, y&, I
		NEXT I
		
	NEXT J

END WITHOBJECT