REM Created in CorelPhotoPaint Version 9.397
REM Created On Monday, November, 08, 1999 by linkaxdx
'	orb1.csc
' This script requires the file "bigthinring.cpt" be placed into
' your Windows default temp directory.

WITHOBJECT "CorelPhotoPaint.Automation.9"
	.SetDocumentInfo 1200, 1200	' 4 x 4 inch at 300 dpi
	tfold$ = GETTEMPFOLDER()
	xbig& = 48	' Size of a single ring from the i.s. brush
	Msg$ = "Enter number of orbits:"
	uix$ = INPUTBOX(Msg$)
	xorbs& = VAL(uix$)
	IF xorbs = 0 THEN xorbs = 12
	
	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
	xypt& = 600 * 256 	' y-value of starting point
		
	FOR I = 1 TO xorbs STEP 1	
		' ...........................................................
		.ImageSprayerTool tfold & "bigthinring.cpt", 1, 1, xbig&, 0, 0
			.ImageSprayerSettings 1, 101, 0, 0, 0, 1, 1, 1
			.ImageSprayerList "1,1"
			.BrushOrbitSettings xorbs&, xradius&, xrot&, 64, 0, FALSE, FALSE, 100, 200, 200, 0, 0, 0
			.SymmetrySettings 207967, 280493, 768, 8
			.RandomSeed 234608470
			.StartDraw xxpt&, xypt&, 0, 0, 0, 0
			.EndDraw 
		' ...........................................................
		xradius& = xradius& - 15	' Make inner rows
		xrot& = INT(xrot& + (xorbs&/6))
		xbig& = xbig&-2
		WAIT FOR 1
	NEXT I
		
END WITHOBJECT