$ Title "Phi Scaling. Left button move. Right button rotate"
uses consoleG
BeginScript
procedure main()
================
if opening
end if
cls .2,.3,.5
move 20,-25
UserMovement m1,100
'
'
shading
color 1,1,.5,1
int i
float phi=1.618033988
float phm=phi-1
phi*=3.5 'base scaling factor
'
for i=1 to 10
pushstate
scale phi
go sphere
popstate
move 0,phi,0
phi*=phm
move 0,phi,0
next
'
end procedure 'main
EndScript