github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-13 15:27:28 +00:00
Code Issues Releases Wiki Activity

More MIGS examples.

Browse Source
This commit is contained in:
Lars Brinkhoff 2021-07-13 08:31:35 +02:00
parent 998c9fece9
commit b34f6eaebf
2 changed files with 81 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
src/rrs/rptiml.urs005 Normal file
View File

@ -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>>>

42
src/rrs/rpttek.urs005 Normal file
View File

@ -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>>>