$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>irisdemofns!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D "
0000120 2 - F e b - 8 7 2 1 : 1 3 : 0
0000140 1 " 006 004 { E R I S } < I R I S
0000160 > N E X T > I R I S D E M O F N
0000200 S . ; 1 0 006 001 2 1 4 7 8 \r
0000220 \r c h a n g e s t
0000240 o % : ( V A R S I R I S D
0000260 E M O F N S C O M S ) \r
0000300
0000320 ( F N S T E T R A T E T R A
0000340 . D R A W . F A C E T E T R A
0000360 . O B J ) \r \r p r e
0000400 v i o u s d a t e % : " 4
0000420 - M a r - 8 6 1 0 : 5 7 : 3 8
0000440 " { E R I S } < I R I S > N E
0000460 X T > I R I S D E M O F N S . ;
0000500 8 ) \r \r \r ( P R E T T Y C O M P
0000520 R I N T I R I S D E M O F N S
0000540 C O M S ) \r \r ( R P A Q Q 006 002
0000560 I R I S D E M O F N S C O M S 006
0000600 001 [ ( F N S I R I S . D E G
0000620 R E E S S N O W S P H E R E
0000640 T E T R A T E T R A . C O L
0000660 O R T E T R A . D R A W . F A
0000700 C E T E T R A . O B J \r
0000720
0000740 T E T R A
0000760 . T I L T . A N D . R E C U R S
0001000 E ) \r
0001020 ( V A R S
0001040 I R I S . T I L T T E T R A
0001060 . C O L O R T E T R A . E D G
0001100 E . C O L O R T E T R A . S H
0001120 R I N K T E T R A . T I L T
0001140 \r
0001160 I
0001200 V . D E F A U L T . S T Y L E )
0001220 \r
0001240 \r
0001260 \r 006
0001300 006 ( * ; ; " m i n i m a l
0001320 3 - d s u p p o r t f o r
0001340 t h e t e t r a d e m o " )
0001360 006 001 \r \r
0001400 ( R E C
0001420 O R D S 3 P O I N T ) \r
0001440
0001460 ( F N S 3 D O T 3
0001500 D R A W T O 3 M O V E T O 3
0001520 N O R M A L I Z E 3 P L U S
0001540 3 P O I N T 3 U N I T C R O S
0001560 S P R O D U C T \r
0001600
0001620 3 D I F F E R E N
0001640 C E 3 C R O S S P R O D U C T
0001660 3 L E N G T H 3 L I N E 3
0001700 T I M E S D R A W . F A C E ?
0001720 I R I S . X L A T E ) \r
0001740
0001760 ( V A R S \ I R I S
0002000 . D U M M Y B U F F E R \ I R
0002020 I S . F E E D B A C K B U F F E
0002040 R ) \r
0002060 ( D E C L
0002100 A R E % : D O N T E V A L @ L
0002120 O A D D O E V A L @ C O M P I
0002140 L E D O N T C O P Y C O M P
0002160 I L E R V A R S \r
0002200
0002220 ( A D D V A R S
0002240 ( N L A M A ) \r
0002260
0002300 (
0002320 N L A M L ) \r
0002340
0002360 ( L A
0002400 M A T E T R A ] ) \r ( D E F I
0002420 N E Q \r \r ( 006 004 I R I S . D E G
0002440 R E E S 006 001 \r [ L A M B D A
0002460 ( D E G R E E S ) 006 006 006 001
0002500
*
0002540 006 006 ( * e d i
0002560 t e d % : " 1 3 - D e c - 8 5
0002600 1 8 : 3 2 " ) 006 001 \r
0002620 \r
0002640 006 006 ( * T a k e s a n a n
0002660 g l e i n d e g r e e s a
0002700 n d r e t u r n s a n a n
0002720 g l e a s t h e i r i s
0002740 l i k e s i t \r 006 001
0002760 006 006 ( t e n t h s ) )
0003000 006 001 \r \r ( F I X ( T I
0003020 M E S D E G R E E S 1 0 ] )
0003040 \r \r ( 006 004 S N O W 006 001 \r [ L
0003060 A M B D A ( N ) 006 006 006 001
0003100
*
0003140 006 006 (
0003160 * e d i t e d % : " 1 1 - D
0003200 e c - 8 5 2 3 : 1 2 " ) 006 001 \r
0003220 ( 006 002 f o r 006 001 I 006
0003240 002 t o 006 001 ( O R N ( R A N
0003260 D 5 2 0 ) ) 006 002 d o 006 001
0003300 ( I R I S . P U S H M A T R I X
0003320 ) \r
0003340
0003360 ( I R I S . T R A N
0003400 S L A T E ( R A N D 0 S C
0003420 R E E N W I D T H ) \r
0003440
*
0003500 ( R A N D 0 S C
0003520 R E E N H E I G H T ) \r
0003540
*
0003600 0 \ I R I S S T
0003620 R E A M ) \r
0003640
0003660 ( I R I S .
0003700 R O T A T E ( R A N D 0 1
0003720 8 0 0 ) \r
0003740
*
0004000 8 8 ) \r
0004020
0004040 ( I R I S . R O
0004060 T A T E ( R A N D 0 1 8 0
0004100 0 ) \r
0004120
0004140 8 9
0004160 ) \r
0004200
0004220 ( I R I S . R O T A
0004240 T E ( R A N D 0 1 8 0 0 )
0004260 \r
0004300
0004320 9 0 ) \r
0004340
*
0004400 ( I R I S . S C A L E
0004420 ( R A N D 0 . 1 1 ) \r
0004440
*
0004500 ( R A N D 0 .
0004520 1 1 ) \r
0004540
*
0004600 ( R A N D 0 . 1 1 ) ) \r
0004620
*
0004660 ( 006 002 S P H E R E 006 001 "
0004700 N o e l " ( R A N D 5 9 0
0004720 ) \r
0004740
0004760 ( R A
0005000 N D 1 3 ) ) \r
0005020
0005040 ( I R
0005060 I S . P O P M A T R I X ] ) \r \r
0005100 ( 006 004 S P H E R E 006 001 \r [ L
0005120 A M B D A ( M S G T H E T A
0005140 C O U N T ) 006 006 006 001
0005160
0005200 006 006 (
0005220 * e d i t e d % : " 1 1 - D
0005240 e c - 8 5 1 5 : 2 4 " ) 006 001 \r
0005260 ( I R I S . P U S H M A
0005300 T R I X ) \r ( O R T H
0005320 E T A ( S E T Q T H E T A
0005340 3 0 ) ) \r ( O R C O U
0005360 N T ( S E T Q C O U N T 3
0005400 ) ) \r ( D S P C O L O R
0005420 ' R E D \ I R I S S T R E A
0005440 M ) \r ( I R I S . P U S
0005460 H M A T R I X ) \r ( 006 002
0005500 f o r 006 001 I 006 002 f r o m 006 001
0005520 0 006 002 t o 006 001 ( I Q U O T
0005540 I E N T 3 6 0 T H E T A )
0005560 006 002 d o 006 001 ( M O V E T O 0
0005600 0 \ I R I S S T R E A M ) \r
0005620
*
0005660 ( D
0005700 S P C O L O R ( I M O D I
0005720 7 ) \r
0005740
*
0006000 \ I R I S S T R
0006020 E A M ) \r
0006040
*
0006100 ( I R I S . R O T A T E
0006120 ( I T I M E S 1 0 T H E T A
0006140 ) \r
0006160
*
0006220 I R I S . Z A X I
0006240 S ) \r
0006260
*
0006320 ( P R I N T O U T \ I R I S
0006340 S T R E A M M S G ) ) \r
0006360 ( I R I S . P O P M A T R I X
0006400 ) \r ( I R I S . P U S H
0006420 M A T R I X ) \r ( I R I
0006440 S . R O T A T E 9 0 0 I R I
0006460 S . Y A X I S ) \r ( D S
0006500 P C O L O R ' B L A C K \ I
0006520 R I S S T R E A M ) \r (
0006540 S E L E C T Q C O U N T \r
0006560 ( 1 N I L ) \r
0006600 ( 006 002 f o r 006 001 I
0006620 006 002 f r o m 006 001 0 006 002 t o
0006640 006 001 ( I Q U O T I E N T 3 6
0006660 0 T H E T A ) 006 002 d o 006 001
0006700 ( M O V E T O 0 0 \ I R I
0006720 S S T R E A M ) \r
0006740
*
0007000 ( D S P C
0007020 O L O R ( I M O D I 7 ) \r
0007040
*
0007120 \ I R I S S T
0007140 R E A M ) \r
0007160
*
0007220 ( I R I S . R O
0007240 T A T E ( I T I M E S 1 0
0007260 T H E T A ) \r
0007300
*
0007360 I R I S . Z A X I S ) \r
0007400
*
0007440 ( P
0007460 R I N T O U T \ I R I S S T R
0007500 E A M M S G ) ) ) \r (
0007520 I R I S . P O P M A T R I X ) \r
0007540 ( D S P C O L O R ' C
0007560 Y A N \ I R I S S T R E A M )
0007600 \r ( I R I S . R O T A T
0007620 E 9 0 0 I R I S . X A X I S
0007640 ) \r ( S E L E C T Q C
0007660 O U N T \r ( ( 1
0007700 2 ) \r
0007720 N I L ) \r (
0007740 006 002 f o r 006 001 I 006 002 f r o m
0007760 006 001 0 006 002 t o 006 001 ( I Q U
0010000 O T I E N T 3 6 0 T H E T A
0010020 ) 006 002 d o 006 001 ( M O V E T O
0010040 0 0 \ I R I S S T R E A M
0010060 ) \r
0010100
*
0010140 ( D S P C O L O R ( I
0010160 M O D I 7 ) \r
0010200
*
0010260 \ I R I S S T R E A M ) \r
0010300
*
0010360 ( I R I S . R O T A T E ( I
0010400 T I M E S 1 0 T H E T A ) \r
0010420
*
0010500 I R I S . Z A
0010520 X I S ) \r
0010540
*
0010600 ( P R I N T O U T
0010620 \ I R I S S T R E A M M S G
0010640 ) ) ) \r ( I R I S . P O
0010660 P M A T R I X ] ) \r \r ( 006 004 T E
0010700 T R A 006 001 \r [ C L : L A M B
0010720 D A ( & O P T I O N A L ( S
0010740 I D E - L E N G T H 2 0 0 ) \r
0010760
0011000 ( R E C U R S I V E - D
0011020 E P T H 3 ) \r
0011040 ( S H R
0011060 I N K - F A C T O R T E T R A
0011100 . S H R I N K ) \r
0011120 ( S T
0011140 Y L E ' W I R E F R A M E ) \r
0011160
0011200 ( D O N T B A S E R E C
0011220 U R S E N I L ) ) 006 006 006 001
0011240
0011260 006 006 ( * ; " E d i t e d
0011300 3 1 - J a n - 8 7 1 7 : 2 9
0011320 b y g b n " ) 006 001 \r \r 006 006 ( *
0011340 ; ; ; " D r a w s a r e
0011360 c u r s i v e t e t r a h e d
0011400 r o n . s h r i n k f a c
0011420 t o r i s t h e r a t i o
0011440 o f s i d e l e n g t h
0011460 o f p a r e n t a n d c h
0011500 i l d . s t y l e i s o
0011520 n e o f ' w i r e f r a m e
0011540 , p o l y g o n o r n o r
0011560 m a l . " ) 006 001 \r \r
0011600 ( L E T ( ( R E C U R S
0011620 I V E - D E P T H ( O R R E
0011640 C U R S I V E - D E P T H 5 )
0011660 ) \r
0011700 ( S H R I N K - F A C T O R
0011720 ( O R S H R I N K - F A C T O
0011740 R T E T R A . S H R I N K ) )
0011760 \r
0012000 ( S T Y L E ( O R S T Y L E
0012020 I V . D E F A U L T . S T Y L
0012040 E ) ) ) \r
0012060 ( 006 002 i f 006 001 ( E Q 0
0012100 R E C U R S I V E - D E P T H
0012120 ) \r
0012140 006 002 t h e n 006 001
0012160
*
0012220 006 006 ( * ; " d o n e "
0012240 ) 006 001 \r
0012260 N I L \r
0012300 006
0012320 002 e l s e 006 001 ( 006 002 T E T R A
0012340 . O B J 006 001 S I D E - L E N G
0012360 T H ( 006 002 T E T R A . C O L O
0012400 R 006 001 R E C U R S I V E - D E
0012420 P T H ) \r
0012440
0012460 S T Y L E D O N T B A S E R
0012500 E C U R S E ) \r
0012520 ( 006 002
0012540 i f 006 001 ( N O T D O N T B A
0012560 S E R E C U R S E ) \r
0012600
0012620 006 002 t h e n 006 001 ( I R
0012640 I S . P U S H M A T R I X ) \r
0012660
0012700 ( I R
0012720 I S . R O T A T E ( 006 002 I R I
0012740 S . D E G R E E S 006 001 1 8 0 )
0012760 \r
0013000
0013020 I R I S . Y A X I S
0013040 ) \r
0013060
0013100 ( I R I S . R O T A T E ( 006 002
0013120 I R I S . D E G R E E S 006 001 (
0013140 M I N U S T E T R A . T I L T
0013160 ) ) \r
0013200
0013220 I R I S . X A X
0013240 I S ) \r
0013260
0013300 ( I R I S . T R A N S L A T
0013320 E 0 ( Q U O T I E N T S I
0013340 D E - L E N G T H ( S Q R T
0013360 3 ) ) \r
0013400
0013420 0 ) \r
0013440
0013460 ( 006 002 T E T
0013500 R A . T I L T . A N D . R E C U
0013520 R S E 006 001 S I D E - L E N G T
0013540 H R E C U R S I V E - D E P T
0013560 H S H R I N K - F A C T O R
0013600 S T Y L E \r
0013620
0013640 ) \r
0013660
0013700 ( I R I S
0013720 . P O P M A T R I X ) ) \r
0013740
0013760 ( I R I S . P U S H M A T R
0014000 I X ) \r
0014020 ( I R I S . T
0014040 R A N S L A T E 0 ( Q U O T
0014060 I E N T S I D E - L E N G T H
0014100 ( S Q R T 3 ) ) \r
0014120
0014140 0 )
0014160
0014200 006 006 ( * ; \r
0014220 006 001
0014240
0014260 006 006 " m o v e
0014300 t h e o r i g i n t o t
0014320 h e m i d d l e o f t h e
0014340 b a s e o f t h e t e t
0014360 r a h e d r o n " ) 006 001 \r
0014400
0014420 ( 006 002 T E T R A . T I L T .
0014440 A N D . R E C U R S E 006 001 S I
0014460 D E - L E N G T H R E C U R S
0014500 I V E - D E P T H S H R I N K
0014520 - F A C T O R S T Y L E ) \r
0014540
0014560 ( I R I S . R O T A T E
0014600 ( 006 002 I R I S . D E G R E E S
0014620 006 001 1 2 0 ) \r
0014640
0014660 I R I S . Z A X I S ) \r
0014700
0014720 ( 006 002 T E T R A . T I
0014740 L T . A N D . R E C U R S E 006 001
0014760 S I D E - L E N G T H R E C
0015000 U R S I V E - D E P T H S H R
0015020 I N K - F A C T O R S T Y L E
0015040 ) \r
0015060 ( I R I S . R O T
0015100 A T E ( 006 002 I R I S . D E G R
0015120 E E S 006 001 1 2 0 ) \r
0015140
0015160 I R I S . Z A X I
0015200 S ) \r
0015220 ( 006 002 T E T R A
0015240 . T I L T . A N D . R E C U R S
0015260 E 006 001 S I D E - L E N G T H
0015300 R E C U R S I V E - D E P T H
0015320 S H R I N K - F A C T O R S T
0015340 Y L E ) \r
0015360 \r 006 006 ( *
0015400 ; ; " ( I R I S . T R A N S L
0015420 A T E 0 ( M I N U S ( Q U
0015440 O T I E N T X ( S Q R T 3
0015460 ) ) ) 0 ) ( I R I S . R O T
0015500 A T E ( I R I S . D E G R E E
0015520 S 1 8 0 ) I R I S . X A X I
0015540 S ) ( I R I S . R O T A T E
0015560 ( I R I S . D E G R E E S 1 8
0015600 0 ) I R I S . Z A X I S ) (
0015620 T E T R A . T I L T . A N D . R
0015640 E C U R S E X R E C D E P T
0015660 H ) " ) 006 001 \r \r
0015700 ( I R
0015720 I S . P O P M A T R I X ] ) \r \r
0015740 ( 006 004 T E T R A . C O L O R 006 001
0015760 \r [ L A M B D A ( C O L O
0016000 R ) 006 006 006 001
0016020
*
0016060 006 006 ( * g b n " 2 1 - F
0016100 e b - 8 6 1 7 : 1 1 " ) 006 001 \r
0016120 ( I M O D C O L O R
0016140 8 ] ) \r \r ( 006 004 T E T R A . D R
0016160 A W . F A C E 006 001 \r [ L A M
0016200 B D A ( S T Y L E C O L O R
0016220 L E F T R I G H T T O P )
0016240 006 006 006 001
0016260 006 006 ( *
0016300 ; " E d i t e d 3 1 - J a n
0016320 - 8 7 1 8 : 4 4 b y g b n
0016340 " ) 006 001 \r \r
0016360 006 006 ( * ;
0016400 ; " h a n d l e s d r a w i
0016420 n g a s i n g l e f a c e
0016440 . L e f t r i g h t a n
0016460 d t o p a r e j u s t l
0016500 o g i c a l n a m e s f o r
0016520 t h e p o i n t s o f t
0016540 h e t r i a n g l e . T h
0016560 e y n e e d n o t c o r r
0016600 e s p o n d t o T e t r a '
0016620 s i n t e r p r e t a t i o n
0016640 o f t h o s e n a m e s .
0016660 " ) 006 001 \r \r ( S E L E C
0016700 T Q S T Y L E \r
0016720 ( W I R E F R A M E ) \r
0016740 ( ( P O L Y G O N N
0016760 O R M A L S B A C K F A C E S
0017000 ) \r
0017020 ( 006 002 i f 006 001 ( N O T D O N
0017040 T B A S E R E C U R S E ) \r
0017060 006
0017100 002 t h e n 006 001 ( I R I S . P O
0017120 L F 3 ( L I S T L E F T
0017140 R I G H T F R O N T ) ) ) \r
0017160 ( D S P
0017200 C O L O R C O L O R \ I R I
0017220 S S T R E A M ) \r
0017240 ( I R I S . P O L F
0017260 3 ( L I S T L E F T R I
0017300 G H T T O P ) )
0017320 006 006 ( * ; \r 006 001
0017340
0017360 006 006 " ( I
0017400 R I S . P O L F 3 ( L I S T
0017420 F R O N T R I G H T T O P
0017440 ) ) ( I R I S . P O L F 3
0017460 ( L I S T F R O N T L E F T
0017500 T O P ) ) " ) 006 001 \r
0017520 ( D S P C O L O
0017540 R T E T R A . E D G E . C O L
0017560 O R \ I R I S S T R E A M ) \r
0017600 ( 006 002
0017620 3 M O V E T O 006 001 \ I R I S S
0017640 T R E A M L E F T ) \r
0017660 ( 006 002 3 D R A
0017700 W T O 006 001 \ I R I S S T R E A
0017720 M R I G H T ) \r
0017740 ( 006 002 3 D R A W T O
0017760 006 001 \ I R I S S T R E A M T
0020000 O P ) \r
0020020 ( 006 002 3 D R A W T O 006 001 \ I
0020040 R I S S T R E A M L E F T ) \r
0020060 ( S E
0020100 L E C T Q S T Y L E \r
0020120 ( P O
0020140 L Y G O N ) \r
0020160 ( N O R M A L S
0020200
*
0020240 006 006 ( * ; \r 006 001
0020260
*
0020340 006 006 " c o
0020360 m p u t e a n d d r a w a
0020400 n o r m a l t o t h e f
0020420 a c e " ) 006 001 \r
0020440
0020460 [ L E T * ( ( L E F T T O
0020500 P ( 006 002 3 D I F F E R E N C E
0020520 006 001 T O P L E F T ) ) \r
0020540
0020560 (
0020600 L E F T R I G H T ( 006 002 3 D I
0020620 F F E R E N C E 006 001 R I G H T
0020640 L E F T ) ) \r
0020660
0020700 ( N O R M A L
0020720 E N D P T ( 006 002 3 C R O S S P
0020740 R O D U C T 006 001 L E F T T O P
0020760 L E F T R I G H T ) ) \r
0021000
0021020 ( N
0021040 O R M A L ( 006 002 3 D I F F E R
0021060 E N C E 006 001 N O R M A L E N D
0021100 P T L E F T ) ) ) \r
0021120
0021140 ( 006 002 3 L
0021160 I N E 006 001 L E F T ( 006 002 3 P
0021200 L U S 006 001 L E F T ( 006 002 3 T
0021220 I M E S 006 001 ( 006 002 3 N O R M A
0021240 L I Z E 006 001 N O R M A L ) \r
0021260
*
0021340 5 0
0021360 ] ) \r
0021400 ( B A C K F A C E S
0021420
*
0021460 006 006 ( * ; \r 006 001
0021500
*
0021560 006 006 " c o m p u t
0021600 e a n d d r a w a n o r
0021620 m a l t o t h e f a c e "
0021640 ) 006 001 \r
0021660
0021700 ( L E T * ( ( L E F T T O P
0021720 ( 006 002 3 D I F F E R E N C E 006 001
0021740 T O P L E F T ) ) \r
0021760
0022000 (
0022020 L E F T R I G H T ( 006 002 3 D I
0022040 F F E R E N C E 006 001 R I G H T
0022060 L E F T ) ) \r
0022100
0022120 ( N O R M
0022140 A L E N D P T ( 006 002 3 C R O S
0022160 S P R O D U C T 006 001 L E F T T
0022200 O P L E F T R I G H T ) ) \r
0022220
*
0022260 ( N O R M A L ( 006 002 3 D I
0022300 F F E R E N C E 006 001 N O R M A
0022320 L E N D P T L E F T ) ) \r
0022340
*
0022400 ( E Y E V E C T O R ( 006 002 3
0022420 D I F F E R E N C E 006 001 ( 006 002
0022440 I R I S . X L A T E 006 001 I V .
0022460 V I E W P T ) \r
0022500
*
0022540 L E F
0022560 T ) ) ) \r
0022600
0022620 ( 006 002 i f 006 001 (
0022640 L E S S P ( 006 002 3 D O T 006 001
0022660 E Y E V E C T O R N O R M A L
0022700 ) \r
0022720
0022740 0
0022760 . 0 ) \r
0023000
0023020 006 002 t h e n
0023040 006 001
0023060 006 006 ( * ; " t h i
0023100 s i s n o t a b a c k f
0023120 a c e s o d r a w i t " ) 006
0023140 001 \r
0023160
0023200 ( D S
0023220 P C O L O R C O L O R \ I R
0023240 I S S T R E A M ) \r
0023260
*
0023320 ( I R I S . P O L F
0023340 3 ( L I S T L E F T R I G
0023360 H T T O P ) ) \r
0023400
*
0023440 ( D S P C O L O R T E
0023460 T R A . E D G E . C O L O R \
0023500 I R I S S T R E A M ) \r
0023520
*
0023560 ( 006 002 3 M O V E T
0023600 O 006 001 \ I R I S S T R E A M
0023620 L E F T ) \r
0023640
*
0023700 ( 006 002 3 D R A W T O 006 001 \ I
0023720 R I S S T R E A M R I G H T )
0023740 \r
0023760
0024000 ( 006 002 3
0024020 D R A W T O 006 001 \ I R I S S T
0024040 R E A M T O P ) \r
0024060
*
0024120 ( 006 002 3 D R A W T O 006
0024140 001 \ I R I S S T R E A M L E
0024160 F T ) ) ) ) \r
0024200 ( E R R O R "
0024220 U n k n o w n d r a w i n g
0024240 s t y l e : " S T Y L E ) )
0024260 ) \r ( E R R O R
0024300 " U n k n o w n d r a w i n
0024320 g s t y l e : " S T Y L E
0024340 ] ) \r \r ( 006 004 T E T R A . O B J
0024360 006 001 \r [ L A M B D A ( X
0024400 C O L O R S T Y L E D O N T
0024420 B A S E R E C U R S E ) 006 006 006 001
0024440
0024460 006 006 ( * ; " E d i t
0024500 e d 3 1 - J a n - 8 7 1 7 :
0024520 3 5 b y g b n " ) 006 001 \r \r 006
0024540 006 ( * ; ; ; " T h e f u n
0024560 c t i o n t h a t d r a w s
0024600 a s i n g l e t e t r a h
0024620 e d r o n ( a n d o p t i o
0024640 n a l l y , i t ' s f a c e
0024660 s . ) " ) 006 001 \r \r ( L E
0024700 T ( [ T O P ( 006 002 3 P O I N
0024720 T 006 001 0 ( Q U O T I E N T
0024740 X ( S Q R T 3 ) ) \r
0024760
0025000 ( S Q R T ( T I M E S (
0025020 T I M E S X X ) \r
0025040
0025060 ( Q
0025100 U O T I E N T 8 3 . 0 ] \r
0025120 ( L E F T (
0025140 006 002 3 P O I N T 006 001 ( M I N U
0025160 S X ) \r
0025200 0 0 )
0025220 ) \r ( R I G
0025240 H T ( 006 002 3 P O I N T 006 001 X
0025260 0 0 ) ) \r
0025300 ( F R O N T ( 006 002 3 P O I N
0025320 T 006 001 0 ( T I M E S ( S Q
0025340 R T 3 ) \r
0025360
0025400 X ) \r
0025420
0025440 0 ) ) ) \r
0025460 ( I R I S . P U S H A T T R I
0025500 B U T E S ) \r
0025520 ( S E L E C T Q S T Y L E \r
0025540 ( W I R
0025560 E F R A M E ( D S P C O L O R
0025600 C O L O R \ I R I S S T R E
0025620 A M ) \r
0025640 ( 006 002 3
0025660 M O V E T O 006 001 \ I R I S S T
0025700 R E A M L E F T ) \r
0025720
0025740 ( 006 002 3 D R A W T O 006 001
0025760 \ I R I S S T R E A M R I G H
0026000 T ) \r
0026020 ( 006 002 3 D
0026040 R A W T O 006 001 \ I R I S S T R
0026060 E A M F R O N T ) \r
0026100
0026120 ( 006 002 3 D R A W T O 006 001
0026140 \ I R I S S T R E A M L E F T
0026160 ) \r
0026200 ( 006 002 3 D R
0026220 A W T O 006 001 \ I R I S S T R E
0026240 A M T O P ) \r
0026260
0026300 ( 006 002 3 D R A W T O 006 001 \ I R
0026320 I S S T R E A M R I G H T ) \r
0026340
0026360 ( 006 002 3 M O V E
0026400 T O 006 001 \ I R I S S T R E A M
0026420 F R O N T ) \r
0026440
0026460 ( 006 002 3 D R A W T O 006 001 \ I R
0026500 I S S T R E A M T O P ) ) \r
0026520 ( ( P O
0026540 L Y G O N N O R M A L S B A
0026560 C K F A C E S ) \r
0026600 ( D S P
0026620 C O L O R C O L O R \ I R I
0026640 S S T R E A M ) \r
0026660 ( 006 002 i f
0026700 006 001 ( N O T D O N T B A S E
0026720 R E C U R S E ) \r
0026740 006
0026760 002 t h e n 006 001 ( 006 002 T E T R A
0027000 . D R A W . F A C E 006 001 S T Y
0027020 L E C O L O R L E F T R I
0027040 G H T F R O N T ) ) \r
0027060 ( 006
0027100 002 T E T R A . D R A W . F A C E
0027120 006 001 S T Y L E C O L O R L
0027140 E F T R I G H T T O P ) \r
0027160
0027200 ( 006 002 T E T R A . D R A W . F
0027220 A C E 006 001 S T Y L E C O L O
0027240 R R I G H T F R O N T T O
0027260 P ) \r
0027300 ( 006 002 T E T R A . D R
0027320 A W . F A C E 006 001 S T Y L E
0027340 C O L O R F R O N T L E F T
0027360 T O P ) ) \r
0027400 ( E R R O R " U n k n
0027420 o w n d r a w i n g s t y l
0027440 e : " S T Y L E ) ) \r
0027460 ( I R I S . P O P A
0027500 T T R I B U T E S ] ) \r \r ( 006 004
0027520 T E T R A . T I L T . A N D . R
0027540 E C U R S E 006 001 \r [ L A M B
0027560 D A ( X R E C D E P T H S
0027600 H R I N K F A C T O R S T Y L
0027620 E ) 006 006 006 001
0027640 006 006 ( * e
0027660 d i t e d % : " 1 6 - D e c -
0027700 8 5 1 7 : 4 1 " ) 006 001 \r
0027720 \r
0027740 006 006 ( * * s e t s u p
0027760 t h e t r a n s f o r m a t
0030000 i o n s t o r e c u r s e ,
0030020 a n d c a l l s t e t r a
0030040 ) 006 001 \r \r
0030060 006 006 ( * *
0030100 c a l l e d w i t h 0 0
0030120 0 a l r e a d y p l a c e d
0030140 a t t h e " b o t t o m
0030160 e d g e " o n t h e f a c
0030200 e o f t h e \r 006 001
0030220 006 006 l a r g e r t
0030240 e t r a ) 006 001 \r
0030260 \r 006 006 (
0030300 * B O T T O M Y i s t h e
0030320 y c o m p o n e n t o f
0030340 t h e p o i n t B O T T O M
0030360 , w h i c h i s n o t e
0030400 x p l i c i t l y \r 006 001
0030420 006 006 c a l c u l a
0030440 t e d ) 006 001 \r \r ( L E T
0030460 [ ( B O T T O M Y ( Q U O T
0030500 I E N T X ( S Q R T 3 ] \r
0030520 ( I R I S . P
0030540 U S H M A T R I X ) \r
0030560 ( I R I S . T R A N S L
0030600 A T E 0 ( M I N U S ( Q U
0030620 O T I E N T X ( S Q R T 3
0030640 ) ) ) \r
0030660 0 ) \r
0030700 ( I R I S . R O T A T E ( 006 002
0030720 I R I S . D E G R E E S 006 001 T
0030740 E T R A . T I L T ) \r
0030760 I R I S .
0031000 X A X I S ) \r
0031020 ( I R I S . T R A N S L A T E
0031040 0 ( D I F F E R E N C E B O
0031060 T T O M Y ( T I M E S B O T
0031100 T O M Y S H R I N K F A C T O
0031120 R ) ) \r
0031140 0 ) \r
0031160 ( I R I S . S C A L E S H R I
0031200 N K F A C T O R S H R I N K F
0031220 A C T O R S H R I N K F A C T
0031240 O R ) \r ( 006 002
0031260 T E T R A 006 001 ( T I M E S S
0031300 H R I N K F A C T O R X ) \r
0031320 (
0031340 S U B 1 R E C D E P T H ) \r
0031360 S
0031400 H R I N K F A C T O R S T Y L
0031420 E T )
0031440 006 006 ( *
0031460 I R I S . T R A N S L A T E
0031500 0 ( M I N U S B O T T O M Y
0031520 ) 0 ) 006 001 \r
0031540 \r 006 006 ( *
0031560 p u t 0 0 0 b a c k
0031600 o n t h e e d g e o f t
0031620 h e l a r g e r t e t r a )
0031640 006 001 \r \r ( I R
0031660 I S . P O P M A T R I X ] ) \r )
0031700 \r \r ( R P A Q Q 006 002 I R I S .
0031720 T I L T 006 001 7 0 . 5 2 8 7 8 )
0031740 \r \r ( R P A Q Q 006 002 T E T R A
0031760 . C O L O R 006 001 B L U E ) \r \r
0032000 ( R P A Q Q 006 002 T E T R A . E
0032020 D G E . C O L O R 006 001 B L A C
0032040 K ) \r \r ( R P A Q Q 006 002 T E T
0032060 R A . S H R I N K 006 001 0 . 7 )
0032100 \r \r ( R P A Q Q 006 002 T E T R A
0032120 . T I L T 006 001 7 0 . 5 2 8 7 8
0032140 ) \r \r ( R P A Q Q 006 002 I V . D
0032160 E F A U L T . S T Y L E 006 001 W
0032200 I R E F R A M E ) \r \r \r \r 006 004 (
0032220 * ; ; " m i n i m a l 3 -
0032240 d s u p p o r t f o r t h
0032260 e t e t r a d e m o " ) 006 001
0032300 \r \r ( D E C L A R E % : E V A
0032320 L @ C O M P I L E \r \r ( R E C O
0032340 R D 006 002 3 P O I N T 006 001 ( |
0032360 3 X | | 3 Y | | 3 Z | ) ) \r
0032400 ) \r ( D E F I N E Q \r \r ( 006 004 3
0032420 D O T 006 001 \r [ L A M B D A
0032440 ( A B ) 006 006 006 001
0032460
*
0032520 006 006 ( * g b n
0032540 " 3 - M a r - 8 6 1 7 : 5 4
0032560 " ) 006 001 \r ( P L U S (
0032600 T I M E S ( 006 002 f e t c h 006 001
0032620 | 3 X | 006 002 o f 006 001 A ) \r
0032640
0032660 ( 006 002 f e t c h 006 001 | 3 X |
0032700 006 002 o f 006 001 B ) ) \r
0032720 ( T I M E S ( 006 002
0032740 f e t c h 006 001 | 3 Y | 006 002 o
0032760 f 006 001 A ) \r
0033000 ( 006 002 f e t c h
0033020 006 001 | 3 Y | 006 002 o f 006 001 B
0033040 ) ) \r ( T I
0033060 M E S ( 006 002 f e t c h 006 001 |
0033100 3 Z | 006 002 o f 006 001 A ) \r
0033120 (
0033140 006 002 f e t c h 006 001 | 3 Z | 006
0033160 002 o f 006 001 B ] ) \r \r ( 006 004 3 D
0033200 R A W T O 006 001 \r [ L A M B D
0033220 A ( S T R E A M X O R 3 P T
0033240 Y Z ) 006 006 006 001
0033260
0033300 006 006 ( * e d
0033320 i t e d % : " 1 3 - D e c - 8
0033340 5 1 6 : 1 6 " ) 006 001 \r
0033360 ( 006 002 i f 006 001 ( N U M B E R P
0033400 X O R 3 P T ) \r
0033420 006 002 t h e n 006 001 ( I R I S .
0033440 D R A W X O R 3 P T Y Z
0033460 S T R E A M ) \r 006 002
0033500 e l s e 006 001 ( I R I S . D R A
0033520 W ( 006 002 f e t c h 006 001 | 3 X
0033540 | 006 002 o f 006 001 X O R 3 P T )
0033560 \r
0033600 ( 006 002 f e t c h 006 001 | 3
0033620 Y | 006 002 o f 006 001 X O R 3 P T
0033640 ) \r
0033660 ( 006 002 f e t c h 006 001 |
0033700 3 Z | 006 002 o f 006 001 X O R 3 P
0033720 T ) \r
0033740 S T R E A M ] ) \r \r (
0033760 006 004 3 M O V E T O 006 001 \r [ L
0034000 A M B D A ( S T R E A M X O
0034020 R 3 P T Y Z ) 006 006 006 001
0034040
0034060 006 006 (
0034100 * e d i t e d % : " 1 3 - D
0034120 e c - 8 5 1 6 : 1 6 " ) 006 001 \r
0034140 ( 006 002 i f 006 001 ( N U M
0034160 B E R P X O R 3 P T ) \r
0034200 006 002 t h e n 006 001 ( I
0034220 R I S . M O V E X O R 3 P T
0034240 Y Z S T R E A M ) \r
0034260 006 002 e l s e 006 001 ( I R I S
0034300 . M O V E ( 006 002 f e t c h 006 001
0034320 | 3 X | 006 002 o f 006 001 X O R
0034340 3 P T ) \r
0034360 ( 006 002 f e t c h 006
0034400 001 | 3 Y | 006 002 o f 006 001 X O
0034420 R 3 P T ) \r
0034440 ( 006 002 f e t c h
0034460 006 001 | 3 Z | 006 002 o f 006 001 X
0034500 O R 3 P T ) \r
0034520 S T R E A M ]
0034540 ) \r \r ( 006 004 3 N O R M A L I Z E
0034560 006 001 \r [ L A M B D A ( 3 V
0034600 E C T O R ) 006 006 006 001
0034620
*
0034660 006 006 ( * g b n " 3
0034700 - M a r - 8 6 1 5 : 5 1 " ) 006
0034720 001 \r \r
0034740 006 006 ( * * P r
0034760 o d u c e s a v e c t o r
0035000 w i t h t h e s a m e d i
0035020 r e c t i o n b u t u n i t
0035040 m a g n i t u d e a s 3 V
0035060 E C T O R ) 006 001 \r \r ( L
0035100 E T ( ( L E N G T H ( 006 002 3
0035120 L E N G T H 006 001 3 V E C T O R
0035140 ) ) ) \r ( 006 002
0035160 3 P O I N T 006 001 ( Q U O T I E
0035200 N T ( 006 002 f e t c h 006 001 | 3
0035220 X | 006 002 o f 006 001 3 V E C T O
0035240 R ) \r
0035260 L E N G T
0035300 H ) \r
0035320 ( Q U O T I E N T ( 006 002
0035340 f e t c h 006 001 | 3 Y | 006 002 o
0035360 f 006 001 3 V E C T O R ) \r
0035400
0035420 L E N G T H ) \r
0035440 ( Q U O
0035460 T I E N T ( 006 002 f e t c h 006 001
0035500 | 3 Z | 006 002 o f 006 001 3 V E
0035520 C T O R ) \r
0035540 L E N
0035560 G T H ] ) \r \r ( 006 004 3 P L U S 006
0035600 001 \r [ L A M B D A ( A B
0035620 ) 006 006 006 001
0035640
*
0035700 006 006 ( * g b n " 3 -
0035720 M a r - 8 6 1 4 : 4 6 " ) 006 001
0035740 \r
0035760
*
0036020 006 006
0036040 ( * v e c t o r s u m o f
0036060 a a n d b ) 006 001 \r
0036100 ( 006 002 3 P O I N T 006 001 ( P L U
0036120 S ( 006 002 f e t c h 006 001 | 3 X
0036140 | 006 002 o f 006 001 A ) \r
0036160 ( 006
0036200 002 f e t c h 006 001 | 3 X | 006 002
0036220 o f 006 001 B ) ) \r
0036240 ( P L U S ( 006 002 f e t
0036260 c h 006 001 | 3 Y | 006 002 o f 006 001
0036300 A ) \r
0036320 ( 006 002 f e t c h 006 001
0036340 | 3 Y | 006 002 o f 006 001 B ) ) \r
0036360 ( P L U S
0036400 ( 006 002 f e t c h 006 001 | 3 Z |
0036420 006 002 o f 006 001 A ) \r
0036440 ( 006 002 f
0036460 e t c h 006 001 | 3 Z | 006 002 o f
0036500 006 001 B ] ) \r \r ( 006 004 3 P O I N
0036520 T 006 001 \r [ L A M B D A ( X
0036540 Y Z ) 006 006 006 001
0036560
*
0036620 006 006 ( * e d i t e d
0036640 % : " 1 3 - D e c - 8 5 1 6
0036660 : 0 2 " ) 006 001 \r
0036700
*
0036760 006 006 ( * c r e a t e
0037000 s a | 3 - d | p o i n t )
0037020 006 001 \r ( 006 002 c r e a t e
0037040 006 001 3 P O I N T \r
0037060 | 3 X | _ X \r
0037100 | 3 Y | _
0037120 Y \r | 3 Z
0037140 | _ Z ] ) \r \r ( 006 004 3 U N I
0037160 T C R O S S P R O D U C T 006 001 \r
0037200 [ L A M B D A ( A B ) 006
0037220 006 006 001
0037240
*
0037300 006 006 ( * g b n " 3 - M a
0037320 r - 8 6 1 5 : 5 1 " ) 006 001 \r
0037340 ( L E T * ( ( N O R M A
0037360 L ( 006 002 3 C R O S S P R O D U
0037400 C T 006 001 A B ) ) \r
0037420 ( L E N G T H ( 006
0037440 002 3 L E N G T H 006 001 N O R M A
0037460 L ) ) ) \r (
0037500 006 002 r e p l a c e 006 001 | 3 X |
0037520 006 002 o f 006 001 N O R M A L 006
0037540 002 w i t h 006 001 ( Q U O T I E N
0037560 T ( 006 002 f e t c h 006 001 | 3 X
0037600 | 006 002 o f 006 001 N O R M A L )
0037620 \r
0037640
0037660 L
0037700 E N G T H ) ) \r
0037720 ( 006 002 r e p l a c e 006 001 |
0037740 3 Y | 006 002 o f 006 001 N O R M A
0037760 L 006 002 w i t h 006 001 ( Q U O T
0040000 I E N T ( 006 002 f e t c h 006 001
0040020 | 3 Y | 006 002 o f 006 001 N O R M
0040040 A L ) \r
0040060
*
0040120 L E N G T H ) ) \r
0040140 ( 006 002 r e p l a c e 006
0040160 001 | 3 Z | 006 002 o f 006 001 N O
0040200 R M A L 006 002 w i t h 006 001 ( Q
0040220 U O T I E N T ( 006 002 f e t c h
0040240 006 001 | 3 Z | 006 002 o f 006 001 N
0040260 O R M A L ) \r
0040300
*
0040340 L E N G T H ) ) \r
0040360 N O R M A L ] )
0040400 \r \r ( 006 004 3 D I F F E R E N C E
0040420 006 001 \r [ L A M B D A ( D E
0040440 S T S O U R C E ) 006 006 006 001
0040460
*
0040520 006 006 ( * g b n " 2 8
0040540 - F e b - 8 6 1 7 : 1 3 " ) 006
0040560 001 \r
0040600
*
0040640 006
0040660 006 ( * v e c t o r d i f f e
0040700 r e n c e f r o m s o u r c
0040720 e t o \r 006 001
0040740
*
0041020 006 006 d e s t ) 006 001 \r
0041040 ( 006 002 3 P O I N T 006 001 (
0041060 D I F F E R E N C E ( 006 002 f e
0041100 t c h 006 001 | 3 X | 006 002 o f 006
0041120 001 D E S T ) \r
0041140 ( 006 002 f e
0041160 t c h 006 001 | 3 X | 006 002 o f 006
0041200 001 S O U R C E ) ) \r
0041220 ( D I F F E R E N C
0041240 E ( 006 002 f e t c h 006 001 | 3 Y
0041260 | 006 002 o f 006 001 D E S T ) \r
0041300
0041320 ( 006 002 f e t c h 006 001 | 3 Z |
0041340 006 002 o f 006 001 S O U R C E ) )
0041360 \r ( D I F
0041400 F E R E N C E ( 006 002 f e t c h
0041420 006 001 | 3 Z | 006 002 o f 006 001 D
0041440 E S T ) \r
0041460 ( 006 002 f e t c h 006
0041500 001 | 3 Z | 006 002 o f 006 001 S O
0041520 U R C E ] ) \r \r ( 006 004 3 C R O S
0041540 S P R O D U C T 006 001 \r [ L A
0041560 M B D A ( A B ) 006 006 006 001
0041600
*
0041640 006 006 ( *
0041660 g b n " 2 8 - F e b - 8 6
0041700 1 7 : 1 7 " ) 006 001 \r ( 006
0041720 002 3 P O I N T 006 001 ( D I F F E
0041740 R E N C E ( T I M E S ( 006 002
0041760 f e t c h 006 001 | 3 Y | 006 002 o
0042000 f 006 001 A ) \r
0042020
0042040 ( 006 002 f e t c h 006 001
0042060 | 3 Z | 006 002 o f 006 001 B ) )
0042100 \r
0042120 ( T I M E S ( 006 002 f e
0042140 t c h 006 001 | 3 Z | 006 002 o f 006
0042160 001 A ) \r
0042200 (
0042220 006 002 f e t c h 006 001 | 3 Y | 006
0042240 002 o f 006 001 B ) ) ) \r
0042260 ( D I F F E R E N C
0042300 E ( T I M E S ( 006 002 f e t c
0042320 h 006 001 | 3 Z | 006 002 o f 006 001
0042340 A ) \r
0042360
0042400 ( 006 002 f e t c h 006 001 | 3 X |
0042420 006 002 o f 006 001 B ) ) \r
0042440 ( T
0042460 I M E S ( 006 002 f e t c h 006 001
0042500 | 3 X | 006 002 o f 006 001 A ) \r
0042520
0042540 ( 006 002 f e t c h
0042560 006 001 | 3 Z | 006 002 o f 006 001 B
0042600 ) ) ) \r (
0042620 D I F F E R E N C E ( T I M E
0042640 S ( 006 002 f e t c h 006 001 | 3 X
0042660 | 006 002 o f 006 001 A ) \r
0042700
0042720 ( 006 002 f e t
0042740 c h 006 001 | 3 Y | 006 002 o f 006 001
0042760 B ) ) \r
0043000 ( T I M E S ( 006
0043020 002 f e t c h 006 001 | 3 Y | 006 002
0043040 o f 006 001 A ) \r
0043060
0043100 ( 006 002 f e t c h 006 001 | 3 X |
0043120 006 002 o f 006 001 B ] ) \r \r ( 006 004
0043140 3 L E N G T H 006 001 \r [ L A M
0043160 B D A ( A ) 006 006 006 001
0043200
*
0043240 006 006 ( *
0043260 g b n " 3 - M a r - 8 6 1
0043300 5 : 3 6 " ) 006 001 \r
0043320 \r 006 006
0043340 ( * * r e t u r n s t h e
0043360 e u c l i d e a n n o r m
0043400 o f t h e | 3 d | v e c t
0043420 o r ) 006 001 \r \r ( S Q R T
0043440 ( P L U S ( T I M E S ( 006
0043460 002 f e t c h 006 001 | 3 X | 006 002
0043500 o f 006 001 A ) \r
0043520 (
0043540 006 002 f e t c h 006 001 | 3 X | 006
0043560 002 o f 006 001 A ) ) \r
0043600 ( T I M E S
0043620 ( 006 002 f e t c h 006 001 | 3 Y |
0043640 006 002 o f 006 001 A ) \r
0043660
0043700 ( 006 002 f e t c h 006 001 | 3 Y
0043720 | 006 002 o f 006 001 A ) ) \r
0043740 ( T I
0043760 M E S ( 006 002 f e t c h 006 001 |
0044000 3 Z | 006 002 o f 006 001 A ) \r
0044020
0044040 ( 006 002 f e t c h 006 001
0044060 | 3 Z | 006 002 o f 006 001 A ] ) \r
0044100 \r ( 006 004 3 L I N E 006 001 \r [ L
0044120 A M B D A ( A B ) 006 006 006 001
0044140
*
0044200 006 006 (
0044220 * g b n " 2 8 - F e b - 8 6
0044240 1 7 : 2 2 " ) 006 001 \r (
0044260 006 002 3 M O V E T O 006 001 \ I R I
0044300 S S T R E A M A ) \r (
0044320 006 002 3 D R A W T O 006 001 \ I R I
0044340 S S T R E A M B ] ) \r \r ( 006 004
0044360 3 T I M E S 006 001 \r [ L A M B
0044400 D A ( V E C T O R S C A L A
0044420 R ) 006 006 006 001
0044440
0044460 006 006 ( * g
0044500 b n " 3 - M a r - 8 6 1 4
0044520 : 4 7 " ) 006 001 \r ( 006 002 3
0044540 P O I N T 006 001 ( T I M E S (
0044560 006 002 f e t c h 006 001 | 3 X | 006
0044600 002 o f 006 001 V E C T O R ) \r
0044620
0044640 S C A L A R ) \r
0044660 ( T I M E S ( 006 002 f e
0044700 t c h 006 001 | 3 Y | 006 002 o f 006
0044720 001 V E C T O R ) \r
0044740 S C A L
0044760 A R ) \r (
0045000 T I M E S ( 006 002 f e t c h 006 001
0045020 | 3 Z | 006 002 o f 006 001 V E C
0045040 T O R ) \r
0045060 S C A L A R ] ) \r
0045100 \r ( 006 004 D R A W . F A C E ? 006 001
0045120 \r [ L A M B D A ( L E F T
0045140 R I G H T T O P C O L O R
0045160 ) 006 006 006 001
0045200
0045220 006 006 ( * g b n " 3 - M
0045240 a r - 8 6 1 8 : 4 5 " ) 006 001 \r
0045260 \r
0045300 006 006 ( * h a n d l e
0045320 s d r a w i n g a s i n g
0045340 l e f a c e . L e f t r i
0045360 g h t a n d t o p a r e
0045400 j u s t l o g i c a l n a m
0045420 e s f o r \r 006 001
0045440 006 006 t h e p o i n t s
0045460 o f t h e t r i a n g l e
0045500 . T h e y n e e d n o t
0045520 c o r r e s p o n d t o T e
0045540 t r a ' s i n t e r p r e t a
0045560 t i o n \r 006 001
0045600 006 006 o f t h o s e n a m
0045620 e s . ) 006 001 \r \r ( L E T
0045640 * ( ( L E F T T O P ( 006 002 3
0045660 D I F F E R E N C E 006 001 T O P
0045700 L E F T ) ) \r
0045720 ( L E F T R I G H T ( 006
0045740 002 3 D I F F E R E N C E 006 001 R
0045760 I G H T L E F T ) ) \r
0046000 ( N O R M A L E N
0046020 D P T ( 006 002 3 C R O S S P R O
0046040 D U C T 006 001 L E F T T O P L
0046060 E F T R I G H T ) ) \r
0046100 ( N O R M A L ( 006
0046120 002 3 D I F F E R E N C E 006 001 N
0046140 O R M A L E N D P T L E F T )
0046160 ) \r ( E Y
0046200 E V E C T O R ( 006 002 3 D I F F
0046220 E R E N C E 006 001 ( 006 002 I R I S
0046240 . X L A T E 006 001 I V . V I E W
0046260 P T ) \r
0046300
0046320 L E F T ) ) ) \r
0046340 ( 006 002 i f 006 001 ( G R E A
0046360 T E R P ( 006 002 3 D O T 006 001 E
0046400 Y E V E C T O R N O R M A L )
0046420 \r
0046440 0 . 0 ) \r
0046460 006 002 t h e n 006
0046500 001
0046520
0046540 006 006 ( *
0046560 t h i s i s n o t a b
0046600 a c k f a c e s o d r a w i
0046620 t ) 006 001 \r
0046640 ( D S P C O L O
0046660 R ( O R C O L O R ' C Y A
0046700 N ) \r
0046720 \ I R
0046740 I S S T R E A M ) \r
0046760 ( I R
0047000 I S . P O L F 3 ( L I S T
0047020 L E F T R I G H T T O P ) )
0047040 \r
0047060 ( D S P C O L O R T E
0047100 T R A . E D G E . C O L O R \
0047120 I R I S S T R E A M ) \r
0047140 (
0047160 006 002 3 M O V E T O 006 001 \ I R I
0047200 S S T R E A M L E F T ) \r
0047220
0047240 ( 006 002 3 D R A W T O 006 001 \ I
0047260 R I S S T R E A M R I G H T )
0047300 \r
0047320 ( 006 002 3 D R A W T O 006 001
0047340 \ I R I S S T R E A M T O P
0047360 ) \r
0047400 ( 006 002 3 D R A W T O 006
0047420 001 \ I R I S S T R E A M L E
0047440 F T ] ) \r \r ( 006 004 I R I S . X L
0047460 A T E 006 001 \r [ L A M B D A
0047500 ( 3 V E C T O R ) 006 006 006 001
0047520
*
0047560 006 006 ( * g b n
0047600 " 3 - M a r - 8 6 1 7 : 1 8
0047620 " ) 006 001 \r ( I R I S . F
0047640 E E D B A C K \ I R I S . D U
0047660 M M Y B U F F E R 9 ) \r
0047700 ( I R I S . X F P T ( 006 002 f
0047720 e t c h 006 001 | 3 X | 006 002 o f
0047740 006 001 3 V E C T O R ) \r
0047760 ( 006 002 f e t c h 006
0050000 001 | 3 Y | 006 002 o f 006 001 3 V
0050020 E C T O R ) \r
0050040 ( 006 002 f e t c h 006 001 | 3 Z
0050060 | 006 002 o f 006 001 3 V E C T O R
0050100 ) ) \r ( 006 002 i f 006 001 (
0050120 N O T ( E Q U A L ( I R I S
0050140 . E N D F E E D B A C K \ I R
0050160 I S . F E E D B A C K B U F F E
0050200 R ) \r
0050220 9 ) ) \r
0050240 006 002 t h e n 006 001 ( H E L
0050260 P " N I N E I T E M S N O
0050300 T R E T U R N E D " ) ) \r
0050320 ( 006 002 3 P O I N T 006 001 ( 006
0050340 002 c r e a t e 006 001 F L O A T P
0050360 \r
0050400 H I W O R D _ ( E L
0050420 T \ I R I S . F E E D B A C K
0050440 B U F F E R 2 ) \r
0050460 L O W
0050500 O R D _ ( E L T \ I R I S
0050520 . F E E D B A C K B U F F E R
0050540 3 ) ) \r (
0050560 006 002 c r e a t e 006 001 F L O A T
0050600 P \r
0050620 H I W O R D _ ( E L
0050640 T \ I R I S . F E E D B A C K
0050660 B U F F E R 4 ) \r
0050700 L O W O
0050720 R D _ ( E L T \ I R I S .
0050740 F E E D B A C K B U F F E R 5
0050760 ) ) \r ( 006
0051000 002 c r e a t e 006 001 F L O A T P
0051020 \r
0051040 H I W O R D _ ( E L T
0051060 \ I R I S . F E E D B A C K B
0051100 U F F E R 6 ) \r
0051120 L O W O R
0051140 D _ ( E L T \ I R I S . F
0051160 E E D B A C K B U F F E R 7 ]
0051200 ) \r ) \r \r ( R P A Q \ I R I S
0051220 . D U M M Y B U F F E R ( R E
0051240 A D A R R A Y 9 ( Q U O T E
0051260 F I X P ) 1 ) ) \r ( 1 1
0051300 1 1 1 1 1 1 1 N I
0051320 L \r ) \r \r ( R P A Q \ I R I S
0051340 . F E E D B A C K B U F F E R
0051360 ( R E A D A R R A Y 9 ( Q U
0051400 O T E F I X P ) 1 ) ) \r ( 5
0051420 6 1 7 2 7 5 9 8 0 0 1 7 2
0051440 8 8 8 5 4 4 1 7 5 8 5 4 1
0051460 8 1 4 1 7 5 8 5 4 1 8 1 4
0051500 N I L \r ) \r ( D E C L A R E % :
0051520 D O N T E V A L @ L O A D D
0051540 O E V A L @ C O M P I L E D O
0051560 N T C O P Y C O M P I L E R V
0051600 A R S \r \r ( A D D T O V A R
0051620 006 002 N L A M A 006 001 ) \r \r ( A D
0051640 D T O V A R 006 002 N L A M L 006 001
0051660 ) \r \r ( A D D T O V A R 006 002
0051700 L A M A 006 001 T E T R A ) \r ) \r
0051720 ( D E C L A R E % : D O N T C
0051740 O P Y \r ( F I L E M A P (
0051760 N I L ( 1 2 9 1 1 3 2 4 8
0052000 ( I R I S . D E G R E E S 1 3
0052020 0 1 . 1 5 6 8 ) ( S N O W
0052040 1 5 7 0 . 2 6 2 2 ) ( S
0052060 P H E R E 2 6 2 4 . 4 5 3
0052100 7 ) ( T E T R A \r 4 5 3 9
0052120 . 7 1 3 4 ) ( T E T R A . C
0052140 O L O R 7 1 3 6 . 7 2 6 7
0052160 ) ( T E T R A . D R A W . F A
0052200 C E 7 2 6 9 . 1 0 4 6 6 )
0052220 ( T E T R A . O B J 1 0 4 6
0052240 8 . 1 2 1 0 7 ) ( \r T E T
0052260 R A . T I L T . A N D . R E C U
0052300 R S E 1 2 1 0 9 . 1 3 2 4
0052320 6 ) ) ( 1 3 5 7 0 2 1 1 2 3
0052340 ( 3 D O T 1 3 5 8 0 . 1
0052360 3 9 4 5 ) ( 3 D R A W T O 1
0052400 3 9 4 7 . 1 4 3 1 7 ) ( \r
0052420 3 M O V E T O 1 4 3 1 9 .
0052440 1 4 6 8 9 ) ( 3 N O R M A L I
0052460 Z E 1 4 6 9 1 . 1 5 2 2 1
0052500 ) ( 3 P L U S 1 5 2 2 3 .
0052520 1 5 6 8 6 ) ( 3 P O I N T
0052540 1 5 6 8 8 . 1 5 9 7 5 ) (
0052560 \r 3 U N I T C R O S S P R O D U
0052600 C T 1 5 9 7 7 . 1 6 6 4 0
0052620 ) ( 3 D I F F E R E N C E 1
0052640 6 6 4 2 . 1 7 2 3 8 ) ( 3
0052660 C R O S S P R O D U C T 1 7 2
0052700 4 0 . 1 8 0 1 1 ) ( 3 L E
0052720 N G T H \r 1 8 0 1 3 . 1 8
0052740 4 9 5 ) ( 3 L I N E 1 8 4 9
0052760 7 . 1 8 6 6 7 ) ( 3 T I M
0053000 E S 1 8 6 6 9 . 1 9 0 0 7
0053020 ) ( D R A W . F A C E ? 1 9
0053040 0 0 9 . 2 0 2 6 0 ) ( I R
0053060 I S . X L A T E \r 2 0 2 6 2
0053100 . 2 1 1 2 1 ) ) ) ) ) \r S T O
0053120 P \r
0053122