REM Created in CorelPhotoPaint Version 9.397
REM Created On Sunday, November, 14, 1999 by linkaxdx
REM  orb0.csc
WITHOBJECT "CorelPhotoPaint.Automation.9"
	.SetDocumentInfo 1200, 1200
	x& = 1200
	y& = 1200
	Msg$ = "Enter number of circles:"
	uix$ = INPUTBOX(Msg$)
	n& = VAL(uix$)
	IF n = 0 THEN n = 12
	xrads = ANGLECONVERT(1, 2, (180/n&))
	' 54 for kissing cirles, 58 for half overlap cirles
	xradius& = (58/sin(xrads)) * 256	
	.BrushTool 0, 45, 0, 40, 0, 8, 0, 0, 100, 90
		.BrushTextureSettings "", 0, 0, 0, 0, 15, TRUE, FALSE, 0, FALSE
		.BrushDabSettings 1, 60, 0, 0, 0, 0, 0
		.BrushOrbitSettings 300, 950, 0, 0, 0, FALSE, FALSE, 100, 180, 180, 0, 0, 0
		.SymmetrySettings 262580, 262143, 769, n&
		.SetPaintColor 5, 0, 0, 0, 0
		.RandomSeed 911993998
		.StartDraw x&/2 * 256, x&/2 * 256 - xradius&/2.4, 0, 0, 0, 0
		.EndDraw 
END WITHOBJECT