REM Created in CorelPhotoPaint Version 9.397
REM Created On December 1, 1999 by Alex Link
REM			DreamWeaver5
'	polyorbx2.csc

WITHOBJECT "CorelPhotoPaint.Automation.9"
	.SetDocumentInfo 1200, 1200	' 4 x 4 inch at 300 dpi
	cx& = 600
	cy& = 600
	GLOBAL CONST pi AS DOUBLE = 3.1415926535
	
	SUB p8Ring ( ByVal pRX&, ByVal pRY&, ByVal pRR&)
		DIM xA(8) AS DOUBLE
		DIM yA(8) AS DOUBLE
		xrad = 0
		FOR K = 1 TO 8
			xA(K) = 256*pRX& + 256*pRR&*cos(xrad)
			xrad = xrad + pi/4
		NEXT K
		xrad = 0
		FOR L = 1 TO 8
			yA(L) = 256*pRY& + 256*pRR&*sin(xrad)
			xrad = xrad + pi/4
		NEXT L
		
		.PolygonTool 2, 0, 0, 3, TRUE, FALSE, TRUE
			.SetPaintColor 5, 0, 0, 255, 0
			.FillSolid 5, 255, 0, 0, 0
			.StartDraw xA(1), yA(1), 0, 0, 0, 0	
			For z = 2 TO 8
				.ContinueDraw xA(z), yA(z), 0, 0, 0, 0
			Next z
			.EndDraw
	END SUB
	
	.ImageInvert
		.EndColorEffect
	Msg$ = "Enter step size:"
	uix$ = INPUTBOX(Msg$)
	xs& = VAL(uix$)
	IF xs = 0 THEN xs = 40
	FOR I = 200 TO 50 STEP -xs	' try other step sizes here
		FOR J = pi/8 TO 15*pi/8 STEP pi/4
			x& = cx& + I*COS(J)*COS(pi/8)*COS(pi/8)
			y& = cy& + I*SIN(J)*COS(pi/8)*COS(pi/8)
			p8Ring x&, y&, 200
		NEXT J
	NEXT I
	
END WITHOBJECT