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.