COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	BEGIN "TEST2"
 00004 ENDMK
⊗;
BEGIN "TEST2"
	DEFINE α="COMMENT";
	DEFINE π="3.1415927";
	REQUIRE "GEOMES.HDR[GEM,HE]" SOURCE_FILE;

	INTEGER B1,F,E,V,V0,T;
	INTEGER WORLD,WINDOW,CAMERA;

α UNIVERSE CREATION;
	GEONIT;
	
α BODY CREATION;
	
	B1 ← MKB(WORLD);
	F  ← MKF(B1);
	V ← V0  ← MKV(B1); XWC(V) ← 2.0;	α FIRST VERTEX.;
	FOR T←1 STEP 1 UNTIL 15 DO		α 15 MORE VERTICES.;
	BEGIN V ← MKEV(F,V);ROTATE(V,0,0,π/8);END;
	MKFE(V0,F,V);
	TRANSLATE(F,0,0,+4);
	SWEEP(F,0);
	TRANSLATE(F,0,0,-8);

α ACTION;

	FOR T←1 STEP 1 UNTIL 30 DO
		 OUTSTR(13&10);		α FLUSH THE PAGE PRINTER;
	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;
		SHOW1(0,1);		α DISPLAY A SIMULATED IMAGE;
		IF INCHRS≥1 THEN DONE;	α EXIT ON TYPE-ANY-KEY;
	END;
	END;

END "TEST2"; BGB 22 MARCH 1973.