REM Created in CorelPhotoPaint Version 9.397
REM Created by alink@kscable.com
REM This script was designed to run on a 1200 x 1200 pixel screen
REM at 300 dpi, but will run on other sizes with different results.
' lacy2.csc

WITHOBJECT "CorelPhotoPaint.Automation.9"
	.SetDocumentInfo 1200, 1200	' 4 x 4 inch at 300 dpi
	tfold$ = GETTEMPFOLDER()
	BEGIN DIALOG Dialog1 20, 20, 240, 200, "         FUN WITH ORBITS"
		TEXT 40, 6, 200, 14, "<== Size of rings (120)"	' 14 units high per line
		TEXTBOX 6, 6, 30, 14, szring$
		TEXT 40, 26, 200, 14, "<== Number of orbits (12)"	' 20 units down for next line
		TEXTBOX 6, 26, 30, 14, norb$
		TEXT 40, 46, 200, 14, "<== Number of radial symmetry points (12)"
		TEXTBOX 6, 46, 30, 14, nsymm$
		TEXT 40, 66, 200, 14, "<== further tweak offset of symmetry center (0)"
		TEXTBOX 6, 66, 30, 14, noff$
		TEXT 6, 106, 220, 80, \\
			"The top cell is for the size of the individual rings and the next" & CHR(13) & \\
			"cell is for the number of rings to orbit a local point." & CHR(13) & \\
			"These local " & CHR(34) & "daisys" & CHR(34) & " are in turn mapped to the number of" & CHR(13) & \\
			"symmetry points chosen and the radial distance to the symmetry" & CHR(13) & \\
			"center can be tweaked with positive or negative pixels/numbers." & CHR(13) & \\
			"If no number is entered, then the (default) values apply." & CHR(13) & \\
			"TAB past any cell to use default, ENTER to draw lace.  ENJOY!"
	END DIALOG
	DIALOG Dialog1
	IF szring$ = "" THEN 
		xbig& = 120
	ELSE
		xbig& = VAL(szring$)
	ENDIF
	IF norb$ = "" THEN
		xorb& = 12
	ELSE
		xorb& = VAL(norb$)
	ENDIF
	IF nsymm$ = "" THEN
		xsymm& = 12
	ELSE
		xsymm& = VAL(nsymm$)
	ENDIF
	IF noff$ = "" THEN noff$ = "0"
	xoff& = VAL(noff$)
	xtran& = (47.4 + xbig&/2 + xoff&) * 256
	
	' check for bad input
	IF xbig& = 0 OR xorb& = 0 OR xorb& = 1 OR xsymm& = 0 THEN
		Message "DATA ERROR, please try again."
		STOP
	ENDIF
			
	xrads = ANGLECONVERT(1, 2, (180/xorb&))	' convert degrees to radians
	xradius& = 47.4/SIN(xrads) ' Choose orbits, find radius
	xxpt& = 600 * 256	' x-value of starting point 153,600
	xypt& = 600 * 256 ' y-value of starting point 153,600
	.EditClear 5, 0, 0, 0, 0
	' ...........................................................
	.ImageSprayerTool tfold & "greengold.cpt", 1, 1, xbig&, 3, 0
		.ImageSprayerSettings 1, 0, 0, 0, 1, 1, 1, 1
		.ImageSprayerList "1,1"
		.BrushOrbitSettings xorb&, xradius&, 0, 0, 0, TRUE, FALSE, 0, 0, 0, 0, 0, 0
		.SymmetrySettings 262144, 262143 - xtran&, 769, xsymm&
		.RandomSeed 234608470
		.StartDraw xxpt&, xypt&, 0, 0, 0, 0
		.EndDraw 
	' ...........................................................
	.SymmetrySettings 0, 0, 768, 0

END WITHOBJECT