perm filename TEST1.SAI[GEM,BGB]1 blob sn#030941 filedate 1973-03-27 generic text, type T, neo UTF8
00100	BEGIN "TEST"
00200		DEFINE !="COMMENT";
00300		DEFINE π="3.1415927";
00400		REQUIRE "⊂⊃⊂⊃" DELIMITERS;
00500		REQUIRE "GEOMES.HDR" SOURCE_FILE;
00600	
00700		INTEGER B1,B2,F,E,V,V0,T;
00800		INTEGER WORLD,WINDOW,CAMERA;
00900	
01000	! UNIVERSE CREATION;
01100	
01200		WORLD ← MKWORLD;	! MAKE A WORLD;
01300		WINDOW ← MKWINDOW;	! MAKE A WINDOW;
01400		CAMERA ← MKCAMERA;	! MAKE A CAMERA;
01500		BATT(WORLD,WINDOW);	! BODY-ATTACH WORLD TO WINDOW;
01600		BATT(CAMERA,WINDOW);	! BODY-ATTACH CAMERA TO WINDOW;
01700		
01800	! BODY CREATION;
01900		
02000		B1 ← MKCUBE(4.0,1.0,2.0);      ! MAKE RECTANGULAR RIGHT PRISM;
02100		B2 ← MKCOPY(B1);	       ! COPY THE PRISM;
02200	
02300	! ACTION;
02400	
02500		FOR T←1 STEP 1 UNTIL 30 DO
02600			 OUTSTR(13&10);		! FLUSH THE PAGE PRINTER;
02700		TRANSLATE(B1,0,0,4);		! FOUR FEET +Z TOWARDS CAMERA;
02800		ROTATE(B2,π/8,π/8,0);		! ROTATION ABOUT X & Y AXES;
02900		WHILE TRUE DO 
03000		BEGIN
03100			ROTATE(B1,0,-π/17,0);	! ROTATION CW ABOUT Y-AXIS;
03200		FOR T←1 STEP 1 UNTIL 40 DO
03300		BEGIN 
03400			ROTATE(B1,π/20,0,0);	! ROTATION CCW ABOUT X-AXIS;
03500			ROTATE(B2,0,π/16,0);	! ROTATION CCW ABOUT Y-AXIS;
03600			SHOW2(WINDOW,1);	! DISPLAY A SIMULATED IMAGE;
03700			IF INCHRS≥1 THEN DONE;	! EXIT ON TYPE-ANY-KEY;
03800		END;
03900		END;
04000	
04100	END "TEST"; BGB 19 MARCH 1973.