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

WITHOBJECT "CorelPhotoPaint.Automation.9"
	.SetDocumentInfo 1200, 1200	' 4 x 4 inch at 300 dpi
	Msg$ = "Enter the number of orbits:"
	uix$ = INPUTBOX(Msg$)
	xorbs& = VAL(uix$)
	IF xorbs = 0 THEN xorbs = 12
	tfold$ = GETTEMPFOLDER()
	xbig& = 200	' Size of a single ring from the i.s. brush
	xrads = ANGLECONVERT(1, 2, (180/xorbs&))	' convert degrees to radians
	xradius& = (47.4/SIN(xrads))/3 ' Choose orbits, find radius
	xrot& = 0	' rotation speed
	xxpt& = 600 * 256	' x-value of starting point
	xypt& = 600 * 256 ' y-value of starting point
		
	
		' ...........................................................
		.ImageSprayerTool tfold & "circle20.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, xorbs&
			.RandomSeed 234608470
			.StartDraw xxpt&, xypt&, 0, 0, 0, 0
			.EndDraw 
		' ...........................................................
		
END WITHOBJECT