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

	INTEGER B1,B2,B3,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		α 7 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);

	B2 ← MKCOPY(B1);SHRINK(B2,.2,.2,1.1);
	ROTATE(B2,0,0,π/40);ROTATE(B2,0,-π/2,0);
	ROTATE(B1,0,-π/17,0);		α ROTATION CW ABOUT Y-AXIS;
	SHOW1(0,1);INCHRW;
	B3 ← BSUB(B1,B2);
	KLBFEV(B1);KLBFEV(B2);B1←B3;
α 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 "TEST3"; BGB 24 MARCH 1973.