A pulsating wireframe shaded sphere.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    `	------------------------------------------------------------------------
`	Shaded Wireframe Sphere                     DarkForge Snippet (6/8/2000)
`	------------------------------------------------------------------------
`
`	A pulsating wireframe shaded sphere

sync rate 0
sync on
hide mouse

make object sphere 1,50
color object 1,rgb(150,150,100)
color backdrop rgb(0,40,0)
set object 1,0,1,1

reverse=0 : x=50 : y=50

do

	if reverse=0
		inc x : dec y
		if x=60 then reverse=1
	else
		dec x : inc y
		if x=50 then reverse=0
	endif

	scale object 1,x,y,x

	xrotate object 1,a
	yrotate object 1,a

	zrotate camera a

	inc a : if a=360 then a=0

	sync

loop