� >PRISM
:
)� set up program mode, variables etc,
(:
2/*RMENSURE 3DGraphics 0.01 RMLOAD 3DGRAPHICS
<�0
Fȑ 640,512
P�
Z� block% 1024
d� plot_block% 1024
n:
x� Read in Co-Ordinates
�:
�� T=0 � 13*4
�� !(block%+(T*4))
��
�:
�� Set up initial angles
�:
�x%=0
�y%=0
�z%=0
�view%=89
�:
��

x%+=1:y%+=2:z%+=3

:

D� The following line calculates all the 3D points into 2D points

":

,Aș "Vector_CalculateObject",block%,plot_block%,x%,y%,z%,view%

6Ȗ:�

@:

J:� The following line plots the 2D points on the screen

T:

^*ș "Vector_PlotObjectLine",plot_block%

h� �

r:

|� Co-Ordinate Data

�,� <DATA 256,0,0,0> Terminates Data Block

�:

��� 4,-50,-50,1,5,50,-50,1,5,50,50,1,5,-50,50,1,5,-50,-50,1,4,0,0,200,5,-50,-50,1,4,0,0,200,5,50,50,1,4,0,0,200,5,-50,50,1,4,0,0,200,5,50,-50,1

�� 256,0,0,0
�

00000000  0d 00 0a 0c f4 20 3e 50  52 49 53 4d 0d 00 14 05  |..... >PRISM....|
00000010  3a 0d 00 1e 29 f4 20 73  65 74 20 75 70 20 70 72  |:...). set up pr|
00000020  6f 67 72 61 6d 20 6d 6f  64 65 2c 20 76 61 72 69  |ogram mode, vari|
00000030  61 62 6c 65 73 20 65 74  63 2c 0d 00 28 05 3a 0d  |ables etc,..(.:.|
00000040  00 32 2f 2a 52 4d 45 4e  53 55 52 45 20 33 44 47  |.2/*RMENSURE 3DG|
00000050  72 61 70 68 69 63 73 20  30 2e 30 31 20 52 4d 4c  |raphics 0.01 RML|
00000060  4f 41 44 20 33 44 47 52  41 50 48 49 43 53 0d 00  |OAD 3DGRAPHICS..|
00000070  3c 06 eb 30 0d 00 46 0e  c8 91 20 36 34 30 2c 35  |<..0..F... 640,5|
00000080  31 32 0d 00 50 05 87 0d  00 5a 11 de 20 62 6c 6f  |12..P....Z.. blo|
00000090  63 6b 25 20 31 30 32 34  0d 00 64 16 de 20 70 6c  |ck% 1024..d.. pl|
000000a0  6f 74 5f 62 6c 6f 63 6b  25 20 31 30 32 34 0d 00  |ot_block% 1024..|
000000b0  6e 05 3a 0d 00 78 1a f4  20 52 65 61 64 20 69 6e  |n.:..x.. Read in|
000000c0  20 43 6f 2d 4f 72 64 69  6e 61 74 65 73 0d 00 82  | Co-Ordinates...|
000000d0  05 3a 0d 00 8c 10 e3 20  54 3d 30 20 b8 20 31 33  |.:..... T=0 . 13|
000000e0  2a 34 0d 00 96 15 f3 20  21 28 62 6c 6f 63 6b 25  |*4..... !(block%|
000000f0  2b 28 54 2a 34 29 29 0d  00 a0 05 ed 0d 00 aa 05  |+(T*4)).........|
00000100  3a 0d 00 b4 1b f4 20 53  65 74 20 75 70 20 69 6e  |:..... Set up in|
00000110  69 74 69 61 6c 20 61 6e  67 6c 65 73 0d 00 be 05  |itial angles....|
00000120  3a 0d 00 c8 08 78 25 3d  30 0d 00 d2 08 79 25 3d  |:....x%=0....y%=|
00000130  30 0d 00 dc 08 7a 25 3d  30 0d 00 e6 0c 76 69 65  |0....z%=0....vie|
00000140  77 25 3d 38 39 0d 00 f0  05 3a 0d 00 fa 05 f5 0d  |w%=89....:......|
00000150  01 04 15 78 25 2b 3d 31  3a 79 25 2b 3d 32 3a 7a  |...x%+=1:y%+=2:z|
00000160  25 2b 3d 33 0d 01 0e 05  3a 0d 01 18 44 f4 20 54  |%+=3....:...D. T|
00000170  68 65 20 66 6f 6c 6c 6f  77 69 6e 67 20 6c 69 6e  |he following lin|
00000180  65 20 63 61 6c 63 75 6c  61 74 65 73 20 61 6c 6c  |e calculates all|
00000190  20 74 68 65 20 33 44 20  70 6f 69 6e 74 73 20 69  | the 3D points i|
000001a0  6e 74 6f 20 32 44 20 70  6f 69 6e 74 73 0d 01 22  |nto 2D points.."|
000001b0  05 3a 0d 01 2c 41 c8 99  20 22 56 65 63 74 6f 72  |.:..,A.. "Vector|
000001c0  5f 43 61 6c 63 75 6c 61  74 65 4f 62 6a 65 63 74  |_CalculateObject|
000001d0  22 2c 62 6c 6f 63 6b 25  2c 70 6c 6f 74 5f 62 6c  |",block%,plot_bl|
000001e0  6f 63 6b 25 2c 78 25 2c  79 25 2c 7a 25 2c 76 69  |ock%,x%,y%,z%,vi|
000001f0  65 77 25 0d 01 36 08 c8  96 3a db 0d 01 40 05 3a  |ew%..6...:...@.:|
00000200  0d 01 4a 3a f4 20 54 68  65 20 66 6f 6c 6c 6f 77  |..J:. The follow|
00000210  69 6e 67 20 6c 69 6e 65  20 70 6c 6f 74 73 20 74  |ing line plots t|
00000220  68 65 20 32 44 20 70 6f  69 6e 74 73 20 6f 6e 20  |he 2D points on |
00000230  74 68 65 20 73 63 72 65  65 6e 0d 01 54 05 3a 0d  |the screen..T.:.|
00000240  01 5e 2a c8 99 20 22 56  65 63 74 6f 72 5f 50 6c  |.^*.. "Vector_Pl|
00000250  6f 74 4f 62 6a 65 63 74  4c 69 6e 65 22 2c 70 6c  |otObjectLine",pl|
00000260  6f 74 5f 62 6c 6f 63 6b  25 0d 01 68 07 fd 20 a3  |ot_block%..h.. .|
00000270  0d 01 72 05 3a 0d 01 7c  16 f4 20 43 6f 2d 4f 72  |..r.:..|.. Co-Or|
00000280  64 69 6e 61 74 65 20 44  61 74 61 0d 01 86 2c f4  |dinate Data...,.|
00000290  20 3c 44 41 54 41 20 32  35 36 2c 30 2c 30 2c 30  | <DATA 256,0,0,0|
000002a0  3e 20 54 65 72 6d 69 6e  61 74 65 73 20 44 61 74  |> Terminates Dat|
000002b0  61 20 42 6c 6f 63 6b 0d  01 90 05 3a 0d 01 9a 91  |a Block....:....|
000002c0  dc 20 34 2c 2d 35 30 2c  2d 35 30 2c 31 2c 35 2c  |. 4,-50,-50,1,5,|
000002d0  35 30 2c 2d 35 30 2c 31  2c 35 2c 35 30 2c 35 30  |50,-50,1,5,50,50|
000002e0  2c 31 2c 35 2c 2d 35 30  2c 35 30 2c 31 2c 35 2c  |,1,5,-50,50,1,5,|
000002f0  2d 35 30 2c 2d 35 30 2c  31 2c 34 2c 30 2c 30 2c  |-50,-50,1,4,0,0,|
00000300  32 30 30 2c 35 2c 2d 35  30 2c 2d 35 30 2c 31 2c  |200,5,-50,-50,1,|
00000310  34 2c 30 2c 30 2c 32 30  30 2c 35 2c 35 30 2c 35  |4,0,0,200,5,50,5|
00000320  30 2c 31 2c 34 2c 30 2c  30 2c 32 30 30 2c 35 2c  |0,1,4,0,0,200,5,|
00000330  2d 35 30 2c 35 30 2c 31  2c 34 2c 30 2c 30 2c 32  |-50,50,1,4,0,0,2|
00000340  30 30 2c 35 2c 35 30 2c  2d 35 30 2c 31 0d 01 a4  |00,5,50,-50,1...|
00000350  0f dc 20 32 35 36 2c 30  2c 30 2c 30 0d ff        |.. 256,0,0,0..|
0000035e