� >SQUARES
:
� Initialise variables
(:
2/*RMENSURE 3DGraphics 0.01 RMLOAD 3DGRAPHICS
<1� plot%(100),xpos%(100),ypos%(100),zpos%(100)
Fxa%=0:ya%=0
P� read=1 � 3
Z� p%,x%,y%,z%
d?plot%(read)=p%:xpos%(read)=x%:ypos%(read)=y%:zpos%(read)=z%
n�
x� 9
�ș "Vector_SetViewangle",89
�:
�� Swap screens
�:
��
�$Ȗ:ș 6,&71,1:ș 6,&70,2:�screen
�$Ȗ:ș 6,&71,2:ș 6,&70,1:�screen
�� �
�:
�� Update screen display
�:
���screen
�ș "Vector_SetYangle",ya%

�

� 1

ȑ 150,880

"ș "Vector_SetXangle",xa%

,�square

6� 2

@ȑ 1130,880

J ș "Vector_SetXangle",xa%+22

T�square

^� 3

hȑ 150,140

r ș "Vector_SetXangle",xa%+45

|�square

�� 4

�ȑ 1130,140

� ș "Vector_SetXangle",xa%+67

��square

�xa%+=8:ya%+=1

��

�:

�� Draw filled square

�:

���square

�� t%=1 � 3

�<ș "Vector_Plot",plot%(t%),xpos%(t%),ypos%(t%),zpos%(t%)

��
�
:
� Data for square
&:
0(� 4,-50,-50,1,4,50,-50,1,117,50,50,1
�

00000000  0d 00 0a 0e f4 20 3e 53  51 55 41 52 45 53 0d 00  |..... >SQUARES..|
00000010  14 05 3a 0d 00 1e 1a f4  20 49 6e 69 74 69 61 6c  |..:..... Initial|
00000020  69 73 65 20 76 61 72 69  61 62 6c 65 73 0d 00 28  |ise variables..(|
00000030  05 3a 0d 00 32 2f 2a 52  4d 45 4e 53 55 52 45 20  |.:..2/*RMENSURE |
00000040  33 44 47 72 61 70 68 69  63 73 20 30 2e 30 31 20  |3DGraphics 0.01 |
00000050  52 4d 4c 4f 41 44 20 33  44 47 52 41 50 48 49 43  |RMLOAD 3DGRAPHIC|
00000060  53 0d 00 3c 31 de 20 70  6c 6f 74 25 28 31 30 30  |S..<1. plot%(100|
00000070  29 2c 78 70 6f 73 25 28  31 30 30 29 2c 79 70 6f  |),xpos%(100),ypo|
00000080  73 25 28 31 30 30 29 2c  7a 70 6f 73 25 28 31 30  |s%(100),zpos%(10|
00000090  30 29 0d 00 46 0f 78 61  25 3d 30 3a 79 61 25 3d  |0)..F.xa%=0:ya%=|
000000a0  30 0d 00 50 10 e3 20 72  65 61 64 3d 31 20 b8 20  |0..P.. read=1 . |
000000b0  33 0d 00 5a 11 f3 20 70  25 2c 78 25 2c 79 25 2c  |3..Z.. p%,x%,y%,|
000000c0  7a 25 0d 00 64 3f 70 6c  6f 74 25 28 72 65 61 64  |z%..d?plot%(read|
000000d0  29 3d 70 25 3a 78 70 6f  73 25 28 72 65 61 64 29  |)=p%:xpos%(read)|
000000e0  3d 78 25 3a 79 70 6f 73  25 28 72 65 61 64 29 3d  |=x%:ypos%(read)=|
000000f0  79 25 3a 7a 70 6f 73 25  28 72 65 61 64 29 3d 7a  |y%:zpos%(read)=z|
00000100  25 0d 00 6e 05 ed 0d 00  78 07 eb 20 39 0d 00 82  |%..n....x.. 9...|
00000110  1f c8 99 20 22 56 65 63  74 6f 72 5f 53 65 74 56  |... "Vector_SetV|
00000120  69 65 77 61 6e 67 6c 65  22 2c 38 39 0d 00 8c 05  |iewangle",89....|
00000130  3a 0d 00 96 12 f4 20 53  77 61 70 20 73 63 72 65  |:..... Swap scre|
00000140  65 6e 73 0d 00 a0 05 3a  0d 00 aa 05 f5 0d 00 b4  |ens....:........|
00000150  24 c8 96 3a c8 99 20 36  2c 26 37 31 2c 31 3a c8  |$..:.. 6,&71,1:.|
00000160  99 20 36 2c 26 37 30 2c  32 3a f2 73 63 72 65 65  |. 6,&70,2:.scree|
00000170  6e 0d 00 be 24 c8 96 3a  c8 99 20 36 2c 26 37 31  |n...$..:.. 6,&71|
00000180  2c 32 3a c8 99 20 36 2c  26 37 30 2c 31 3a f2 73  |,2:.. 6,&70,1:.s|
00000190  63 72 65 65 6e 0d 00 c8  07 fd 20 a3 0d 00 d2 05  |creen..... .....|
000001a0  3a 0d 00 dc 1b f4 20 55  70 64 61 74 65 20 73 63  |:..... Update sc|
000001b0  72 65 65 6e 20 64 69 73  70 6c 61 79 0d 00 e6 05  |reen display....|
000001c0  3a 0d 00 f0 0c dd f2 73  63 72 65 65 6e 0d 00 fa  |:......screen...|
000001d0  1d c8 99 20 22 56 65 63  74 6f 72 5f 53 65 74 59  |... "Vector_SetY|
000001e0  61 6e 67 6c 65 22 2c 79  61 25 0d 01 04 05 db 0d  |angle",ya%......|
000001f0  01 0e 07 e6 20 31 0d 01  18 0e c8 91 20 31 35 30  |.... 1...... 150|
00000200  2c 38 38 30 0d 01 22 1d  c8 99 20 22 56 65 63 74  |,880.."... "Vect|
00000210  6f 72 5f 53 65 74 58 61  6e 67 6c 65 22 2c 78 61  |or_SetXangle",xa|
00000220  25 0d 01 2c 0b f2 73 71  75 61 72 65 0d 01 36 07  |%..,..square..6.|
00000230  e6 20 32 0d 01 40 0f c8  91 20 31 31 33 30 2c 38  |. 2..@... 1130,8|
00000240  38 30 0d 01 4a 20 c8 99  20 22 56 65 63 74 6f 72  |80..J .. "Vector|
00000250  5f 53 65 74 58 61 6e 67  6c 65 22 2c 78 61 25 2b  |_SetXangle",xa%+|
00000260  32 32 0d 01 54 0b f2 73  71 75 61 72 65 0d 01 5e  |22..T..square..^|
00000270  07 e6 20 33 0d 01 68 0e  c8 91 20 31 35 30 2c 31  |.. 3..h... 150,1|
00000280  34 30 0d 01 72 20 c8 99  20 22 56 65 63 74 6f 72  |40..r .. "Vector|
00000290  5f 53 65 74 58 61 6e 67  6c 65 22 2c 78 61 25 2b  |_SetXangle",xa%+|
000002a0  34 35 0d 01 7c 0b f2 73  71 75 61 72 65 0d 01 86  |45..|..square...|
000002b0  07 e6 20 34 0d 01 90 0f  c8 91 20 31 31 33 30 2c  |.. 4...... 1130,|
000002c0  31 34 30 0d 01 9a 20 c8  99 20 22 56 65 63 74 6f  |140... .. "Vecto|
000002d0  72 5f 53 65 74 58 61 6e  67 6c 65 22 2c 78 61 25  |r_SetXangle",xa%|
000002e0  2b 36 37 0d 01 a4 0b f2  73 71 75 61 72 65 0d 01  |+67.....square..|
000002f0  ae 11 78 61 25 2b 3d 38  3a 79 61 25 2b 3d 31 0d  |..xa%+=8:ya%+=1.|
00000300  01 b8 05 e1 0d 01 c2 05  3a 0d 01 cc 18 f4 20 44  |........:..... D|
00000310  72 61 77 20 66 69 6c 6c  65 64 20 73 71 75 61 72  |raw filled squar|
00000320  65 0d 01 d6 05 3a 0d 01  e0 0c dd f2 73 71 75 61  |e....:......squa|
00000330  72 65 0d 01 ea 0e e3 20  74 25 3d 31 20 b8 20 33  |re..... t%=1 . 3|
00000340  0d 01 f4 3c c8 99 20 22  56 65 63 74 6f 72 5f 50  |...<.. "Vector_P|
00000350  6c 6f 74 22 2c 70 6c 6f  74 25 28 74 25 29 2c 78  |lot",plot%(t%),x|
00000360  70 6f 73 25 28 74 25 29  2c 79 70 6f 73 25 28 74  |pos%(t%),ypos%(t|
00000370  25 29 2c 7a 70 6f 73 25  28 74 25 29 0d 01 fe 05  |%),zpos%(t%)....|
00000380  ed 0d 02 08 05 e1 0d 02  12 05 3a 0d 02 1c 15 f4  |..........:.....|
00000390  20 44 61 74 61 20 66 6f  72 20 73 71 75 61 72 65  | Data for square|
000003a0  0d 02 26 05 3a 0d 02 30  28 dc 20 34 2c 2d 35 30  |..&.:..0(. 4,-50|
000003b0  2c 2d 35 30 2c 31 2c 34  2c 35 30 2c 2d 35 30 2c  |,-50,1,4,50,-50,|
000003c0  31 2c 31 31 37 2c 35 30  2c 35 30 2c 31 0d ff     |1,117,50,50,1..|
000003cf