Original code by: BigGun - dmartin@cnl.com.au - http://www.thebiggun.com. Modify the values below for different effects. Simple but lovely.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    `	------------------------------------------------------------------------
`	Swirl                                     DarkForge Snippet (11/10/2000)
`	------------------------------------------------------------------------
`	Original code by: BigGun - dmartin@cnl.com.au - http://www.thebiggun.com
`	Modify the values below for different effects. Simple but lovely.
`	Good values for "something" are 25, 150 and try 1000 too!

hide mouse
sync on
sync rate 0

something = 150
red = 255
green = 255
blue = 255
blur = 0

autocam off
backdrop on
color backdrop 0

create bitmap 1,128,128

for i=1 to 1000

	ink rgb(rnd(red),rnd(green),rnd(blue)),0
	dot rnd(128),rnd(128)

`	Try this but only with low "something" values
`	text rnd(128),rnd(128),"SWIRL!"

next i

if blur>0 then blur bitmap 1,blur
get image 1,0,0,128,128
delete bitmap 1

for i=1 to 10

	make object plain i,1500,1500
	xrotate object i,90
	fix object pivot i
	position object i,0,i,0
	ghost object on i
	texture object i,1

next i

position camera 0,700,0
point camera 0,0,0
o=1

do

	for o=1 to 10
		yrotate object o,wrapvalue(sin(i-o)*something)
	next o
	
	i=wrapvalue(i+3)
	
	sync

loop