21 lines
305 B
Text
21 lines
305 B
Text
% Title "Rotating Cube"
|
|
% Animated
|
|
% PlaceCentral
|
|
uses ConsoleG
|
|
|
|
sub main
|
|
========
|
|
cls 0.0, 0.5, 0.7
|
|
shading
|
|
scale 7
|
|
pushstate
|
|
GoldMaterial.act
|
|
static float ang
|
|
rotateX ang
|
|
rotateY ang
|
|
go cube
|
|
popstate
|
|
ang+=.5 : if ang>=360 then ang-=360
|
|
end sub
|
|
|
|
EndScript
|