REM Creates movie by zooming out of picture (PLens 98)
REM http://start.at/the.court

txtStr$=inputbox("Enter number of cells to be added")
if txtStr$="" then end
cellMax% = val(txtStr$)

WITHOBJECT "CorelPhotoPaint.Automation.8"
	pwidth%=.GetDocumentWidth()
	pheight%=.GetDocumentHeight()

	.SetDocumentInfo pwidth%, pheight%
	.MovieCreate
	.MovieInsertFrame 1, cellMax%-1, FALSE, TRUE
	for n%=1 to cellMax%-1
		.MovieGotoFrame n%
		i%=cellMax%-n%
		.EffectRadialBlur 1, 13+int(i%*1.5), pwidth%\2, pheight%\2

		.ObjectCreateFromBackground 
		.ObjectSelectNone 
		.ObjectSelect 1, TRUE
		.ObjectAffineDistort -(int(pwidth%/(i%*10))), -(int(pheight%/(i%*10))), 1+i%/10, 0, 0, 1+i%/10, TRUE
		.ObjectSelectNone 
		.ObjectSelect 1, TRUE
		.ObjectAlign 3, 3, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE
		.ObjectSelectNone 
		.ObjectSelect 1, TRUE
		.ObjectMerge FALSE

	next
END WITHOBJECT