$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>FILLREGION!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 9 - M a r - 8 7 1 8 : 0 2 : 4
0000140 0 " 006 004 { E R I N Y E S } < A
0000160 I S G U E S T > L I S P U S E R
0000200 S > F I L L R E G I O N . ; 5 006
0000220 001 2 0 2 2 1 \r \r
0000240 c h a n g e s t o % : (
0000260 F N S F I L L . K E R N E L
0000300 F I L L . R E G I O N ) \r
0000320
0000340 ( V A R S F I L L R E G I O
0000360 N C O M S ) \r
0000400 ( F U N C
0000420 T I O N S p s e t f ) \r
0000440
0000460 ( M A C R O S P O P . T A S
0000500 K ) \r \r p r e v i o
0000520 u s d a t e % : " 1 5 - M a
0000540 r - 8 5 0 3 : 0 7 : 5 7 " {
0000560 E R I N Y E S } < A I S G U E S
0000600 T > L I S P U S E R S > F I L L
0000620 R E G I O N . ; 1 ) \r \r \r ( *
0000640 " \r C o p y r i g h t ( c )
0000660 1 9 8 5 , 1 9 8 7 b y X e
0000700 r o x C o r p o r a t i o n .
0000720 A l l r i g h t s r e s
0000740 e r v e d . \r " ) \r \r ( P R E T
0000760 T Y C O M P R I N T F I L L R
0001000 E G I O N C O M S ) \r \r ( R P A
0001020 Q Q 006 002 F I L L R E G I O N C
0001040 O M S 006 001 \r [ (
0001060 D E C L A R E % : E V A L @ C
0001100 O M P I L E D O N T C O P Y
0001120 ( F I L E S P S E T F ) \r
0001140 ( M A
0001160 C R O S A D D . T A S K C I
0001200 R C L E . A B O U T D E C . X
0001220 D E C . Y F I N I S H . O R
0001240 I E N T A T I O N I N C . X
0001260 I N C . Y \r
0001300 N E X
0001320 T . P O I N T . O N . C U R V E
0001340 P O P . T A S K R I G H T .
0001360 B I T S E A R C H S E A R C
0001400 H . A N D . F I L L S E T . B
0001420 I T T E S T . B I T \r
0001440
0001460 W A N T . T O . E X T E N
0001500 D ) \r
0001520 ( R E C O R D S T A S K )
0001540 ) \r ( F N S *
0001560 \ F I L L R E G I O N . F N S
0001600 ) \r ( F U N C T
0001620 I O N S p s e t f ) \r
0001640 ( B L O C K S * ( L
0001660 I S T ( A P P E N D ' ( F I
0001700 L L R E G I O N ) \ F I L L R
0001720 E G I O N . F N S ' ( ( E N T
0001740 R I E S A U T O . F I L L F
0001760 I L L . R E G I O N ) \r
0002000
*
0002060 ( G L O
0002100 B A L V A R S B I T M A S K A
0002120 R R A Y ) \r
0002140
*
0002220 ( L O C A L V A R S
0002240 . T ] ) \r ( D E C L A R E %
0002260 : E V A L @ C O M P I L E D
0002300 O N T C O P Y \r ( F I L E S L
0002320 O A D P S E T F ) \r \r ( D E C
0002340 L A R E % : E V A L @ C O M P
0002360 I L E \r [ P U T P R O P S A
0002400 D D . T A S K M A C R O ( (
0002420 S T A R T W S T A R T M ) \r
0002440
0002460 ( i f F R E
0002500 E L I S T t h e n ( c r e a
0002520 t e T A S K W _ S T A R
0002540 T W M _ S T A R T M s m
0002560 a s h i n g \r
0002600
*
0002640 ( P R O G 1
0002660 ( C A R F R E E L I S T ) \r
0002700
*
0002760 ( p s e t f
0003000 F R E E L I S T ( C D R F
0003020 R E E L I S T ) \r
0003040
*
0003120 ( C D R F
0003140 R E E L I S T ) \r
0003160
*
0003240 A G E N D A
0003260 A G E N D A F R E E L I S T
0003300 ) ) ) \r
0003320
0003340 e l s e \r
0003360
0003400 ( p u s h A G E N D
0003420 A ( c r e a t e T A S K W
0003440 _ S T A R T W M _ S T
0003460 A R T M ] \r [ P U T P R O P S
0003500 C I R C L E . A B O U T M A C
0003520 R O ( ( S T A R T . W S T A
0003540 R T . M ) \r
0003560
0003600 ( f i r s t ( S E T Q
0003620 C I R C L E . W O R D S T A
0003640 R T . W ) \r
0003660
0003700 ( S E T Q
0003720 C I R C L E . M A S K S T A
0003740 R T . M ) \r
0003760
0004000 ( N E X T
0004020 . P O I N T . O N . C U R V E
0004040 C I R C L E . W O R D C I R C
0004060 L E . M A S K 6 C I R C L E
0004100 . T H I S . D I R ) \r
0004120
*
0004160 ( S E T Q C I R C L E . E X T
0004200 E N D N I L ) \r
0004220
0004240 e a
0004260 c h t i m e \r
0004300
0004320 ( S E T
0004340 Q C I R C L E . P R E V . W
0004360 C I R C L E . W O R D ) \r
0004400
*
0004440 ( S E T Q C I R C L E . P
0004460 R E V . M C I R C L E . M A S
0004500 K ) \r
0004520
0004540 ( N E X T . P O
0004560 I N T . O N . C U R V E C I R
0004600 C L E . W O R D C I R C L E .
0004620 M A S K C I R C L E . T H I S
0004640 . D I R \r
0004660
*
0004720 C I R C L E . N E X T . D I
0004740 R ) \r
0004760
0005000 ( i f ( W A N
0005020 T . T O . E X T E N D C I R C
0005040 L E . T H I S . D I R C I R C
0005060 L E . N E X T . D I R ) \r
0005100
*
0005140 t h e n \r
0005160
*
0005220 ( i f ( N O T C I R
0005240 C L E . E X T E N D ) \r
0005260
*
0005320 t h e n \r
0005340
*
0005400 ( S E T Q
0005420 C I R C L E . E X T E N D T
0005440 ) \r
0005460
0005500 (
0005520 A D D . T A S K C I R C L E .
0005540 P R E V . W C I R C L E . P R
0005560 E V . M ) ) \r
0005600
*
0005640 e l s e \r
0005660
0005700 ( S
0005720 E T Q C I R C L E . E X T E N
0005740 D N I L ) ) \r
0005760
0006000 ( S E
0006020 T . B I T D E S T . B A S E
0006040 C I R C L E . P R E V . W C I
0006060 R C L E . P R E V . M ) \r
0006100
*
0006140 u n t i l \r
0006160
0006200 ( A N
0006220 D ( E Q C I R C L E . P R E
0006240 V . W S T A R T . W ) \r
0006260
*
0006320 ( E Q C I R C L
0006340 E . P R E V . M S T A R T . M
0006360 ) \r
0006400
0006420 ( F I N
0006440 I S H . O R I E N T A T I O N
0006460 C I R C L E . T H I S . D I R
0006500 C I R C L E . N E X T . D I R )
0006520 ) \r
0006540
0006560 d o \r
0006600
0006620 (
0006640 S E T Q C I R C L E . T H I S
0006660 . D I R C I R C L E . N E X T
0006700 . D I R ] \r [ P U T P R O P S
0006720 D E C . X M A C R O ( ( W O
0006740 R D M A S K ) \r
0006760
0007000 ( S E T Q M A S K ( i f (
0007020 E Q M A S K ( C O N S T A N
0007040 T ( M A S K . 1 ' S 1 5 1
0007060 ) ) ) \r
0007100
0007120 t h e n \r
0007140
*
0007200 ( a d d W O R D -
0007220 1 ) \r
0007240
0007260 1 e l s e
0007300 ( L L S H M A S K 1 ] \r ( P
0007320 U T P R O P S D E C . Y M A
0007340 C R O ( ( W O R D M A S K )
0007360 \r
0007400 ( a d d W O R
0007420 D R A S T E R W I D T H ) ) )
0007440 \r [ P U T P R O P S F I N I S
0007460 H . O R I E N T A T I O N M A
0007500 C R O ( ( T H I S . D I R N
0007520 E X T . D I R ) \r
0007540
0007560 ( I G
0007600 E Q T H I S . D I R ( L O G
0007620 X O R N E X T . D I R 4 ] \r
0007640 [ P U T P R O P S I N C . X
0007660 M A C R O ( ( W O R D M A S
0007700 K ) \r
0007720 ( S E T Q
0007740 M A S K ( i f ( E Q M A S
0007760 K 1 ) \r
0010000
0010020 t h e n \r
0010040
*
0010100 ( a d d W O R D
0010120 1 ) \r
0010140
0010160 ( C O N S T A
0010200 N T ( M A S K . 1 ' S 1 5
0010220 1 ) ) \r
0010240
0010260 e l s e \r
0010300
*
0010340 ( L R S H M A S K
0010360 1 ] \r [ P U T P R O P S I N C
0010400 . Y M A C R O ( ( W O R D
0010420 M A S K ) \r
0010440 ( S E
0010460 T Q W O R D ( I D I F F E R
0010500 E N C E W O R D R A S T E R
0010520 W I D T H ] \r [ P U T P R O P S
0010540 N E X T . P O I N T . O N . C
0010560 U R V E M A C R O ( ( W O R
0010600 D M A S K D I N D O U T )
0010620 \r
0010640
0010660 ( P R O G N I L \r
0010700
*
0010740 [ i f (
0010760 I G E Q D I N 5 ) \r
0011000
*
0011040 t h e n \r
0011060
*
0011120 (
0011140 i f ( E Q D I N 7 ) \r
0011160
*
0011240 t h e n \r
0011260
*
0011320 ( * D I N
0011340 = 7 ) \r
0011360
*
0011420 ( I N C . Y W
0011440 O R D M A S K ) \r
0011460
*
0011520 ( G O
0011540 L 6 ) \r
0011560
*
0011620 e l s e \r
0011640
*
0011720 ( * D I N = 5 o r 6 )
0011740 \r
0011760
*
0012020 ( I N C . X W O R D
0012040 M A S K ) \r
0012060
*
0012120 ( G O L 4 )
0012140 ) \r
0012160
*
0012220 e l s e \r
0012240
*
0012300 ( i f ( I G E Q D
0012320 I N 3 ) \r
0012340
*
0012400 t h e n \r
0012420
*
0012500 ( * D I N = 3 o r 4
0012520 ) \r
0012540
*
0012600 ( D E C . Y W O R D
0012620 M A S K ) \r
0012640
*
0012700 ( G O L 2
0012720 ) \r
0012740
*
0013000 e l s e \r
0013020
*
0013060 ( i f
0013100 ( N E Q D I N 0 ) \r
0013120
*
0013200 t h e n \r
0013220
*
0013300 ( * D I N = 1 o r 2 )
0013320 \r
0013340
*
0013400 ( D E C . X W
0013420 O R D M A S K ) \r
0013440
*
0013520 ( G O L 0 ) \r
0013540
*
0013620 e l s e \r
0013640
*
0013700 ( * D
0013720 I N = 0 ) \r
0013740
*
0014000 (
0014020 I N C . Y W O R D M A S K )
0014040 \r
0014060
*
0014120 ( G O L 6 ] \r
0014140
*
0014200 L 0 \r
0014220
*
0014260 ( D E C . Y
0014300 W O R D M A S K ) \r
0014320
*
0014360 ( i f ( N E Q 0
0014400 ( T E S T . B I T S R C E .
0014420 B A S E W O R D M A S K ) )
0014440 \r
0014460
*
0014520 t h e n \r
0014540
*
0014600 ( S E T Q D O U T 0
0014620 ) \r
0014640
*
0014700 ( R E T U R N ) ) \r
0014720
*
0014760 ( I N C . X W O R
0015000 D M A S K ) \r
0015020
*
0015060 ( i f ( N E Q 0 ( T
0015100 E S T . B I T S R C E . B A S
0015120 E W O R D M A S K ) ) \r
0015140
*
0015200 t h e
0015220 n \r
0015240
*
0015300 ( S E T Q D O U T 1 ) \r
0015320
*
0015360 ( R
0015400 E T U R N ) ) \r
0015420
*
0015460 L 2 \r
0015500
*
0015540 ( I N C . X W O R D M A S
0015560 K ) \r
0015600
0015620 ( i
0015640 f ( N E Q 0 ( T E S T . B
0015660 I T S R C E . B A S E W O R
0015700 D M A S K ) ) \r
0015720
*
0015760 t h e n \r
0016000
*
0016040 ( S E T
0016060 Q D O U T 2 ) \r
0016100
*
0016140 ( R E T U R N
0016160 ) ) \r
0016200
0016220 ( I
0016240 N C . Y W O R D M A S K ) \r
0016260
*
0016320 ( i f (
0016340 N E Q 0 ( T E S T . B I T
0016360 S R C E . B A S E W O R D M
0016400 A S K ) ) \r
0016420
*
0016460 t h e n \r
0016500
*
0016540 ( S E T Q D
0016560 O U T 3 ) \r
0016600
*
0016640 ( R E T U R N ) ) \r
0016660
*
0016720 L 4 \r
0016740
*
0017000 ( I N C . Y
0017020 W O R D M A S K ) \r
0017040
*
0017100 ( i f ( N E Q 0
0017120 ( T E S T . B I T S R C E .
0017140 B A S E W O R D M A S K ) )
0017160 \r
0017200
*
0017240 t h e n \r
0017260
*
0017320 ( S E T Q D O U T 4
0017340 ) \r
0017360
*
0017420 ( R E T U R N ) ) \r
0017440
*
0017500 ( D E C . X W O R
0017520 D M A S K ) \r
0017540
*
0017600 ( i f ( N E Q 0 ( T
0017620 E S T . B I T S R C E . B A S
0017640 E W O R D M A S K ) ) \r
0017660
*
0017720 t h e
0017740 n \r
0017760
*
0020020 ( S E T Q D O U T 5 ) \r
0020040
*
0020100 ( R
0020120 E T U R N ) ) \r
0020140
*
0020200 L 6 \r
0020220
*
0020260 ( D E C . X W O R D M A S
0020300 K ) \r
0020320
0020340 ( i
0020360 f ( N E Q 0 ( T E S T . B
0020400 I T S R C E . B A S E W O R
0020420 D M A S K ) ) \r
0020440
*
0020500 t h e n \r
0020520
*
0020560 ( S E T
0020600 Q D O U T 6 ) \r
0020620
*
0020660 ( R E T U R N
0020700 ) ) \r
0020720
0020740 ( D
0020760 E C . Y W O R D M A S K ) \r
0021000
*
0021040 ( i f (
0021060 N E Q 0 ( T E S T . B I T
0021100 S R C E . B A S E W O R D M
0021120 A S K ) ) \r
0021140
*
0021200 t h e n \r
0021220
*
0021260 ( S E T Q D
0021300 O U T 7 ) \r
0021320
*
0021360 ( R E T U R N ) ) \r
0021400
*
0021440 ( G O L
0021460 0 ] \r [ P U T P R O P S P O P
0021500 . T A S K M A C R O ( N I L
0021520 ( P R O G 1 ( C A R A G E
0021540 N D A ) \r
0021560
0021600 ( C L : P S
0021620 E T F A G E N D A ( C D R
0021640 A G E N D A ) \r
0021660
*
0021720 ( C D R A G E N D A )
0021740 \r
0021760
0022000 F R E
0022020 E L I S T F R E E L I S T A
0022040 G E N D A ] \r [ P U T P R O P S
0022060 R I G H T . B I T M A C R O
0022100 ( ( X ) \r
0022120
0022140 ( L O G A N D X ( I M I N
0022160 U S X ] \r [ P U T P R O P S
0022200 S E A R C H M A C R O \r
0022220 ( ( W O R D M A S K )
0022240 \r ( P R O G N
0022260 ( S E T Q S E A R C H . B I T
0022300 S ( \ G E T B A S E S R C E
0022320 . B A S E W O R D ) ) \r
0022340 ( f o r
0022360 o l d W O R D f i r s t
0022400 ( i f ( N E Q M A S K 1 )
0022420 \r
0022440
0022460 t h e n \r
0022500
*
0022540 ( i f ( N E Q [ S E
0022560 T Q S E A R C H . B I T S (
0022600 L O G A N D S E A R C H . B I
0022620 T S \r
0022640
*
0022720 ( L O G
0022740 N O T ( S U B 1 M A S K ] \r
0022760
*
0023040 0 ) \r
0023060
0023100 t h
0023120 e n \r
0023140
0023160 ( S
0023200 E T Q M A S K ( R I G H T .
0023220 B I T S E A R C H . B I T S )
0023240 ) \r
0023260
0023300 ( R E
0023320 T U R N ) \r
0023340
*
0023400 e l s e \r
0023420
*
0023460 ( a d d W O R D - 1 ) ) )
0023500 \r
0023520 w h e n \r
0023540 ( N
0023560 E Q ( S E T Q S E A R C H .
0023600 B I T S ( \ G E T B A S E S
0023620 R C E . B A S E W O R D ) ) \r
0023640
0023660 0 ) \r
0023700
0023720 d o \r
0023740 ( S E T Q M A S
0023760 K ( R I G H T . B I T S E A
0024000 R C H . B I T S ) ) \r
0024020 (
0024040 R E T U R N ) \r
0024060 b y \r
0024100
0024120 ( S U B 1 W O R D ] \r [
0024140 P U T P R O P S S E A R C H .
0024160 A N D . F I L L M A C R O \r
0024200 ( ( W O R D M A S
0024220 K ) \r ( P R O G
0024240 N ( S E T Q S E A R C H . B
0024260 I T S ( \ G E T B A S E S R
0024300 C E . B A S E W O R D ) ) \r
0024320 ( f
0024340 o r o l d W O R D f i r s
0024360 t \r
0024400 [ i f ( N E Q M
0024420 A S K 1 ) \r
0024440 t
0024460 h e n \r
0024500 [ S E T
0024520 Q S E A R C H . M A S K E D B
0024540 I T S ( L O G A N D S E A R
0024560 C H . B I T S ( S E T Q S E
0024600 A R C H . E X T E N D E D M A S
0024620 K \r
0024640
*
0024720 ( L O G
0024740 X O R ( S U B 1 M A S K ) \r
0024760
*
0025100 ( C O N S T A N T \r
0025120
*
0025220 ( M A
0025240 S K . 1 ' S 0 1 6 ] \r
0025260
0025300 ( i f ( N E Q S E
0025320 A R C H . M A S K E D B I T S
0025340 0 ) \r
0025360 t
0025400 h e n \r
0025420
0025440 [ \ P U T B A S E D E S T . B
0025460 A S E W O R D ( L O G O R
0025500 ( S E T Q F I L L . B I T S
0025520 ( \ G E T B A S E D E S T . B
0025540 A S E W O R D ) \r
0025560
*
0025640 ) \r
0025660
*
0025740 ( L O G A N
0025760 D S E A R C H . E X T E N D E
0026000 D M A S K \r
0026020
*
0026100 ( S U B 1 (
0026120 S E T Q M A S K ( R I G H T
0026140 . B I T \r
0026160
*
0026260 S E A R C H
0026300 . M A S K E D B I T S \r
0026320
*
0026440 ] \r
0026460
0026500 ( R E T U R N ( L O
0026520 G A N D F I L L . B I T S M
0026540 A S K ) ) \r
0026560
0026600 e l s e \r
0026620
0026640 ( \ P U T B A S E D E S
0026660 T . B A S E W O R D ( L O G
0026700 O R ( \ G E T B A S E D E S
0026720 T . B A S E W O R D ) \r
0026740
*
0027020 S E A R C H .
0027040 E X T E N D E D M A S K ) ) \r
0027060
0027100 ( S E T Q
0027120 W O R D ( S U B 1 W O R D
0027140 ] \r
0027160 w h e n \r
0027200 (
0027220 N E Q ( S E T Q S E A R C H
0027240 . B I T S ( \ G E T B A S E
0027260 S R C E . B A S E W O R D ) )
0027300 \r
0027320 0 ) \r
0027340
0027360 d o \r
0027400 [ \ P U T B A S
0027420 E D E S T . B A S E W O R D
0027440 ( L O G O R ( S E T Q F I
0027460 L L . B I T S ( \ G E T B A S
0027500 E D E S T . B A S E W O R D
0027520 ) ) \r
0027540
*
0027600 ( S U B 1 ( S E
0027620 T Q M A S K ( R I G H T . B
0027640 I T S E A R C H . B I T S ] \r
0027660
0027700 ( R E T U R N ( L O G
0027720 A N D F I L L . B I T S M A
0027740 S K ) ) \r
0027760 b y \r
0030000
0030020 ( P R O G N ( \ P U T B A S E
0030040 D E S T . B A S E W O R D
0030060 ( C O N S T A N T ( M A S K .
0030100 1 ' S 0 1 6 ) ) ) \r
0030120
0030140 ( S U B 1 W O R
0030160 D ] \r [ P U T P R O P S S E T
0030200 . B I T M A C R O ( ( B A S
0030220 E W O R D M A S K ) \r
0030240
0030260 ( c h a n g e ( f
0030300 e t c h ( B I T M A P W O R D
0030320 B I T S ) \r
0030340
0030360 o
0030400 f \r
0030420
0030440 ( \ A D D B
0030460 A S E B A S E W O R D ) ) \r
0030500
*
0030540 ( L O G O R D A T U M M A S
0030560 K ] \r ( P U T P R O P S T E S
0030600 T . B I T M A C R O ( ( B A
0030620 S E W O R D M A S K ) \r
0030640
0030660 ( L O G A N D
0030700 ( \ G E T B A S E B A S E W
0030720 O R D ) \r
0030740
0030760 M A S K ) ) ) \r ( P
0031000 U T P R O P S W A N T . T O .
0031020 E X T E N D M A C R O ( ( T
0031040 H I S . D I R N E X T . D I R
0031060 ) \r
0031100
0031120 ( I G R E A T E R P ( L O
0031140 G A N D ( I D I F F E R E N C
0031160 E T H I S . D I R 3 ) \r
0031200
*
0031260 7 ) \r
0031300
0031320 N E X T . D
0031340 I R ) ) ) \r ) \r \r ( D E C L A R
0031360 E % : E V A L @ C O M P I L E
0031400 \r \r ( R E C O R D 006 002 T A S K
0031420 006 001 ( W . M ) ) \r ) \r ) \r
0031440 \r ( R P A Q Q 006 002 \ F I L L R
0031460 E G I O N . F N S 006 001 ( A U T
0031500 O . F I L L F I L L . K E R N
0031520 E L F I L L . R E G I O N R
0031540 E M O V E . S I N G L E . P O I
0031560 N T S ) ) \r ( D E F I N E Q \r \r
0031600 ( 006 004 A U T O . F I L L 006 001 \r
0031620 [ L A M B D A ( S H A D E )
0031640 006 006 006 001
0031660
*
0031720 006 006 ( * J W o g u l i s " 2
0031740 8 - F e b - 8 5 0 9 : 0 3 " )
0031760 006 001 \r ( P R O G ( ( W
0032000 ( W H I C H W ) ) ) \r
0032020 ( G E T M O U S E S
0032040 T A T E ) \r
0032060 ( R E T U R N ( 006 002 F I L L .
0032100 R E G I O N 006 001 W ( C O N S
0032120 ( L A S T M O U S E X W ) \r
0032140
*
0032200 ( L A S T M O U S
0032220 E Y W ) ) \r
0032240
0032260 S H A D E ] ) \r \r ( 006 004 F I L L
0032300 . K E R N E L 006 001 \r [ L A M
0032320 B D A ( S R C E . B A S E D
0032340 E S T . B A S E W O R D N U M
0032360 B I T M A S K R A S T E R W
0032400 I D T H ) 006 006 006 001 006 006 ( *
0032420 m g b % : " 1 5 - M a r - 8 5
0032440 0 1 : 5 4 " ) 006 001 \r
0032460 \r
0032500 006 006 ( * * A p p a l l i n g
0032520 P R O G s t r u c t u r e
0032540 i n s t e a d o f C L I S P
0032560 i s t o p e r m i t o n
0032600 l y o n e e x p a n s i o n
0032620 \r 006 001 006 006
0032640 o f C I R C L E . A B O U T
0032660 m a c r o ) 006 001 \r \r ( P
0032700 R O G ( T A S K . W T A S K
0032720 . M A G E N D A F R E E L I
0032740 S T T A S K C I R C L E . P
0032760 R E V . W C I R C L E . P R E
0033000 V . M C I R C L E . W O R D
0033020 C I R C L E . M A S K \r
0033040 C I
0033060 R C L E . T H I S . D I R C I
0033100 R C L E . N E X T . D I R C I
0033120 R C L E . E X T E N D S E A R
0033140 C H . B I T S S E A R C H . E
0033160 X T E N D E D M A S K \r
0033200 S E
0033220 A R C H . M A S K E D B I T S
0033240 F I L L . B I T S K E R N E L
0033260 . W O R D K E R N E L . M A S
0033300 K K E R N E L . T H I S . D I
0033320 R K E R N E L . N E X T . D I
0033340 R \r
0033360 I N I T I A L I Z E D )
0033400 \r ( S E T Q
0033420 K E R N E L . W O R D W O R
0033440 D N U M ) \r
0033460 ( S E T Q K E R N E L . M A S
0033500 K B I T M A S K ) \r
0033520 ( I N C . X K E R N
0033540 E L . W O R D K E R N E L . M
0033560 A S K ) \r (
0033600 S E A R C H K E R N E L . W O
0033620 R D K E R N E L . M A S K ) \r
0033640 ( G O D O
0033660 . C I R C L E ) \r T
0033700 A S K . L O O P \r
0033720 ( 006 002 i f 006 001 ( N U L L
0033740 A G E N D A ) \r
0033760 006 002 t h e n 006 001
0034000 ( R E T U R N ) ) \r
0034020 ( S E T Q T A S K (
0034040 P O P . T A S K ) ) \r
0034060 ( S E T Q T A S K .
0034100 W ( 006 002 f e t c h 006 001 ( T A
0034120 S K W ) 006 002 o f 006 001 T A S
0034140 K ) ) \r ( S
0034160 E T Q T A S K . M ( 006 002 f e
0034200 t c h 006 001 ( T A S K M ) 006
0034220 002 o f 006 001 T A S K ) ) \r
0034240 ( S E T Q K E R
0034260 N E L . N E X T . D I R 2 ) \r
0034300 S E E D . L O O P \r
0034320 ( S E T Q
0034340 K E R N E L . T H I S . D I R
0034360 K E R N E L . N E X T . D I R )
0034400 \r ( S E T Q
0034420 K E R N E L . W O R D T A S
0034440 K . W ) \r (
0034460 S E T Q K E R N E L . M A S K
0034500 T A S K . M ) \r
0034520 ( N E X T . P O I N T . O
0034540 N . C U R V E T A S K . W T
0034560 A S K . M K E R N E L . T H I
0034600 S . D I R K E R N E L . N E X
0034620 T . D I R ) \r
0034640 ( 006 002 i f 006 001 [ N O T ( A
0034660 N D ( W A N T . T O . E X T E
0034700 N D K E R N E L . T H I S . D
0034720 I R K E R N E L . N E X T . D
0034740 I R ) \r
0034760 ( P R O
0035000 G N ( D E C . X K E R N E L
0035020 . W O R D K E R N E L . M A S
0035040 K ) \r
0035060
0035100 ( E Q 0 ( T E S T . B I
0035120 T D E S T . B A S E K E R N
0035140 E L . W O R D K E R N E L . M
0035160 A S K ] \r
0035200 006 002 t h e n 006 001 ( G O
0035220 T A S K . L O O P ) ) \r
0035240 ( 006 002 i f 006 001 ( N
0035260 E Q 0 ( S E A R C H . A N D
0035300 . F I L L K E R N E L . W O R
0035320 D K E R N E L . M A S K ) ) \r
0035340 006 002
0035360 t h e n 006 001 ( G O S E E D .
0035400 L O O P ) ) \r D O .
0035420 C I R C L E \r
0035440 ( C I R C L E . A B O U T K
0035460 E R N E L . W O R D K E R N E
0035500 L . M A S K ) \r
0035520 ( 006 002 i f 006 001 I N I T I A
0035540 L I Z E D \r
0035560 006 002 t h e n 006 001 ( G O
0035600 S E E D . L O O P ) \r
0035620 006 002 e l s e 006 001
0035640 ( S E T Q I N I T I A L I Z
0035660 E D T ) \r
0035700 ( G O T A S K .
0035720 L O O P ] ) \r \r ( 006 004 F I L L .
0035740 R E G I O N 006 001 \r [ L A M B
0035760 D A ( W I N D O W . O R . B M
0036000 I N T E R I O R . P O S S H
0036020 A D E ) 006 006 006 001
0036040 006 006 ( * m
0036060 g b % : " 1 5 - M a r - 8 5
0036100 0 1 : 5 1 " ) 006 001 \r
0036120 \r 006
0036140 006 ( * * T h i s f u n c t
0036160 i o n h a s b e e n " o p
0036200 t i m i s e d " f o r p e r
0036220 f o r m a n c e . \r 006 001
0036240 006 006 A n y r e s e
0036260 m b l a n c e t o s t r u c
0036300 t u r e d p r o g r a m m i n
0036320 g i s p u r e l y c o i n
0036340 c i d e n t a l . ) 006 001 \r \r
0036360 [ P R O G ( ( X ( C A R
0036400 I N T E R I O R . P O S ) ) \r
0036420 ( Y ( C
0036440 D R I N T E R I O R . P O S )
0036460 ) \r W I D
0036500 T H H E I G H T S R C E . B
0036520 M S R C E . B A S E D E S T
0036540 . B M D E S T . B A S E I N
0036560 V E R T F L G ? R A S T E R W
0036600 I D T H T E M P . S H A D E )
0036620 \r ( 006 002 i f
0036640 006 001 ( W I N D O W P W I N D
0036660 O W . O R . B M ) \r
0036700 006 002 t h e n 006 001
0036720 ( S E T Q W I D T H ( W I
0036740 N D O W P R O P W I N D O W .
0036760 O R . B M ' W I D T H ) ) \r
0037000
0037020 ( S E T Q H E I G H T (
0037040 W I N D O W P R O P W I N D O
0037060 W . O R . B M ' H E I G H T )
0037100 ) \r 006 002
0037120 e l s e i f 006 001 ( B I T M A P
0037140 P W I N D O W . O R . B M ) \r
0037160 006 002
0037200 t h e n 006 001 ( S E T Q W I D
0037220 T H ( B I T M A P W I D T H
0037240 W I N D O W . O R . B M ) ) \r
0037260
0037300 ( S E T Q H E I G H T (
0037320 B I T M A P H E I G H T W I N
0037340 D O W . O R . B M ) ) \r
0037360 006 002 e l s e 006 001
0037400 ( R E T U R N ( E R R O R
0037420 " M u s t b e e i t h e r
0037440 w i n d o w o r b i t m a p
0037460 : " W I N D O W . O R . B M )
0037500 ) ) \r ( 006 002
0037520 i f 006 001 ( O R ( L E S S P
0037540 X 0 ) \r
0037560 ( L E S S P Y
0037600 0 ) \r
0037620 ( I G E Q X W I D
0037640 T H ) \r
0037660 ( I G E Q Y H E
0037700 I G H T ) ) \r
0037720 006 002 t h e n 006 001 ( R
0037740 E T U R N ( E R R O R " O u
0037760 t s i d e o f t h e w i n
0040000 d o w o r b i t m a p : "
0040020 I N T E R I O R . P O S ) ) ) \r
0040040 ( 006 002 a d d
0040060 006 001 W I D T H 2 ) \r
0040100 ( 006 002 a d d 006 001 H
0040120 E I G H T 2 ) \r
0040140 ( S E T Q S R C E . B M
0040160 ( B I T M A P C R E A T E W
0040200 I D T H H E I G H T ) ) \r
0040220 ( S E T Q D E
0040240 S T . B M ( B I T M A P C R E
0040260 A T E W I D T H H E I G H T
0040300 ) ) \r ( S E
0040320 T Q I N V E R T F L G ? ( N
0040340 E Q 0 ( B I T M A P B I T
0040360 W I N D O W . O R . B M X Y
0040400 ) ) ) \r \r
0040420 006 006 ( * A b
0040440 o v e % : I N V E R T F L G ?
0040460 i s T i f w e s t a r
0040500 t o n a b l a c k p i x
0040520 e l i n s t e a d o f a
0040540 w h i t e o n e . \r 006 001
0040560 006 006 X P O S w i
0040600 l l b e t h e x p o s i
0040620 t i o n o f t h e b i t m
0040640 a p t h a t i s t h e f
0040660 i r s t p o i n t o n t h
0040700 e e d g e \r 006 001
0040720 006 006 o f t h e f i g
0040740 u r e t o b e f i l l e d
0040760 . ) 006 001 \r \r
0041000 ( S E T Q S R C E . B A S E
0041020 ( 006 002 f f e t c h 006 001 B I T M
0041040 A P B A S E 006 002 o f 006 001 S R
0041060 C E . B M ) ) \r
0041100 ( S E T Q R A S T E R W I
0041120 D T H ( 006 002 f f e t c h 006 001
0041140 B I T M A P R A S T E R W I D T
0041160 H 006 002 o f 006 001 S R C E . B M
0041200 ) ) \r ( S E
0041220 T Q D E S T . B A S E ( 006 002
0041240 f f e t c h 006 001 B I T M A P B
0041260 A S E 006 002 o f 006 001 D E S T .
0041300 B M ) ) \r (
0041320 B I T B L T W I N D O W . O R
0041340 . B M 0 0 S R C E . B M
0041360 1 1 N I L N I L ( 006 002 i
0041400 f 006 001 I N V E R T F L G ? \r
0041420
*
0041500 006 002 t h e n
0041520 006 001 ' I N V E R T ) ) \r
0041540 \r
0041560 006 006 ( * T h i s w i l l
0041600 r e m o v e a l l t h e
0041620 p o i n t s i n t h e w i
0041640 n d o w t h a t h a v e n
0041660 o o n e a d j a c e n t . \r
0041700 006 001 006 006 T h
0041720 i s i s a s p e c i a l
0041740 c a s e a n d b e d e a l
0041760 t w i t h m o r e e a s i
0042000 l y a t t h i s l e v e l
0042020 t h a n i n t h e \r 006 001
0042040 006 006 p r o g r
0042060 a m . ) 006 001 \r \r
0042100 ( 006 002 R E M O V E . S I N G
0042120 L E . P O I N T S 006 001 S R C E
0042140 . B M D E S T . B M ) \r
0042160 ( B I T B L T D
0042200 E S T . B M 0 0 S R C E .
0042220 B M 0 0 N I L N I L '
0042240 I N P U T ' E R A S E ) \r
0042260 \r
0042300 006 006 ( * N O W D O S
0042320 O M E T H I N G R E A L L Y
0042340 U G L Y . H e r e w e p u
0042360 t a 1 b i t b o r d e r
0042400 a r o u n d t h e w h o l
0042420 e \r 006 001 006
0042440 006 w i n d o w ( w h i c h h
0042460 a s b e e n e n l a r g e d
0042500 t o h o l d i t ) s o
0042520 t h a t w e n e v e r r u
0042540 n o f f t h e e d g e \r
0042560 006 001 006 006 a n
0042600 d t h e w i n d o w g e t
0042620 s f i l l e d u p . T h i
0042640 s a l s o m a k e s t h e
0042660 f a s t v e r s i o n s o
0042700 f B I T M A P B I T \r 006 001
0042720 006 006 f a s t ,
0042740 i . e . n o c h e c k i n
0042760 g f o r w i t h i n t h e
0043000 b o u n d a r i e s . ) 006 001 \r
0043020 \r ( B I T B
0043040 L T N I L N I L N I L S
0043060 R C E . B M 0 0 1 N I L
0043100 ' T E X T U R E N I L 6 5
0043120 5 3 5 ) \r (
0043140 B I T B L T N I L N I L N
0043160 I L S R C E . B M 0 0 N
0043200 I L 1 ' T E X T U R E N I
0043220 L 6 5 5 3 5 ) \r
0043240 ( B I T B L T N I L N
0043260 I L N I L S R C E . B M 0
0043300 ( S U B 1 H E I G H T ) \r
0043320
0043340 N I L 1 ' T E X T U R E N
0043360 I L 6 5 5 3 5 ) \r
0043400 ( B I T B L T N I L
0043420 N I L N I L S R C E . B M
0043440 ( S U B 1 W I D T H ) \r
0043460 0
0043500 1 N I L ' T E X T U R E N
0043520 I L 6 5 5 3 5 ) \r
0043540 ( 006 002 F I L L . K E R N
0043560 E L 006 001 S R C E . B A S E D
0043600 E S T . B A S E ( I P L U S
0043620 ( L R S H X 4 ) \r
0043640
*
0043700 ( I T
0043720 I M E S ( S U B 1 ( I D I F
0043740 F E R E N C E H E I G H T (
0043760 A D D 1 Y ) ) ) \r
0044000
*
0044060 R A S T E R W I D T H ) )
0044100 \r
0044120 ( E L T B I T M A S K A R
0044140 R A Y ( L O G A N D X 1 5
0044160 ) ) \r
0044200 R A S T E R W I D T H )
0044220 \r ( B I T B
0044240 L T D E S T . B M 1 1 W
0044260 I N D O W . O R . B M 0 0
0044300 N I L N I L ' M E R G E (
0044320 006 002 i f 006 001 I N V E R T F L G
0044340 ? \r
0044360
*
0044440 006 002 t h e n 006 001 ' E R
0044460 A S E \r
0044500
*
0044560 006 002 e l s e 006 001 ' P A
0044600 I N T ) \r
0044620 ( 006 002 i f 006 001 ( N
0044640 O T I N V E R T F L G ? ) \r
0044660
0044700 006 002 t h e n 006 001 S H A
0044720 D E \r
0044740 006 002 e l s e i f 006 001
0044760 ( B I T M A P P S H A D E )
0045000 \r
0045020 006 002 t h e n 006 001 (
0045040 S E T Q T E M P . S H A D E
0045060 ( B I T M A P C R E A T E ( B
0045100 I T M A P W I D T H S H A D E
0045120 ) \r
0045140
*
0045200 ( B I T M A P H E I G H
0045220 T S H A D E ) ) ) \r
0045240
0045260 ( B I T B L T S H A
0045300 D E N I L N I L T E M P .
0045320 S H A D E N I L N I L N I
0045340 L N I L ' I N V E R T ) \r
0045360
0045400 T E M P . S H
0045420 A D E \r
0045440 006 002 e l s e 006 001
0045460 ( L O G N O T S H A D E ] \r
0045500 W I N D O W . O R . B M ]
0045520 ) \r \r ( 006 004 R E M O V E . S I N
0045540 G L E . P O I N T S 006 001 \r [
0045560 L A M B D A ( B I T M A P R
0045600 E S U L T . B M ) 006 006 006 001
0045620
0045640 006 006
0045660 ( * e d i t e d % : " 8 -
0045700 M a r - 8 5 0 1 : 2 2 " ) 006 001
0045720 \r ( B I T B L T B I T
0045740 M A P 0 0 R E S U L T . B
0045760 M ) \r ( 006 002 f o r 006 001
0046000 X 006 002 f r o m 006 001 - 1 006 002
0046020 t o 006 001 1 \r 006 002
0046040 d o 006 001 ( 006 002 f o r 006 001 Y
0046060 006 002 f r o m 006 001 - 1 006 002 t o
0046100 006 001 1 \r
0046120 006 002 d o 006 001 ( 006 002 i f 006 001
0046140 ( N O T ( A N D ( E Q 0
0046160 X ) \r
0046200
0046220 ( E Q 0 Y ) ) ) \r
0046240
0046260 006 002 t h e n 006 001 ( B I T B L
0046300 T B I T M A P X Y R E S
0046320 U L T . B M 0 0 N I L N
0046340 I L ' I N P U T ' E R A S E
0046360 ] ) \r ) \r \r ( D E F M A C R O
0046400 006 002 p s e t f 006 001 ( & B O D Y
0046420 X C L - U S E R : : B O D Y )
0046440 ( C L : A P P E N D ( L I S
0046460 T ' C L : P S E T F ) \r
0046500
*
0046540 X C L - U
0046560 S E R : : B O D Y ) ) \r \r ( D E
0046600 C L A R E % : D O N T E V A L
0046620 @ L O A D D O E V A L @ C O M
0046640 P I L E D O N T C O P Y \r ( B
0046660 L O C K % : F I L L R E G I O
0046700 N A U T O . F I L L F I L L
0046720 . K E R N E L F I L L . R E G
0046740 I O N R E M O V E . S I N G L
0046760 E . P O I N T S ( E N T R I E
0047000 S A U T O . F I L L \r
0047020
*
0047120 F
0047140 I L L . R E G I O N ) \r
0047160 ( G L O B A L V A R S B
0047200 I T M A S K A R R A Y ) \r
0047220 ( L O C A L V A R S .
0047240 T ) ) \r ) \r ( P U T P R O P S
0047260 F I L L R E G I O N C O P Y
0047300 R I G H T ( " X e r o x C o
0047320 r p o r a t i o n " 1 9 8 5
0047340 1 9 8 7 ) ) \r ( D E C L A R E %
0047360 : D O N T C O P Y \r ( F I
0047400 L E M A P ( N I L ( 1 3 1 7
0047420 4 1 9 7 0 0 ( A U T O . F I
0047440 L L 1 3 1 8 4 . 1 3 4 9 5
0047460 ) ( F I L L . K E R N E L 1
0047500 3 4 9 7 . 1 5 3 1 8 ) ( F
0047520 I L L . R E G I O N 1 5 3 2 0
0047540 . \r 1 9 2 8 1 ) ( R E M O
0047560 V E . S I N G L E . P O I N T S
0047600 1 9 2 8 3 . 1 9 6 9 8 ) )
0047620 ) ) ) \r S T O P \r
0047631