TGC Codebase Backup



Whirly Gig by Richard Davey

25th Sep 2003 19:38
Summary

You have to sit and watch this one for a few moments to see the pattern changing and evolving. Extremely simple but quite hypnotic effect!



Description



Code
                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    `	-------------------------------------------------------------------------
`	Whirly Gig                                     DarkForge Snippet 7/5/2000
`	-------------------------------------------------------------------------
`	You have to sit and watch this one for a few moments to see the pattern
`	changing and evolving. Extremely simple but quite hypnotic effect!

sync rate 0
sync on
hide mouse

load image "copper_waves.bmp",1

for a=1 to 6
	make object plain a,100,100
	position object a,50,50,50-a
	texture object a,1
	set object a,1,0,1
	ghost object on a
next a

color backdrop rgb(0,0,0)

x=object position x(1)
y=object position y(1)
z=object position z(1)

position camera 50,73,2

s=2

do

	zrotate object 1,wrapvalue(a#)
	zrotate object 2,wrapvalue(b#)
	zrotate object 3,wrapvalue(c#)
	zrotate object 4,wrapvalue(d#)
	zrotate object 5,wrapvalue(e#)

	inc a#,0.25+s
	inc b#,0.26+s
	inc c#,0.27+s
	inc d#,0.28+s
	inc e#,0.29+s

	sync

loop