$ od -c -N 50000 [eris]<LispCore>SOURCES>XXGEOM.DCOM!29
0000000 ( F I L E C R E A T E D " 2 4
0000020 - F e b - 8 6 2 2 : 2 9 : 0 0
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > S O U R C E S > X X G E O M
0000120 . ; 2 9 ) \r " 2 0 - F e b - 8
0000140 6 2 3 : 0 8 : 1 7 " r e c o
0000160 m p i l e d c h a n g e s :
0000200 L I N E . L E S S P i n " X
0000220 e r o x L i s p 2 0 - F e b
0000240 - 8 6 . . . " d a t e d \r
0000260 " 2 0 - F e b - 8 6 2 3 : 4 4
0000300 : 4 6 " ) \r ( F I L E C R E A T
0000320 E D " 2 4 - F e b - 8 6 2 2
0000340 : 2 6 : 5 8 " { E R I S } < L
0000360 I S P C O R E > S O U R C E S >
0000400 X X G E O M . ; 2 9 5 5 5 8 3
0000420 c h a n g e s t o : ( F N
0000440 S L I N E . L E S S P \r ) (
0000460 M A C R O S G E T L I N E O R
0000500 I G ) p r e v i o u s d a t
0000520 e : " 2 4 - F e b - 8 6 1 9
0000540 : 5 6 : 4 7 " { E R I S } < L
0000560 I S P C O R E > S O U R C E S >
0000600 X X G E O M . ; 2 8 ) \r \ I R N
0000620 D D 1 \r ( L ( 1 D 0 N
0000640 ) ) \0 # \0 \0 \0 002 j d A 363 233 @ 331
0000660 b \0 277 j A 331 b 002 277 j @ 363 226 @ A 342
0000700 331 A 333 020 @ A 342 330 A 333 020 \0 N I L \r
0000720 N I L \r ( ) \r M A K E X Y P T
0000740 D 1 \r ( L ( 1 I Y 0 I X
0000760 ) ) \0 005 \0 \0 \0 002 @ A 032 020 \0 N I
0001000 L \r N I L \r ( ) \r I R N D L I S
0001020 T D 1 \r ( L ( 0 P A T H )
0001040 ) \0 A 006 \0 \0 001 021 0 002 021 0 005 @ 260
0001060 4 d 001 Z 001 270 J 002 271 H 3 250 H o \0
0001100 \0 \0 324 j 330 270 I 3 250 I o \0 \0 \0 324
0001120 j 330 271 H I 032 273 L 265 \a K h 032 ] 201 K
0001140 & 274 002 003 265 315 M 020 \0 N I L \r N I L
0001160 \r ( 4 6 Q . 5 3 1 Q . 5
0001200 ) \r N O R M L O O P D 1 \r ( P
0001220 6 A N T I S G N P 5 P
0001240 R E V S G N P 4 Y 2 P
0001260 3 Y 1 P 2 L A S T P
0001300 1 H E A D P 0 L O O P
0001320 I 0 L I S T ) \0 225 \a \0 \0 001
0001340 021 p 006 @ \t \0 \0 X d \t \0 \0 Z d H 031
0001360 H 001 002 [ H 002 001 002 \ H J 360 257 K L 360
0001400 233 H 002 270 L 273 H 002 001 002 274 260 356 L K 331
0001420 j 361 221 k 211 j L K 331 361 222 m 377 200 j ]
0001440 d j 360 227 H 002 271 H h 031 I 020 L [ H 002
0001460 002 001 002 \ K L 331 j 361 221 k 211 j K L 331
0001500 361 222 m 377 200 j d M 360 263 # H 002 270 L 273
0001520 H 002 002 001 002 274 K L 331 j 361 222 k 260 352 j
0001540 K L 331 361 223 m 377 260 340 j 260 335 H 002 Y H
0001560 h 031 I 020 \0 ( 1 3 Q L A S T 6
0001600 C O P Y ) \r N I L \r ( ) \r S L
0001620 I T L O O P D 1 \r ( P 7 C
0001640 U R R P 6 L A S T P 5
0001660 C U R R P 4 P R E V P
0001700 3 P R E V S G N P 2 C
0001720 U R R S G N P 1 C U R R L
0001740 I S T P 0 S E C T L I S T
0001760 I 0 K L S T ) \0 221 \b \0 \0
0002000 001 021 p 006 @ \t \0 \0 b \0 d 001 \t \0 \0 ^
0002020 @ N h 032 \n \0 \0 b \0 d 001 \ @ 002 b \0
0002040 d 001 ] d 002 L 002 331 j 361 221 k 213 j M 002
0002060 L 002 331 361 222 m 377 200 j [ L h 032 Y d h
0002100 032 X @ 260 F d 001 021 001 \a O 016 002 L 002 331
0002120 j 361 221 k 214 j O 016 002 L 002 331 361 222 m 377
0002140 200 j Z d j 360 222 277 K Z K 360 226 O 016 I
0002160 \n \0 \0 216 O 016 L \t \0 \0 h 032 032 Y H 032
0002200 270 J [ 277 O 016 \ 023 002 003 265 273 H \t \0 \0
0002220 020 \0 ( 2 1 6 Q R E V E R S E
0002240 1 7 0 Q C O P Y 1 6 1 Q A
0002260 T T A C H 2 5 Q \ N C O N C
0002300 2 1 5 Q C O P Y 6 C O P
0002320 Y ) \r N I L \r ( ) \r P R E P L O
0002340 O P D 1 \r ( P 4 I P 3
0002360 T L I S T P 2 L L I S T
0002400 P 1 I L I S T P 0 N
0002420 L I S T I 0 P a t h O r P
0002440 a t h L i s t ) \0 + 005 \0 \0 001 021
0002460 P 004 @ d 001 001 3 020 262 034 h 032 b \0 260 026
0002500 d 001 \ \t \0 \0 \t \0 \0 X \t \0 \0 [ I \n
0002520 \0 \0 271 002 003 265 353 I 020 \0 ( 4 2 Q \
0002540 N C O N C 2 3 5 Q S L I T L
0002560 O O P 3 1 Q N O R M L O O P
0002600 2 6 Q I R N D L I S T ) \r N
0002620 I L \r ( ) \r Y M A P L I S T D
0002640 1 \r ( P 1 1 Q I P 1 0 Q
0002660 D Y P 7 D X P 6 Y
0002700 0 P 5 X 0 P 4 N E X
0002720 T P T P 3 C U R R P T P
0002740 2 Y P 1 X P 0 Y
0002760 M A P I 1 P A T H 2 I
0003000 0 P A T H 1 ) \0 n \n \0 \0 002 021
0003020 220 \b A 001 002 Z @ 234 J @ 001 002 375 361 245 @
0003040 002 b \0 260 364 @ 260 N d 001 021 001 \t O 022 002
0003060 272 A 002 235 J A 002 001 002 375 361 245 A 002 b 002
0003100 260 362 A 002 262 . A 001 273 A 002 001 274 K 001 275
0003120 K 002 276 L 001 M 331 _ 016 277 L 002 N 331 _ 020
0003140 277 M N O 016 O 020 J \r 005 \0 \0 Y J 032 H
0003160 032 270 023 002 003 265 263 H \t \0 \0 020 \0 ( 1 5
0003200 3 Q R E V E R S E 1 3 4 Q
0003220 M I D D X ) \r N I L \r ( ) \r I M
0003240 A P L I S T D 1 \r ( P 2 2 Q
0003260 V 1 P 2 1 Q U 1 P 2
0003300 0 Q Y 1 P 1 7 Q X 1 P
0003320 1 6 Q D V P 1 5 Q D U
0003340 P 1 4 Q V 0 P 1 3 Q
0003360 U 0 P 1 2 Q D Y P 1 1
0003400 Q D X P 1 0 Q Y 0 P
0003420 7 X 0 P 6 N E X T 2 P
0003440 5 C U R R 2 P 4 N E X
0003460 T 1 P 3 C U R R 1 P 2
0003500 P T P 1 I M A P P 0
0003520 A D V A N C E I 1 P A T
0003540 H 2 I 0 P A T H 1 ) 001 023
0003560 023 \0 \0 002 021 360 016 021 @ 022 @ 001 [ A 001 ]
0003600 @ 002 001 \ A 002 001 ^ L 002 _ N 002 _ $
0003620 d O 361 263 - l 002 270 M 001 _ " 277 M 002
0003640 _ $ 277 K 001 _ 016 277 K 002 _ 020 277 L 001 _
0003660 036 O 016 331 _ 022 277 O O 020 331 _ 024 277 260
0003700 * k 270 K 001 _ 036 277 K 002 _ 277 M 001 _
0003720 026 277 M 002 _ 030 277 N 001 _ " O 026 331 _ 032
0003740 277 O $ O 030 331 _ 034 277 @ 002 242 261 \0 225 A
0003760 002 242 261 \0 217 H k 360 262 + O 036 _ 016 277 O
0004000 _ 020 277 @ 002 001 \ 001 _ 036 277 L 002 _
0004020 277 O 036 O 016 331 _ 022 277 O O 020 331 _ 024
0004040 277 260 ) O " _ 026 277 O $ _ 030 277 A 002 001
0004060 ^ 001 _ " 277 N 002 _ $ 277 O " O 026 331 _
0004100 032 277 O $ O 030 331 _ 034 277 O 016 O 020 O 022
0004120 O 024 O 026 O 030 O 032 O 034 \r \b \0 \0 Z 265
0004140 023 O $ O 361 257 A 002 b 002 277 l 002 270 261
0004160 377 z I 032 271 260 354 @ 002 b \0 277 k 270 261 377
0004200 k I \t \0 \0 020 \0 ( 4 2 0 Q R E V
0004220 E R S E 3 5 1 Q X Y S E C T
0004240 L S E G ) \r N I L \r ( ) \r U N I
0004260 Q L I S T D 1 \r ( P 2 N E
0004300 W L I S T P 1 V P 0
0004320 Y I 0 L I S T ) \0 ' 004 \0
0004340 \0 001 021 @ 003 @ 001 002 X @ 001 h 032 Z @ 216
0004360 d 001 [ 002 271 H I 360 245 I 270 K J 032 272 002
0004400 003 265 357 J \t \0 \0 020 \0 ( 4 4 Q R E
0004420 V E R S E ) \r N I L \r ( ) \r M E
0004440 R G L I S T D 1 \r ( P 4 Y
0004460 2 P 3 Y 1 P 2 C U R
0004500 R 2 P 1 C U R R 1 P 0
0004520 I M A P I 1 P A T H 2
0004540 I 0 P A T H 1 ) \0 n 005 \0 \0
0004560 002 021 P 004 @ 241 A 020 A 241 @ 020 @ 001 Y A
0004600 001 Z I 002 [ J 002 \ @ 242 A 262 N L K 361
0004620 263 3 J H 032 270 K L 360 262 030 I H 032 270 @
0004640 002 b \0 265 \b ` \0 \0 [ 260 356 001 Y 002 [ 260
0004660 350 A 002 b 002 265 \b ` \0 \0 274 260 315 001 Z 002
0004700 274 260 307 I H 032 270 @ 002 b \0 265 \b ` \0 \0
0004720 273 260 267 001 Y 002 273 260 261 H \t \0 \0 020 \0 (
0004740 1 5 3 Q R E V E R S E ) \r ( 1
0004760 3 6 Q M A X . I N T E G E R
0005000 1 1 0 Q M A X . I N T E G E R
0005020 6 6 Q M A X . I N T E G E R
0005040 ) \r ( ) \r M M L T L I S T D 1
0005060 \r ( L ( 6 M 2 3 5 M 2 2
0005100 4 M 2 1 3 M 1 3 2 M
0005120 1 2 1 M 1 1 0 K L I S T
0005140 ) ) \0 = \b \0 \0 \a 021 P 004 021 0 \a @
0005160 260 / d 001 \ 001 270 L 002 271 H A 326 I B 326
0005200 C 324 324 272 H D 326 I E 326 F 324 324 273 J K
0005220 032 275 N 265 \b M h 032 _ 016 201 M & 276 002 003
0005240 265 322 O 016 020 \0 N I L \r N I L \r ( )
0005260 \r I M L T L I S T D 1 \r ( L
0005300 ( 6 M 2 3 5 M 2 2 4 M
0005320 2 1 3 M 1 3 2 M 1 2 1
0005340 M 1 1 0 K L I S T ) ) \0
0005360 A \b \0 \0 \a 021 P 004 021 0 \a @ 260 3 d 001
0005400 \ 001 270 L 002 271 H A 326 I B 326 C 324 324 272
0005420 H D 326 I E 326 F 324 324 273 J j 330 K j 330
0005440 032 275 N 265 \b M h 032 _ 016 201 M & 276 002 003
0005460 265 316 O 016 020 \0 N I L \r N I L \r ( )
0005500 \r X Y P T . L E S S P D 1 \r (
0005520 L ( 1 P T 2 0 P T 1 ) )
0005540 \0 034 002 \0 \0 002 021 001 @ 002 X A 002 Y
0005560 H I 360 245 H I 361 h 360 020 @ 001 A 001 361 h
0005600 360 020 \0 N I L \r N I L \r ( ) \r P A
0005620 T H . L E S S P D 1 \r ( L (
0005640 1 P A T H 2 0 P A T H 1 )
0005660 ) \0 ` \b \0 \0 002 021 200 \a @ 241 i 020 A
0005700 241 h 020 @ 001 X A 001 Y H 002 Z I 002 [ J
0005720 K 360 245 J K 361 h 360 020 H 001 \ I 001 ] L
0005740 M 360 233 @ 002 A 002 b 002 277 b \0 023 260 313 @
0005760 002 262 A 002 262 034 @ 002 001 X A 002 001 Y H
0006000 001 ^ I 001 _ 016 L N 330 M O 016 330 361 h 360
0006020 020 L M 361 h 360 020 \0 N I L \r N I L \r
0006040 ( ) \r C O N V E X P D 1 \r ( P
0006060 2 5 Q T A N G D Y P 2 4
0006100 Q T A N G D X P 2 3 Q T
0006120 A N G Y 0 P 2 2 Q T A N G
0006140 X 0 P 2 1 Q C U R R D Y
0006160 P 2 0 Q C U R R D X P 1
0006200 7 Q C U R R Y 0 P 1 6 Q
0006220 C U R R X 0 P 1 5 Q O R I
0006240 G D Y P 1 4 Q O R I G D X
0006260 P 1 3 Q O R I G Y 0 P
0006300 1 2 Q O R I G X 0 P 1 1 Q
0006320 L A S T Y P 1 0 Q L A S
0006340 T X P 7 Y P 6 X P
0006360 5 P T P 4 O S G N P
0006400 3 C S G N P 2 T S G N
0006420 P 1 N E G S G N P 0
0006440 R E S U L T I 0 P A T H )
0006460 001 C 026 \0 \0 001 021 360 016 021 p 025 @ \t \0
0006500 \0 l 003 361 241 i 020 @ 001 ] d 001 _ 024 M 002
0006520 _ 026 @ 002 001 ] d 001 _ $ M 002 _ & O $
0006540 O 024 331 _ 030 O & O 026 331 _ 032 @ 002 002 001
0006560 ] d 001 _ 020 M 002 _ 022 O 020 O $ 331 _ (
0006600 O 022 O & 331 _ * O 024 _ 034 O 026 _ 036 O
0006620 020 O 024 331 _ O 022 O 026 331 _ " j O 024
0006640 O 026 O 030 O 032 O 020 O 022 \r 006 \0 \0 331 Y
0006660 d j 361 221 k 207 j I 361 222 m 377 200 j Y @
0006700 002 002 002 b \0 i X @ 265 004 H 020 001 ] 001 276
0006720 M 002 _ 016 277 O $ O & O ( O * N O 016
0006740 \r 006 \0 \0 272 O 034 O 036 O O " N O 016
0006760 \r 006 \0 \0 273 O 024 O 026 O 030 O 032 N O 016
0007000 \r 006 \0 \0 274 J j 361 221 k 207 j J 361 222 m
0007020 377 200 j 272 K j 361 221 k 207 j K 361 222 m 377
0007040 200 j 273 L j 361 221 k 207 j L 361 222 m 377 200
0007060 j 274 J I 360 247 K I 360 243 L I 360 221 h 020
0007100 @ 002 b \0 277 O 020 _ $ 277 O 022 _ & 277 N
0007120 O 020 331 _ ( 277 O 016 O 022 331 _ * 277 N O
0007140 034 331 _ 277 O 016 O 036 331 _ " 277 N _ 020
0007160 277 O 016 _ 022 277 261 377 Q \0 ( 3 1 4 Q
0007200 X P R O D 2 7 4 Q X P R O D
0007220 2 5 4 Q X P R O D 1 6 6 Q
0007240 X P R O D 1 1 Q L E N G T
0007260 H ) \r N I L \r ( ) \r M A K E L I
0007300 N E D 1 \r ( P 0 D I R I
0007320 3 D Y I 2 D X I 1
0007340 Y 0 I 0 X 0 ) \0 6 001 \0
0007360 \0 004 021 020 \0 j C 361 262 035 @ B 330 b \0 277
0007400 A C 330 b 002 277 j B 331 b 004 277 j C 331 b
0007420 006 277 m 377 200 k 270 @ A \n \0 \0 B C \n \0
0007440 \0 H h 032 032 032 020 \0 ( 5 6 Q M A K
0007460 E X Y P T 5 1 Q M A K E X Y
0007500 P T ) \r N I L \r ( ) \r M S E C T
0007520 D 1 \r ( L ( 7 D X D V 6
0007540 D U 5 V 0 4 U 0 3
0007560 D U D Y 2 D X 1 Y 0 0
0007600 X 0 ) ) \0 031 \0 \0 \0 \b C @ 332 j
0007620 G 016 D 332 331 B F E A 331 332 332 330 330 C G
0007640 016 331 333 020 \0 N I L \r N I L \r ( ) \r
0007660 X S E C T D 1 \r ( P 3 D X
0007700 D V P 2 D U D Y P 1
0007720 Y P 0 X I 7 D V I
0007740 6 D U I 5 V 0 I 4
0007760 U 0 I 3 D Y I 2 D
0010000 X I 1 Y 0 I 0 X 0 )
0010020 \0 G 004 \0 \0 \b 021 @ 003 F C 332 Z B G
0010040 016 332 [ j B 361 241 B 202 j B 331 j C 361 241
0010060 C 202 j C 331 375 361 254 @ A B J D E F K
0010100 \r \b \0 \0 020 A @ C K E D G 016 J \r \b
0010120 \0 \0 271 A @ C B I \r 005 \0 \0 020 \0 ( 1
0010140 0 4 Q L I N E Y 7 2 Q M S
0010160 E C T 5 4 Q M S E C T ) \r N
0010200 I L \r ( ) \r Y S E C T D 1 \r (
0010220 P 3 D X D V P 2 D U D
0010240 Y P 1 Y P 0 X I
0010260 7 D V I 6 D U I 5
0010300 V 0 I 4 U 0 I 3 D Y
0010320 I 2 D X I 1 Y 0 I
0010340 0 X 0 ) \0 H 004 \0 \0 \b 021 @ 003
0010360 F C 332 Z B G 016 332 [ j B 361 241 B 202 j
0010400 B 331 j C 361 241 C 202 j C 331 375 361 263 031 @
0010420 A B J D E F K \r \b \0 \0 270 @ A B C
0010440 H \r 005 \0 \0 020 A @ C K E D G 016 J \r
0010460 \b \0 \0 020 \0 ( 1 0 5 Q M S E C T
0010500 6 7 Q L I N E Y 5 5 Q M
0010520 S E C T ) \r N I L \r ( ) \r X Y S
0010540 E C T D 1 \r ( P 3 D X D V
0010560 P 2 D U D Y P 1 Y
0010600 P 0 X I 7 D V I 6
0010620 D U I 5 V 0 I 4 U
0010640 0 I 3 D Y I 2 D X
0010660 I 1 Y 0 I 0 X 0 ) \0
0010700 _ 004 \0 \0 \b 021 @ 003 F C 332 Z B G 016 332
0010720 [ J K 360 263 M j B 361 241 B 202 j B 331 j
0010740 C 361 241 C 202 j C 331 375 361 263 033 @ A B J
0010760 D E F K \r \b \0 \0 270 @ A B C H \r 005
0011000 \0 \0 271 260 032 A @ C K E D G 016 J \r \b
0011020 \0 \0 271 A @ C B I \r 005 \0 \0 270 H I 032
0011040 020 h 020 \0 ( 1 2 6 Q L I N E Y
0011060 1 1 4 Q M S E C T 7 4 Q L
0011100 I N E Y 6 2 Q M S E C T ) \r
0011120 N I L \r ( ) \r K N O T L I N E
0011140 D 1 \r ( P 7 I P 6 P R
0011160 E V Y P 5 P R E V X P
0011200 4 C U R R Y P 3 C U R R
0011220 X P 2 A L I N E P 1
0011240 A L I S T P 0 I I 0
0011260 K N O T S ) \0 > \b \0 \0 001 021 p 006
0011300 @ 001 X d 001 ] H 002 ^ @ 002 b \0 d 260 $
0011320 d 001 021 001 \a O 016 001 273 O 016 002 274 M N K
0011340 M 325 L N 325 \f \0 \0 Z I 032 271 K 275 L ^
0011360 023 002 003 265 335 I \t \0 \0 020 \0 ( 7 3 Q
0011400 R E V E R S E 5 2 Q M A K E
0011420 L I N E ) \r N I L \r ( ) \r K N O
0011440 T L O O P D 1 \r ( P 7 I
0011460 P 6 P R E V Y P 5 P R
0011500 E V X P 4 C U R R Y P
0011520 3 C U R R X P 2 A L I N
0011540 E P 1 A L I S T P 0
0011560 I I 0 K N O T S ) \0 = \b
0011600 \0 \0 001 021 p 006 @ \t \0 \0 001 X d 001 ] H
0011620 002 ^ @ 260 $ d 001 021 001 \a O 016 001 273 O 016
0011640 002 274 M N K M 331 L N 331 \f \0 \0 Z I 032
0011660 271 K 275 L ^ 023 002 003 265 335 I \t \0 \0 020 \0
0011700 ( 7 2 Q R E V E R S E 5 1 Q
0011720 M A K E L I N E 6 L A S T
0011740 ) \r N I L \r ( ) \r L I N E . L E
0011760 S S P D 1 \r ( L ( 1 A R G
0012000 2 0 A R G 1 ) ) \0 & 004 \0 \0
0012020 002 021 @ 003 @ 001 002 X A 001 002 Y H I 360 245
0012040 H I 361 h 360 020 @ 002 001 002 Z A 002 001 002 [
0012060 J K 361 h 360 020 \0 N I L \r N I L \r (
0012100 ) \r L I N E Y D 1 \r ( I 4
0012120 X I 3 D Y I 2 D X
0012140 I 1 Y 0 I 0 X 0 ) \0
0012160 037 \0 \0 \0 005 B j 360 243 C j 360 226 A C l
0012200 002 333 330 020 D @ 331 b \b A D C 332 B \n \0
0012220 \0 330 020 \0 ( 3 3 Q \ I R N D ) \r
0012240 N I L \r ( ) \r M I D D X D 1 \r
0012260 ( I 4 Y I 3 D Y I
0012300 2 D X I 1 Y 0 I 0
0012320 X 0 ) \0 ? \0 \0 \0 005 B j 360 243 C j
0012340 360 226 @ B l 002 333 330 020 D A 331 b \b d j
0012360 361 221 k 207 j D 361 222 m 377 200 j C j 361 221
0012400 k 207 j C 361 222 m 377 200 j 360 241 @ 020 @ D
0012420 B 332 C \n \0 \0 330 020 \0 ( 7 3 Q \ I
0012440 R N D ) \r N I L \r ( ) \r I N I T
0012460 X D 1 \r ( L ( 4 Y 3 D
0012500 Y 2 D X 1 Y 0 0 X 0
0012520 ) ) \0 B \0 \0 \0 005 B j 360 243 C j 360
0012540 221 @ 020 D A 331 b \b d j 361 221 k 207 j D
0012560 361 222 m 377 200 j C j 361 221 k 207 j C 361 222
0012600 m 377 200 j 360 241 @ 020 @ D B l 002 332 332 B
0012620 331 C l 002 332 333 k 330 330 020 \0 N I L \r N
0012640 I L \r ( ) \r T E R M X D 1 \r (
0012660 L ( 4 Y 3 D Y 2 D X
0012700 1 Y 0 0 X 0 ) ) \0 B \0
0012720 \0 \0 005 B j 360 243 C j 360 223 @ B 330 020 D
0012740 A 331 b \b d j 361 221 k 207 j D 361 222 m 377
0012760 200 j C j 361 221 k 207 j C 361 222 m 377 200 j
0013000 360 241 @ 020 @ B D B l 002 332 332 330 C l 002
0013020 332 333 330 020 \0 N I L \r N I L \r ( ) \r
0013040 S C A N X D 1 \r ( L ( 4 Y
0013060 3 D Y 2 D X 1 Y 0
0013100 0 X 0 ) ) \0 ] 004 \0 \0 005 021 @ 003
0013120 B j 360 243 C j 360 225 @ d B 330 032 020 D A
0013140 331 b \b d j 361 221 k 207 j D 361 222 m 377 200
0013160 j C j 361 221 k 207 j C 361 222 m 377 200 j 360
0013200 245 @ d B 330 032 020 D B l 002 332 332 X C l
0013220 002 332 Y @ H B 331 I 333 k 330 330 Z @ H B
0013240 330 I 333 330 [ J K 032 020 \0 N I L \r N I
0013260 L \r ( ) \r X P R O D D 1 \r ( L
0013300 ( 5 Y 4 X 3 D Y 2
0013320 D X 1 Y 0 0 X 0 ) )
0013340 \0 023 \0 \0 \0 006 D @ 331 b \b E A 331 b \n
0013360 B E 332 C D 332 331 020 \0 N I L \r N I L
0013400 \r ( ) \r X Y S E C T L S E G D
0013420 1 \r ( P 1 1 Q U M I N P
0013440 1 0 Q U M A X P 7 X M I
0013460 N P 6 X M A X P 5 V
0013500 T P 4 U T P 3 Y T
0013520 P 2 X T P 1 Y P 0
0013540 P T I 7 D V I 6 D
0013560 U I 5 V 0 I 4 U 0
0013600 I 3 D Y I 2 D X I
0013620 1 Y 0 I 0 X 0 ) \0 o \n
0013640 \0 \0 \b 021 240 \t @ B 330 Z A C 330 [ D F
0013660 330 \ E G 016 330 ] j B 363 225 J _ 016 277 @
0013700 204 @ _ 016 277 J 276 j F 363 225 L _ 022 277 D
0013720 204 D _ 022 277 L _ 020 277 N O 022 361 264 \t O
0013740 020 O 016 361 241 h 020 @ A B C D E F G 016
0013760 \r \b \0 \0 X d d 264 357 002 Y d A 361 264 350
0014000 K I 361 264 343 d E 361 264 336 M I 361 264 331 H
0014020 020 \0 ( 1 2 0 Q X Y S E C T ) \r
0014040 N I L \r ( ) \r M A K E B R E S
0014060 D 1 \r ( P 3 P X Y P 2
0014100 P Y P 1 P X P 0 S E
0014120 L F I 3 D Y I 2 D X
0014140 I 1 Y 0 I 0 X 0 )
0014160 \0 376 005 \0 \0 004 021 P 004 ` \0 \0 037 X d 006
0014200 \0 \0 @ 024 002 277 H 006 \0 \0 A 024 004 277 H 006
0014220 \0 \0 B j 361 221 k 207 j B 361 222 m 377 200 j
0014240 024 \b 277 H 006 \0 \0 C j 361 221 k 207 j C 361
0014260 222 m 377 200 j 024 \n 277 j B 361 241 B 202 j B
0014300 331 271 j C 361 241 C 202 j C 331 272 I J 331 273
0014320 J d j 360 262 / 277 H 006 \0 \0 h 024 \0 277 H
0014340 006 \0 \0 @ B 330 024 002 277 H 006 \0 \0 k 024 \f
0014360 277 H 006 \0 \0 k 024 016 277 H 006 \0 \0 m 377 024
0014400 006 260 p I 361 263 < H 006 \0 \0 g \0 \0 024 \0
0014420 277 H 006 \0 \0 J l 002 332 274 k L 361 241 L 200
0014440 k 024 \f 277 H 006 \0 \0 H 006 \0 \0 311 \f I 331
0014460 024 006 277 H 006 \0 \0 J I 331 l 002 332 024 016 260
0014500 2 H 006 \0 \0 g \0 \0 024 \0 277 H 006 \0 \0 I
0014520 l 002 332 024 016 277 H 006 \0 \0 H 006 \0 \0 311 016
0014540 J 331 024 006 277 H 006 \0 \0 I J 331 l 002 332 024
0014560 \f H 020 \0 N I L \r ( 3 6 2 Q B R
0014600 E S 3 4 7 Q B R E S 3 4 3
0014620 Q B R E S 3 3 0 Q B R E S
0014640 3 2 1 Q Y 3 1 6 Q B R E
0014660 S 3 0 0 Q B R E S 2 6 5 Q
0014700 B R E S 2 6 1 Q B R E S
0014720 2 3 6 Q B R E S 2 2 7 Q X
0014740 2 2 4 Q B R E S 2 0 6 Q
0014760 B R E S 1 7 6 Q B R E S 1
0015000 6 6 Q B R E S 1 5 4 Q B R
0015020 E S 1 4 4 Q B R E S 6 0 Q
0015040 B R E S 3 3 Q B R E S 2
0015060 3 Q B R E S 1 3 Q B R E S
0015100 5 004 003 B R E S T Y P E # ) \r
0015120 ( ) \r T R A P L O O P D 1 \r (
0015140 P 2 6 Q I P 2 2 Q K
0015160 P 2 0 Q J P 1 6 Q I
0015200 P 1 2 Q L O O P P 1 1 Q
0015220 P T . L E S S P P 1 0 Q
0015240 T E M P P 7 X P A T H P
0015260 6 K P A T H P 5 J P A
0015300 T H P 4 I P A T H P 3
0015320 L E N P 2 C L I S T P
0015340 1 P L I S T P 0 K N O
0015360 T S I 0 P A T H F 3 2
0015400 Q T R A P . D E B U G ) 001 252
0015420 032 001 \0 001 021 240 \t g \0 \0 _ 022 @ \t \0 \0
0015440 Y @ \t \0 \0 b \0 d d 001 001 3 020 262 024 277
0015460 X 260 023 d 001 021 001 \n H O 024 \n \0 \0 X 023
0015500 002 003 265 361 021 0 \r I 260 2 d 001 021 001 016 O
0015520 034 001 002 O 034 \t \0 \0 001 002 361 225 O 034 \t \0
0015540 \0 201 O 034 022 _ 026 277 O 030 265 \t O 026 h 032
0015560 _ 032 202 O 026 & _ 030 277 002 003 265 317 O 032 022
0015600 Y W 4 227 o \0 \0 \0 \t \0 \0 277 I \t \0 \0
0015620 [ I \t \0 \0 Z K k 331 k 021 002 016 O 034 O
0015640 032 363 222 261 \0 222 I O 034 \n \0 \0 001 274 K O
0015660 034 k 330 021 002 020 O O 036 363 263 p I O
0015700 \n \0 \0 001 275 L M \n \0 \0 _ 016 277 K k 021
0015720 2 025 O $ O " 363 263 H J O $ \n \0 \0 001
0015740 276 O $ O 034 360 245 O $ O 360 225 O 016 \t
0015760 \0 \0 207 O 016 N \n \0 \0 _ 020 N \n \0 \0 _
0016000 * 277 O ( 265 023 O * h 032 _ ( _ & 277 O
0016020 $ k 324 _ $ 260 277 O * & _ ( 277 260 362 O
0016040 & 022 272 O k 324 _ 260 217 023 O 034 k 324
0016060 _ 034 261 377 m 023 W 4 227 o \0 \0 \0 \t \0 \0
0016100 277 H O 022 \n \0 \0 021 0 \r I 260 # d 001 021
0016120 001 016 H O 034 \n \0 \0 022 _ 026 277 O 030 265 \t
0016140 O 026 h 032 _ 032 202 O 026 & _ 030 277 002 003 265
0016160 336 O 032 022 _ 020 K k 021 2 031 O , O * 363
0016200 263 4 O 020 O , \n \0 \0 001 J O , \n \0 \0
0016220 001 \n \0 \0 _ 2 277 O 0 265 023 O 2 h 032 _
0016240 0 _ . 277 O , k 324 _ , 260 323 O 2 & _
0016260 0 277 260 362 O . 022 Z d \t \0 \0 020 \0 ( 6
0016300 4 7 Q T R A P M A K E 5 7 7
0016320 Q M E R G L I S T 5 7 3 Q
0016340 N T H 5 6 4 Q N T H 5 0 3
0016360 Q Y M A P L I S T 4 6 2 Q
0016400 S O R T 4 5 3 Q D V 3 5 2
0016420 Q M E R G L I S T 3 4 4 Q
0016440 Y M A P L I S T 3 3 5 Q C O
0016460 P Y 3 1 2 Q N T H 2 6 5 Q
0016500 I M A P L I S T 2 5 6 Q N
0016520 T H 2 2 7 Q N T H 2 0 0 Q
0016540 C O P Y A L L 1 7 3 Q L E
0016560 N G T H 1 6 6 Q D V 1 1 4
0016600 Q R E V E R S E 1 0 3 Q L
0016620 A S T 5 1 Q \ N C O N C 2
0016640 2 0 Q C O P Y A L L 1 3 Q
0016660 P R E P L O O P ) \r ( 5 X Y P
0016700 T . L E S S P ) \r ( 4 5 0 Q
0016720 ( C L I S T ) 1 6 3 Q ( P L
0016740 I S T ) ) \r T R A P M A K E D
0016760 1 \r ( P 1 3 Q A L I S T P
0017000 1 2 Q C U R R Y P 1 1 Q
0017020 T R A P P 1 0 Q P T 4
0017040 P 7 P T 3 P 6 P T 2
0017060 P 5 P T 1 P 4 L I S T
0017100 2 P 3 L I S T 1 P 2
0017120 P T R P 1 U N F I N I S H
0017140 E D P 0 T R A P L I S T
0017160 I 0 E D G E L I S T ) \0 366
0017200 \f \0 \0 001 021 300 \v i Y I 242 261 \0 354 @ g
0017220 \0 \0 \n \0 \0 277 @ 001 001 002 _ 024 277 @ 272 h
0017240 _ 026 277 O 024 J 001 001 002 360 242 261 \0 260 J 001
0017260 273 J 002 001 274 K 001 275 K 002 001 276 L 001 _ 020
0017300 277 L 002 001 _ 016 277 M 002 N 002 360 262 035 K 002
0017320 262 031 N 275 K 002 [ 002 001 276 260 355 O 016 _ 020
0017340 277 L 002 \ 002 001 _ 016 277 O 020 002 O 016 002 360
0017360 223 L 002 263 351 M N O 016 O 020 h 032 032 032 032
0017400 _ 022 277 N 002 K \t \0 \0 001 002 375 361 227 K 002
0017420 O 026 032 _ 026 277 O 016 002 L \t \0 \0 001 002 375
0017440 361 227 L 002 O 026 032 _ 026 277 M 002 O 020 002 360
0017460 227 N 002 O 016 002 360 263 030 o \0 \0 \0 i \n \0
0017500 \0 277 i \t \0 \0 277 o \0 \0 \0 \t \0 \0 277 O
0017520 022 H 032 270 J 002 002 272 261 377 K O 026 J g \0
0017540 \0 \v \0 \0 b \0 277 l 002 @ \t \0 \0 361 242 261
0017560 377 032 h Y 261 377 026 H 020 \0 ( 3 5 0 Q
0017600 L E N G T H 3 3 7 Q M E R G
0017620 E 3 1 1 Q D V 3 0 1 Q T
0017640 E R P R I 2 7 4 Q P R I N 1
0017660 2 3 0 Q L A S T 2 0 4 Q
0017700 L A S T 2 0 Q S O R T ) \r (
0017720 3 3 4 Q P A T H . L E S S P
0017740 1 5 Q P A T H . L E S S P ) \r
0017760 ( 3 0 6 Q ( T R A P ) 2 7
0020000 0 Q " N O N - T R A P E Z O I
0020020 D F O U N D ! " ) \r ( P R E T
0020040 T Y C O M P R I N T X X G E O
0020060 M C O M S ) \r ( R P A Q Q X X
0020100 G E O M C O M S ( ( * * I
0020120 n t e g e r G e o m e t r y
0020140 L i b r a r y * * ) ( *
0020160 * S c a l a r m e t h o d s
0020200 * * ) ( D E C L A R E :
0020220 E V A L @ C O M P I L E \r D O
0020240 N T C O P Y ( M A C R O S \
0020260 S G N ) ) ( F N S \ I R N D
0020300 ) ( * * X Y p t o b j e
0020320 c t a n d m e t h o d s *
0020340 * ) ( R E C O R D S X Y P
0020360 T ) ( D E C L A R E : \r E V
0020400 A L @ C O M P I L E D O N T C
0020420 O P Y ( M A C R O S X Y P T
0020440 . X X Y P T . Y ) ) ( D E C
0020460 L A R E : E V A L @ C O M P I
0020500 L E D O N T C O P Y ( M A C
0020520 R O S H E A D P T N E X T P
0020540 T \r H E A D P T Y N E X T P
0020560 T Y ) ) ( F N S M A K E X Y
0020600 P T I R N D L I S T N O R M
0020620 L O O P S L I T L O O P P R
0020640 E P L O O P Y M A P L I S T
0020660 I M A P L I S T U N I Q L I S
0020700 T \r M E R G L I S T M M L T
0020720 L I S T I M L T L I S T X Y
0020740 P T . L E S S P P A T H . L E
0020760 S S P C O N V E X P ) ( *
0021000 * L i n e o b j e c t a n
0021020 d m e t h o d s * * ) (
0021040 R E C O R D S \r L I N E ) (
0021060 D E C L A R E : E V A L @ C O
0021100 M P I L E D O N T C O P Y (
0021120 M A C R O S G E T L I N E D I
0021140 F F G E T L I N E O R I G \
0021160 G E T L I N E D I F F \ G E T
0021200 L I N E O R I G Y \r \ G E T L
0021220 I N E D I F F Y ) ) ( F N S
0021240 M A K E L I N E M S E C T X
0021260 S E C T Y S E C T X Y S E C
0021300 T K N O T L I N E K N O T L
0021320 O O P L I N E . L E S S P )
0021340 ( F N S L I N E Y M I D D X
0021360 \r I N I T X T E R M X S C
0021400 A N X X P R O D ) ( * *
0021420 l i n e s e g m e n t m e t
0021440 h o d s * * ) ( F N S X
0021460 Y S E C T L S E G ) ( * *
0021500 B r e s e n h a m l i n e o
0021520 b j e c t \r a n d m e t h o
0021540 d s * * ) ( R E C O R D S
0021560 B R E S ) ( F N S M A K E
0021600 B R E S ) ( D E C L A R E :
0021620 E V A L @ C O M P I L E D O N
0021640 T C O P Y ( M A C R O S B R
0021660 E S S T E P ) ) ( * * \r D
0021700 e b u g g i n g c o n t r o l
0021720 p a n e l * * ) ( D E C
0021740 L A R E : E V A L @ C O M P I
0021760 L E D O N T C O P Y ( V A R
0022000 S \ G E O M . P A N E L ) )
0022020 ( * * T r a p e z o i d a l
0022040 \r d e c o m p o s i t i o n
0022060 * * ) ( F N S T R A P L O
0022100 O P T R A P M A K E ) ( V A
0022120 R S T R A P . D E B U G ) (
0022140 D E C L A R E : E V A L @ C O
0022160 M P I L E D O N T C O P Y (
0022200 V A R S \r \ T R A P . P A N E
0022220 L ) ) ) ) \r ( R E C O R D X Y
0022240 P T ( X . Y ) ) \r ( R E C
0022260 O R D L I N E ( O R I G D
0022300 I F F W I N D ) ) \r ( D A T A
0022320 T Y P E B R E S ( M A J O R
0022340 X Y P I X I Y I P X
0022360 I P Y ) ) \r ( / D E C L A R E
0022400 D A T A T Y P E ( Q U O T E
0022420 B R E S ) ( Q U O T E ( P O
0022440 I N T E R P O I N T E R P O
*
0022520 I N T E R P O I N T E R \r ) )
0022540 ( Q U O T E ( ( B R E S 0
0022560 P O I N T E R ) ( B R E S
0022600 2 P O I N T E R ) ( B R E S
0022620 4 P O I N T E R ) ( B R E
0022640 S 6 P O I N T E R ) ( B R
0022660 E S 8 P O I N T E R ) ( B
0022700 R E S \r 1 0 P O I N T E R )
0022720 ( B R E S 1 2 P O I N T E
0022740 R ) ( B R E S 1 4 P O I N
0022760 T E R ) ) ) ( Q U O T E 1 6
0023000 ) ) \r ( R P A Q Q T R A P . D
0023020 E B U G N I L ) \r ( P U T P R
0023040 O P S X X G E O M C O P Y R
0023060 I G H T ( " X e r o x C o r
0023100 p o r a t i o n " 1 9 8 5 1
0023120 9 8 6 ) ) \r N I L \r
0023132