22 lines
305 B
Text
22 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
|