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

� is_flat(max)

� obj=keywords � keydef-1

 is_flat(obj)=�is_flat(obj)

"�

,�

6:

@� �is_flat(obj)

J� a,is_flat,i,n

T
is_flat=�

^a=obj(obj)

hȕ !a<>-1 � is_flat

r � !a=0 � !a=1 �

|  n=a!4

�  � i=1 � n

�%   is_flat=is_flat � a!(12*i+8)=0

�  �

�  a+=12*(n+1)

� �

�5  is_flat=a!16=0 � a!20=0 � a!24=0 � �is_flat(!a)

�  a+=28

� �

��

�=is_flat

�:

�!� �render(obj$,ox,oy,oz,beta)

�plot_ptr=plot_list
triangles=0
faces=0
:�render_obj(�identify_keyword(obj$),ox,oy,oz,0,beta,0)
&�
0:
:0� �render_obj(obj,ox,oy,oz,alpha,beta,gamma)
D*� n,x2,y2,z2,tri(),new,a,norm_x,norm_z
N� is_flat(obj) �
X  norm_x=��(0+beta/ang_scale)
b  norm_z=��(0+beta/ang_scale)
l* � (norm_x*ox)+(norm_z*(oz+zplus))<0 �
v�
�� tri(2)
�a=obj(obj)
�
ȕ !a<>-1
� � !a=0 � !a=1 �
�  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)
G  �render_obj(!a,ox+x2,oy+y2,oz+z2,alpha+a!16,beta+a!20,gamma+a!24)
   a+=28
* �
4�
>�
�

00000000  0d 00 0a 12 f4 20 20 20  20 20 3e 33 44 64 65 6d  |.....     >3Ddem|
00000010  6f 32 0d 00 14 14 f4 20  42 79 20 20 44 61 76 65  |o2..... 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 16 f2 66 69 6e 64 5f  66 6c 61 74 5f 6f 62 6a  |n..find_flat_obj|
000000b0  65 63 74 73 0d 00 78 0e  c8 91 20 36 34 30 2c 35  |ects..x... 640,5|
000000c0  31 32 0d 00 82 10 f2 69  6e 69 74 5f 72 65 63 6f  |12.....init_reco|
000000d0  72 64 0d 00 8c 17 e3 20  76 69 65 77 3d 30 20 b8  |rd..... view=0 .|
000000e0  20 33 35 39 20 88 20 31  30 0d 00 96 1a 20 f1 bd  | 359 . 10.... ..|
000000f0  31 33 22 46 72 61 6d 65  3a 20 22 3b 66 72 61 6d  |13"Frame: ";fram|
00000100  65 73 3b 0d 00 a0 41 20  f2 72 65 6e 64 65 72 28  |es;...A .render(|
00000110  22 77 6f 72 6c 64 22 2c  30 2c 2d 36 30 30 30 30  |"world",0,-60000|
00000120  2a 28 31 2b 9b b2 28 76  69 65 77 29 29 2c 33 30  |*(1+..(view)),30|
00000130  30 30 30 30 2c 76 69 65  77 2a 61 6e 67 5f 73 63  |0000,view*ang_sc|
00000140  61 6c 65 29 0d 00 aa 14  20 f2 72 65 63 6f 72 64  |ale).... .record|
00000150  5f 64 69 73 70 6c 61 79  0d 00 b4 05 ed 0d 00 be  |_display........|
00000160  05 f5 0d 00 c8 0f 20 f2  70 6c 61 79 5f 62 61 63  |...... .play_bac|
00000170  6b 0d 00 d2 07 fd 20 a3  0d 00 dc 05 e0 0d 00 e6  |k..... .........|
00000180  05 3a 0d 00 f0 18 dd 20  f2 66 69 6e 64 5f 66 6c  |.:..... .find_fl|
00000190  61 74 5f 6f 62 6a 65 63  74 73 0d 00 fa 09 ea 20  |at_objects..... |
000001a0  6f 62 6a 0d 01 04 12 de  20 69 73 5f 66 6c 61 74  |obj..... is_flat|
000001b0  28 6d 61 78 29 0d 01 0e  1d e3 20 6f 62 6a 3d 6b  |(max)..... obj=k|
000001c0  65 79 77 6f 72 64 73 20  b8 20 6b 65 79 64 65 66  |eywords . keydef|
000001d0  2d 31 0d 01 18 1f 20 69  73 5f 66 6c 61 74 28 6f  |-1.... is_flat(o|
000001e0  62 6a 29 3d a4 69 73 5f  66 6c 61 74 28 6f 62 6a  |bj)=.is_flat(obj|
000001f0  29 0d 01 22 05 ed 0d 01  2c 05 e1 0d 01 36 05 3a  |).."....,....6.:|
00000200  0d 01 40 13 dd 20 a4 69  73 5f 66 6c 61 74 28 6f  |..@.. .is_flat(o|
00000210  62 6a 29 0d 01 4a 13 ea  20 61 2c 69 73 5f 66 6c  |bj)..J.. a,is_fl|
00000220  61 74 2c 69 2c 6e 0d 01  54 0d 69 73 5f 66 6c 61  |at,i,n..T.is_fla|
00000230  74 3d b9 0d 01 5e 0e 61  3d 6f 62 6a 28 6f 62 6a  |t=...^.a=obj(obj|
00000240  29 0d 01 68 17 c8 95 20  21 61 3c 3e 2d 31 20 80  |)..h... !a<>-1 .|
00000250  20 69 73 5f 66 6c 61 74  0d 01 72 14 20 e7 20 21  | is_flat..r. . !|
00000260  61 3d 30 20 84 20 21 61  3d 31 20 8c 0d 01 7c 0b  |a=0 . !a=1 ...|.|
00000270  20 20 6e 3d 61 21 34 0d  01 86 0f 20 20 e3 20 69  |  n=a!4....  . i|
00000280  3d 31 20 b8 20 6e 0d 01  90 25 20 20 20 69 73 5f  |=1 . n...%   is_|
00000290  66 6c 61 74 3d 69 73 5f  66 6c 61 74 20 80 20 61  |flat=is_flat . a|
000002a0  21 28 31 32 2a 69 2b 38  29 3d 30 0d 01 9a 07 20  |!(12*i+8)=0.... |
000002b0  20 ed 0d 01 a4 11 20 20  61 2b 3d 31 32 2a 28 6e  | .....  a+=12*(n|
000002c0  2b 31 29 0d 01 ae 06 20  cc 0d 01 b8 35 20 20 69  |+1).... ....5  i|
000002d0  73 5f 66 6c 61 74 3d 61  21 31 36 3d 30 20 80 20  |s_flat=a!16=0 . |
000002e0  61 21 32 30 3d 30 20 80  20 61 21 32 34 3d 30 20  |a!20=0 . a!24=0 |
000002f0  80 20 a4 69 73 5f 66 6c  61 74 28 21 61 29 0d 01  |. .is_flat(!a)..|
00000300  c2 0b 20 20 61 2b 3d 32  38 0d 01 cc 06 20 cd 0d  |..  a+=28.... ..|
00000310  01 d6 05 ce 0d 01 e0 0c  3d 69 73 5f 66 6c 61 74  |........=is_flat|
00000320  0d 01 ea 05 3a 0d 01 f4  21 dd 20 f2 72 65 6e 64  |....:...!. .rend|
00000330  65 72 28 6f 62 6a 24 2c  6f 78 2c 6f 79 2c 6f 7a  |er(obj$,ox,oy,oz|
00000340  2c 62 65 74 61 29 0d 01  fe 16 70 6c 6f 74 5f 70  |,beta)....plot_p|
00000350  74 72 3d 70 6c 6f 74 5f  6c 69 73 74 0d 02 08 0f  |tr=plot_list....|
00000360  74 72 69 61 6e 67 6c 65  73 3d 30 0d 02 12 0b 66  |triangles=0....f|
00000370  61 63 65 73 3d 30 0d 02  1c 3a f2 72 65 6e 64 65  |aces=0...:.rende|
00000380  72 5f 6f 62 6a 28 a4 69  64 65 6e 74 69 66 79 5f  |r_obj(.identify_|
00000390  6b 65 79 77 6f 72 64 28  6f 62 6a 24 29 2c 6f 78  |keyword(obj$),ox|
000003a0  2c 6f 79 2c 6f 7a 2c 30  2c 62 65 74 61 2c 30 29  |,oy,oz,0,beta,0)|
000003b0  0d 02 26 05 e1 0d 02 30  05 3a 0d 02 3a 30 dd 20  |..&....0.:..:0. |
000003c0  f2 72 65 6e 64 65 72 5f  6f 62 6a 28 6f 62 6a 2c  |.render_obj(obj,|
000003d0  6f 78 2c 6f 79 2c 6f 7a  2c 61 6c 70 68 61 2c 62  |ox,oy,oz,alpha,b|
000003e0  65 74 61 2c 67 61 6d 6d  61 29 0d 02 44 2a ea 20  |eta,gamma)..D*. |
000003f0  6e 2c 78 32 2c 79 32 2c  7a 32 2c 74 72 69 28 29  |n,x2,y2,z2,tri()|
00000400  2c 6e 65 77 2c 61 2c 6e  6f 72 6d 5f 78 2c 6e 6f  |,new,a,norm_x,no|
00000410  72 6d 5f 7a 0d 02 4e 14  e7 20 69 73 5f 66 6c 61  |rm_z..N.. is_fla|
00000420  74 28 6f 62 6a 29 20 8c  0d 02 58 20 20 6e 6f 72  |t(obj) ...X  nor|
00000430  6d 5f 78 3d b5 b2 28 30  2b 62 65 74 61 2f 61 6e  |m_x=..(0+beta/an|
00000440  67 5f 73 63 61 6c 65 29  0d 02 62 20 20 6e 6f 72  |g_scale)..b  nor|
00000450  6d 5f 7a 3d 9b b2 28 30  2b 62 65 74 61 2f 61 6e  |m_z=..(0+beta/an|
00000460  67 5f 73 63 61 6c 65 29  0d 02 6c 2a 20 e7 20 28  |g_scale)..l* . (|
00000470  6e 6f 72 6d 5f 78 2a 6f  78 29 2b 28 6e 6f 72 6d  |norm_x*ox)+(norm|
00000480  5f 7a 2a 28 6f 7a 2b 7a  70 6c 75 73 29 29 3c 30  |_z*(oz+zplus))<0|
00000490  20 e1 0d 02 76 05 cd 0d  02 80 0c de 20 74 72 69  | ...v....... tri|
000004a0  28 32 29 0d 02 8a 0e 61  3d 6f 62 6a 28 6f 62 6a  |(2)....a=obj(obj|
000004b0  29 0d 02 94 0d c8 95 20  21 61 3c 3e 2d 31 0d 02  |)...... !a<>-1..|
000004c0  9e 14 20 e7 20 21 61 3d  30 20 84 20 21 61 3d 31  |.. . !a=0 . !a=1|
000004d0  20 8c 0d 02 a8 10 20 20  6e 65 77 3d 28 21 61 3d  | .....  new=(!a=|
000004e0  30 29 0d 02 b2 0b 20 20  6e 3d 61 21 34 0d 02 bc  |0)....  n=a!4...|
000004f0  0e 20 20 74 72 69 28 30  29 3d 30 0d 02 c6 11 20  |.  tri(0)=0.... |
00000500  20 e3 20 69 3d 31 20 b8  20 6e 2d 32 0d 02 d0 0f  | . i=1 . n-2....|
00000510  20 20 20 74 72 69 28 31  29 3d 69 0d 02 da 11 20  |   tri(1)=i.... |
00000520  20 20 74 72 69 28 32 29  3d 69 2b 31 0d 02 e4 46  |  tri(2)=i+1...F|
00000530  20 20 20 f2 72 65 67 69  73 74 65 72 5f 74 72 69  |   .register_tri|
00000540  61 6e 67 6c 65 28 61 2c  74 72 69 28 29 2c 6f 78  |angle(a,tri(),ox|
00000550  2c 6f 79 2c 6f 7a 2c 61  6c 70 68 61 2c 62 65 74  |,oy,oz,alpha,bet|
00000560  61 2c 67 61 6d 6d 61 2c  69 3d 31 20 80 20 6e 65  |a,gamma,i=1 . ne|
00000570  77 29 0d 02 ee 07 20 20  ed 0d 02 f8 11 20 20 61  |w)....  .....  a|
00000580  2b 3d 31 32 2a 28 6e 2b  31 29 0d 03 02 06 20 cc  |+=12*(n+1).... .|
00000590  0d 03 0c 35 20 20 f2 72  6f 74 61 74 65 28 61 21  |...5  .rotate(a!|
000005a0  34 2c 61 21 38 2c 61 21  31 32 2c 61 6c 70 68 61  |4,a!8,a!12,alpha|
000005b0  2c 62 65 74 61 2c 67 61  6d 6d 61 2c 78 32 2c 79  |,beta,gamma,x2,y|
000005c0  32 2c 7a 32 29 0d 03 16  47 20 20 f2 72 65 6e 64  |2,z2)...G  .rend|
000005d0  65 72 5f 6f 62 6a 28 21  61 2c 6f 78 2b 78 32 2c  |er_obj(!a,ox+x2,|
000005e0  6f 79 2b 79 32 2c 6f 7a  2b 7a 32 2c 61 6c 70 68  |oy+y2,oz+z2,alph|
000005f0  61 2b 61 21 31 36 2c 62  65 74 61 2b 61 21 32 30  |a+a!16,beta+a!20|
00000600  2c 67 61 6d 6d 61 2b 61  21 32 34 29 0d 03 20 0b  |,gamma+a!24).. .|
00000610  20 20 61 2b 3d 32 38 0d  03 2a 06 20 cd 0d 03 34  |  a+=28..*. ...4|
00000620  05 ce 0d 03 3e 05 e1 0d  ff                       |....>....|
00000629