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

WITHOBJECT "CorelPhotoPaint.Automation.9"
	.SetDocumentInfo 1200, 1200	' 4 x 4 inch at 300 dpi
	tfold$ = GETTEMPFOLDER()
	xbig& = 60	' Size 
	Msg$ = "Enter number of orbits:"
	uix$ = INPUTBOX(Msg$)
	xorbs& = VAL(uix$)
	IF xorbs = 0 THEN xorbs = 18
	xrads = ANGLECONVERT(1, 2, (180/xorbs&))	' convert degrees to radians
	xradius& = INT(47/SIN(xrads)) + 2 ' Choose orbits, find radius
	xrot& = 0	' rotation speed
	xxpt& = 600 * 256	' x-value of starting point 153,600
	xypt& = 600 * 256 ' y-value of starting point 153,600
		
	FOR I = 1 TO 28 STEP 1	
		' ...........................................................
		.ImageSprayerTool tfold & "redbluedisk.cpt", 1, 2, xbig&, 0, 0
			.ImageSprayerSettings 2, 101, 0, 0, 1, 1, 2, 1
			.ImageSprayerList "3,2,1,2"
			.BrushOrbitSettings xorbs&, xradius&, xrot&, 0, 0, FALSE, FALSE, 0, 0, 0, 0, 0, 0
			.SymmetrySettings xxpt&, xypt&, 0, 6
			.RandomSeed 234608470
			.StartDraw xxpt&, xypt&, 0, 0, 0, 0
			.EndDraw 
		' ...........................................................
		xradius& = xradius& + 8	' Make inner rows
		xrot& = INT(xrot& + (xorbs&/2))
		xbig& = xbig&-2
	NEXT I
		
END WITHOBJECT