�     >3Ddemo1
� By  Dave Acton
� For 32-bit machines
(� (c) BAU June 1993
2:
<ț "3Dprocs"
F� 13
P�
Z�init3D
d�load("objects.world1")
nȑ 640,512
x�init_record
�� view=0 � 359 � 10
� �13"Frame: ";frames;
�A �render("world",0,-60000*(1+��(view)),300000,view*ang_scale)
� �record_display
��
��
� �play_back
�� �
��
�:
�!� �render(obj$,ox,oy,oz,beta)
�� a
�"a=obj(�identify_keyword(obj$))

plot_ptr=plot_list

triangles=0

faces=0

"$�render_obj(a,ox,oy,oz,0,beta,0)

,�

6:

@.� �render_obj(a,ox,oy,oz,alpha,beta,gamma)

J� n,x2,y2,z2,tri(),new

T� tri(2)

^
ȕ !a<>-1

h � !a=0 � !a=1 �

r  new=(!a=0)

|  n=a!4

�  tri(0)=0

�  � i=1 � n-2

�   tri(1)=i

�   tri(2)=i+1

�F   �register_triangle(a,tri(),ox,oy,oz,alpha,beta,gamma,i=1 � new)

�  �

�  a+=12*(n+1)

� �

�5  �rotate(a!4,a!8,a!12,alpha,beta,gamma,x2,y2,z2)

�L  �render_obj(obj(!a),ox+x2,oy+y2,oz+z2,alpha+a!16,beta+a!20,gamma+a!24)

�  a+=28

� �

��
�
�

00000000  0d 00 0a 12 f4 20 20 20  20 20 3e 33 44 64 65 6d  |.....     >3Ddem|
00000010  6f 31 0d 00 14 14 f4 20  42 79 20 20 44 61 76 65  |o1..... By  Dave|
00000020  20 41 63 74 6f 6e 0d 00  1e 19 f4 20 46 6f 72 20  | Acton..... For |
00000030  33 32 2d 62 69 74 20 6d  61 63 68 69 6e 65 73 0d  |32-bit machines.|
00000040  00 28 17 f4 20 28 63 29  20 42 41 55 20 4a 75 6e  |.(.. (c) BAU Jun|
00000050  65 20 31 39 39 33 0d 00  32 05 3a 0d 00 3c 10 c8  |e 1993..2.:..<..|
00000060  9b 20 22 33 44 70 72 6f  63 73 22 0d 00 46 08 eb  |. "3Dprocs"..F..|
00000070  20 31 33 0d 00 50 05 87  0d 00 5a 0b f2 69 6e 69  | 13..P....Z..ini|
00000080  74 33 44 0d 00 64 1b f2  6c 6f 61 64 28 22 6f 62  |t3D..d..load("ob|
00000090  6a 65 63 74 73 2e 77 6f  72 6c 64 31 22 29 0d 00  |jects.world1")..|
000000a0  6e 0e c8 91 20 36 34 30  2c 35 31 32 0d 00 78 10  |n... 640,512..x.|
000000b0  f2 69 6e 69 74 5f 72 65  63 6f 72 64 0d 00 82 17  |.init_record....|
000000c0  e3 20 76 69 65 77 3d 30  20 b8 20 33 35 39 20 88  |. view=0 . 359 .|
000000d0  20 31 30 0d 00 8c 1a 20  f1 bd 31 33 22 46 72 61  | 10.... ..13"Fra|
000000e0  6d 65 3a 20 22 3b 66 72  61 6d 65 73 3b 0d 00 96  |me: ";frames;...|
000000f0  41 20 f2 72 65 6e 64 65  72 28 22 77 6f 72 6c 64  |A .render("world|
00000100  22 2c 30 2c 2d 36 30 30  30 30 2a 28 31 2b 9b b2  |",0,-60000*(1+..|
00000110  28 76 69 65 77 29 29 2c  33 30 30 30 30 30 2c 76  |(view)),300000,v|
00000120  69 65 77 2a 61 6e 67 5f  73 63 61 6c 65 29 0d 00  |iew*ang_scale)..|
00000130  a0 14 20 f2 72 65 63 6f  72 64 5f 64 69 73 70 6c  |.. .record_displ|
00000140  61 79 0d 00 aa 05 ed 0d  00 b4 05 f5 0d 00 be 0f  |ay..............|
00000150  20 f2 70 6c 61 79 5f 62  61 63 6b 0d 00 c8 07 fd  | .play_back.....|
00000160  20 a3 0d 00 d2 05 e0 0d  00 dc 05 3a 0d 00 e6 21  | ..........:...!|
00000170  dd 20 f2 72 65 6e 64 65  72 28 6f 62 6a 24 2c 6f  |. .render(obj$,o|
00000180  78 2c 6f 79 2c 6f 7a 2c  62 65 74 61 29 0d 00 f0  |x,oy,oz,beta)...|
00000190  07 ea 20 61 0d 00 fa 22  61 3d 6f 62 6a 28 a4 69  |.. a..."a=obj(.i|
000001a0  64 65 6e 74 69 66 79 5f  6b 65 79 77 6f 72 64 28  |dentify_keyword(|
000001b0  6f 62 6a 24 29 29 0d 01  04 16 70 6c 6f 74 5f 70  |obj$))....plot_p|
000001c0  74 72 3d 70 6c 6f 74 5f  6c 69 73 74 0d 01 0e 0f  |tr=plot_list....|
000001d0  74 72 69 61 6e 67 6c 65  73 3d 30 0d 01 18 0b 66  |triangles=0....f|
000001e0  61 63 65 73 3d 30 0d 01  22 24 f2 72 65 6e 64 65  |aces=0.."$.rende|
000001f0  72 5f 6f 62 6a 28 61 2c  6f 78 2c 6f 79 2c 6f 7a  |r_obj(a,ox,oy,oz|
00000200  2c 30 2c 62 65 74 61 2c  30 29 0d 01 2c 05 e1 0d  |,0,beta,0)..,...|
00000210  01 36 05 3a 0d 01 40 2e  dd 20 f2 72 65 6e 64 65  |.6.:..@.. .rende|
00000220  72 5f 6f 62 6a 28 61 2c  6f 78 2c 6f 79 2c 6f 7a  |r_obj(a,ox,oy,oz|
00000230  2c 61 6c 70 68 61 2c 62  65 74 61 2c 67 61 6d 6d  |,alpha,beta,gamm|
00000240  61 29 0d 01 4a 1a ea 20  6e 2c 78 32 2c 79 32 2c  |a)..J.. n,x2,y2,|
00000250  7a 32 2c 74 72 69 28 29  2c 6e 65 77 0d 01 54 0c  |z2,tri(),new..T.|
00000260  de 20 74 72 69 28 32 29  0d 01 5e 0d c8 95 20 21  |. tri(2)..^... !|
00000270  61 3c 3e 2d 31 0d 01 68  14 20 e7 20 21 61 3d 30  |a<>-1..h. . !a=0|
00000280  20 84 20 21 61 3d 31 20  8c 0d 01 72 10 20 20 6e  | . !a=1 ...r.  n|
00000290  65 77 3d 28 21 61 3d 30  29 0d 01 7c 0b 20 20 6e  |ew=(!a=0)..|.  n|
000002a0  3d 61 21 34 0d 01 86 0e  20 20 74 72 69 28 30 29  |=a!4....  tri(0)|
000002b0  3d 30 0d 01 90 11 20 20  e3 20 69 3d 31 20 b8 20  |=0....  . i=1 . |
000002c0  6e 2d 32 0d 01 9a 0f 20  20 20 74 72 69 28 31 29  |n-2....   tri(1)|
000002d0  3d 69 0d 01 a4 11 20 20  20 74 72 69 28 32 29 3d  |=i....   tri(2)=|
000002e0  69 2b 31 0d 01 ae 46 20  20 20 f2 72 65 67 69 73  |i+1...F   .regis|
000002f0  74 65 72 5f 74 72 69 61  6e 67 6c 65 28 61 2c 74  |ter_triangle(a,t|
00000300  72 69 28 29 2c 6f 78 2c  6f 79 2c 6f 7a 2c 61 6c  |ri(),ox,oy,oz,al|
00000310  70 68 61 2c 62 65 74 61  2c 67 61 6d 6d 61 2c 69  |pha,beta,gamma,i|
00000320  3d 31 20 80 20 6e 65 77  29 0d 01 b8 07 20 20 ed  |=1 . new)....  .|
00000330  0d 01 c2 11 20 20 61 2b  3d 31 32 2a 28 6e 2b 31  |....  a+=12*(n+1|
00000340  29 0d 01 cc 06 20 cc 0d  01 d6 35 20 20 f2 72 6f  |).... ....5  .ro|
00000350  74 61 74 65 28 61 21 34  2c 61 21 38 2c 61 21 31  |tate(a!4,a!8,a!1|
00000360  32 2c 61 6c 70 68 61 2c  62 65 74 61 2c 67 61 6d  |2,alpha,beta,gam|
00000370  6d 61 2c 78 32 2c 79 32  2c 7a 32 29 0d 01 e0 4c  |ma,x2,y2,z2)...L|
00000380  20 20 f2 72 65 6e 64 65  72 5f 6f 62 6a 28 6f 62  |  .render_obj(ob|
00000390  6a 28 21 61 29 2c 6f 78  2b 78 32 2c 6f 79 2b 79  |j(!a),ox+x2,oy+y|
000003a0  32 2c 6f 7a 2b 7a 32 2c  61 6c 70 68 61 2b 61 21  |2,oz+z2,alpha+a!|
000003b0  31 36 2c 62 65 74 61 2b  61 21 32 30 2c 67 61 6d  |16,beta+a!20,gam|
000003c0  6d 61 2b 61 21 32 34 29  0d 01 ea 0b 20 20 61 2b  |ma+a!24)....  a+|
000003d0  3d 32 38 0d 01 f4 06 20  cd 0d 01 fe 05 ce 0d 02  |=28.... ........|
000003e0  08 05 e1 0d ff                                    |.....|
000003e5