perm filename TEST1.SAI[GEM,BGB]2 blob
sn#059733 filedate 1973-08-27 generic text, type T, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
RECORD PAGE DESCRIPTION
00001 00001
00002 00002 BEGIN "TEST1"
00004 ENDMK
⊗;
BEGIN "TEST1"
DEFINE α="COMMENT";
DEFINE π="3.1415927";
REQUIRE "GEOMES.HDR[GEM,HE]" SOURCE_FILE;
INTEGER B1,B2,F,E,V,V0,T;
INTEGER WORLD,WINDOW,CAMERA;
α UNIVERSE CREATION;
GEONIT;
α BODY CREATION;
B1 ← MKCUBE(4.0,1.0,2.0); α MAKE RECTANGULAR PRISM;
B2 ← MKCOPY(B1); α COPY THE PRISM;
α ACTION;
FOR T←1 STEP 1 UNTIL 30 DO
OUTSTR(13&10); α FLUSH THE PAGE PRINTER;
TRANSLATE(B1,0,0,4); α 4 FEET +Z TOWARDS CAMERA;
ROTATE(B2,π/8,π/8,0); α ROTATION ABOUT X & Y AXES;
WHILE TRUE DO
BEGIN
ROTATE(B1,0,-π/17,0); α ROTATION CW ABOUT Y-AXIS;
FOR T←1 STEP 1 UNTIL 40 DO
BEGIN
ROTATE(B1,π/20,0,0); α ROTATION CCW ABOUT X-AXIS;
ROTATE(B2,0,π/16,0); α ROTATION CCW ABOUT Y-AXIS;
SHOW2(0,1); α DISPLAY A SIMULATED IMAGE;
IF INCHRS≥1 THEN DONE; α EXIT ON TYPE-ANY-KEY;
END;
END;
END "TEST1"; BGB 19 MARCH 1973.