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

WITHOBJECT "CorelPhotoPaint.Automation.9"
	w& = .GetDocumentWidth()
	h& = .GetDocumentHeight()
	.SetDocumentInfo w&, h&		' use at least a 500 x 500 pixel, 300 DPI page
	cx& = w&/2
	cy& = h&/2
	SUB xRing ( ByVal pRX&, ByVal pRY&, ByVal pRR&)
		.EllipseTool 2, 0, 3, TRUE, FALSE, TRUE	' (..Tool 2), try other widths
				.SetPaintColor 5, 0, 0, 255, 0	' try other ring colors in RGB
				.FillSolid 5, 255, 0, 0, 0	'try other fill colors in RGB
				.Ellipse pRX&-pRR&, pRY&-pRR&, pRX&+pRR&, pRY&+pRR&
	END SUB
	
	.ImageInvert
		.EndColorEffect
	Msg$ = "Enter step size:" & CHR(13) & "Try 5, 10, 18, 40, 50..."
	uix$ = INPUTBOX(Msg$)
	xs& = VAL(uix$)
	IF xs = 0 THEN xs = 25
	' for next line: TO (360-[360/12]) STEP (360/12) for 12 pt. orbit	
	FOR J = 0 TO 330 STEP 30	'(TO 330 STEP 30), try TO 315 STEP 45, etc.
		xrad = ANGLECONVERT(1, 2, J)
		x& = cx& + cos(xrad) * 100
		y& = cy& + sin(xrad) * 100
		
		FOR I = 50 TO 100 STEP xs	'(STEP 25) try 5, 10, 18, 40, 50 !!!
			xRing x&, y&, I	' try I*2, I*1.5, I/2, etc.
		NEXT I
		
	NEXT J

END WITHOBJECT