From b34f6eaebf74e88bcd6e03dd05cb21a9c3700534 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Tue, 13 Jul 2021 08:31:35 +0200
Subject: [PATCH] More MIGS examples.

---
 src/rrs/rptiml.urs005 | 39 +++++++++++++++++++++++++++++++++++++++
 src/rrs/rpttek.urs005 | 42 ++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 81 insertions(+)
 create mode 100644 src/rrs/rptiml.urs005
 create mode 100644 src/rrs/rpttek.urs005

diff --git a/src/rrs/rptiml.urs005 b/src/rrs/rptiml.urs005
new file mode 100644
index 00000000..31811781
--- /dev/null
+++ b/src/rrs/rptiml.urs005
@@ -0,0 +1,39 @@
+
+;"
+A.2.1 THIS EXAMPLE CREATES AN OBJECT (I CALL POLY-THING) AND THEN
+      ROTATES AND DISPLAYS IT. "
+
+<MCELL P0 ()()3D<> 	;"HAS A HEXAGON CENTERED ON 3 LINES THAT ARE
+			  PERPENDICULAR TO EACH OTHER."
+	<CIRCLE 0 0 50 6>
+	<LINE -45 0 45 0>
+	<LINE 0 45 0 -45>
+	<LINE 0 0 -45 0 0 -45>>	;"LINE WHEN USED IN THE DISPLAY COMPILER
+				  CAN BE USE FOR 2 OR 3 DIMENSIONS"
+
+<MCELL P1 ()()3D<>	"MAKE A DOMBELL OUT OF TWO HEXAGONS AND A LINE"
+	<CALL P0 <XLATE 0 0 100>>
+	<LINE 0 0 100 0 0 -100>
+	<CALL P0 <XLATE 0 0 -100>>>
+
+<MCELL P2 ()()3D<>	;"STICK THREE DUMBELLS TOGETHER TO MAKE A POLY-THING"
+	<CALL P1 <ROTX 1.57>>
+	<CALL P1 <ROTY 1.57>>
+	<CALL P1>>
+
+
+<SETORG 0 0>;"IF YOU ARE ON AN IMLAC"
+;" <SETPROJ 0 0 855> USE DEFAULT"
+<SETCLIP -510 510 -510 510>;"MOVE THE ORIGIN TO THE CENTER OF THE SCREEN"
+
+
+
+<DEFINE RPT ()	;"ROTATE AND DISPLAY THE P2 MCELL OR POLY-THING"
+	<REPEAT ((I 0.1) (X 0.0))
+		<SLEEP 2>
+		<DISP P2 <SCALE 2><ROTX .X><ROTY <* 1.4 .X>>>
+		<COND (<G? <SET X <+ .X .I>> 6.28> <RETURN FOOBAR>)>
+		<SLEEP 3>
+		<PAGE>>>
+
+
\ No newline at end of file
diff --git a/src/rrs/rpttek.urs005 b/src/rrs/rpttek.urs005
new file mode 100644
index 00000000..4a06d37f
--- /dev/null
+++ b/src/rrs/rpttek.urs005
@@ -0,0 +1,42 @@
+
+;"
+A.2.1 THIS EXAMPLE CREATES AN OBJECT (I CALL POLY-THING) AND THEN
+      ROTATES AND DISPLAYS IT. "
+
+<MCELL P0 ()()3D<> 	;"HAS A HEXAGON CENTERED ON 3 LINES THAT ARE
+			  PERPENDICULAR TO EACH OTHER."
+	<CIRCLE 0 0 50 6>
+	<LINE -45 0 45 0>
+	<LINE 0 45 0 -45>
+	<LINE 0 0 -45 0 0 -45>>	;"LINE WHEN USED IN THE DISPLAY COMPILER
+				  CAN BE USE FOR 2 OR 3 DIMENSIONS"
+
+<MCELL P1 ()()3D<>	"MAKE A DOMBELL OUT OF TWO HEXAGONS AND A LINE"
+	<CALL P0 <XLATE 0 0 100>>
+	<LINE 0 0 100 0 0 -100>
+	<CALL P0 <XLATE 0 0 -100>>>
+
+<MCELL P2 ()()3D<>	;"STICK THREE DUMBELLS TOGETHER TO MAKE A POLY-THING"
+	<CALL P1 <ROTX 1.57>>
+	<CALL P1 <ROTY 1.57>>
+	<CALL P1>>
+
+
+
+<SETORG 500 400>;"IF YOU ARE ON A TEK4010"
+;<SETPROJ 0 0 855>
+<SETPROJ 500 400 1024>;" <SETPROJ> DEFAULT"
+;<SETPROJ 0 0 855>
+<SETCLIP -500 500 -400 400>;"MOVE THE ORIGIN TO THE CENTER OF THE SCREEN"
+
+
+<DEFINE RPT ()		;"ROTATE AND DISPLAY THE P2 MCELL OR POLY-THING"
+	<REPEAT ((I 0.1) (X 0.0))
+		<SLEEP 2>
+		<DISP P2 <SCALE 2><ROTX .X><ROTY <* 1.4 .X>>>
+		<COND (<G? <SET X <+ .X .I>> 6.28> <RETURN FOOBAR>)>
+		<SLEEP 3>
+		<PAGE>>>
+
+
+
\ No newline at end of file