Eagles Nest BBS 8

home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Environments / AllegroCL11 / Library / QuickDraw.lisp < prev next >
MacBinary | 1987-10-27 | 18.9 KB | [TEXT/CCL ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Tue Oct 27 18:06:31 1987, modified Tue Oct 27 18:06:31 1987, creator Common Lisp, type ASCII, 18803 bytes "QuickDraw.lisp" , at 0x49f3 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[CCL ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 51 75 69 63 6b 44 | 72 61 77 2e 6c 69 73 70 |..QuickD|raw.lisp|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 20 01 00 00 00 00 00 00 |.TEXTCCL| .......|
|00000050| 00 00 00 00 00 49 73 00 | 00 01 7e 9d aa d7 77 9d |.....Is.|..~...w.|
|00000060| aa d7 77 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..w.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 76 fa 00 00 |........|....v...|
|00000080| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000090| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000a0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 0d 3b 3b 51 |;;;;;;;;|;;;;.;;Q|
|000000d0| 75 69 63 6b 64 72 61 77 | 2e 6c 69 73 70 0d 3b 3b |uickdraw|.lisp.;;|
|000000e0| 0d 3b 3b 76 65 72 73 69 | 6f 6e 20 31 2e 31 0d 3b |.;;versi|on 1.1.;|
|000000f0| 3b 0d 3b 3b 63 6f 70 79 | 72 69 67 68 74 20 31 39 |;.;;copy|right 19|
|00000100| 38 37 20 43 6f 72 61 6c | 20 53 6f 66 74 77 61 72 |87 Coral| Softwar|
|00000110| 65 20 43 6f 72 70 2e 0d | 3b 3b 0d 3b 3b 20 20 54 |e Corp..|;;.;;  T|
|00000120| 68 69 73 20 66 69 6c 65 | 20 69 6d 70 6c 65 6d 65 |his file| impleme|
|00000130| 6e 74 73 20 61 20 66 75 | 6c 6c 20 65 72 72 6f 72 |nts a fu|ll error|
|00000140| 2d 63 68 65 63 6b 65 64 | 20 69 6e 74 65 72 66 61 |-checked| interfa|
|00000150| 63 65 20 74 6f 20 51 75 | 69 63 6b 64 72 61 77 2e |ce to Qu|ickdraw.|
|00000160| 0d 3b 3b 20 20 49 74 20 | 69 73 20 6d 65 61 6e 74 |.;;  It |is meant|
|00000170| 20 74 6f 20 62 65 20 75 | 73 65 66 75 6c 20 62 6f | to be u|seful bo|
|00000180| 74 68 20 69 6e 20 70 72 | 6f 67 72 61 6d 73 20 61 |th in pr|ograms a|
|00000190| 6e 64 20 61 73 20 61 6e | 20 65 78 61 6d 70 6c 65 |nd as an| example|
|000001a0| 20 6f 66 20 68 6f 77 20 | 74 6f 20 75 73 65 0d 3b | of how |to use.;|
|000001b0| 3b 20 20 74 68 65 20 6c | 6f 77 2d 6c 65 76 65 6c |;  the l|ow-level|
|000001c0| 20 69 6e 74 65 72 66 61 | 63 65 20 74 6f 20 74 68 | interfa|ce to th|
|000001d0| 65 20 4d 61 63 2e 0d 3b | 3b 0d 3b 3b 20 20 59 6f |e Mac..;|;.;;  Yo|
|000001e0| 75 20 63 61 6e 20 63 6f | 6d 70 69 6c 65 20 73 65 |u can co|mpile se|
|000001f0| 6c 65 63 74 65 64 20 70 | 6f 72 74 69 6f 6e 73 20 |lected p|ortions |
|00000200| 6f 66 20 74 68 69 73 20 | 66 69 6c 65 2c 20 62 75 |of this |file, bu|
|00000210| 74 20 69 66 20 79 6f 75 | 20 64 6f 2c 20 6d 61 6b |t if you| do, mak|
|00000220| 65 20 73 75 72 65 20 74 | 6f 0d 3b 3b 20 20 69 6e |e sure t|o.;;  in|
|00000230| 63 6c 75 64 65 20 74 68 | 65 20 6d 61 63 72 6f 73 |clude th|e macros|
|00000240| 20 61 6e 64 20 75 74 69 | 6c 69 74 79 20 66 75 6e | and uti|lity fun|
|00000250| 63 74 69 6f 6e 73 20 66 | 72 6f 6d 20 74 68 65 20 |ctions f|rom the |
|00000260| 74 6f 70 2e 0d 3b 3b 0d | 0d 0d 28 70 72 6f 63 6c |top..;;.|..(procl|
|00000270| 61 69 6d 20 27 28 6f 62 | 6a 65 63 74 2d 76 61 72 |aim '(ob|ject-var|
|00000280| 69 61 62 6c 65 20 77 70 | 74 72 29 29 0d 0d 28 65 |iable wp|tr))..(e|
|00000290| 76 61 6c 2d 77 68 65 6e | 20 28 65 76 61 6c 20 63 |val-when| (eval c|
|000002a0| 6f 6d 70 69 6c 65 29 0d | 20 20 28 72 65 71 75 69 |ompile).|  (requi|
|000002b0| 72 65 20 27 72 65 63 6f | 72 64 73 29 0d 20 20 28 |re 'reco|rds).  (|
|000002c0| 72 65 71 75 69 72 65 20 | 27 74 72 61 70 73 29 29 |require |'traps))|
|000002d0| 0d 0d 28 64 65 66 6d 61 | 63 72 6f 20 77 69 74 68 |..(defma|cro with|
|000002e0| 2d 72 65 63 74 61 6e 67 | 6c 65 2d 61 72 67 20 28 |-rectang|le-arg (|
|000002f0| 28 76 61 72 20 6c 65 66 | 74 20 74 6f 70 20 72 69 |(var lef|t top ri|
|00000300| 67 68 74 20 62 6f 74 74 | 6f 6d 29 20 26 62 6f 64 |ght bott|om) &bod|
|00000310| 79 20 62 6f 64 79 29 0d | 20 20 22 74 61 6b 65 73 |y body).|  "takes|
|00000320| 20 61 20 72 65 63 74 61 | 6e 67 6c 65 2c 20 74 77 | a recta|ngle, tw|
|00000330| 6f 20 70 6f 69 6e 74 73 | 2c 20 6f 72 20 66 6f 75 |o points|, or fou|
|00000340| 72 20 63 6f 6f 72 64 69 | 6e 61 74 65 73 20 61 6e |r coordi|nates an|
|00000350| 64 20 6d 61 6b 65 73 20 | 61 20 72 65 63 74 61 6e |d makes |a rectan|
|00000360| 67 6c 65 2e 0d 62 6f 64 | 79 20 69 73 20 65 76 61 |gle..bod|y is eva|
|00000370| 6c 75 61 74 65 64 20 77 | 69 74 68 20 56 41 52 20 |luated w|ith VAR |
|00000380| 62 6f 75 6e 64 20 74 6f | 20 74 68 61 74 20 72 65 |bound to| that re|
|00000390| 63 74 61 6e 67 6c 65 2e | 22 0d 20 20 60 28 72 6c |ctangle.|".  `(rl|
|000003a0| 65 74 20 28 28 2c 76 61 | 72 20 3a 72 65 63 74 29 |et ((,va|r :rect)|
|000003b0| 29 0d 20 20 20 20 20 28 | 63 6f 6e 64 20 28 2c 62 |).     (|cond (,b|
|000003c0| 6f 74 74 6f 6d 0d 20 20 | 20 20 20 20 20 20 20 20 |ottom.  |        |
|000003d0| 20 20 28 72 73 65 74 20 | 2c 76 61 72 20 72 65 63 |  (rset |,var rec|
|000003e0| 74 2e 74 6f 70 6c 65 66 | 74 20 28 6d 61 6b 65 2d |t.toplef|t (make-|
|000003f0| 70 6f 69 6e 74 20 2c 6c | 65 66 74 20 2c 74 6f 70 |point ,l|eft ,top|
|00000400| 29 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |)).     |       (|
|00000410| 72 73 65 74 20 2c 76 61 | 72 20 72 65 63 74 2e 62 |rset ,va|r rect.b|
|00000420| 6f 74 74 6f 6d 72 69 67 | 68 74 20 28 6d 61 6b 65 |ottomrig|ht (make|
|00000430| 2d 70 6f 69 6e 74 20 2c | 72 69 67 68 74 20 2c 62 |-point ,|right ,b|
|00000440| 6f 74 74 6f 6d 29 29 29 | 0d 20 20 20 20 20 20 20 |ottom)))|.       |
|00000450| 20 20 20 20 28 2c 72 69 | 67 68 74 0d 20 20 20 20 |    (,ri|ght.    |
|00000460| 20 20 20 20 20 20 20 20 | 28 65 72 72 6f 72 20 22 |        |(error "|
|00000470| 49 6c 6c 65 67 61 6c 20 | 72 65 63 74 61 6e 67 6c |Illegal |rectangl|
|00000480| 65 20 61 72 67 75 6d 65 | 6e 74 73 3a 20 7e 73 20 |e argume|nts: ~s |
|00000490| 7e 73 20 7e 73 20 7e 73 | 22 0d 20 20 20 20 20 20 |~s ~s ~s|".      |
|000004a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2c 6c 65 |        |     ,le|
|000004b0| 66 74 20 2c 74 6f 70 20 | 2c 72 69 67 68 74 20 2c |ft ,top |,right ,|
|000004c0| 62 6f 74 74 6f 6d 29 29 | 0d 20 20 20 20 20 20 20 |bottom))|.       |
|000004d0| 20 20 20 20 28 2c 74 6f | 70 0d 20 20 20 20 20 20 |    (,to|p.      |
|000004e0| 20 20 20 20 20 20 28 72 | 73 65 74 20 2c 76 61 72 |      (r|set ,var|
|000004f0| 20 72 65 63 74 2e 74 6f | 70 6c 65 66 74 20 28 6d | rect.to|pleft (m|
|00000500| 61 6b 65 2d 70 6f 69 6e | 74 20 2c 6c 65 66 74 20 |ake-poin|t ,left |
|00000510| 6e 69 6c 29 29 0d 20 20 | 20 20 20 20 20 20 20 20 |nil)).  |        |
|00000520| 20 20 28 72 73 65 74 20 | 2c 76 61 72 20 72 65 63 |  (rset |,var rec|
|00000530| 74 2e 62 6f 74 74 6f 6d | 72 69 67 68 74 20 28 6d |t.bottom|right (m|
|00000540| 61 6b 65 2d 70 6f 69 6e | 74 20 2c 74 6f 70 20 6e |ake-poin|t ,top n|
|00000550| 69 6c 29 29 29 0d 20 20 | 20 20 20 20 20 20 20 20 |il))).  |        |
|00000560| 20 28 74 20 28 73 65 74 | 71 20 2c 76 61 72 20 28 | (t (set|q ,var (|
|00000570| 70 6f 69 6e 74 65 72 2d | 61 72 67 20 2c 6c 65 66 |pointer-|arg ,lef|
|00000580| 74 29 29 29 29 0d 20 20 | 20 20 20 2c 40 62 6f 64 |t)))).  |   ,@bod|
|00000590| 79 29 29 0d 0d 28 64 65 | 66 75 6e 20 70 6f 69 6e |y))..(de|fun poin|
|000005a0| 74 65 72 2d 61 72 67 20 | 28 74 68 69 6e 67 29 0d |ter-arg |(thing).|
|000005b0| 20 20 28 69 66 20 28 70 | 6f 69 6e 74 65 72 70 20 |  (if (p|ointerp |
|000005c0| 74 68 69 6e 67 29 0d 20 | 20 20 20 20 20 74 68 69 |thing). |     thi|
|000005d0| 6e 67 0d 20 20 20 20 20 | 20 28 65 72 72 6f 72 20 |ng.     | (error |
|000005e0| 22 41 72 67 75 6d 65 6e | 74 3a 20 7e 61 20 69 73 |"Argumen|t: ~a is|
|000005f0| 20 6e 6f 74 20 61 20 4d | 61 63 69 6e 74 6f 73 68 | not a M|acintosh|
|00000600| 20 70 6f 69 6e 74 65 72 | 22 20 74 68 69 6e 67 29 | pointer|" thing)|
|00000610| 29 29 0d 0d 28 64 65 66 | 75 6e 20 68 61 6e 64 6c |))..(def|un handl|
|00000620| 65 2d 61 72 67 20 28 74 | 68 69 6e 67 29 0d 20 20 |e-arg (t|hing).  |
|00000630| 28 69 66 20 28 68 61 6e | 64 6c 65 70 20 74 68 69 |(if (han|dlep thi|
|00000640| 6e 67 29 0d 20 20 20 20 | 20 20 74 68 69 6e 67 0d |ng).    |  thing.|
|00000650| 20 20 20 20 20 20 28 65 | 72 72 6f 72 20 22 41 72 |      (e|rror "Ar|
|00000660| 67 75 6d 65 6e 74 3a 20 | 7e 61 20 69 73 20 6e 6f |gument: |~a is no|
|00000670| 74 20 61 20 4d 61 63 69 | 6e 74 6f 73 68 20 68 61 |t a Maci|ntosh ha|
|00000680| 6e 64 6c 65 22 20 74 68 | 69 6e 67 29 29 29 0d 0d |ndle" th|ing)))..|
|00000690| 28 64 65 66 75 6e 20 72 | 65 67 69 6f 6e 2d 61 72 |(defun r|egion-ar|
|000006a0| 67 20 28 74 68 69 6e 67 | 29 0d 20 20 28 69 66 20 |g (thing|).  (if |
|000006b0| 28 68 61 6e 64 6c 65 70 | 20 74 68 69 6e 67 29 0d |(handlep| thing).|
|000006c0| 20 20 20 20 20 20 74 68 | 69 6e 67 0d 20 20 20 20 |      th|ing.    |
|000006d0| 20 20 28 65 72 72 6f 72 | 20 22 41 72 67 75 6d 65 |  (error| "Argume|
|000006e0| 6e 74 3a 20 7e 61 20 69 | 73 20 6e 6f 74 20 61 20 |nt: ~a i|s not a |
|000006f0| 4d 61 63 69 6e 74 6f 73 | 68 20 68 61 6e 64 6c 65 |Macintos|h handle|
|00000700| 22 20 74 68 69 6e 67 29 | 29 29 0d 0d 28 64 65 66 |" thing)|))..(def|
|00000710| 75 6e 20 70 6f 6c 79 67 | 6f 6e 2d 61 72 67 20 28 |un polyg|on-arg (|
|00000720| 74 68 69 6e 67 29 0d 20 | 20 28 69 66 20 28 68 61 |thing). | (if (ha|
|00000730| 6e 64 6c 65 70 20 74 68 | 69 6e 67 29 0d 20 20 20 |ndlep th|ing).   |
|00000740| 20 20 20 74 68 69 6e 67 | 0d 20 20 20 20 20 20 28 |   thing|.      (|
|00000750| 65 72 72 6f 72 20 22 41 | 72 67 75 6d 65 6e 74 3a |error "A|rgument:|
|00000760| 20 7e 61 20 69 73 20 6e | 6f 74 20 61 20 4d 61 63 | ~a is n|ot a Mac|
|00000770| 69 6e 74 6f 73 68 20 68 | 61 6e 64 6c 65 22 20 74 |intosh h|andle" t|
|00000780| 68 69 6e 67 29 29 29 0d | 0d 28 64 65 66 75 6e 20 |hing))).|.(defun |
|00000790| 70 69 63 74 75 72 65 2d | 61 72 67 20 28 74 68 69 |picture-|arg (thi|
|000007a0| 6e 67 29 0d 20 20 28 69 | 66 20 28 68 61 6e 64 6c |ng).  (i|f (handl|
|000007b0| 65 70 20 74 68 69 6e 67 | 29 0d 20 20 20 20 20 20 |ep thing|).      |
|000007c0| 74 68 69 6e 67 0d 20 20 | 20 20 20 20 28 65 72 72 |thing.  |    (err|
|000007d0| 6f 72 20 22 41 72 67 75 | 6d 65 6e 74 3a 20 7e 61 |or "Argu|ment: ~a|
|000007e0| 20 69 73 20 6e 6f 74 20 | 61 20 4d 61 63 69 6e 74 | is not |a Macint|
|000007f0| 6f 73 68 20 68 61 6e 64 | 6c 65 22 20 74 68 69 6e |osh hand|le" thin|
|00000800| 67 29 29 29 0d 0d 28 64 | 65 66 75 6e 20 6d 6f 64 |g)))..(d|efun mod|
|00000810| 65 2d 61 72 67 20 28 74 | 68 69 6e 67 29 0d 20 20 |e-arg (t|hing).  |
|00000820| 28 6f 72 0d 20 20 20 28 | 61 6e 64 20 28 66 69 78 |(or.   (|and (fix|
|00000830| 6e 75 6d 70 20 74 68 69 | 6e 67 29 20 28 3c 3d 20 |nump thi|ng) (<= |
|00000840| 30 20 74 68 69 6e 67 20 | 31 35 29 20 74 68 69 6e |0 thing |15) thin|
|00000850| 67 29 0d 20 20 20 28 70 | 6f 73 69 74 69 6f 6e 20 |g).   (p|osition |
|00000860| 74 68 69 6e 67 20 2a 70 | 65 6e 2d 6d 6f 64 65 73 |thing *p|en-modes|
|00000870| 2a 29 0d 20 20 20 28 65 | 72 72 6f 72 20 22 55 6e |*).   (e|rror "Un|
|00000880| 6b 6e 6f 77 6e 20 70 65 | 6e 20 6d 6f 64 65 3a 20 |known pe|n mode: |
|00000890| 7e 61 22 20 74 68 69 6e | 67 29 29 29 0d 0d 28 64 |~a" thin|g)))..(d|
|000008a0| 65 66 6f 62 66 75 6e 20 | 28 6f 72 69 67 69 6e 20 |efobfun |(origin |
|000008b0| 2a 77 69 6e 64 6f 77 2a | 29 20 28 29 0d 20 20 28 |*window*|) ().  (|
|000008c0| 72 72 65 66 20 77 70 74 | 72 20 77 69 6e 64 6f 77 |rref wpt|r window|
|000008d0| 2e 70 6f 72 74 72 65 63 | 74 2e 74 6f 70 6c 65 66 |.portrec|t.toplef|
|000008e0| 74 29 29 0d 0d 28 64 65 | 66 6f 62 66 75 6e 20 28 |t))..(de|fobfun (|
|000008f0| 73 65 74 2d 6f 72 69 67 | 69 6e 20 2a 77 69 6e 64 |set-orig|in *wind|
|00000900| 6f 77 2a 29 20 28 68 20 | 26 6f 70 74 69 6f 6e 61 |ow*) (h |&optiona|
|00000910| 6c 20 76 20 26 61 75 78 | 20 28 70 74 20 28 6d 61 |l v &aux| (pt (ma|
|00000920| 6b 65 2d 70 6f 69 6e 74 | 20 68 20 76 29 29 29 0d |ke-point| h v))).|
|00000930| 20 20 28 77 69 74 68 2d | 70 6f 72 74 20 77 70 74 |  (with-|port wpt|
|00000940| 72 20 28 5f 53 65 74 4f | 72 69 67 69 6e 20 3a 6c |r (_SetO|rigin :l|
|00000950| 6f 6e 67 20 70 74 29 29 | 0d 20 20 70 74 29 0d 0d |ong pt))|.  pt)..|
|00000960| 28 64 65 66 6f 62 66 75 | 6e 20 28 63 6c 69 70 2d |(defobfu|n (clip-|
|00000970| 72 65 67 69 6f 6e 20 2a | 77 69 6e 64 6f 77 2a 29 |region *|window*)|
|00000980| 20 28 26 6f 70 74 69 6f | 6e 61 6c 20 28 73 61 76 | (&optio|nal (sav|
|00000990| 65 2d 72 65 67 69 6f 6e | 20 28 5f 4e 65 77 52 67 |e-region| (_NewRg|
|000009a0| 6e 20 3a 70 74 72 29 29 | 29 0d 20 28 77 69 74 68 |n :ptr))|). (with|
|000009b0| 2d 70 6f 72 74 20 77 70 | 74 72 20 0d 20 20 20 28 |-port wp|tr .   (|
|000009c0| 5f 47 65 74 43 6c 69 70 | 20 3a 70 74 72 20 28 73 |_GetClip| :ptr (s|
|000009d0| 65 74 71 20 73 61 76 65 | 2d 72 65 67 69 6f 6e 20 |etq save|-region |
|000009e0| 28 72 65 67 69 6f 6e 2d | 61 72 67 20 73 61 76 65 |(region-|arg save|
|000009f0| 2d 72 65 67 69 6f 6e 29 | 29 29 29 0d 20 73 61 76 |-region)|))). sav|
|00000a00| 65 2d 72 65 67 69 6f 6e | 29 0d 0d 28 64 65 66 6f |e-region|)..(defo|
|00000a10| 62 66 75 6e 20 28 73 65 | 74 2d 63 6c 69 70 2d 72 |bfun (se|t-clip-r|
|00000a20| 65 67 69 6f 6e 20 2a 77 | 69 6e 64 6f 77 2a 29 20 |egion *w|indow*) |
|00000a30| 28 6e 65 77 2d 72 65 67 | 69 6f 6e 29 0d 20 28 77 |(new-reg|ion). (w|
|00000a40| 69 74 68 2d 70 6f 72 74 | 20 77 70 74 72 0d 20 20 |ith-port| wptr.  |
|00000a50| 20 28 5f 53 65 74 43 6c | 69 70 20 3a 70 74 72 20 | (_SetCl|ip :ptr |
|00000a60| 28 72 65 67 69 6f 6e 2d | 61 72 67 20 6e 65 77 2d |(region-|arg new-|
|00000a70| 72 65 67 69 6f 6e 29 29 | 29 0d 20 6e 65 77 2d 72 |region))|). new-r|
|00000a80| 65 67 69 6f 6e 29 0d 0d | 28 64 65 66 6f 62 66 75 |egion)..|(defobfu|
|00000a90| 6e 20 28 63 6c 69 70 2d | 72 65 63 74 20 2a 77 69 |n (clip-|rect *wi|
|00000aa0| 6e 64 6f 77 2a 29 20 28 | 6c 65 66 74 20 26 6f 70 |ndow*) (|left &op|
|00000ab0| 74 69 6f 6e 61 6c 20 74 | 6f 70 20 72 69 67 68 74 |tional t|op right|
|00000ac0| 20 62 6f 74 29 0d 20 20 | 28 77 69 74 68 2d 72 65 | bot).  |(with-re|
|00000ad0| 63 74 61 6e 67 6c 65 2d | 61 72 67 20 28 72 20 6c |ctangle-|arg (r l|
|00000ae0| 65 66 74 20 74 6f 70 20 | 72 69 67 68 74 20 62 6f |eft top |right bo|
|00000af0| 74 29 0d 20 20 20 20 28 | 77 69 74 68 2d 70 6f 72 |t).    (|with-por|
|00000b00| 74 20 77 70 74 72 0d 20 | 20 20 20 20 20 28 5f 43 |t wptr. |     (_C|
|00000b10| 6c 69 70 52 65 63 74 20 | 3a 70 74 72 20 72 29 29 |lipRect |:ptr r))|
|00000b20| 29 0d 20 20 6e 69 6c 29 | 0d 0d 28 64 65 66 6f 62 |).  nil)|..(defob|
|00000b30| 66 75 6e 20 28 70 65 6e | 2d 73 68 6f 77 20 2a 77 |fun (pen|-show *w|
|00000b40| 69 6e 64 6f 77 2a 29 20 | 28 29 0d 20 20 28 72 73 |indow*) |().  (rs|
|00000b50| 65 74 20 77 70 74 72 20 | 67 72 61 66 70 6f 72 74 |et wptr |grafport|
|00000b60| 2e 70 6e 76 69 73 20 30 | 29 0d 20 20 6e 69 6c 29 |.pnvis 0|).  nil)|
|00000b70| 0d 0d 28 64 65 66 6f 62 | 66 75 6e 20 28 70 65 6e |..(defob|fun (pen|
|00000b80| 2d 68 69 64 65 20 2a 77 | 69 6e 64 6f 77 2a 29 20 |-hide *w|indow*) |
|00000b90| 28 29 0d 20 20 28 72 73 | 65 74 20 77 70 74 72 20 |().  (rs|et wptr |
|00000ba0| 67 72 61 66 70 6f 72 74 | 2e 70 6e 76 69 73 20 2d |grafport|.pnvis -|
|00000bb0| 31 29 0d 20 20 6e 69 6c | 29 0d 0d 28 64 65 66 6f |1).  nil|)..(defo|
|00000bc0| 62 66 75 6e 20 28 70 65 | 6e 2d 73 68 6f 77 6e 2d |bfun (pe|n-shown-|
|00000bd0| 70 20 2a 77 69 6e 64 6f | 77 2a 29 20 28 29 0d 20 |p *windo|w*) (). |
|00000be0| 20 28 3e 20 28 72 72 65 | 66 20 77 70 74 72 20 67 | (> (rre|f wptr g|
|00000bf0| 72 61 66 70 6f 72 74 2e | 70 6e 76 69 73 29 20 2d |rafport.|pnvis) -|
|00000c00| 31 29 29 0d 0d 28 64 65 | 66 6f 62 66 75 6e 20 28 |1))..(de|fobfun (|
|00000c10| 70 65 6e 2d 70 6f 73 69 | 74 69 6f 6e 20 2a 77 69 |pen-posi|tion *wi|
|00000c20| 6e 64 6f 77 2a 29 20 28 | 29 0d 20 28 72 72 65 66 |ndow*) (|). (rref|
|00000c30| 20 77 70 74 72 20 77 69 | 6e 64 6f 77 2e 70 6e 6c | wptr wi|ndow.pnl|
|00000c40| 6f 63 29 29 0d 0d 28 64 | 65 66 6f 62 66 75 6e 20 |oc))..(d|efobfun |
|00000c50| 28 70 65 6e 2d 73 69 7a | 65 20 2a 77 69 6e 64 6f |(pen-siz|e *windo|
|00000c60| 77 2a 29 20 28 29 0d 20 | 20 28 72 72 65 66 20 77 |w*) (). | (rref w|
|00000c70| 70 74 72 20 77 69 6e 64 | 6f 77 2e 70 6e 73 69 7a |ptr wind|ow.pnsiz|
|00000c80| 65 29 29 0d 0d 28 64 65 | 66 6f 62 66 75 6e 20 28 |e))..(de|fobfun (|
|00000c90| 73 65 74 2d 70 65 6e 2d | 73 69 7a 65 20 2a 77 69 |set-pen-|size *wi|
|00000ca0| 6e 64 6f 77 2a 29 20 28 | 68 20 26 6f 70 74 69 6f |ndow*) (|h &optio|
|00000cb0| 6e 61 6c 20 76 20 26 61 | 75 78 20 28 70 74 20 28 |nal v &a|ux (pt (|
|00000cc0| 6d 61 6b 65 2d 70 6f 69 | 6e 74 20 68 20 76 29 29 |make-poi|nt h v))|
|00000cd0| 29 0d 20 20 28 5f 50 65 | 6e 53 69 7a 65 20 3a 6c |).  (_Pe|nSize :l|
|00000ce0| 6f 6e 67 20 70 74 29 0d | 20 20 70 74 29 0d 0d 28 |ong pt).|  pt)..(|
|00000cf0| 64 65 66 6f 62 66 75 6e | 20 28 70 65 6e 2d 6d 6f |defobfun| (pen-mo|
|00000d00| 64 65 20 2a 77 69 6e 64 | 6f 77 2a 29 20 28 29 0d |de *wind|ow*) ().|
|00000d10| 20 20 28 65 6c 74 20 2a | 70 65 6e 2d 6d 6f 64 65 |  (elt *|pen-mode|
|00000d20| 73 2a 20 28 72 72 65 66 | 20 77 70 74 72 20 77 69 |s* (rref| wptr wi|
|00000d30| 6e 64 6f 77 2e 70 6e 6d | 6f 64 65 29 29 29 0d 0d |ndow.pnm|ode)))..|
|00000d40| 28 64 65 66 6f 62 66 75 | 6e 20 28 73 65 74 2d 70 |(defobfu|n (set-p|
|00000d50| 65 6e 2d 6d 6f 64 65 20 | 2a 77 69 6e 64 6f 77 2a |en-mode |*window*|
|00000d60| 29 20 28 6e 65 77 2d 6d | 6f 64 65 29 0d 20 20 28 |) (new-m|ode).  (|
|00000d70| 77 69 74 68 2d 70 6f 72 | 74 20 77 70 74 72 20 28 |with-por|t wptr (|
|00000d80| 5f 50 65 6e 4d 6f 64 65 | 20 3a 77 6f 72 64 20 28 |_PenMode| :word (|
|00000d90| 6d 6f 64 65 2d 61 72 67 | 20 6e 65 77 2d 6d 6f 64 |mode-arg| new-mod|
|00000da0| 65 29 29 29 29 0d 0d 28 | 64 65 66 6f 62 66 75 6e |e))))..(|defobfun|
|00000db0| 20 28 70 65 6e 2d 70 61 | 74 74 65 72 6e 20 2a 77 | (pen-pa|ttern *w|
|00000dc0| 69 6e 64 6f 77 2a 29 20 | 28 26 6f 70 74 69 6f 6e |indow*) |(&option|
|00000dd0| 61 6c 20 28 73 61 76 65 | 2d 70 61 74 20 28 6d 61 |al (save|-pat (ma|
|00000de0| 6b 65 2d 72 65 63 6f 72 | 64 20 3a 70 61 74 74 65 |ke-recor|d :patte|
|00000df0| 72 6e 29 29 29 0d 20 20 | 28 63 6f 70 79 2d 72 65 |rn))).  |(copy-re|
|00000e00| 63 6f 72 64 0d 20 20 20 | 28 72 72 65 66 20 77 70 |cord.   |(rref wp|
|00000e10| 74 72 20 77 69 6e 64 6f | 77 2e 70 6e 50 61 74 29 |tr windo|w.pnPat)|
|00000e20| 20 3a 70 61 74 74 65 72 | 6e 20 28 70 6f 69 6e 74 | :patter|n (point|
|00000e30| 65 72 2d 61 72 67 20 73 | 61 76 65 2d 70 61 74 29 |er-arg s|ave-pat)|
|00000e40| 29 0d 20 20 73 61 76 65 | 2d 70 61 74 29 0d 0d 28 |).  save|-pat)..(|
|00000e50| 64 65 66 6f 62 66 75 6e | 20 28 73 65 74 2d 70 65 |defobfun| (set-pe|
|00000e60| 6e 2d 70 61 74 74 65 72 | 6e 20 2a 77 69 6e 64 6f |n-patter|n *windo|
|00000e70| 77 2a 29 20 28 6e 65 77 | 2d 70 61 74 74 65 72 6e |w*) (new|-pattern|
|00000e80| 29 0d 20 20 28 72 73 65 | 74 20 77 70 74 72 20 77 |).  (rse|t wptr w|
|00000e90| 69 6e 64 6f 77 2e 70 6e | 50 61 74 20 28 70 6f 69 |indow.pn|Pat (poi|
|00000ea0| 6e 74 65 72 2d 61 72 67 | 20 6e 65 77 2d 70 61 74 |nter-arg| new-pat|
|00000eb0| 74 65 72 6e 29 29 0d 20 | 20 6e 65 77 2d 70 61 74 |tern)). | new-pat|
|00000ec0| 74 65 72 6e 29 0d 0d 28 | 64 65 66 6f 62 66 75 6e |tern)..(|defobfun|
|00000ed0| 20 28 70 65 6e 2d 73 74 | 61 74 65 20 2a 77 69 6e | (pen-st|ate *win|
|00000ee0| 64 6f 77 2a 29 20 28 26 | 6f 70 74 69 6f 6e 61 6c |dow*) (&|optional|
|00000ef0| 20 28 73 61 76 65 2d 73 | 74 61 74 65 20 28 6d 61 | (save-s|tate (ma|
|00000f00| 6b 65 2d 72 65 63 6f 72 | 64 20 3a 70 65 6e 73 74 |ke-recor|d :penst|
|00000f10| 61 74 65 29 29 29 0d 20 | 28 77 69 74 68 2d 70 6f |ate))). |(with-po|
|00000f20| 72 74 20 77 70 74 72 0d | 20 20 20 28 5f 47 65 74 |rt wptr.|   (_Get|
|00000f30| 50 65 6e 53 74 61 74 65 | 20 3a 70 74 72 20 28 70 |PenState| :ptr (p|
|00000f40| 6f 69 6e 74 65 72 2d 61 | 72 67 20 73 61 76 65 2d |ointer-a|rg save-|
|00000f50| 73 74 61 74 65 29 29 29 | 0d 20 73 61 76 65 2d 73 |state)))|. save-s|
|00000f60| 74 61 74 65 29 0d 0d 28 | 64 65 66 6f 62 66 75 6e |tate)..(|defobfun|
|00000f70| 20 28 73 65 74 2d 70 65 | 6e 2d 73 74 61 74 65 20 | (set-pe|n-state |
|00000f80| 2a 77 69 6e 64 6f 77 2a | 29 20 28 6e 65 77 2d 73 |*window*|) (new-s|
|00000f90| 74 61 74 65 29 0d 20 28 | 77 69 74 68 2d 70 6f 72 |tate). (|with-por|
|00000fa0| 74 20 77 70 74 72 0d 20 | 20 20 28 5f 53 65 74 50 |t wptr. |  (_SetP|
|00000fb0| 65 6e 53 74 61 74 65 20 | 3a 70 74 72 20 28 70 6f |enState |:ptr (po|
|00000fc0| 69 6e 74 65 72 2d 61 72 | 67 20 6e 65 77 2d 73 74 |inter-ar|g new-st|
|00000fd0| 61 74 65 29 29 29 0d 20 | 6e 65 77 2d 73 74 61 74 |ate))). |new-stat|
|00000fe0| 65 29 0d 0d 28 64 65 66 | 6f 62 66 75 6e 20 28 70 |e)..(def|obfun (p|
|00000ff0| 65 6e 2d 6e 6f 72 6d 61 | 6c 20 2a 77 69 6e 64 6f |en-norma|l *windo|
|00001000| 77 2a 29 20 28 29 0d 20 | 20 28 77 69 74 68 2d 70 |w*) (). | (with-p|
|00001010| 6f 72 74 20 77 70 74 72 | 20 28 5f 50 65 6e 4e 6f |ort wptr| (_PenNo|
|00001020| 72 6d 61 6c 29 29 29 0d | 0d 28 64 65 66 6f 62 66 |rmal))).|.(defobf|
|00001030| 75 6e 20 28 6d 6f 76 65 | 2d 74 6f 20 2a 77 69 6e |un (move|-to *win|
|00001040| 64 6f 77 2a 29 20 28 68 | 20 26 6f 70 74 69 6f 6e |dow*) (h| &option|
|00001050| 61 6c 20 76 29 0d 20 20 | 28 77 69 74 68 2d 70 6f |al v).  |(with-po|
|00001060| 72 74 20 77 70 74 72 20 | 28 5f 4d 6f 76 65 54 6f |rt wptr |(_MoveTo|
|00001070| 20 3a 6c 6f 6e 67 20 28 | 73 65 74 71 20 68 20 28 | :long (|setq h (|
|00001080| 6d 61 6b 65 2d 70 6f 69 | 6e 74 20 68 20 76 29 29 |make-poi|nt h v))|
|00001090| 29 29 0d 20 20 68 29 0d | 0d 28 64 65 66 6f 62 66 |)).  h).|.(defobf|
|000010a0| 75 6e 20 28 6d 6f 76 65 | 20 2a 77 69 6e 64 6f 77 |un (move| *window|
|000010b0| 2a 29 20 28 68 20 26 6f | 70 74 69 6f 6e 61 6c 20 |*) (h &o|ptional |
|000010c0| 76 29 0d 20 20 28 77 69 | 74 68 2d 70 6f 72 74 20 |v).  (wi|th-port |
|000010d0| 77 70 74 72 20 28 5f 4d | 6f 76 65 20 3a 6c 6f 6e |wptr (_M|ove :lon|
|000010e0| 67 20 28 73 65 74 71 20 | 68 20 28 6d 61 6b 65 2d |g (setq |h (make-|
|000010f0| 70 6f 69 6e 74 20 68 20 | 76 29 29 29 29 0d 20 20 |point h |v)))).  |
|00001100| 68 29 0d 0d 28 64 65 66 | 6f 62 66 75 6e 20 28 6c |h)..(def|obfun (l|
|00001110| 69 6e 65 2d 74 6f 20 2a | 77 69 6e 64 6f 77 2a 29 |ine-to *|window*)|
|00001120| 20 28 68 20 26 6f 70 74 | 69 6f 6e 61 6c 20 76 29 | (h &opt|ional v)|
|00001130| 0d 20 20 28 77 69 74 68 | 2d 70 6f 72 74 20 77 70 |.  (with|-port wp|
|00001140| 74 72 20 28 5f 4c 69 6e | 65 54 6f 20 3a 6c 6f 6e |tr (_Lin|eTo :lon|
|00001150| 67 20 28 73 65 74 71 20 | 68 20 28 6d 61 6b 65 2d |g (setq |h (make-|
|00001160| 70 6f 69 6e 74 20 68 20 | 76 29 29 29 29 0d 20 20 |point h |v)))).  |
|00001170| 68 29 0d 0d 28 64 65 66 | 6f 62 66 75 6e 20 28 6c |h)..(def|obfun (l|
|00001180| 69 6e 65 20 2a 77 69 6e | 64 6f 77 2a 29 20 28 68 |ine *win|dow*) (h|
|00001190| 20 26 6f 70 74 69 6f 6e | 61 6c 20 76 29 0d 20 20 | &option|al v).  |
|000011a0| 28 77 69 74 68 2d 70 6f | 72 74 20 77 70 74 72 20 |(with-po|rt wptr |
|000011b0| 28 5f 4c 69 6e 65 20 3a | 6c 6f 6e 67 20 28 73 65 |(_Line :|long (se|
|000011c0| 74 71 20 68 20 28 6d 61 | 6b 65 2d 70 6f 69 6e 74 |tq h (ma|ke-point|
|000011d0| 20 68 20 76 29 29 29 29 | 0d 20 20 68 29 0d 0d 28 | h v))))|.  h)..(|
|000011e0| 64 65 66 75 6e 20 6f 66 | 66 73 65 74 2d 72 65 63 |defun of|fset-rec|
|000011f0| 74 20 28 72 65 63 74 20 | 68 20 26 6f 70 74 69 6f |t (rect |h &optio|
|00001200| 6e 61 6c 20 76 29 0d 20 | 20 28 5f 4f 66 66 73 65 |nal v). | (_Offse|
|00001210| 74 52 65 63 74 20 3a 70 | 74 72 20 28 70 6f 69 6e |tRect :p|tr (poin|
|00001220| 74 65 72 2d 61 72 67 20 | 72 65 63 74 29 20 3a 6c |ter-arg |rect) :l|
|00001230| 6f 6e 67 20 28 6d 61 6b | 65 2d 70 6f 69 6e 74 20 |ong (mak|e-point |
|00001240| 68 20 76 29 29 0d 20 20 | 72 65 63 74 29 0d 0d 28 |h v)).  |rect)..(|
|00001250| 64 65 66 75 6e 20 69 6e | 73 65 74 2d 72 65 63 74 |defun in|set-rect|
|00001260| 20 28 72 65 63 74 20 68 | 20 26 6f 70 74 69 6f 6e | (rect h| &option|
|00001270| 61 6c 20 76 29 0d 20 20 | 28 5f 49 6e 73 65 74 52 |al v).  |(_InsetR|
|00001280| 65 63 74 20 3a 70 74 72 | 20 28 70 6f 69 6e 74 65 |ect :ptr| (pointe|
|00001290| 72 2d 61 72 67 20 72 65 | 63 74 29 20 3a 6c 6f 6e |r-arg re|ct) :lon|
|000012a0| 67 20 28 6d 61 6b 65 2d | 70 6f 69 6e 74 20 68 20 |g (make-|point h |
|000012b0| 76 29 29 0d 20 20 72 65 | 63 74 29 0d 0d 28 64 65 |v)).  re|ct)..(de|
|000012c0| 66 75 6e 20 69 6e 74 65 | 72 73 65 63 74 2d 72 65 |fun inte|rsect-re|
|000012d0| 63 74 20 28 72 65 63 74 | 31 20 72 65 63 74 32 20 |ct (rect|1 rect2 |
|000012e0| 64 65 73 74 2d 72 65 63 | 74 29 0d 20 20 28 5f 53 |dest-rec|t).  (_S|
|000012f0| 65 63 74 52 65 63 74 20 | 3a 70 74 72 20 28 70 6f |ectRect |:ptr (po|
|00001300| 69 6e 74 65 72 2d 61 72 | 67 20 72 65 63 74 31 29 |inter-ar|g rect1)|
|00001310| 20 3a 70 74 72 20 28 70 | 6f 69 6e 74 65 72 2d 61 | :ptr (p|ointer-a|
|00001320| 72 67 20 72 65 63 74 32 | 29 0d 20 20 20 20 20 20 |rg rect2|).      |
|00001330| 20 20 20 20 20 20 20 3a | 70 74 72 20 28 70 6f 69 |       :|ptr (poi|
|00001340| 6e 74 65 72 2d 61 72 67 | 20 64 65 73 74 2d 72 65 |nter-arg| dest-re|
|00001350| 63 74 29 29 0d 20 20 64 | 65 73 74 2d 72 65 63 74 |ct)).  d|est-rect|
|00001360| 29 0d 0d 28 64 65 66 75 | 6e 20 75 6e 69 6f 6e 2d |)..(defu|n union-|
|00001370| 72 65 63 74 20 28 72 65 | 63 74 31 20 72 65 63 74 |rect (re|ct1 rect|
|00001380| 32 20 64 65 73 74 2d 72 | 65 63 74 29 0d 20 20 28 |2 dest-r|ect).  (|
|00001390| 5f 55 6e 69 6f 6e 52 65 | 63 74 20 3a 70 74 72 20 |_UnionRe|ct :ptr |
|000013a0| 28 70 6f 69 6e 74 65 72 | 2d 61 72 67 20 72 65 63 |(pointer|-arg rec|
|000013b0| 74 31 29 20 3a 70 74 72 | 20 28 70 6f 69 6e 74 65 |t1) :ptr| (pointe|
|000013c0| 72 2d 61 72 67 20 72 65 | 63 74 32 29 0d 20 20 20 |r-arg re|ct2).   |
|000013d0| 20 20 20 20 20 20 20 20 | 20 20 3a 70 74 72 20 28 |        |  :ptr (|
|000013e0| 70 6f 69 6e 74 65 72 2d | 61 72 67 20 64 65 73 74 |pointer-|arg dest|
|000013f0| 2d 72 65 63 74 29 29 0d | 20 20 64 65 73 74 2d 72 |-rect)).|  dest-r|
|00001400| 65 63 74 29 0d 0d 28 64 | 65 66 75 6e 20 70 6f 69 |ect)..(d|efun poi|
|00001410| 6e 74 2d 69 6e 2d 72 65 | 63 74 2d 70 20 28 72 65 |nt-in-re|ct-p (re|
|00001420| 63 74 20 68 20 26 6f 70 | 74 69 6f 6e 61 6c 20 76 |ct h &op|tional v|
|00001430| 29 0d 20 20 28 6c 6f 67 | 62 69 74 70 20 38 20 0d |).  (log|bitp 8 .|
|00001440| 20 20 20 20 20 28 5f 50 | 74 49 6e 52 65 63 74 20 |     (_P|tInRect |
|00001450| 3a 6c 6f 6e 67 20 28 6d | 61 6b 65 2d 70 6f 69 6e |:long (m|ake-poin|
|00001460| 74 20 68 20 76 29 20 3a | 70 74 72 20 28 70 6f 69 |t h v) :|ptr (poi|
|00001470| 6e 74 65 72 2d 61 72 67 | 20 72 65 63 74 29 20 3a |nter-arg| rect) :|
|00001480| 77 6f 72 64 29 29 29 0d | 0d 28 64 65 66 75 6e 20 |word))).|.(defun |
|00001490| 70 6f 69 6e 74 73 2d 74 | 6f 2d 72 65 63 74 20 28 |points-t|o-rect (|
|000014a0| 70 6f 69 6e 74 31 20 70 | 6f 69 6e 74 32 20 64 65 |point1 p|oint2 de|
|000014b0| 73 74 2d 72 65 63 74 29 | 0d 20 20 28 5f 50 74 32 |st-rect)|.  (_Pt2|
|000014c0| 52 65 63 74 20 3a 6c 6f | 6e 67 20 28 6d 61 6b 65 |Rect :lo|ng (make|
|000014d0| 2d 70 6f 69 6e 74 20 70 | 6f 69 6e 74 31 20 6e 69 |-point p|oint1 ni|
|000014e0| 6c 29 20 3a 6c 6f 6e 67 | 20 28 6d 61 6b 65 2d 70 |l) :long| (make-p|
|000014f0| 6f 69 6e 74 20 70 6f 69 | 6e 74 32 20 6e 69 6c 29 |oint poi|nt2 nil)|
|00001500| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 70 74 |.       |     :pt|
|00001510| 72 20 28 70 6f 69 6e 74 | 65 72 2d 61 72 67 20 64 |r (point|er-arg d|
|00001520| 65 73 74 2d 72 65 63 74 | 29 29 0d 20 20 64 65 73 |est-rect|)).  des|
|00001530| 74 2d 72 65 63 74 29 0d | 0d 28 64 65 66 75 6e 20 |t-rect).|.(defun |
|00001540| 70 6f 69 6e 74 2d 74 6f | 2d 61 6e 67 6c 65 20 28 |point-to|-angle (|
|00001550| 72 65 63 74 20 68 20 26 | 6f 70 74 69 6f 6e 61 6c |rect h &|optional|
|00001560| 20 76 29 0d 20 20 28 25 | 73 74 61 63 6b 2d 62 6c | v).  (%|stack-bl|
|00001570| 6f 63 6b 20 28 28 69 70 | 20 34 29 29 0d 20 20 20 |ock ((ip| 4)).   |
|00001580| 20 28 5f 50 74 54 6f 41 | 6e 67 6c 65 20 3a 70 74 | (_PtToA|ngle :pt|
|00001590| 72 20 72 65 63 74 20 3a | 6c 6f 6e 67 20 28 6d 61 |r rect :|long (ma|
|000015a0| 6b 65 2d 70 6f 69 6e 74 | 20 68 20 76 29 20 3a 70 |ke-point| h v) :p|
|000015b0| 74 72 20 69 70 29 0d 20 | 20 20 20 28 25 67 65 74 |tr ip). |   (%get|
|000015c0| 2d 77 6f 72 64 20 69 70 | 29 29 29 0d 0d 28 64 65 |-word ip|)))..(de|
|000015d0| 66 75 6e 20 65 71 75 61 | 6c 2d 72 65 63 74 20 28 |fun equa|l-rect (|
|000015e0| 72 65 63 74 31 20 72 65 | 63 74 32 29 0d 20 20 28 |rect1 re|ct2).  (|
|000015f0| 6c 6f 67 62 69 74 70 20 | 38 0d 20 20 20 20 28 5f |logbitp |8.    (_|
|00001600| 45 71 75 61 6c 52 65 63 | 74 20 3a 70 74 72 20 28 |EqualRec|t :ptr (|
|00001610| 70 6f 69 6e 74 65 72 2d | 61 72 67 20 72 65 63 74 |pointer-|arg rect|
|00001620| 31 29 20 3a 70 74 72 20 | 28 70 6f 69 6e 74 65 72 |1) :ptr |(pointer|
|00001630| 2d 61 72 67 20 72 65 63 | 74 32 29 20 3a 77 6f 72 |-arg rec|t2) :wor|
|00001640| 64 29 29 29 0d 0d 28 64 | 65 66 75 6e 20 65 6d 70 |d)))..(d|efun emp|
|00001650| 74 79 2d 72 65 63 74 2d | 70 20 28 6c 65 66 74 20 |ty-rect-|p (left |
|00001660| 26 6f 70 74 69 6f 6e 61 | 6c 20 74 6f 70 20 72 69 |&optiona|l top ri|
|00001670| 67 68 74 20 62 6f 74 29 | 0d 20 20 28 77 69 74 68 |ght bot)|.  (with|
|00001680| 2d 72 65 63 74 61 6e 67 | 6c 65 2d 61 72 67 20 28 |-rectang|le-arg (|
|00001690| 72 20 6c 65 66 74 20 74 | 6f 70 20 72 69 67 68 74 |r left t|op right|
|000016a0| 20 62 6f 74 29 0d 20 20 | 28 6c 6f 67 62 69 74 70 | bot).  |(logbitp|
|000016b0| 20 38 20 28 5f 45 6d 70 | 74 79 52 65 63 74 20 3a | 8 (_Emp|tyRect :|
|000016c0| 70 74 72 20 72 20 3a 77 | 6f 72 64 29 29 29 29 0d |ptr r :w|ord)))).|
|000016d0| 0d 28 64 65 66 6f 62 66 | 75 6e 20 28 66 72 61 6d |.(defobf|un (fram|
|000016e0| 65 2d 72 65 63 74 20 2a | 77 69 6e 64 6f 77 2a 29 |e-rect *|window*)|
|000016f0| 20 28 6c 65 66 74 20 26 | 6f 70 74 69 6f 6e 61 6c | (left &|optional|
|00001700| 20 74 6f 70 20 72 69 67 | 68 74 20 62 6f 74 29 0d | top rig|ht bot).|
|00001710| 20 28 77 69 74 68 2d 70 | 6f 72 74 20 77 70 74 72 | (with-p|ort wptr|
|00001720| 0d 20 20 20 28 77 69 74 | 68 2d 72 65 63 74 61 6e |.   (wit|h-rectan|
|00001730| 67 6c 65 2d 61 72 67 20 | 28 72 20 6c 65 66 74 20 |gle-arg |(r left |
|00001740| 74 6f 70 20 72 69 67 68 | 74 20 62 6f 74 29 20 28 |top righ|t bot) (|
|00001750| 5f 46 72 61 6d 65 52 65 | 63 74 20 3a 70 74 72 20 |_FrameRe|ct :ptr |
|00001760| 72 29 29 29 29 0d 0d 28 | 64 65 66 6f 62 66 75 6e |r))))..(|defobfun|
|00001770| 20 28 70 61 69 6e 74 2d | 72 65 63 74 20 2a 77 69 | (paint-|rect *wi|
|00001780| 6e 64 6f 77 2a 29 20 28 | 6c 65 66 74 20 26 6f 70 |ndow*) (|left &op|
|00001790| 74 69 6f 6e 61 6c 20 74 | 6f 70 20 72 69 67 68 74 |tional t|op right|
|000017a0| 20 62 6f 74 29 0d 20 20 | 28 77 69 74 68 2d 70 6f | bot).  |(with-po|
|000017b0| 72 74 20 77 70 74 72 0d | 20 20 20 20 28 77 69 74 |rt wptr.|    (wit|
|000017c0| 68 2d 72 65 63 74 61 6e | 67 6c 65 2d 61 72 67 20 |h-rectan|gle-arg |
|000017d0| 28 72 20 6c 65 66 74 20 | 74 6f 70 20 72 69 67 68 |(r left |top righ|
|000017e0| 74 20 62 6f 74 29 20 28 | 5f 50 61 69 6e 74 52 65 |t bot) (|_PaintRe|
|000017f0| 63 74 20 3a 70 74 72 20 | 72 29 29 29 29 0d 0d 28 |ct :ptr |r))))..(|
|00001800| 64 65 66 6f 62 66 75 6e | 20 28 65 72 61 73 65 2d |defobfun| (erase-|
|00001810| 72 65 63 74 20 2a 77 69 | 6e 64 6f 77 2a 29 20 28 |rect *wi|ndow*) (|
|00001820| 6c 65 66 74 20 26 6f 70 | 74 69 6f 6e 61 6c 20 74 |left &op|tional t|
|00001830| 6f 70 20 72 69 67 68 74 | 20 62 6f 74 29 0d 20 20 |op right| bot).  |
|00001840| 28 77 69 74 68 2d 70 6f | 72 74 20 77 70 74 72 0d |(with-po|rt wptr.|
|00001850| 20 20 20 20 28 77 69 74 | 68 2d 72 65 63 74 61 6e |    (wit|h-rectan|
|00001860| 67 6c 65 2d 61 72 67 20 | 28 72 20 6c 65 66 74 20 |gle-arg |(r left |
|00001870| 74 6f 70 20 72 69 67 68 | 74 20 62 6f 74 29 20 28 |top righ|t bot) (|
|00001880| 5f 45 72 61 73 65 52 65 | 63 74 20 3a 70 74 72 20 |_EraseRe|ct :ptr |
|00001890| 72 29 29 29 29 0d 0d 28 | 64 65 66 6f 62 66 75 6e |r))))..(|defobfun|
|000018a0| 20 28 69 6e 76 65 72 74 | 2d 72 65 63 74 20 2a 77 | (invert|-rect *w|
|000018b0| 69 6e 64 6f 77 2a 29 20 | 28 6c 65 66 74 20 26 6f |indow*) |(left &o|
|000018c0| 70 74 69 6f 6e 61 6c 20 | 74 6f 70 20 72 69 67 68 |ptional |top righ|
|000018d0| 74 20 62 6f 74 29 0d 20 | 20 28 77 69 74 68 2d 70 |t bot). | (with-p|
|000018e0| 6f 72 74 20 77 70 74 72 | 0d 20 20 20 20 28 77 69 |ort wptr|.    (wi|
|000018f0| 74 68 2d 72 65 63 74 61 | 6e 67 6c 65 2d 61 72 67 |th-recta|ngle-arg|
|00001900| 20 28 72 20 6c 65 66 74 | 20 74 6f 70 20 72 69 67 | (r left| top rig|
|00001910| 68 74 20 62 6f 74 29 20 | 28 5f 49 6e 76 65 72 52 |ht bot) |(_InverR|
|00001920| 65 63 74 20 3a 70 74 72 | 20 72 29 29 29 29 0d 0d |ect :ptr| r))))..|
|00001930| 28 64 65 66 6f 62 66 75 | 6e 20 28 66 69 6c 6c 2d |(defobfu|n (fill-|
|00001940| 72 65 63 74 20 2a 77 69 | 6e 64 6f 77 2a 29 20 28 |rect *wi|ndow*) (|
|00001950| 70 61 74 74 65 72 6e 20 | 6c 65 66 74 20 26 6f 70 |pattern |left &op|
|00001960| 74 69 6f 6e 61 6c 20 74 | 6f 70 20 72 69 67 68 74 |tional t|op right|
|00001970| 20 62 6f 74 29 0d 20 20 | 28 77 69 74 68 2d 70 6f | bot).  |(with-po|
|00001980| 72 74 20 77 70 74 72 0d | 20 20 20 20 28 77 69 74 |rt wptr.|    (wit|
|00001990| 68 2d 72 65 63 74 61 6e | 67 6c 65 2d 61 72 67 20 |h-rectan|gle-arg |
|000019a0| 28 72 20 6c 65 66 74 20 | 74 6f 70 20 72 69 67 68 |(r left |top righ|
|000019b0| 74 20 62 6f 74 29 0d 20 | 20 20 20 20 20 20 28 5f |t bot). |      (_|
|000019c0| 46 69 6c 6c 52 65 63 74 | 20 3a 70 74 72 20 72 20 |FillRect| :ptr r |
|000019d0| 3a 70 74 72 20 28 70 6f | 69 6e 74 65 72 2d 61 72 |:ptr (po|inter-ar|
|000019e0| 67 20 70 61 74 74 65 72 | 6e 29 29 29 29 29 0d 0d |g patter|n)))))..|
|000019f0| 28 64 65 66 6f 62 66 75 | 6e 20 28 66 72 61 6d 65 |(defobfu|n (frame|
|00001a00| 2d 6f 76 61 6c 20 2a 77 | 69 6e 64 6f 77 2a 29 20 |-oval *w|indow*) |
|00001a10| 28 6c 65 66 74 20 26 6f | 70 74 69 6f 6e 61 6c 20 |(left &o|ptional |
|00001a20| 74 6f 70 20 72 69 67 68 | 74 20 62 6f 74 29 0d 20 |top righ|t bot). |
|00001a30| 28 77 69 74 68 2d 70 6f | 72 74 20 77 70 74 72 0d |(with-po|rt wptr.|
|00001a40| 20 20 20 28 77 69 74 68 | 2d 72 65 63 74 61 6e 67 |   (with|-rectang|
|00001a50| 6c 65 2d 61 72 67 20 28 | 72 20 6c 65 66 74 20 74 |le-arg (|r left t|
|00001a60| 6f 70 20 72 69 67 68 74 | 20 62 6f 74 29 20 28 5f |op right| bot) (_|
|00001a70| 46 72 61 6d 65 4f 76 61 | 6c 20 3a 70 74 72 20 72 |FrameOva|l :ptr r|
|00001a80| 29 29 29 29 0d 0d 28 64 | 65 66 6f 62 66 75 6e 20 |))))..(d|efobfun |
|00001a90| 28 70 61 69 6e 74 2d 6f | 76 61 6c 20 2a 77 69 6e |(paint-o|val *win|
|00001aa0| 64 6f 77 2a 29 20 28 6c | 65 66 74 20 26 6f 70 74 |dow*) (l|eft &opt|
|00001ab0| 69 6f 6e 61 6c 20 74 6f | 70 20 72 69 67 68 74 20 |ional to|p right |
|00001ac0| 62 6f 74 29 0d 20 20 28 | 77 69 74 68 2d 70 6f 72 |bot).  (|with-por|
|00001ad0| 74 20 77 70 74 72 0d 20 | 20 20 20 28 77 69 74 68 |t wptr. |   (with|
|00001ae0| 2d 72 65 63 74 61 6e 67 | 6c 65 2d 61 72 67 20 28 |-rectang|le-arg (|
|00001af0| 72 20 6c 65 66 74 20 74 | 6f 70 20 72 69 67 68 74 |r left t|op right|
|00001b00| 20 62 6f 74 29 20 28 5f | 50 61 69 6e 74 4f 76 61 | bot) (_|PaintOva|
|00001b10| 6c 20 3a 70 74 72 20 72 | 29 29 29 29 0d 0d 28 64 |l :ptr r|))))..(d|
|00001b20| 65 66 6f 62 66 75 6e 20 | 28 65 72 61 73 65 2d 6f |efobfun |(erase-o|
|00001b30| 76 61 6c 20 2a 77 69 6e | 64 6f 77 2a 29 20 28 6c |val *win|dow*) (l|
|00001b40| 65 66 74 20 26 6f 70 74 | 69 6f 6e 61 6c 20 74 6f |eft &opt|ional to|
|00001b50| 70 20 72 69 67 68 74 20 | 62 6f 74 29 0d 20 20 28 |p right |bot).  (|
|00001b60| 77 69 74 68 2d 70 6f 72 | 74 20 77 70 74 72 0d 20 |with-por|t wptr. |
|00001b70| 20 20 20 28 77 69 74 68 | 2d 72 65 63 74 61 6e 67 |   (with|-rectang|
|00001b80| 6c 65 2d 61 72 67 20 28 | 72 20 6c 65 66 74 20 74 |le-arg (|r left t|
|00001b90| 6f 70 20 72 69 67 68 74 | 20 62 6f 74 29 20 28 5f |op right| bot) (_|
|00001ba0| 45 72 61 73 65 4f 76 61 | 6c 20 3a 70 74 72 20 72 |EraseOva|l :ptr r|
|00001bb0| 29 29 29 29 0d 0d 28 64 | 65 66 6f 62 66 75 6e 20 |))))..(d|efobfun |
|00001bc0| 28 69 6e 76 65 72 74 2d | 6f 76 61 6c 20 2a 77 69 |(invert-|oval *wi|
|00001bd0| 6e 64 6f 77 2a 29 20 28 | 6c 65 66 74 20 26 6f 70 |ndow*) (|left &op|
|00001be0| 74 69 6f 6e 61 6c 20 74 | 6f 70 20 72 69 67 68 74 |tional t|op right|
|00001bf0| 20 62 6f 74 29 0d 20 20 | 28 77 69 74 68 2d 70 6f | bot).  |(with-po|
|00001c00| 72 74 20 77 70 74 72 0d | 20 20 20 20 28 77 69 74 |rt wptr.|    (wit|
|00001c10| 68 2d 72 65 63 74 61 6e | 67 6c 65 2d 61 72 67 20 |h-rectan|gle-arg |
|00001c20| 28 72 20 6c 65 66 74 20 | 74 6f 70 20 72 69 67 68 |(r left |top righ|
|00001c30| 74 20 62 6f 74 29 20 28 | 5f 49 6e 76 65 72 74 4f |t bot) (|_InvertO|
|00001c40| 76 61 6c 20 3a 70 74 72 | 20 72 29 29 29 29 0d 0d |val :ptr| r))))..|
|00001c50| 28 64 65 66 6f 62 66 75 | 6e 20 28 66 69 6c 6c 2d |(defobfu|n (fill-|
|00001c60| 6f 76 61 6c 20 2a 77 69 | 6e 64 6f 77 2a 29 20 28 |oval *wi|ndow*) (|
|00001c70| 70 61 74 74 65 72 6e 20 | 6c 65 66 74 20 26 6f 70 |pattern |left &op|
|00001c80| 74 69 6f 6e 61 6c 20 74 | 6f 70 20 72 69 67 68 74 |tional t|op right|
|00001c90| 20 62 6f 74 29 0d 20 20 | 28 77 69 74 68 2d 70 6f | bot).  |(with-po|
|00001ca0| 72 74 20 77 70 74 72 0d | 20 20 20 20 28 77 69 74 |rt wptr.|    (wit|
|00001cb0| 68 2d 72 65 63 74 61 6e | 67 6c 65 2d 61 72 67 20 |h-rectan|gle-arg |
|00001cc0| 28 72 20 6c 65 66 74 20 | 74 6f 70 20 72 69 67 68 |(r left |top righ|
|00001cd0| 74 20 62 6f 74 29 0d 20 | 20 20 20 20 20 20 28 5f |t bot). |      (_|
|00001ce0| 46 69 6c 6c 4f 76 61 6c | 20 3a 70 74 72 20 72 20 |FillOval| :ptr r |
|00001cf0| 3a 70 74 72 20 28 70 6f | 69 6e 74 65 72 2d 61 72 |:ptr (po|inter-ar|
|00001d00| 67 20 70 61 74 74 65 72 | 6e 29 29 29 29 29 0d 0d |g patter|n)))))..|
|00001d10| 28 64 65 66 6f 62 66 75 | 6e 20 28 66 72 61 6d 65 |(defobfu|n (frame|
|00001d20| 2d 72 6f 75 6e 64 2d 72 | 65 63 74 20 2a 77 69 6e |-round-r|ect *win|
|00001d30| 64 6f 77 2a 29 20 28 6f | 76 61 6c 2d 77 69 64 74 |dow*) (o|val-widt|
|00001d40| 68 20 6f 76 61 6c 2d 68 | 65 69 67 68 74 20 0d 20 |h oval-h|eight . |
|00001d50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001d60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001d70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001d80| 6c 65 66 74 20 26 6f 70 | 74 69 6f 6e 61 6c 20 74 |left &op|tional t|
|00001d90| 6f 70 20 72 69 67 68 74 | 20 62 6f 74 29 0d 20 28 |op right| bot). (|
|00001da0| 77 69 74 68 2d 70 6f 72 | 74 20 77 70 74 72 0d 20 |with-por|t wptr. |
|00001db0| 20 20 28 77 69 74 68 2d | 72 65 63 74 61 6e 67 6c |  (with-|rectangl|
|00001dc0| 65 2d 61 72 67 20 28 72 | 20 6c 65 66 74 20 74 6f |e-arg (r| left to|
|00001dd0| 70 20 72 69 67 68 74 20 | 62 6f 74 29 0d 20 20 20 |p right |bot).   |
|00001de0| 20 20 20 28 5f 46 72 61 | 6d 65 52 6f 75 6e 64 52 |   (_Fra|meRoundR|
|00001df0| 65 63 74 20 3a 70 74 72 | 20 72 20 3a 77 6f 72 64 |ect :ptr| r :word|
|00001e00| 20 6f 76 61 6c 2d 77 69 | 64 74 68 20 3a 77 6f 72 | oval-wi|dth :wor|
|00001e10| 64 20 6f 76 61 6c 2d 68 | 65 69 67 68 74 29 29 29 |d oval-h|eight)))|
|00001e20| 29 0d 0d 28 64 65 66 6f | 62 66 75 6e 20 28 70 61 |)..(defo|bfun (pa|
|00001e30| 69 6e 74 2d 72 6f 75 6e | 64 2d 72 65 63 74 20 2a |int-roun|d-rect *|
|00001e40| 77 69 6e 64 6f 77 2a 29 | 20 28 6f 76 61 6c 2d 77 |window*)| (oval-w|
|00001e50| 69 64 74 68 20 6f 76 61 | 6c 2d 68 65 69 67 68 74 |idth ova|l-height|
|00001e60| 20 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | .      |        |
|00001e70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001e80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001e90| 20 20 20 6c 65 66 74 20 | 26 6f 70 74 69 6f 6e 61 |   left |&optiona|
|00001ea0| 6c 20 74 6f 70 20 72 69 | 67 68 74 20 62 6f 74 29 |l top ri|ght bot)|
|00001eb0| 0d 20 28 77 69 74 68 2d | 70 6f 72 74 20 77 70 74 |. (with-|port wpt|
|00001ec0| 72 0d 20 20 20 28 77 69 | 74 68 2d 72 65 63 74 61 |r.   (wi|th-recta|
|00001ed0| 6e 67 6c 65 2d 61 72 67 | 20 28 72 20 6c 65 66 74 |ngle-arg| (r left|
|00001ee0| 20 74 6f 70 20 72 69 67 | 68 74 20 62 6f 74 29 0d | top rig|ht bot).|
|00001ef0| 20 20 20 20 20 20 28 5f | 50 61 69 6e 74 52 6f 75 |      (_|PaintRou|
|00001f00| 6e 64 52 65 63 74 20 3a | 70 74 72 20 72 20 3a 77 |ndRect :|ptr r :w|
|00001f10| 6f 72 64 20 6f 76 61 6c | 2d 77 69 64 74 68 20 3a |ord oval|-width :|
|00001f20| 77 6f 72 64 20 6f 76 61 | 6c 2d 68 65 69 67 68 74 |word ova|l-height|
|00001f30| 29 29 29 29 0d 0d 28 64 | 65 66 6f 62 66 75 6e 20 |))))..(d|efobfun |
|00001f40| 28 65 72 61 73 65 2d 72 | 6f 75 6e 64 2d 72 65 63 |(erase-r|ound-rec|
|00001f50| 74 20 2a 77 69 6e 64 6f | 77 2a 29 20 28 6f 76 61 |t *windo|w*) (ova|
|00001f60| 6c 2d 77 69 64 74 68 20 | 6f 76 61 6c 2d 68 65 69 |l-width |oval-hei|
|00001f70| 67 68 74 20 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ght .   |        |
|00001f80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001f90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001fa0| 20 20 20 20 20 20 6c 65 | 66 74 20 26 6f 70 74 69 |      le|ft &opti|
|00001fb0| 6f 6e 61 6c 20 74 6f 70 | 20 72 69 67 68 74 20 62 |onal top| right b|
|00001fc0| 6f 74 29 0d 20 28 77 69 | 74 68 2d 70 6f 72 74 20 |ot). (wi|th-port |
|00001fd0| 77 70 74 72 0d 20 20 20 | 28 77 69 74 68 2d 72 65 |wptr.   |(with-re|
|00001fe0| 63 74 61 6e 67 6c 65 2d | 61 72 67 20 28 72 20 6c |ctangle-|arg (r l|
|00001ff0| 65 66 74 20 74 6f 70 20 | 72 69 67 68 74 20 62 6f |eft top |right bo|
|00002000| 74 29 0d 20 20 20 20 20 | 20 28 5f 45 72 61 73 65 |t).     | (_Erase|
|00002010| 52 6f 75 6e 64 52 65 63 | 74 20 3a 70 74 72 20 72 |RoundRec|t :ptr r|
|00002020| 20 3a 77 6f 72 64 20 6f | 76 61 6c 2d 77 69 64 74 | :word o|val-widt|
|00002030| 68 20 3a 77 6f 72 64 20 | 6f 76 61 6c 2d 68 65 69 |h :word |oval-hei|
|00002040| 67 68 74 29 29 29 29 0d | 0d 28 64 65 66 6f 62 66 |ght)))).|.(defobf|
|00002050| 75 6e 20 28 69 6e 76 65 | 72 74 2d 72 6f 75 6e 64 |un (inve|rt-round|
|00002060| 2d 72 65 63 74 20 2a 77 | 69 6e 64 6f 77 2a 29 20 |-rect *w|indow*) |
|00002070| 28 6f 76 61 6c 2d 77 69 | 64 74 68 20 6f 76 61 6c |(oval-wi|dth oval|
|00002080| 2d 68 65 69 67 68 74 20 | 0d 20 20 20 20 20 20 20 |-height |.       |
|00002090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000020a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000020b0| 20 20 20 20 20 20 20 20 | 20 20 6c 65 66 74 20 26 |        |  left &|
|000020c0| 6f 70 74 69 6f 6e 61 6c | 20 74 6f 70 20 72 69 67 |optional| top rig|
|000020d0| 68 74 20 62 6f 74 29 0d | 20 28 77 69 74 68 2d 70 |ht bot).| (with-p|
|000020e0| 6f 72 74 20 77 70 74 72 | 0d 20 20 20 28 77 69 74 |ort wptr|.   (wit|
|000020f0| 68 2d 72 65 63 74 61 6e | 67 6c 65 2d 61 72 67 20 |h-rectan|gle-arg |
|00002100| 28 72 20 6c 65 66 74 20 | 74 6f 70 20 72 69 67 68 |(r left |top righ|
|00002110| 74 20 62 6f 74 29 0d 20 | 20 20 20 20 20 28 5f 49 |t bot). |     (_I|
|00002120| 6e 76 65 72 52 6f 75 6e | 64 52 65 63 74 20 3a 70 |nverRoun|dRect :p|
|00002130| 74 72 20 72 20 3a 77 6f | 72 64 20 6f 76 61 6c 2d |tr r :wo|rd oval-|
|00002140| 77 69 64 74 68 20 3a 77 | 6f 72 64 20 6f 76 61 6c |width :w|ord oval|
|00002150| 2d 68 65 69 67 68 74 29 | 29 29 29 0d 0d 28 64 65 |-height)|)))..(de|
|00002160| 66 6f 62 66 75 6e 20 28 | 66 69 6c 6c 2d 72 6f 75 |fobfun (|fill-rou|
|00002170| 6e 64 2d 72 65 63 74 20 | 2a 77 69 6e 64 6f 77 2a |nd-rect |*window*|
|00002180| 29 20 28 70 61 74 74 65 | 72 6e 20 6f 76 61 6c 2d |) (patte|rn oval-|
|00002190| 77 69 64 74 68 20 6f 76 | 61 6c 2d 68 65 69 67 68 |width ov|al-heigh|
|000021a0| 74 20 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |t .     |        |
|000021b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000021c0| 20 20 20 20 20 20 20 20 | 20 20 6c 65 66 74 20 26 |        |  left &|
|000021d0| 6f 70 74 69 6f 6e 61 6c | 20 74 6f 70 20 72 69 67 |optional| top rig|
|000021e0| 68 74 20 62 6f 74 29 0d | 20 20 28 77 69 74 68 2d |ht bot).|  (with-|
|000021f0| 70 6f 72 74 20 77 70 74 | 72 0d 20 20 20 20 28 77 |port wpt|r.    (w|
|00002200| 69 74 68 2d 72 65 63 74 | 61 6e 67 6c 65 2d 61 72 |ith-rect|angle-ar|
|00002210| 67 20 28 72 20 6c 65 66 | 74 20 74 6f 70 20 72 69 |g (r lef|t top ri|
|00002220| 67 68 74 20 62 6f 74 29 | 0d 20 20 20 20 20 20 20 |ght bot)|.       |
|00002230| 28 5f 46 69 6c 6c 52 6f | 75 6e 64 52 65 63 74 20 |(_FillRo|undRect |
|00002240| 3a 70 74 72 20 72 20 3a | 77 6f 72 64 20 6f 76 61 |:ptr r :|word ova|
|00002250| 6c 2d 77 69 64 74 68 20 | 3a 77 6f 72 64 20 6f 76 |l-width |:word ov|
|00002260| 61 6c 2d 68 65 69 67 68 | 74 0d 20 20 20 20 20 20 |al-heigh|t.      |
|00002270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002280| 20 3a 70 74 72 20 28 70 | 6f 69 6e 74 65 72 2d 61 | :ptr (p|ointer-a|
|00002290| 72 67 20 70 61 74 74 65 | 72 6e 29 29 29 29 29 0d |rg patte|rn))))).|
|000022a0| 0d 28 64 65 66 6f 62 66 | 75 6e 20 28 66 72 61 6d |.(defobf|un (fram|
|000022b0| 65 2d 61 72 63 20 2a 77 | 69 6e 64 6f 77 2a 29 20 |e-arc *w|indow*) |
|000022c0| 28 73 74 61 72 74 2d 61 | 6e 67 6c 65 20 61 72 63 |(start-a|ngle arc|
|000022d0| 2d 61 6e 67 6c 65 20 0d | 20 20 20 20 20 20 20 20 |-angle .|        |
|000022e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000022f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002300| 20 20 20 20 20 20 20 20 | 20 6c 65 66 74 20 26 6f |        | left &o|
|00002310| 70 74 69 6f 6e 61 6c 20 | 74 6f 70 20 72 69 67 68 |ptional |top righ|
|00002320| 74 20 62 6f 74 29 0d 20 | 28 77 69 74 68 2d 70 6f |t bot). |(with-po|
|00002330| 72 74 20 77 70 74 72 0d | 20 20 20 28 77 69 74 68 |rt wptr.|   (with|
|00002340| 2d 72 65 63 74 61 6e 67 | 6c 65 2d 61 72 67 20 28 |-rectang|le-arg (|
|00002350| 72 20 6c 65 66 74 20 74 | 6f 70 20 72 69 67 68 74 |r left t|op right|
|00002360| 20 62 6f 74 29 0d 20 20 | 20 20 20 20 28 5f 46 72 | bot).  |    (_Fr|
|00002370| 61 6d 65 41 72 63 20 3a | 70 74 72 20 72 20 3a 77 |ameArc :|ptr r :w|
|00002380| 6f 72 64 20 73 74 61 72 | 74 2d 61 6e 67 6c 65 20 |ord star|t-angle |
|00002390| 3a 77 6f 72 64 20 61 72 | 63 2d 61 6e 67 6c 65 29 |:word ar|c-angle)|
|000023a0| 29 29 29 0d 0d 28 64 65 | 66 6f 62 66 75 6e 20 28 |)))..(de|fobfun (|
|000023b0| 70 61 69 6e 74 2d 61 72 | 63 20 2a 77 69 6e 64 6f |paint-ar|c *windo|
|000023c0| 77 2a 29 20 28 73 74 61 | 72 74 2d 61 6e 67 6c 65 |w*) (sta|rt-angle|
|000023d0| 20 61 72 63 2d 61 6e 67 | 6c 65 20 0d 20 20 20 20 | arc-ang|le .    |
|000023e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000023f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6c 65 66 |        |     lef|
|00002410| 74 20 26 6f 70 74 69 6f | 6e 61 6c 20 74 6f 70 20 |t &optio|nal top |
|00002420| 72 69 67 68 74 20 62 6f | 74 29 0d 20 28 77 69 74 |right bo|t). (wit|
|00002430| 68 2d 70 6f 72 74 20 77 | 70 74 72 0d 20 20 20 28 |h-port w|ptr.   (|
|00002440| 77 69 74 68 2d 72 65 63 | 74 61 6e 67 6c 65 2d 61 |with-rec|tangle-a|
|00002450| 72 67 20 28 72 20 6c 65 | 66 74 20 74 6f 70 20 72 |rg (r le|ft top r|
|00002460| 69 67 68 74 20 62 6f 74 | 29 0d 20 20 20 20 20 20 |ight bot|).      |
|00002470| 28 5f 50 61 69 6e 74 41 | 72 63 20 3a 70 74 72 20 |(_PaintA|rc :ptr |
|00002480| 72 20 3a 77 6f 72 64 20 | 73 74 61 72 74 2d 61 6e |r :word |start-an|
|00002490| 67 6c 65 20 3a 77 6f 72 | 64 20 61 72 63 2d 61 6e |gle :wor|d arc-an|
|000024a0| 67 6c 65 29 29 29 29 0d | 0d 28 64 65 66 6f 62 66 |gle)))).|.(defobf|
|000024b0| 75 6e 20 28 65 72 61 73 | 65 2d 61 72 63 20 2a 77 |un (eras|e-arc *w|
|000024c0| 69 6e 64 6f 77 2a 29 20 | 28 73 74 61 72 74 2d 61 |indow*) |(start-a|
|000024d0| 6e 67 6c 65 20 61 72 63 | 2d 61 6e 67 6c 65 20 0d |ngle arc|-angle .|
|000024e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000024f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002510| 20 6c 65 66 74 20 26 6f | 70 74 69 6f 6e 61 6c 20 | left &o|ptional |
|00002520| 74 6f 70 20 72 69 67 68 | 74 20 62 6f 74 29 0d 20 |top righ|t bot). |
|00002530| 28 77 69 74 68 2d 70 6f | 72 74 20 77 70 74 72 0d |(with-po|rt wptr.|
|00002540| 20 20 20 28 77 69 74 68 | 2d 72 65 63 74 61 6e 67 |   (with|-rectang|
|00002550| 6c 65 2d 61 72 67 20 28 | 72 20 6c 65 66 74 20 74 |le-arg (|r left t|
|00002560| 6f 70 20 72 69 67 68 74 | 20 62 6f 74 29 0d 20 20 |op right| bot).  |
|00002570| 20 20 20 20 28 5f 45 72 | 61 73 65 41 72 63 20 3a |    (_Er|aseArc :|
|00002580| 70 74 72 20 72 20 3a 77 | 6f 72 64 20 73 74 61 72 |ptr r :w|ord star|
|00002590| 74 2d 61 6e 67 6c 65 20 | 3a 77 6f 72 64 20 61 72 |t-angle |:word ar|
|000025a0| 63 2d 61 6e 67 6c 65 29 | 29 29 29 0d 0d 28 64 65 |c-angle)|)))..(de|
|000025b0| 66 6f 62 66 75 6e 20 28 | 69 6e 76 65 72 74 2d 61 |fobfun (|invert-a|
|000025c0| 72 63 20 2a 77 69 6e 64 | 6f 77 2a 29 20 28 73 74 |rc *wind|ow*) (st|
|000025d0| 61 72 74 2d 61 6e 67 6c | 65 20 61 72 63 2d 61 6e |art-angl|e arc-an|
|000025e0| 67 6c 65 20 0d 20 20 20 | 20 20 20 20 20 20 20 20 |gle .   |        |
|000025f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002610| 20 20 20 20 20 20 6c 65 | 66 74 20 26 6f 70 74 69 |      le|ft &opti|
|00002620| 6f 6e 61 6c 20 74 6f 70 | 20 72 69 67 68 74 20 62 |onal top| right b|
|00002630| 6f 74 29 0d 20 28 77 69 | 74 68 2d 70 6f 72 74 20 |ot). (wi|th-port |
|00002640| 77 70 74 72 0d 20 20 20 | 28 77 69 74 68 2d 72 65 |wptr.   |(with-re|
|00002650| 63 74 61 6e 67 6c 65 2d | 61 72 67 20 28 72 20 6c |ctangle-|arg (r l|
|00002660| 65 66 74 20 74 6f 70 20 | 72 69 67 68 74 20 62 6f |eft top |right bo|
|00002670| 74 29 0d 20 20 20 20 20 | 20 28 5f 49 6e 76 65 72 |t).     | (_Inver|
|00002680| 74 41 72 63 20 3a 70 74 | 72 20 72 20 3a 77 6f 72 |tArc :pt|r r :wor|
|00002690| 64 20 73 74 61 72 74 2d | 61 6e 67 6c 65 20 3a 77 |d start-|angle :w|
|000026a0| 6f 72 64 20 61 72 63 2d | 61 6e 67 6c 65 29 29 29 |ord arc-|angle)))|
|000026b0| 29 0d 0d 28 64 65 66 6f | 62 66 75 6e 20 28 66 69 |)..(defo|bfun (fi|
|000026c0| 6c 6c 2d 61 72 63 20 2a | 77 69 6e 64 6f 77 2a 29 |ll-arc *|window*)|
|000026d0| 20 28 70 61 74 74 65 72 | 6e 20 73 74 61 72 74 2d | (patter|n start-|
|000026e0| 61 6e 67 6c 65 20 61 72 | 63 2d 61 6e 67 6c 65 0d |angle ar|c-angle.|
|000026f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002710| 20 20 20 20 20 20 20 6c | 65 66 74 20 26 6f 70 74 |       l|eft &opt|
|00002720| 69 6f 6e 61 6c 20 74 6f | 70 20 72 69 67 68 74 20 |ional to|p right |
|00002730| 62 6f 74 29 0d 20 20 28 | 77 69 74 68 2d 70 6f 72 |bot).  (|with-por|
|00002740| 74 20 77 70 74 72 0d 20 | 20 20 20 28 77 69 74 68 |t wptr. |   (with|
|00002750| 2d 72 65 63 74 61 6e 67 | 6c 65 2d 61 72 67 20 28 |-rectang|le-arg (|
|00002760| 72 20 6c 65 66 74 20 74 | 6f 70 20 72 69 67 68 74 |r left t|op right|
|00002770| 20 62 6f 74 29 0d 20 20 | 20 20 20 20 20 28 5f 46 | bot).  |     (_F|
|00002780| 69 6c 6c 41 72 63 20 3a | 70 74 72 20 72 20 3a 77 |illArc :|ptr r :w|
|00002790| 6f 72 64 20 73 74 61 72 | 74 2d 61 6e 67 6c 65 20 |ord star|t-angle |
|000027a0| 3a 77 6f 72 64 20 61 72 | 63 2d 61 6e 67 6c 65 0d |:word ar|c-angle.|
|000027b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000027c0| 20 3a 70 74 72 20 28 70 | 6f 69 6e 74 65 72 2d 61 | :ptr (p|ointer-a|
|000027d0| 72 67 20 70 61 74 74 65 | 72 6e 29 29 29 29 29 0d |rg patte|rn))))).|
|000027e0| 0d 3b 3b 3b 52 65 67 69 | 6f 6e 73 0d 0d 28 64 65 |.;;;Regi|ons..(de|
|000027f0| 66 75 6e 20 6e 65 77 2d | 72 65 67 69 6f 6e 20 28 |fun new-|region (|
|00002800| 29 0d 20 20 28 5f 4e 65 | 77 52 67 6e 20 3a 70 74 |).  (_Ne|wRgn :pt|
|00002810| 72 29 29 0d 0d 28 64 65 | 66 75 6e 20 64 69 73 70 |r))..(de|fun disp|
|00002820| 6f 73 65 2d 72 65 67 69 | 6f 6e 20 28 72 65 67 69 |ose-regi|on (regi|
|00002830| 6f 6e 29 0d 20 20 28 5f | 44 69 73 70 6f 73 52 67 |on).  (_|DisposRg|
|00002840| 6e 20 3a 70 74 72 20 28 | 72 65 67 69 6f 6e 2d 61 |n :ptr (|region-a|
|00002850| 72 67 20 72 65 67 69 6f | 6e 29 29 29 0d 0d 28 64 |rg regio|n)))..(d|
|00002860| 65 66 75 6e 20 63 6f 70 | 79 2d 72 65 67 69 6f 6e |efun cop|y-region|
|00002870| 20 28 72 65 67 69 6f 6e | 20 26 6f 70 74 69 6f 6e | (region| &option|
|00002880| 61 6c 20 28 64 65 73 74 | 2d 72 65 67 69 6f 6e 20 |al (dest|-region |
|00002890| 28 6e 65 77 2d 72 65 67 | 69 6f 6e 29 29 29 0d 20 |(new-reg|ion))). |
|000028a0| 20 28 5f 43 6f 70 79 52 | 67 6e 20 3a 70 74 72 20 | (_CopyR|gn :ptr |
|000028b0| 28 72 65 67 69 6f 6e 2d | 61 72 67 20 72 65 67 69 |(region-|arg regi|
|000028c0| 6f 6e 29 20 3a 70 74 72 | 20 28 72 65 67 69 6f 6e |on) :ptr| (region|
|000028d0| 2d 61 72 67 20 64 65 73 | 74 2d 72 65 67 69 6f 6e |-arg des|t-region|
|000028e0| 29 29 0d 20 20 64 65 73 | 74 2d 72 65 67 69 6f 6e |)).  des|t-region|
|000028f0| 29 0d 0d 28 64 65 66 75 | 6e 20 73 65 74 2d 65 6d |)..(defu|n set-em|
|00002900| 70 74 79 2d 72 65 67 69 | 6f 6e 20 28 72 65 67 69 |pty-regi|on (regi|
|00002910| 6f 6e 29 0d 20 20 28 5f | 53 65 74 45 6d 70 74 79 |on).  (_|SetEmpty|
|00002920| 52 67 6e 20 3a 70 74 72 | 20 28 72 65 67 69 6f 6e |Rgn :ptr| (region|
|00002930| 2d 61 72 67 20 72 65 67 | 69 6f 6e 29 29 0d 20 20 |-arg reg|ion)).  |
|00002940| 72 65 67 69 6f 6e 29 0d | 0d 28 64 65 66 75 6e 20 |region).|.(defun |
|00002950| 73 65 74 2d 72 65 63 74 | 2d 72 65 67 69 6f 6e 20 |set-rect|-region |
|00002960| 28 72 65 67 69 6f 6e 20 | 6c 65 66 74 20 26 6f 70 |(region |left &op|
|00002970| 74 69 6f 6e 61 6c 20 74 | 6f 70 20 72 69 67 68 74 |tional t|op right|
|00002980| 20 62 6f 74 29 0d 20 20 | 28 77 69 74 68 2d 72 65 | bot).  |(with-re|
|00002990| 63 74 61 6e 67 6c 65 2d | 61 72 67 20 28 72 20 6c |ctangle-|arg (r l|
|000029a0| 65 66 74 20 74 6f 70 20 | 72 69 67 68 74 20 62 6f |eft top |right bo|
|000029b0| 74 29 0d 20 20 20 28 5f | 52 65 63 74 52 67 6e 20 |t).   (_|RectRgn |
|000029c0| 3a 70 74 72 20 28 72 65 | 67 69 6f 6e 2d 61 72 67 |:ptr (re|gion-arg|
|000029d0| 20 72 65 67 69 6f 6e 29 | 20 3a 70 74 72 20 72 29 | region)| :ptr r)|
|000029e0| 29 0d 20 20 72 65 67 69 | 6f 6e 29 0d 0d 28 64 65 |).  regi|on)..(de|
|000029f0| 66 6f 62 66 75 6e 20 28 | 6f 70 65 6e 2d 72 65 67 |fobfun (|open-reg|
|00002a00| 69 6f 6e 20 2a 77 69 6e | 64 6f 77 2a 29 20 28 29 |ion *win|dow*) ()|
|00002a10| 0d 20 20 28 69 66 20 28 | 72 72 65 66 20 77 70 74 |.  (if (|rref wpt|
|00002a20| 72 20 77 69 6e 64 6f 77 | 2e 72 67 6e 53 61 76 65 |r window|.rgnSave|
|00002a30| 29 0d 20 20 20 20 20 20 | 28 65 72 72 6f 72 20 22 |).      |(error "|
|00002a40| 52 65 67 69 6f 6e 20 61 | 6c 72 65 61 64 79 20 6f |Region a|lready o|
|00002a50| 70 65 6e 20 66 6f 72 20 | 77 69 6e 64 6f 77 3a 20 |pen for |window: |
|00002a60| 7e 61 22 20 28 73 65 6c | 66 29 29 29 0d 20 20 28 |~a" (sel|f))).  (|
|00002a70| 77 69 74 68 2d 70 6f 72 | 74 20 77 70 74 72 20 28 |with-por|t wptr (|
|00002a80| 5f 4f 70 65 6e 52 67 6e | 29 29 29 0d 0d 28 64 65 |_OpenRgn|)))..(de|
|00002a90| 66 6f 62 66 75 6e 20 28 | 63 6c 6f 73 65 2d 72 65 |fobfun (|close-re|
|00002aa0| 67 69 6f 6e 20 2a 77 69 | 6e 64 6f 77 2a 29 20 28 |gion *wi|ndow*) (|
|00002ab0| 26 6f 70 74 69 6f 6e 61 | 6c 20 28 64 65 73 74 2d |&optiona|l (dest-|
|00002ac0| 72 65 67 69 6f 6e 20 28 | 6e 65 77 2d 72 65 67 69 |region (|new-regi|
|00002ad0| 6f 6e 29 20 64 70 29 29 | 0d 20 20 28 69 66 20 28 |on) dp))|.  (if (|
|00002ae0| 6e 6f 74 20 28 72 72 65 | 66 20 77 70 74 72 20 77 |not (rre|f wptr w|
|00002af0| 69 6e 64 6f 77 2e 72 67 | 6e 53 61 76 65 29 29 0d |indow.rg|nSave)).|
|00002b00| 20 20 20 20 20 20 28 70 | 72 6f 67 6e 20 0d 20 20 |      (p|rogn .  |
|00002b10| 20 20 20 20 20 28 69 66 | 20 28 6e 6f 74 20 64 70 |     (if| (not dp|
|00002b20| 29 20 28 64 69 73 70 6f | 73 65 2d 72 65 67 69 6f |) (dispo|se-regio|
|00002b30| 6e 20 64 65 73 74 2d 72 | 65 67 69 6f 6e 29 29 0d |n dest-r|egion)).|
|00002b40| 20 20 20 20 20 20 20 28 | 65 72 72 6f 72 20 22 52 |       (|error "R|
|00002b50| 65 67 69 6f 6e 20 69 73 | 20 6e 6f 74 20 6f 70 65 |egion is| not ope|
|00002b60| 6e 20 66 6f 72 20 77 69 | 6e 64 6f 77 3a 20 7e 61 |n for wi|ndow: ~a|
|00002b70| 22 20 28 73 65 6c 66 29 | 29 29 29 0d 20 20 28 77 |" (self)|))).  (w|
|00002b80| 69 74 68 2d 70 6f 72 74 | 20 77 70 74 72 0d 20 20 |ith-port| wptr.  |
|00002b90| 20 20 28 5f 43 6c 6f 73 | 65 52 67 6e 20 3a 70 74 |  (_Clos|eRgn :pt|
|00002ba0| 72 20 28 72 65 67 69 6f | 6e 2d 61 72 67 20 64 65 |r (regio|n-arg de|
|00002bb0| 73 74 2d 72 65 67 69 6f | 6e 29 29 29 0d 20 20 64 |st-regio|n))).  d|
|00002bc0| 65 73 74 2d 72 65 67 69 | 6f 6e 29 0d 0d 28 64 65 |est-regi|on)..(de|
|00002bd0| 66 75 6e 20 6f 66 66 73 | 65 74 2d 72 65 67 69 6f |fun offs|et-regio|
|00002be0| 6e 20 28 72 65 67 69 6f | 6e 20 68 20 26 6f 70 74 |n (regio|n h &opt|
|00002bf0| 69 6f 6e 61 6c 20 76 29 | 0d 20 20 28 5f 4f 66 66 |ional v)|.  (_Off|
|00002c00| 73 65 74 52 67 6e 20 3a | 70 74 72 20 28 72 65 67 |setRgn :|ptr (reg|
|00002c10| 69 6f 6e 2d 61 72 67 20 | 72 65 67 69 6f 6e 29 20 |ion-arg |region) |
|00002c20| 3a 6c 6f 6e 67 20 28 6d | 61 6b 65 2d 70 6f 69 6e |:long (m|ake-poin|
|00002c30| 74 20 68 20 76 29 29 0d | 20 20 72 65 67 69 6f 6e |t h v)).|  region|
|00002c40| 29 0d 0d 28 64 65 66 75 | 6e 20 69 6e 73 65 74 2d |)..(defu|n inset-|
|00002c50| 72 65 67 69 6f 6e 20 28 | 72 65 67 69 6f 6e 20 68 |region (|region h|
|00002c60| 20 26 6f 70 74 69 6f 6e | 61 6c 20 76 29 0d 20 20 | &option|al v).  |
|00002c70| 28 5f 49 6e 73 65 74 52 | 67 6e 20 3a 70 74 72 20 |(_InsetR|gn :ptr |
|00002c80| 28 72 65 67 69 6f 6e 2d | 61 72 67 20 72 65 67 69 |(region-|arg regi|
|00002c90| 6f 6e 29 20 3a 6c 6f 6e | 67 20 28 6d 61 6b 65 2d |on) :lon|g (make-|
|00002ca0| 70 6f 69 6e 74 20 68 20 | 76 29 29 0d 20 20 72 65 |point h |v)).  re|
|00002cb0| 67 69 6f 6e 29 0d 0d 28 | 64 65 66 75 6e 20 69 6e |gion)..(|defun in|
|00002cc0| 74 65 72 73 65 63 74 2d | 72 65 67 69 6f 6e 20 28 |tersect-|region (|
|00002cd0| 72 65 67 69 6f 6e 31 20 | 72 65 67 69 6f 6e 32 20 |region1 |region2 |
|00002ce0| 26 6f 70 74 69 6f 6e 61 | 6c 20 28 64 65 73 74 2d |&optiona|l (dest-|
|00002cf0| 72 65 67 69 6f 6e 20 28 | 6e 65 77 2d 72 65 67 69 |region (|new-regi|
|00002d00| 6f 6e 29 29 29 0d 20 20 | 28 5f 53 65 63 74 52 67 |on))).  |(_SectRg|
|00002d10| 6e 20 3a 70 74 72 20 28 | 72 65 67 69 6f 6e 2d 61 |n :ptr (|region-a|
|00002d20| 72 67 20 72 65 67 69 6f | 6e 31 29 20 3a 70 74 72 |rg regio|n1) :ptr|
|00002d30| 20 28 72 65 67 69 6f 6e | 2d 61 72 67 20 72 65 67 | (region|-arg reg|
|00002d40| 69 6f 6e 32 29 0d 20 20 | 20 20 20 20 20 20 20 20 |ion2).  |        |
|00002d50| 20 20 3a 70 74 72 20 28 | 72 65 67 69 6f 6e 2d 61 |  :ptr (|region-a|
|00002d60| 72 67 20 64 65 73 74 2d | 72 65 67 69 6f 6e 29 29 |rg dest-|region))|
|00002d70| 0d 20 20 64 65 73 74 2d | 72 65 67 69 6f 6e 29 0d |.  dest-|region).|
|00002d80| 0d 28 64 65 66 75 6e 20 | 75 6e 69 6f 6e 2d 72 65 |.(defun |union-re|
|00002d90| 67 69 6f 6e 20 28 72 65 | 67 69 6f 6e 31 20 72 65 |gion (re|gion1 re|
|00002da0| 67 69 6f 6e 32 20 26 6f | 70 74 69 6f 6e 61 6c 20 |gion2 &o|ptional |
|00002db0| 28 64 65 73 74 2d 72 65 | 67 69 6f 6e 20 28 6e 65 |(dest-re|gion (ne|
|00002dc0| 77 2d 72 65 67 69 6f 6e | 29 29 29 0d 20 20 28 5f |w-region|))).  (_|
|00002dd0| 55 6e 69 6f 6e 52 67 6e | 20 3a 70 74 72 20 28 72 |UnionRgn| :ptr (r|
|00002de0| 65 67 69 6f 6e 2d 61 72 | 67 20 72 65 67 69 6f 6e |egion-ar|g region|
|00002df0| 31 29 20 3a 70 74 72 20 | 28 72 65 67 69 6f 6e 2d |1) :ptr |(region-|
|00002e00| 61 72 67 20 72 65 67 69 | 6f 6e 32 29 0d 20 20 20 |arg regi|on2).   |
|00002e10| 20 20 20 20 20 20 20 20 | 20 3a 70 74 72 20 28 72 |        | :ptr (r|
|00002e20| 65 67 69 6f 6e 2d 61 72 | 67 20 64 65 73 74 2d 72 |egion-ar|g dest-r|
|00002e30| 65 67 69 6f 6e 29 29 0d | 20 20 64 65 73 74 2d 72 |egion)).|  dest-r|
|00002e40| 65 67 69 6f 6e 29 0d 0d | 28 64 65 66 75 6e 20 64 |egion)..|(defun d|
|00002e50| 69 66 66 65 72 65 6e 63 | 65 2d 72 65 67 69 6f 6e |ifferenc|e-region|
|00002e60| 20 28 72 65 67 69 6f 6e | 31 20 72 65 67 69 6f 6e | (region|1 region|
|00002e70| 32 20 26 6f 70 74 69 6f | 6e 61 6c 20 28 64 65 73 |2 &optio|nal (des|
|00002e80| 74 2d 72 65 67 69 6f 6e | 20 28 6e 65 77 2d 72 65 |t-region| (new-re|
|00002e90| 67 69 6f 6e 29 29 29 0d | 20 20 28 5f 44 69 66 66 |gion))).|  (_Diff|
|00002ea0| 52 67 6e 20 3a 70 74 72 | 20 28 72 65 67 69 6f 6e |Rgn :ptr| (region|
|00002eb0| 2d 61 72 67 20 72 65 67 | 69 6f 6e 31 29 20 3a 70 |-arg reg|ion1) :p|
|00002ec0| 74 72 20 28 72 65 67 69 | 6f 6e 2d 61 72 67 20 72 |tr (regi|on-arg r|
|00002ed0| 65 67 69 6f 6e 32 29 0d | 20 20 20 20 20 20 20 20 |egion2).|        |
|00002ee0| 20 20 20 20 3a 70 74 72 | 20 28 72 65 67 69 6f 6e |    :ptr| (region|
|00002ef0| 2d 61 72 67 20 64 65 73 | 74 2d 72 65 67 69 6f 6e |-arg des|t-region|
|00002f00| 29 29 0d 20 20 64 65 73 | 74 2d 72 65 67 69 6f 6e |)).  des|t-region|
|00002f10| 29 0d 0d 28 64 65 66 75 | 6e 20 78 6f 72 2d 72 65 |)..(defu|n xor-re|
|00002f20| 67 69 6f 6e 20 28 72 65 | 67 69 6f 6e 31 20 72 65 |gion (re|gion1 re|
|00002f30| 67 69 6f 6e 32 20 26 6f | 70 74 69 6f 6e 61 6c 20 |gion2 &o|ptional |
|00002f40| 28 64 65 73 74 2d 72 65 | 67 69 6f 6e 20 28 6e 65 |(dest-re|gion (ne|
|00002f50| 77 2d 72 65 67 69 6f 6e | 29 29 29 0d 20 20 28 5f |w-region|))).  (_|
|00002f60| 58 6f 72 52 67 6e 20 3a | 70 74 72 20 28 72 65 67 |XorRgn :|ptr (reg|
|00002f70| 69 6f 6e 2d 61 72 67 20 | 72 65 67 69 6f 6e 31 29 |ion-arg |region1)|
|00002f80| 20 3a 70 74 72 20 28 72 | 65 67 69 6f 6e 2d 61 72 | :ptr (r|egion-ar|
|00002f90| 67 20 72 65 67 69 6f 6e | 32 29 0d 20 20 20 20 20 |g region|2).     |
|00002fa0| 20 20 20 20 20 20 20 3a | 70 74 72 20 28 72 65 67 |       :|ptr (reg|
|00002fb0| 69 6f 6e 2d 61 72 67 20 | 64 65 73 74 2d 72 65 67 |ion-arg |dest-reg|
|00002fc0| 69 6f 6e 29 29 0d 20 20 | 64 65 73 74 2d 72 65 67 |ion)).  |dest-reg|
|00002fd0| 69 6f 6e 29 0d 0d 28 64 | 65 66 75 6e 20 70 6f 69 |ion)..(d|efun poi|
|00002fe0| 6e 74 2d 69 6e 2d 72 65 | 67 69 6f 6e 2d 70 20 28 |nt-in-re|gion-p (|
|00002ff0| 72 65 67 69 6f 6e 20 68 | 20 26 6f 70 74 69 6f 6e |region h| &option|
|00003000| 61 6c 20 76 29 0d 20 20 | 28 6c 6f 67 62 69 74 70 |al v).  |(logbitp|
|00003010| 20 38 20 0d 20 20 20 20 | 28 5f 50 74 49 6e 52 67 | 8 .    |(_PtInRg|
|00003020| 6e 20 3a 6c 6f 6e 67 20 | 28 6d 61 6b 65 2d 70 6f |n :long |(make-po|
|00003030| 69 6e 74 20 68 20 76 29 | 20 3a 70 74 72 20 28 72 |int h v)| :ptr (r|
|00003040| 65 67 69 6f 6e 2d 61 72 | 67 20 72 65 67 69 6f 6e |egion-ar|g region|
|00003050| 29 20 3a 77 6f 72 64 29 | 29 29 0d 0d 28 64 65 66 |) :word)|))..(def|
|00003060| 75 6e 20 72 65 63 74 2d | 69 6e 2d 72 65 67 69 6f |un rect-|in-regio|
|00003070| 6e 2d 70 20 28 72 65 67 | 69 6f 6e 20 6c 65 66 74 |n-p (reg|ion left|
|00003080| 20 26 6f 70 74 69 6f 6e | 61 6c 20 74 6f 70 20 72 | &option|al top r|
|00003090| 69 67 68 74 20 62 6f 74 | 29 0d 20 28 77 69 74 68 |ight bot|). (with|
|000030a0| 2d 72 65 63 74 61 6e 67 | 6c 65 2d 61 72 67 20 28 |-rectang|le-arg (|
|000030b0| 72 20 6c 65 66 74 20 74 | 6f 70 20 72 69 67 68 74 |r left t|op right|
|000030c0| 20 62 6f 74 29 0d 20 20 | 28 6c 6f 67 62 69 74 70 | bot).  |(logbitp|
|000030d0| 20 38 20 28 5f 52 65 63 | 74 49 6e 52 67 6e 20 3a | 8 (_Rec|tInRgn :|
|000030e0| 70 74 72 20 72 20 3a 70 | 74 72 20 28 72 65 67 69 |ptr r :p|tr (regi|
|000030f0| 6f 6e 2d 61 72 67 20 72 | 65 67 69 6f 6e 29 20 3a |on-arg r|egion) :|
|00003100| 77 6f 72 64 29 29 29 29 | 0d 0d 28 64 65 66 75 6e |word))))|..(defun|
|00003110| 20 65 71 75 61 6c 2d 72 | 65 67 69 6f 6e 2d 70 20 | equal-r|egion-p |
|00003120| 28 72 65 67 69 6f 6e 31 | 20 72 65 67 69 6f 6e 32 |(region1| region2|
|00003130| 29 0d 20 20 28 6c 6f 67 | 62 69 74 70 20 38 20 0d |).  (log|bitp 8 .|
|00003140| 20 20 20 20 20 28 5f 45 | 71 75 61 6c 52 67 6e 20 |     (_E|qualRgn |
|00003150| 3a 70 74 72 20 28 72 65 | 67 69 6f 6e 2d 61 72 67 |:ptr (re|gion-arg|
|00003160| 20 72 65 67 69 6f 6e 31 | 29 20 3a 70 74 72 20 28 | region1|) :ptr (|
|00003170| 72 65 67 69 6f 6e 2d 61 | 72 67 20 72 65 67 69 6f |region-a|rg regio|
|00003180| 6e 32 29 20 3a 77 6f 72 | 64 29 29 29 0d 0d 28 64 |n2) :wor|d)))..(d|
|00003190| 65 66 75 6e 20 65 6d 70 | 74 79 2d 72 65 67 69 6f |efun emp|ty-regio|
|000031a0| 6e 2d 70 20 28 72 65 67 | 69 6f 6e 29 0d 20 20 20 |n-p (reg|ion).   |
|000031b0| 28 6c 6f 67 62 69 74 70 | 20 38 20 28 5f 45 6d 70 |(logbitp| 8 (_Emp|
|000031c0| 74 79 52 67 6e 20 3a 70 | 74 72 20 28 72 65 67 69 |tyRgn :p|tr (regi|
|000031d0| 6f 6e 2d 61 72 67 20 72 | 65 67 69 6f 6e 29 20 3a |on-arg r|egion) :|
|000031e0| 77 6f 72 64 29 29 29 0d | 0d 28 64 65 66 6f 62 66 |word))).|.(defobf|
|000031f0| 75 6e 20 28 66 72 61 6d | 65 2d 72 65 67 69 6f 6e |un (fram|e-region|
|00003200| 20 2a 77 69 6e 64 6f 77 | 2a 29 20 28 72 65 67 69 | *window|*) (regi|
|00003210| 6f 6e 29 0d 20 20 28 77 | 69 74 68 2d 70 6f 72 74 |on).  (w|ith-port|
|00003220| 20 77 70 74 72 20 28 5f | 46 72 61 6d 65 52 67 6e | wptr (_|FrameRgn|
|00003230| 20 3a 70 74 72 20 28 72 | 65 67 69 6f 6e 2d 61 72 | :ptr (r|egion-ar|
|00003240| 67 20 72 65 67 69 6f 6e | 29 29 29 29 0d 0d 28 64 |g region|))))..(d|
|00003250| 65 66 6f 62 66 75 6e 20 | 28 70 61 69 6e 74 2d 72 |efobfun |(paint-r|
|00003260| 65 67 69 6f 6e 20 2a 77 | 69 6e 64 6f 77 2a 29 20 |egion *w|indow*) |
|00003270| 28 72 65 67 69 6f 6e 29 | 0d 20 20 28 77 69 74 68 |(region)|.  (with|
|00003280| 2d 70 6f 72 74 20 77 70 | 74 72 20 28 5f 50 61 69 |-port wp|tr (_Pai|
|00003290| 6e 74 52 67 6e 20 3a 70 | 74 72 20 28 72 65 67 69 |ntRgn :p|tr (regi|
|000032a0| 6f 6e 2d 61 72 67 20 72 | 65 67 69 6f 6e 29 29 29 |on-arg r|egion)))|
|000032b0| 29 0d 0d 28 64 65 66 6f | 62 66 75 6e 20 28 65 72 |)..(defo|bfun (er|
|000032c0| 61 73 65 2d 72 65 67 69 | 6f 6e 20 2a 77 69 6e 64 |ase-regi|on *wind|
|000032d0| 6f 77 2a 29 20 28 72 65 | 67 69 6f 6e 29 0d 20 20 |ow*) (re|gion).  |
|000032e0| 28 77 69 74 68 2d 70 6f | 72 74 20 77 70 74 72 20 |(with-po|rt wptr |
|000032f0| 28 5f 45 72 61 73 65 52 | 67 6e 20 3a 70 74 72 20 |(_EraseR|gn :ptr |
|00003300| 28 72 65 67 69 6f 6e 2d | 61 72 67 20 72 65 67 69 |(region-|arg regi|
|00003310| 6f 6e 29 29 29 29 0d 0d | 28 64 65 66 6f 62 66 75 |on))))..|(defobfu|
|00003320| 6e 20 28 69 6e 76 65 72 | 74 2d 72 65 67 69 6f 6e |n (inver|t-region|
|00003330| 20 2a 77 69 6e 64 6f 77 | 2a 29 20 28 72 65 67 69 | *window|*) (regi|
|00003340| 6f 6e 29 0d 20 20 28 77 | 69 74 68 2d 70 6f 72 74 |on).  (w|ith-port|
|00003350| 20 77 70 74 72 20 28 5f | 49 6e 76 65 72 52 67 6e | wptr (_|InverRgn|
|00003360| 20 3a 70 74 72 20 28 72 | 65 67 69 6f 6e 2d 61 72 | :ptr (r|egion-ar|
|00003370| 67 20 72 65 67 69 6f 6e | 29 29 29 29 0d 0d 28 64 |g region|))))..(d|
|00003380| 65 66 6f 62 66 75 6e 20 | 28 66 69 6c 6c 2d 72 65 |efobfun |(fill-re|
|00003390| 67 69 6f 6e 20 2a 77 69 | 6e 64 6f 77 2a 29 20 28 |gion *wi|ndow*) (|
|000033a0| 70 61 74 74 65 72 6e 20 | 72 65 67 69 6f 6e 29 0d |pattern |region).|
|000033b0| 20 20 28 77 69 74 68 2d | 70 6f 72 74 20 77 70 74 |  (with-|port wpt|
|000033c0| 72 20 0d 20 20 20 20 28 | 5f 46 69 6c 6c 52 67 6e |r .    (|_FillRgn|
|000033d0| 20 3a 70 74 72 20 28 72 | 65 67 69 6f 6e 2d 61 72 | :ptr (r|egion-ar|
|000033e0| 67 20 72 65 67 69 6f 6e | 29 20 3a 70 74 72 20 28 |g region|) :ptr (|
|000033f0| 70 6f 69 6e 74 65 72 2d | 61 72 67 20 70 61 74 74 |pointer-|arg patt|
|00003400| 65 72 6e 29 29 29 29 0d | 0d 3b 3b 3b 50 69 63 74 |ern)))).|.;;;Pict|
|00003410| 75 72 65 73 0d 0d 28 64 | 65 66 6f 62 66 75 6e 20 |ures..(d|efobfun |
|00003420| 28 73 74 61 72 74 2d 70 | 69 63 74 75 72 65 20 2a |(start-p|icture *|
|00003430| 77 69 6e 64 6f 77 2a 29 | 20 28 26 6f 70 74 69 6f |window*)| (&optio|
|00003440| 6e 61 6c 20 6c 65 66 74 | 20 74 6f 70 20 72 69 67 |nal left| top rig|
|00003450| 68 74 20 62 6f 74 74 6f | 6d 29 0d 20 20 28 69 66 |ht botto|m).  (if|
|00003460| 20 28 72 72 65 66 20 77 | 70 74 72 20 77 69 6e 64 | (rref w|ptr wind|
|00003470| 6f 77 2e 70 69 63 73 61 | 76 65 29 0d 20 20 20 28 |ow.picsa|ve).   (|
|00003480| 65 72 72 6f 72 20 22 41 | 20 70 69 63 74 75 72 65 |error "A| picture|
|00003490| 20 6d 61 79 20 6e 6f 74 | 20 62 65 20 73 74 61 72 | may not| be star|
|000034a0| 74 65 64 20 66 6f 72 20 | 77 69 6e 64 6f 77 3a 20 |ted for |window: |
|000034b0| 7e 61 2e 0d 20 20 20 20 | 20 20 20 20 20 20 20 73 |~a..    |       s|
|000034c0| 69 6e 63 65 20 6f 6e 65 | 20 69 73 20 61 6c 72 65 |ince one| is alre|
|000034d0| 61 64 79 20 73 74 61 72 | 74 65 64 22 20 28 73 65 |ady star|ted" (se|
|000034e0| 6c 66 29 29 29 0d 20 28 | 75 6e 6c 65 73 73 20 6c |lf))). (|unless l|
|000034f0| 65 66 74 20 28 73 65 74 | 71 20 6c 65 66 74 20 28 |eft (set|q left (|
|00003500| 72 72 65 66 20 77 70 74 | 72 20 77 69 6e 64 6f 77 |rref wpt|r window|
|00003510| 2e 70 6f 72 74 72 65 63 | 74 29 29 29 0d 20 28 77 |.portrec|t))). (w|
|00003520| 69 74 68 2d 72 65 63 74 | 61 6e 67 6c 65 2d 61 72 |ith-rect|angle-ar|
|00003530| 67 20 28 72 20 6c 65 66 | 74 20 74 6f 70 20 72 69 |g (r lef|t top ri|
|00003540| 67 68 74 20 62 6f 74 74 | 6f 6d 29 0d 20 20 28 77 |ght bott|om).  (w|
|00003550| 69 74 68 2d 70 6f 72 74 | 20 77 70 74 72 20 28 68 |ith-port| wptr (h|
|00003560| 61 76 65 20 27 6d 79 2d | 68 50 69 63 20 28 5f 4f |ave 'my-|hPic (_O|
|00003570| 70 65 6e 50 69 63 74 75 | 72 65 20 3a 70 74 72 20 |penPictu|re :ptr |
|00003580| 72 20 3a 70 74 72 29 29 | 29 29 0d 20 6e 69 6c 29 |r :ptr))|)). nil)|
|00003590| 0d 0d 28 64 65 66 6f 62 | 66 75 6e 20 28 67 65 74 |..(defob|fun (get|
|000035a0| 2d 70 69 63 74 75 72 65 | 20 2a 77 69 6e 64 6f 77 |-picture| *window|
|000035b0| 2a 29 20 28 29 0d 20 20 | 28 64 65 63 6c 61 72 65 |*) ().  |(declare|
|000035c0| 20 28 6f 62 6a 65 63 74 | 2d 76 61 72 69 61 62 6c | (object|-variabl|
|000035d0| 65 20 6d 79 2d 68 50 69 | 63 29 29 0d 20 28 69 66 |e my-hPi|c)). (if|
|000035e0| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 6d | (and (b|oundp 'm|
|000035f0| 79 2d 68 50 69 63 29 20 | 6d 79 2d 68 50 69 63 20 |y-hPic) |my-hPic |
|00003600| 28 72 72 65 66 20 77 70 | 74 72 20 77 69 6e 64 6f |(rref wp|tr windo|
|00003610| 77 2e 70 69 63 53 61 76 | 65 29 29 0d 20 20 28 70 |w.picSav|e)).  (p|
|00003620| 72 6f 67 31 0d 20 20 20 | 20 6d 79 2d 68 50 69 63 |rog1.   | my-hPic|
|00003630| 0d 20 20 20 20 28 77 69 | 74 68 2d 70 6f 72 74 20 |.    (wi|th-port |
|00003640| 77 70 74 72 20 28 5f 43 | 6c 6f 73 65 50 69 63 74 |wptr (_C|losePict|
|00003650| 75 72 65 29 29 0d 20 20 | 20 20 28 73 65 74 71 20 |ure)).  |  (setq |
|00003660| 6d 79 2d 68 50 69 63 20 | 6e 69 6c 29 29 0d 20 20 |my-hPic |nil)).  |
|00003670| 28 65 72 72 6f 72 20 22 | 50 69 63 74 75 72 65 20 |(error "|Picture |
|00003680| 66 6f 72 20 77 69 6e 64 | 6f 77 3a 20 7e 61 20 69 |for wind|ow: ~a i|
|00003690| 73 20 6e 6f 74 20 73 74 | 61 72 74 65 64 22 20 28 |s not st|arted" (|
|000036a0| 73 65 6c 66 29 29 29 29 | 0d 0d 28 64 65 66 6f 62 |self))))|..(defob|
|000036b0| 66 75 6e 20 28 64 72 61 | 77 2d 70 69 63 74 75 72 |fun (dra|w-pictur|
|000036c0| 65 20 2a 77 69 6e 64 6f | 77 2a 29 20 28 70 69 63 |e *windo|w*) (pic|
|000036d0| 74 75 72 65 20 26 6f 70 | 74 69 6f 6e 61 6c 20 6c |ture &op|tional l|
|000036e0| 65 66 74 20 74 6f 70 20 | 72 69 67 68 74 20 62 6f |eft top |right bo|
|000036f0| 74 74 6f 6d 29 0d 20 28 | 73 65 74 71 20 70 69 63 |ttom). (|setq pic|
|00003700| 74 75 72 65 20 28 70 69 | 63 74 75 72 65 2d 61 72 |ture (pi|cture-ar|
|00003710| 67 20 70 69 63 74 75 72 | 65 29 29 0d 20 28 63 6f |g pictur|e)). (co|
|00003720| 6e 64 20 28 28 6e 6f 74 | 20 6c 65 66 74 29 0d 20 |nd ((not| left). |
|00003730| 20 20 20 20 20 20 20 28 | 73 65 74 71 20 6c 65 66 |       (|setq lef|
|00003740| 74 20 28 72 72 65 66 20 | 70 69 63 74 75 72 65 20 |t (rref |picture |
|00003750| 70 69 63 74 75 72 65 2e | 70 69 63 46 72 61 6d 65 |picture.|picFrame|
|00003760| 2e 74 6f 70 6c 65 66 74 | 29 0d 20 20 20 20 20 20 |.topleft|).      |
|00003770| 20 20 20 20 20 20 20 20 | 74 6f 70 20 28 72 72 65 |        |top (rre|
|00003780| 66 20 70 69 63 74 75 72 | 65 20 70 69 63 74 75 72 |f pictur|e pictur|
|00003790| 65 2e 70 69 63 46 72 61 | 6d 65 2e 62 6f 74 74 6f |e.picFra|me.botto|
|000037a0| 6d 72 69 67 68 74 29 29 | 29 0d 20 20 20 20 20 20 |mright))|).      |
|000037b0| 20 28 28 70 6f 69 6e 74 | 65 72 70 20 6c 65 66 74 | ((point|erp left|
|000037c0| 29 0d 20 20 20 20 20 20 | 20 20 28 29 29 0d 20 20 |).      |  ()).  |
|000037d0| 20 20 20 20 20 28 28 61 | 6e 64 20 28 6e 6f 74 20 |     ((a|nd (not |
|000037e0| 72 69 67 68 74 29 0d 20 | 20 20 20 20 20 20 20 20 |right). |        |
|000037f0| 20 20 20 20 28 6e 6f 74 | 20 74 6f 70 29 29 0d 20 |    (not| top)). |
|00003800| 20 20 20 20 20 20 20 28 | 70 72 69 6e 74 20 28 70 |       (|print (p|
|00003810| 6f 69 6e 74 2d 73 74 72 | 69 6e 67 0d 20 20 20 20 |oint-str|ing.    |
|00003820| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 73 65 74 |        |    (set|
|00003830| 71 20 74 6f 70 0d 20 20 | 20 20 20 20 20 20 20 20 |q top.  |        |
|00003840| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 61 64 64 |        |    (add|
|00003850| 2d 70 6f 69 6e 74 73 20 | 6c 65 66 74 0d 20 20 20 |-points |left.   |
|00003860| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00003880| 73 75 62 74 72 61 63 74 | 2d 70 6f 69 6e 74 73 0d |subtract|-points.|
|00003890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000038a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000038b0| 20 20 20 28 72 72 65 66 | 20 70 69 63 74 75 72 65 |   (rref| picture|
|000038c0| 20 70 69 63 74 75 72 65 | 2e 70 69 63 66 72 61 6d | picture|.picfram|
|000038d0| 65 2e 62 6f 74 74 6f 6d | 72 69 67 68 74 29 0d 20 |e.bottom|right). |
|000038e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000038f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003900| 20 20 28 72 72 65 66 20 | 70 69 63 74 75 72 65 20 |  (rref |picture |
|00003910| 70 69 63 74 75 72 65 2e | 70 69 63 66 72 61 6d 65 |picture.|picframe|
|00003920| 2e 74 6f 70 6c 65 66 74 | 29 29 29 29 29 29 29 29 |.topleft|))))))))|
|00003930| 0d 20 28 77 69 74 68 2d | 72 65 63 74 61 6e 67 6c |. (with-|rectangl|
|00003940| 65 2d 61 72 67 20 28 72 | 20 6c 65 66 74 20 74 6f |e-arg (r| left to|
|00003950| 70 20 72 69 67 68 74 20 | 62 6f 74 74 6f 6d 29 0d |p right |bottom).|
|00003960| 20 20 20 28 77 69 74 68 | 2d 70 6f 72 74 20 77 70 |   (with|-port wp|
|00003970| 74 72 0d 20 20 20 20 20 | 28 5f 44 72 61 77 50 69 |tr.     |(_DrawPi|
|00003980| 63 74 75 72 65 20 3a 70 | 74 72 20 70 69 63 74 75 |cture :p|tr pictu|
|00003990| 72 65 20 3a 70 74 72 20 | 72 29 29 29 29 0d 0d 28 |re :ptr |r))))..(|
|000039a0| 64 65 66 75 6e 20 6b 69 | 6c 6c 2d 70 69 63 74 75 |defun ki|ll-pictu|
|000039b0| 72 65 20 28 70 69 63 74 | 75 72 65 29 0d 20 20 28 |re (pict|ure).  (|
|000039c0| 5f 4b 69 6c 6c 50 69 63 | 74 75 72 65 20 3a 70 74 |_KillPic|ture :pt|
|000039d0| 72 20 28 70 69 63 74 75 | 72 65 2d 61 72 67 20 70 |r (pictu|re-arg p|
|000039e0| 69 63 74 75 72 65 29 29 | 29 0d 0d 28 64 65 66 6f |icture))|)..(defo|
|000039f0| 62 66 75 6e 20 28 73 74 | 61 72 74 2d 70 6f 6c 79 |bfun (st|art-poly|
|00003a00| 67 6f 6e 20 2a 77 69 6e | 64 6f 77 2a 29 20 28 29 |gon *win|dow*) ()|
|00003a10| 0d 20 28 69 66 20 28 72 | 72 65 66 20 77 70 74 72 |. (if (r|ref wptr|
|00003a20| 20 77 69 6e 64 6f 77 2e | 70 6f 6c 79 73 61 76 65 | window.|polysave|
|00003a30| 29 0d 20 20 20 28 65 72 | 72 6f 72 20 22 41 20 6e |).   (er|ror "A n|
|00003a40| 65 77 20 70 6f 6c 79 67 | 6f 6e 20 6d 61 79 20 6e |ew polyg|on may n|
|00003a50| 6f 74 20 62 65 20 73 74 | 61 72 74 65 64 20 66 6f |ot be st|arted fo|
|00003a60| 72 20 77 69 6e 64 6f 77 | 3a 20 7e 61 2e 0d 20 20 |r window|: ~a..  |
|00003a70| 20 20 20 20 20 20 20 20 | 20 73 69 6e 63 65 20 6f |        | since o|
|00003a80| 6e 65 20 69 73 20 61 6c | 72 65 61 64 79 20 73 74 |ne is al|ready st|
|00003a90| 61 72 74 65 64 22 20 28 | 73 65 6c 66 29 29 29 0d |arted" (|self))).|
|00003aa0| 20 28 77 69 74 68 2d 70 | 6f 72 74 20 77 70 74 72 | (with-p|ort wptr|
|00003ab0| 20 28 68 61 76 65 20 27 | 6d 79 2d 70 6f 6c 79 20 | (have '|my-poly |
|00003ac0| 28 5f 4f 70 65 6e 50 6f | 6c 79 20 3a 70 74 72 29 |(_OpenPo|ly :ptr)|
|00003ad0| 29 29 0d 20 6e 69 6c 29 | 0d 0d 28 64 65 66 6f 62 |)). nil)|..(defob|
|00003ae0| 66 75 6e 20 28 67 65 74 | 2d 70 6f 6c 79 67 6f 6e |fun (get|-polygon|
|00003af0| 20 2a 77 69 6e 64 6f 77 | 2a 29 20 28 29 0d 20 20 | *window|*) ().  |
|00003b00| 28 64 65 63 6c 61 72 65 | 20 28 6f 62 6a 65 63 74 |(declare| (object|
|00003b10| 2d 76 61 72 69 61 62 6c | 65 20 6d 79 2d 70 6f 6c |-variabl|e my-pol|
|00003b20| 79 29 29 0d 20 28 69 66 | 20 28 61 6e 64 20 28 62 |y)). (if| (and (b|
|00003b30| 6f 75 6e 64 70 20 27 6d | 79 2d 70 6f 6c 79 29 20 |oundp 'm|y-poly) |
|00003b40| 6d 79 2d 70 6f 6c 79 20 | 28 72 72 65 66 20 77 70 |my-poly |(rref wp|
|00003b50| 74 72 20 77 69 6e 64 6f | 77 2e 70 6f 6c 79 73 61 |tr windo|w.polysa|
|00003b60| 76 65 29 29 0d 20 20 20 | 20 20 28 70 72 6f 67 31 |ve)).   |  (prog1|
|00003b70| 0d 20 20 20 20 20 20 20 | 6d 79 2d 70 6f 6c 79 0d |.       |my-poly.|
|00003b80| 20 20 20 20 20 20 20 28 | 77 69 74 68 2d 70 6f 72 |       (|with-por|
|00003b90| 74 20 77 70 74 72 20 28 | 5f 43 6c 6f 73 65 50 67 |t wptr (|_ClosePg|
|00003ba0| 6f 6e 29 29 0d 20 20 20 | 20 20 20 20 28 73 65 74 |on)).   |    (set|
|00003bb0| 71 20 6d 79 2d 70 6f 6c | 79 20 6e 69 6c 29 29 0d |q my-pol|y nil)).|
|00003bc0| 20 20 20 20 20 28 65 72 | 72 6f 72 20 22 50 6f 6c |     (er|ror "Pol|
|00003bd0| 79 67 6f 6e 20 66 6f 72 | 20 77 69 6e 64 6f 77 3a |ygon for| window:|
|00003be0| 20 7e 61 20 68 61 73 20 | 6e 6f 74 20 62 65 65 6e | ~a has |not been|
|00003bf0| 20 73 74 61 72 74 65 64 | 22 20 28 73 65 6c 66 29 | started|" (self)|
|00003c00| 29 29 29 0d 0d 28 64 65 | 66 75 6e 20 6b 69 6c 6c |)))..(de|fun kill|
|00003c10| 2d 70 6f 6c 79 67 6f 6e | 20 28 70 6f 6c 79 67 6f |-polygon| (polygo|
|00003c20| 6e 29 0d 20 20 28 5f 4b | 69 6c 6c 50 6f 6c 79 20 |n).  (_K|illPoly |
|00003c30| 3a 70 74 72 20 28 70 6f | 6c 79 67 6f 6e 2d 61 72 |:ptr (po|lygon-ar|
|00003c40| 67 20 70 6f 6c 79 67 6f | 6e 29 29 29 0d 0d 28 64 |g polygo|n)))..(d|
|00003c50| 65 66 75 6e 20 6f 66 66 | 73 65 74 2d 70 6f 6c 79 |efun off|set-poly|
|00003c60| 67 6f 6e 20 28 70 6f 6c | 79 67 6f 6e 20 68 20 26 |gon (pol|ygon h &|
|00003c70| 6f 70 74 69 6f 6e 61 6c | 20 76 29 0d 20 20 28 5f |optional| v).  (_|
|00003c80| 4f 66 66 73 65 74 50 6f | 6c 79 20 3a 70 74 72 20 |OffsetPo|ly :ptr |
|00003c90| 28 70 6f 6c 79 67 6f 6e | 2d 61 72 67 20 70 6f 6c |(polygon|-arg pol|
|00003ca0| 79 67 6f 6e 29 20 3a 6c | 6f 6e 67 20 28 6d 61 6b |ygon) :l|ong (mak|
|00003cb0| 65 2d 70 6f 69 6e 74 20 | 68 20 76 29 29 0d 20 20 |e-point |h v)).  |
|00003cc0| 70 6f 6c 79 67 6f 6e 29 | 0d 0d 28 64 65 66 6f 62 |polygon)|..(defob|
|00003cd0| 66 75 6e 20 28 66 72 61 | 6d 65 2d 70 6f 6c 79 67 |fun (fra|me-polyg|
|00003ce0| 6f 6e 20 2a 77 69 6e 64 | 6f 77 2a 29 20 28 70 6f |on *wind|ow*) (po|
|00003cf0| 6c 79 67 6f 6e 29 0d 20 | 20 28 77 69 74 68 2d 70 |lygon). | (with-p|
|00003d00| 6f 72 74 20 77 70 74 72 | 20 28 5f 46 72 61 6d 65 |ort wptr| (_Frame|
|00003d10| 50 6f 6c 79 20 3a 70 74 | 72 20 28 70 6f 6c 79 67 |Poly :pt|r (polyg|
|00003d20| 6f 6e 2d 61 72 67 20 70 | 6f 6c 79 67 6f 6e 29 29 |on-arg p|olygon))|
|00003d30| 29 29 0d 0d 28 64 65 66 | 6f 62 66 75 6e 20 28 70 |))..(def|obfun (p|
|00003d40| 61 69 6e 74 2d 70 6f 6c | 79 67 6f 6e 20 2a 77 69 |aint-pol|ygon *wi|
|00003d50| 6e 64 6f 77 2a 29 20 28 | 70 6f 6c 79 67 6f 6e 29 |ndow*) (|polygon)|
|00003d60| 0d 20 20 28 77 69 74 68 | 2d 70 6f 72 74 20 77 70 |.  (with|-port wp|
|00003d70| 74 72 20 28 5f 50 61 69 | 6e 74 50 6f 6c 79 20 3a |tr (_Pai|ntPoly :|
|00003d80| 70 74 72 20 28 70 6f 6c | 79 67 6f 6e 2d 61 72 67 |ptr (pol|ygon-arg|
|00003d90| 20 70 6f 6c 79 67 6f 6e | 29 29 29 29 0d 0d 28 64 | polygon|))))..(d|
|00003da0| 65 66 6f 62 66 75 6e 20 | 28 65 72 61 73 65 2d 70 |efobfun |(erase-p|
|00003db0| 6f 6c 79 67 6f 6e 20 2a | 77 69 6e 64 6f 77 2a 29 |olygon *|window*)|
|00003dc0| 20 28 70 6f 6c 79 67 6f | 6e 29 0d 20 20 28 77 69 | (polygo|n).  (wi|
|00003dd0| 74 68 2d 70 6f 72 74 20 | 77 70 74 72 20 28 5f 45 |th-port |wptr (_E|
|00003de0| 72 61 73 65 50 6f 6c 79 | 20 3a 70 74 72 20 28 70 |rasePoly| :ptr (p|
|00003df0| 6f 6c 79 67 6f 6e 2d 61 | 72 67 20 70 6f 6c 79 67 |olygon-a|rg polyg|
|00003e00| 6f 6e 29 29 29 29 0d 0d | 28 64 65 66 6f 62 66 75 |on))))..|(defobfu|
|00003e10| 6e 20 28 69 6e 76 65 72 | 74 2d 70 6f 6c 79 67 6f |n (inver|t-polygo|
|00003e20| 6e 20 2a 77 69 6e 64 6f | 77 2a 29 20 28 70 6f 6c |n *windo|w*) (pol|
|00003e30| 79 67 6f 6e 29 0d 20 20 | 28 77 69 74 68 2d 70 6f |ygon).  |(with-po|
|00003e40| 72 74 20 77 70 74 72 20 | 28 5f 49 6e 76 65 72 74 |rt wptr |(_Invert|
|00003e50| 50 6f 6c 79 20 3a 70 74 | 72 20 28 70 6f 6c 79 67 |Poly :pt|r (polyg|
|00003e60| 6f 6e 2d 61 72 67 20 70 | 6f 6c 79 67 6f 6e 29 29 |on-arg p|olygon))|
|00003e70| 29 29 0d 0d 28 64 65 66 | 6f 62 66 75 6e 20 28 66 |))..(def|obfun (f|
|00003e80| 69 6c 6c 2d 70 6f 6c 79 | 67 6f 6e 20 2a 77 69 6e |ill-poly|gon *win|
|00003e90| 64 6f 77 2a 29 20 28 70 | 61 74 74 65 72 6e 20 70 |dow*) (p|attern p|
|00003ea0| 6f 6c 79 67 6f 6e 29 0d | 20 28 77 69 74 68 2d 70 |olygon).| (with-p|
|00003eb0| 6f 72 74 20 77 70 74 72 | 0d 20 20 20 28 5f 46 69 |ort wptr|.   (_Fi|
|00003ec0| 6c 6c 50 6f 6c 79 20 3a | 70 74 72 20 28 70 6f 6c |llPoly :|ptr (pol|
|00003ed0| 79 67 6f 6e 2d 61 72 67 | 20 70 6f 6c 79 67 6f 6e |ygon-arg| polygon|
|00003ee0| 29 20 3a 70 74 72 20 28 | 70 6f 69 6e 74 65 72 2d |) :ptr (|pointer-|
|00003ef0| 61 72 67 20 70 61 74 74 | 65 72 6e 29 29 29 29 0d |arg patt|ern)))).|
|00003f00| 0d 28 64 65 66 6f 62 66 | 75 6e 20 28 6c 6f 63 61 |.(defobf|un (loca|
|00003f10| 6c 2d 74 6f 2d 67 6c 6f | 62 61 6c 20 2a 77 69 6e |l-to-glo|bal *win|
|00003f20| 64 6f 77 2a 29 20 28 68 | 20 26 6f 70 74 69 6f 6e |dow*) (h| &option|
|00003f30| 61 6c 20 76 29 0d 20 20 | 28 73 75 62 74 72 61 63 |al v).  |(subtrac|
|00003f40| 74 2d 70 6f 69 6e 74 73 | 20 28 6d 61 6b 65 2d 70 |t-points| (make-p|
|00003f50| 6f 69 6e 74 20 68 20 76 | 29 0d 20 20 20 20 20 20 |oint h v|).      |
|00003f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 72 72 |        |     (rr|
|00003f70| 65 66 20 77 70 74 72 20 | 67 72 61 66 70 6f 72 74 |ef wptr |grafport|
|00003f80| 2e 70 6f 72 74 62 69 74 | 73 2e 62 6f 75 6e 64 73 |.portbit|s.bounds|
|00003f90| 2e 74 6f 70 6c 65 66 74 | 29 29 29 0d 0d 28 64 65 |.topleft|)))..(de|
|00003fa0| 66 6f 62 66 75 6e 20 28 | 67 6c 6f 62 61 6c 2d 74 |fobfun (|global-t|
|00003fb0| 6f 2d 6c 6f 63 61 6c 20 | 2a 77 69 6e 64 6f 77 2a |o-local |*window*|
|00003fc0| 29 20 28 68 20 26 6f 70 | 74 69 6f 6e 61 6c 20 76 |) (h &op|tional v|
|00003fd0| 29 0d 20 20 28 61 64 64 | 2d 70 6f 69 6e 74 73 20 |).  (add|-points |
|00003fe0| 28 6d 61 6b 65 2d 70 6f | 69 6e 74 20 68 20 76 29 |(make-po|int h v)|
|00003ff0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |.       |       (|
|00004000| 72 72 65 66 20 77 70 74 | 72 20 67 72 61 66 70 6f |rref wpt|r grafpo|
|00004010| 72 74 2e 70 6f 72 74 62 | 69 74 73 2e 62 6f 75 6e |rt.portb|its.boun|
|00004020| 64 73 2e 74 6f 70 6c 65 | 66 74 29 29 29 0d 0d 28 |ds.tople|ft)))..(|
|00004030| 64 65 66 6f 62 66 75 6e | 20 28 67 65 74 2d 70 69 |defobfun| (get-pi|
|00004040| 78 65 6c 20 2a 77 69 6e | 64 6f 77 2a 29 20 28 68 |xel *win|dow*) (h|
|00004050| 20 26 6f 70 74 69 6f 6e | 61 6c 20 76 29 0d 20 20 | &option|al v).  |
|00004060| 28 73 65 74 71 20 68 20 | 28 6d 61 6b 65 2d 70 6f |(setq h |(make-po|
|00004070| 69 6e 74 20 68 20 76 29 | 29 0d 20 20 28 69 66 20 |int h v)|).  (if |
|00004080| 28 6c 6f 67 62 69 74 70 | 20 38 20 0d 20 20 20 20 |(logbitp| 8 .    |
|00004090| 20 20 20 20 20 28 5f 50 | 74 49 6e 52 67 6e 20 3a |     (_P|tInRgn :|
|000040a0| 6c 6f 6e 67 20 68 20 3a | 70 74 72 20 28 72 72 65 |long h :|ptr (rre|
|000040b0| 66 20 77 70 74 72 20 77 | 69 6e 64 6f 77 2e 76 69 |f wptr w|indow.vi|
|000040c0| 73 72 67 6e 29 20 3a 77 | 6f 72 64 29 29 0d 20 20 |srgn) :w|ord)).  |
|000040d0| 20 20 20 20 28 77 69 74 | 68 2d 70 6f 72 74 20 77 |    (wit|h-port w|
|000040e0| 70 74 72 0d 20 20 20 20 | 20 20 20 20 20 28 6c 6f |ptr.    |     (lo|
|000040f0| 67 62 69 74 70 20 38 20 | 28 5f 47 65 74 50 69 78 |gbitp 8 |(_GetPix|
|00004100| 65 6c 20 3a 6c 6f 6e 67 | 20 68 20 3a 77 6f 72 64 |el :long| h :word|
|00004110| 29 29 29 29 29 0d 0d 28 | 64 65 66 75 6e 20 73 63 |)))))..(|defun sc|
|00004120| 61 6c 65 2d 70 6f 69 6e | 74 20 28 73 6f 75 72 63 |ale-poin|t (sourc|
|00004130| 65 2d 72 65 63 74 20 64 | 65 73 74 2d 72 65 63 74 |e-rect d|est-rect|
|00004140| 20 68 20 26 6f 70 74 69 | 6f 6e 61 6c 20 76 29 0d | h &opti|onal v).|
|00004150| 20 20 28 72 6c 65 74 20 | 28 28 70 74 20 70 6f 69 |  (rlet |((pt poi|
|00004160| 6e 74 29 29 0d 20 20 20 | 20 28 25 70 75 74 2d 6c |nt)).   | (%put-l|
|00004170| 6f 6e 67 20 70 74 20 28 | 6d 61 6b 65 2d 70 6f 69 |ong pt (|make-poi|
|00004180| 6e 74 20 68 20 76 29 29 | 0d 20 20 20 20 28 5f 53 |nt h v))|.    (_S|
|00004190| 63 61 6c 65 50 74 20 3a | 70 74 72 20 70 74 20 3a |calePt :|ptr pt :|
|000041a0| 70 74 72 20 28 70 6f 69 | 6e 74 65 72 2d 61 72 67 |ptr (poi|nter-arg|
|000041b0| 20 73 6f 75 72 63 65 2d | 72 65 63 74 29 0d 20 20 | source-|rect).  |
|000041c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000041d0| 20 20 20 20 3a 70 74 72 | 20 28 70 6f 69 6e 74 65 |    :ptr| (pointe|
|000041e0| 72 2d 61 72 67 20 64 65 | 73 74 2d 72 65 63 74 29 |r-arg de|st-rect)|
|000041f0| 29 0d 20 20 20 20 28 25 | 67 65 74 2d 6c 6f 6e 67 |).    (%|get-long|
|00004200| 20 70 74 29 29 29 0d 0d | 28 64 65 66 75 6e 20 6d | pt)))..|(defun m|
|00004210| 61 70 2d 70 6f 69 6e 74 | 20 28 73 6f 75 72 63 65 |ap-point| (source|
|00004220| 2d 72 65 63 74 20 64 65 | 73 74 2d 72 65 63 74 20 |-rect de|st-rect |
|00004230| 68 20 26 6f 70 74 69 6f | 6e 61 6c 20 76 29 0d 20 |h &optio|nal v). |
|00004240| 20 28 72 6c 65 74 20 28 | 28 70 74 20 70 6f 69 6e | (rlet (|(pt poin|
|00004250| 74 29 29 0d 20 20 20 20 | 28 25 70 75 74 2d 6c 6f |t)).    |(%put-lo|
|00004260| 6e 67 20 70 74 20 28 6d | 61 6b 65 2d 70 6f 69 6e |ng pt (m|ake-poin|
|00004270| 74 20 68 20 76 29 29 0d | 20 20 20 20 28 5f 4d 61 |t h v)).|    (_Ma|
|00004280| 70 50 74 20 3a 70 74 72 | 20 70 74 20 3a 70 74 72 |pPt :ptr| pt :ptr|
|00004290| 20 28 70 6f 69 6e 74 65 | 72 2d 61 72 67 20 73 6f | (pointe|r-arg so|
|000042a0| 75 72 63 65 2d 72 65 63 | 74 29 0d 20 20 20 20 20 |urce-rec|t).     |
|000042b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000042c0| 20 3a 70 74 72 20 28 70 | 6f 69 6e 74 65 72 2d 61 | :ptr (p|ointer-a|
|000042d0| 72 67 20 64 65 73 74 2d | 72 65 63 74 29 29 0d 20 |rg dest-|rect)). |
|000042e0| 20 20 20 28 25 67 65 74 | 2d 6c 6f 6e 67 20 70 74 |   (%get|-long pt|
|000042f0| 29 29 29 0d 0d 28 64 65 | 66 75 6e 20 6d 61 70 2d |)))..(de|fun map-|
|00004300| 72 65 63 74 20 28 73 6f | 75 72 63 65 2d 72 65 63 |rect (so|urce-rec|
|00004310| 74 20 64 65 73 74 2d 72 | 65 63 74 20 72 65 63 74 |t dest-r|ect rect|
|00004320| 29 0d 20 20 20 28 5f 4d | 61 70 52 65 63 74 20 3a |).   (_M|apRect :|
|00004330| 70 74 72 20 28 70 6f 69 | 6e 74 65 72 2d 61 72 67 |ptr (poi|nter-arg|
|00004340| 20 72 65 63 74 29 0d 20 | 20 20 20 20 20 20 20 20 | rect). |        |
|00004350| 20 20 20 20 3a 70 74 72 | 20 28 70 6f 69 6e 74 65 |    :ptr| (pointe|
|00004360| 72 2d 61 72 67 20 73 6f | 75 72 63 65 2d 72 65 63 |r-arg so|urce-rec|
|00004370| 74 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |t).     |        |
|00004380| 3a 70 74 72 20 28 70 6f | 69 6e 74 65 72 2d 61 72 |:ptr (po|inter-ar|
|00004390| 67 20 64 65 73 74 2d 72 | 65 63 74 29 29 0d 20 20 |g dest-r|ect)).  |
|000043a0| 20 72 65 63 74 29 0d 0d | 28 64 65 66 75 6e 20 6d | rect)..|(defun m|
|000043b0| 61 70 2d 72 65 67 69 6f | 6e 20 28 73 6f 75 72 63 |ap-regio|n (sourc|
|000043c0| 65 2d 72 65 63 74 20 64 | 65 73 74 2d 72 65 63 74 |e-rect d|est-rect|
|000043d0| 20 72 65 67 69 6f 6e 29 | 0d 20 20 20 28 5f 4d 61 | region)|.   (_Ma|
|000043e0| 70 52 67 6e 20 3a 70 74 | 72 20 28 72 65 67 69 6f |pRgn :pt|r (regio|
|000043f0| 6e 2d 61 72 67 20 72 65 | 67 69 6f 6e 29 0d 20 20 |n-arg re|gion).  |
|00004400| 20 20 20 20 20 20 20 20 | 20 20 20 3a 70 74 72 20 |        |   :ptr |
|00004410| 28 70 6f 69 6e 74 65 72 | 2d 61 72 67 20 73 6f 75 |(pointer|-arg sou|
|00004420| 72 63 65 2d 72 65 63 74 | 29 0d 20 20 20 20 20 20 |rce-rect|).      |
|00004430| 20 20 20 20 20 20 20 3a | 70 74 72 20 28 70 6f 69 |       :|ptr (poi|
|00004440| 6e 74 65 72 2d 61 72 67 | 20 64 65 73 74 2d 72 65 |nter-arg| dest-re|
|00004450| 63 74 29 29 0d 20 20 20 | 72 65 67 69 6f 6e 29 0d |ct)).   |region).|
|00004460| 0d 28 64 65 66 75 6e 20 | 6d 61 70 2d 70 6f 6c 79 |.(defun |map-poly|
|00004470| 67 6f 6e 20 28 73 6f 75 | 72 63 65 2d 72 65 63 74 |gon (sou|rce-rect|
|00004480| 20 64 65 73 74 2d 72 65 | 63 74 20 70 6f 6c 79 67 | dest-re|ct polyg|
|00004490| 6f 6e 29 0d 20 20 20 28 | 5f 4d 61 70 50 6f 6c 79 |on).   (|_MapPoly|
|000044a0| 20 3a 70 74 72 20 28 70 | 6f 6c 79 67 6f 6e 2d 61 | :ptr (p|olygon-a|
|000044b0| 72 67 20 70 6f 6c 79 67 | 6f 6e 29 0d 20 20 20 20 |rg polyg|on).    |
|000044c0| 20 20 20 20 20 20 20 20 | 20 3a 70 74 72 20 28 70 |        | :ptr (p|
|000044d0| 6f 69 6e 74 65 72 2d 61 | 72 67 20 73 6f 75 72 63 |ointer-a|rg sourc|
|000044e0| 65 2d 72 65 63 74 29 0d | 20 20 20 20 20 20 20 20 |e-rect).|        |
|000044f0| 20 20 20 20 20 3a 70 74 | 72 20 28 70 6f 69 6e 74 |     :pt|r (point|
|00004500| 65 72 2d 61 72 67 20 64 | 65 73 74 2d 72 65 63 74 |er-arg d|est-rect|
|00004510| 29 29 0d 20 20 20 70 6f | 6c 79 67 6f 6e 29 0d 0d |)).   po|lygon)..|
|00004520| 28 64 65 66 75 6e 20 6d | 61 6b 65 2d 62 69 74 6d |(defun m|ake-bitm|
|00004530| 61 70 20 28 6c 65 66 74 | 20 26 6f 70 74 69 6f 6e |ap (left| &option|
|00004540| 61 6c 20 74 6f 70 20 72 | 69 67 68 74 20 62 6f 74 |al top r|ight bot|
|00004550| 74 6f 6d 20 26 61 75 78 | 20 72 6f 77 62 79 74 65 |tom &aux| rowbyte|
|00004560| 73 20 62 6d 29 0d 20 28 | 77 69 74 68 2d 72 65 63 |s bm). (|with-rec|
|00004570| 74 61 6e 67 6c 65 2d 61 | 72 67 20 28 72 20 6c 65 |tangle-a|rg (r le|
|00004580| 66 74 20 74 6f 70 20 72 | 69 67 68 74 20 62 6f 74 |ft top r|ight bot|
|00004590| 74 6f 6d 29 0d 20 20 20 | 28 73 65 74 71 20 72 6f |tom).   |(setq ro|
|000045a0| 77 62 79 74 65 73 20 0d | 20 20 20 20 28 6c 6f 67 |wbytes .|    (log|
|000045b0| 61 6e 64 0d 20 20 20 20 | 20 20 20 23 78 66 66 66 |and.    |   #xfff|
|000045c0| 65 20 0d 20 20 20 20 20 | 20 20 28 2b 20 32 20 20 |e .     |  (+ 2  |
|000045d0| 28 61 73 68 20 28 2d 20 | 28 72 72 65 66 20 72 20 |(ash (- |(rref r |
|000045e0| 72 65 63 74 2e 72 69 67 | 68 74 29 20 28 72 72 65 |rect.rig|ht) (rre|
|000045f0| 66 20 72 20 72 65 63 74 | 2e 6c 65 66 74 29 20 31 |f r rect|.left) 1|
|00004600| 29 20 2d 33 29 29 29 29 | 0d 20 20 20 28 73 65 74 |) -3))))|.   (set|
|00004610| 71 20 62 6d 20 0d 20 20 | 20 20 28 5f 4e 65 77 50 |q bm .  |  (_NewP|
|00004620| 74 72 20 3a 65 72 72 63 | 68 6b 20 0d 20 20 20 20 |tr :errc|hk .    |
|00004630| 20 20 3a 64 30 20 28 2b | 20 31 34 20 28 2a 20 72 |  :d0 (+| 14 (* r|
|00004640| 6f 77 62 79 74 65 73 20 | 28 2d 20 28 72 72 65 66 |owbytes |(- (rref|
|00004650| 20 72 20 72 65 63 74 2e | 62 6f 74 74 6f 6d 29 20 | r rect.|bottom) |
|00004660| 28 72 72 65 66 20 72 20 | 72 65 63 74 2e 74 6f 70 |(rref r |rect.top|
|00004670| 29 29 29 29 0d 20 20 20 | 20 20 20 3a 61 30 29 29 |)))).   |   :a0))|
|00004680| 0d 20 20 20 28 72 73 65 | 74 20 62 6d 20 62 69 74 |.   (rse|t bm bit|
|00004690| 6d 61 70 2e 62 6f 75 6e | 64 73 20 72 29 0d 20 20 |map.boun|ds r).  |
|000046a0| 20 28 72 73 65 74 20 62 | 6d 20 62 69 74 6d 61 70 | (rset b|m bitmap|
|000046b0| 2e 72 6f 77 62 79 74 65 | 73 20 72 6f 77 62 79 74 |.rowbyte|s rowbyt|
|000046c0| 65 73 29 0d 20 20 20 28 | 72 73 65 74 20 62 6d 20 |es).   (|rset bm |
|000046d0| 62 69 74 6d 61 70 2e 62 | 61 73 65 61 64 64 72 20 |bitmap.b|aseaddr |
|000046e0| 28 25 69 6e 63 2d 70 74 | 72 20 62 6d 20 31 34 29 |(%inc-pt|r bm 14)|
|000046f0| 29 29 0d 20 62 6d 29 0d | 0d 0d 28 64 65 66 75 6e |)). bm).|..(defun|
|00004700| 20 63 6f 70 79 2d 62 69 | 74 73 20 28 73 6f 75 72 | copy-bi|ts (sour|
|00004710| 63 65 2d 62 69 74 6d 61 | 70 20 64 65 73 74 2d 62 |ce-bitma|p dest-b|
|00004720| 69 74 6d 61 70 20 73 6f | 75 72 63 65 2d 72 65 63 |itmap so|urce-rec|
|00004730| 74 20 64 65 73 74 2d 72 | 65 63 74 0d 20 20 20 20 |t dest-r|ect.    |
|00004740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004750| 26 6f 70 74 69 6f 6e 61 | 6c 20 28 6d 6f 64 65 20 |&optiona|l (mode |
|00004760| 30 29 20 6d 61 73 6b 2d | 72 65 67 69 6f 6e 29 0d |0) mask-|region).|
|00004770| 20 28 73 65 74 71 20 6d | 61 73 6b 2d 72 65 67 69 | (setq m|ask-regi|
|00004780| 6f 6e 20 28 69 66 20 6d | 61 73 6b 2d 72 65 67 69 |on (if m|ask-regi|
|00004790| 6f 6e 20 28 72 65 67 69 | 6f 6e 2d 61 72 67 20 6d |on (regi|on-arg m|
|000047a0| 61 73 6b 2d 72 65 67 69 | 6f 6e 29 29 29 0d 20 28 |ask-regi|on))). (|
|000047b0| 5f 43 6f 70 79 42 69 74 | 73 20 3a 70 74 72 20 28 |_CopyBit|s :ptr (|
|000047c0| 70 6f 69 6e 74 65 72 2d | 61 72 67 20 73 6f 75 72 |pointer-|arg sour|
|000047d0| 63 65 2d 62 69 74 6d 61 | 70 29 0d 20 20 20 20 20 |ce-bitma|p).     |
|000047e0| 20 20 20 20 20 20 20 3a | 70 74 72 20 28 70 6f 69 |       :|ptr (poi|
|000047f0| 6e 74 65 72 2d 61 72 67 | 20 64 65 73 74 2d 62 69 |nter-arg| dest-bi|
|00004800| 74 6d 61 70 29 0d 20 20 | 20 20 20 20 20 20 20 20 |tmap).  |        |
|00004810| 20 20 3a 70 74 72 20 28 | 70 6f 69 6e 74 65 72 2d |  :ptr (|pointer-|
|00004820| 61 72 67 20 73 6f 75 72 | 63 65 2d 72 65 63 74 29 |arg sour|ce-rect)|
|00004830| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 70 74 |.       |     :pt|
|00004840| 72 20 28 70 6f 69 6e 74 | 65 72 2d 61 72 67 20 64 |r (point|er-arg d|
|00004850| 65 73 74 2d 72 65 63 74 | 29 0d 20 20 20 20 20 20 |est-rect|).      |
|00004860| 20 20 20 20 20 20 3a 77 | 6f 72 64 20 28 6d 6f 64 |      :w|ord (mod|
|00004870| 65 2d 61 72 67 20 6d 6f | 64 65 29 0d 20 20 20 20 |e-arg mo|de).    |
|00004880| 20 20 20 20 20 20 20 20 | 3a 70 74 72 20 6d 61 73 |        |:ptr mas|
|00004890| 6b 2d 72 65 67 69 6f 6e | 29 29 0d 0d 28 64 65 66 |k-region|))..(def|
|000048a0| 6f 62 66 75 6e 20 28 73 | 63 72 6f 6c 6c 2d 72 65 |obfun (s|croll-re|
|000048b0| 63 74 20 2a 77 69 6e 64 | 6f 77 2a 29 20 28 72 65 |ct *wind|ow*) (re|
|000048c0| 63 74 20 64 68 20 26 6f | 70 74 69 6f 6e 61 6c 20 |ct dh &o|ptional |
|000048d0| 64 76 29 0d 20 20 20 28 | 77 69 74 68 2d 70 6f 72 |dv).   (|with-por|
|000048e0| 74 20 77 70 74 72 0d 20 | 20 20 20 20 28 6c 65 74 |t wptr. |    (let|
|000048f0| 2a 20 28 28 72 65 67 20 | 28 5f 6e 65 77 72 67 6e |* ((reg |(_newrgn|
|00004900| 20 3a 70 74 72 29 29 29 | 0d 20 20 20 20 20 20 20 | :ptr)))|.       |
|00004910| 28 5f 53 63 72 6f 6c 6c | 52 65 63 74 20 3a 70 74 |(_Scroll|Rect :pt|
|00004920| 72 20 28 70 6f 69 6e 74 | 65 72 2d 61 72 67 20 72 |r (point|er-arg r|
|00004930| 65 63 74 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ect).   |        |
|00004940| 20 20 20 20 20 20 20 20 | 20 3a 6c 6f 6e 67 20 28 |        | :long (|
|00004950| 6d 61 6b 65 2d 70 6f 69 | 6e 74 20 64 68 20 64 76 |make-poi|nt dh dv|
|00004960| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00004970| 20 20 20 20 20 20 3a 70 | 74 72 20 72 65 67 29 0d |      :p|tr reg).|
|00004980| 20 20 20 20 20 20 20 28 | 5f 69 6e 76 61 6c 72 67 |       (|_invalrg|
|00004990| 6e 20 3a 70 74 72 20 72 | 65 67 29 0d 20 20 20 20 |n :ptr r|eg).    |
|000049a0| 20 20 20 28 5f 64 69 73 | 70 6f 73 72 67 6e 20 3a |   (_dis|posrgn :|
|000049b0| 70 74 72 20 72 65 67 29 | 29 29 29 0d 0d 0d 0d 28 |ptr reg)|)))....(|
|000049c0| 70 72 6f 76 69 64 65 20 | 27 71 75 69 63 6b 64 72 |provide |'quickdr|
|000049d0| 61 77 29 0d 28 70 75 73 | 68 6e 65 77 20 3a 71 75 |aw).(pus|hnew :qu|
|000049e0| 69 63 6b 64 72 61 77 20 | 2a 66 65 61 74 75 72 65 |ickdraw |*feature|
|000049f0| 73 2a 29 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |s*).....|........|
|00004a00| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00004a10| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00004a20| 20 20 20 20 20 20 20 20 | 20 45 4f 46 2d 56 41 4c |        | EOF-VAL|
|00004a30| 0e 51 75 69 63 6b 44 72 | 61 77 2e 6c 69 73 70 77 |.QuickDr|aw.lispw|
|00004a40| 02 00 00 00 54 45 58 54 | 43 43 4c 20 01 00 00 00 |....TEXT|CCL ....|
|00004a50| 00 00 54 45 58 54 43 43 | 4c 20 01 00 00 00 00 60 |..TEXTCC|L .....`|
|00004a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a70| 00 00 9c 95 af bd 00 00 | 49 73 00 00 01 7e 4f 50 |........|Is...~OP|
|00004a80| 54 49 4f 4e 41 4c 20 49 | 4e 50 55 54 2d 53 54 52 |TIONAL I|NPUT-STR|
|00004a90| 45 41 4d 20 28 45 4f 46 | 2d 45 52 52 4f 52 50 20 |EAM (EOF|-ERRORP |
|00004aa0| 54 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |T).     |        |
|00004ab0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 4f |        |      EO|
|00004ac0| 46 2d 56 41 4c 55 45 20 | 52 45 43 55 52 53 49 56 |F-VALUE |RECURSIV|
|00004ad0| 45 2d 50 29 29 0d 28 22 | 52 45 41 44 2d 50 52 45 |E-P)).("|READ-PRE|
|00004ae0| 53 45 52 56 49 4e 47 2d | 57 48 49 54 45 53 50 41 |SERVING-|WHITESPA|
|00004af0| 43 45 22 20 28 46 55 4e | 43 54 49 4f 4e 29 20 28 |CE" (FUN|CTION) (|
|00004b00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 20 01 53 |...H..Mo|naco. .S|
|00004b10| 01 fd 00 00 00 12 08 00 | 00 02 47 dc 00 02 00 00 |........|..G.....|
|00004b20| 00 06 ff fd 00 00 00 06 | 00 08 00 29 00 03 01 53 |........|...)...S|
|00004b30| 01 fd 00 78 00 18 01 53 | 01 fd 9c a9 84 4d 00 00 |...x...S|.....M..|
|00004b40| 53 e0 00 00 53 e0 00 00 | 52 11 01 00 00 00 01 00 |S...S...|R.......|
|00004b50| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 01 55 24 |...L...L|...2..U$|
|00004b60| 04 c8 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00004b70| 00 0a 03 ed ff ff 00 00 | 00 00 00 02 47 98 00 00 |........|....G...|
+--------+-------------------------+-------------------------+--------+--------+