(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "16-Nov-93 15:39:32" ("compiled on " {DSK}export>lispcore>lispusers>AIREGIONS.;1) "11-Nov-93 16:58:33" bcompl'd in "Medley 11-Nov-93 ..." dated "11-Nov-93 17:07:44") (FILECREATED "11-Dec-87 13:48:32" {ERINYES}LYRIC>AIREGIONS.;1 37025 changes to%: (VARS AIREGIONSCOMS) previous date%: " 9-Mar-87 16:37:52" {DANTE}LYRIC>AIREGIONS.;1) ADD.IREGION :D8 (I 1 IREGION I 0 WINDOW) ;A@ 1A *@ "@gg @gAi Ah(53 WINDOWADDPROP 40 PUTWINDOWPROP 22 WINDOWP 14 IREGIONP 6 \IREGION.ON.WINDOWP) (46 IREGIONSLIST 35 IN.CURSOR.REGION 30 BUTTONEVENTFN) () ALL.IREGIONS :D8 (I 0 WINDOW) @ @g (18 GETWINDOWUSERPROP 5 WINDOWP) (13 IREGIONSLIST) () CREATEIR :D8 (P 6 P P 4 POSITIONS P 3 MASK P 2 POS P 1 TEMP-BITMAP P 0 TEMP-REGION I 5 POSLIST I 4 REGION I 3 HELPSTRING I 2 BUTTONEVENTFN I 1 SHADE I 0 WINDOW) `@ h@gg D ,D@ D@ DDhoo @ Xd@ dOXdHk Y@ @HHIjd I [E \ddgV@H Loooo @ H@ ZJ RKJHJHn Kjd@HH dHN KNHNHn L@H IjdKjdhdgg Ijd@HH @`dBdhdHdKAd3A`dMdC (450 ADD.IREGION 388 BKBITBLT 373 BKBITBLT 348 \IR.SHOW.REGION 339 PROMPTPRINT 328 FILL.REGION 305 INSIDEP 291 BKBITBLT 275 FILL.REGION 252 INSIDEP 243 GETPOSITION 235 TOTOPW 228 PROMPTPRINT 195 \IR.SHOW.REGION 169 \VALID.POSITION.LIST 162 BITMAPCOPY 156 BKBITBLT 141 TOTOPW 134 BITMAPCREATE 113 \IR.CLIP.REGION 105 GETREGION 99 TOTOPW 92 PROMPTPRINT 56 \INSUREWINDOW 43 \INSUREWINDOW 33 REGIONP 27 PUTWINDOWPROP 8 WINDOWP) (434 DEFAULT.IREGION.SHADE 425 BITMAP 394 |IREGIONTYPE#| 367 ERASE 362 INPUT 177 ERROR 22 IN.CURSOR.REGION 17 BUTTONEVENTFN) ( 223 "from the squared-off region." 218 "To stop selection(s), left-button anywhere away " 213 "left-button the irregular shapes in that region. " 208 "Point your mouse to the inside of the region and " 87 "without cutting off the region's borders" 82 "Please closely surround the irregular region ") REMOVE.IREGION :D8 (I 1 IREGION I 0 WINDOW) A@ @gA A(20 WINDOWDELPROP 6 \IREGION.ON.WINDOWP) (14 IREGIONSLIST) () DOSELECTED.IREGION :D8 (I 2 BUTTON I 1 IREGION I 0 WINDOW) .A@ %Ag Ag @ABlH(32 IREGIONPROP 19 IREGIONPROP 6 \IREGION.ON.WINDOWP) (27 BUTTONEVENTFN 14 BUTTONEVENTFN) () EDIT.MASK :D8 (I 0 IREGION) @ @ (20 EDITBM 5 IREGIONP) (13 IREGION) () IREGIONP :D8 (I 0 IREGION) @@NIL (5 IREGION) () IREGIONPROP :D8 (P 6 X P 3 NEWVALUE P 2 PROP P 1 IREGION P 0 X) e0kaYlaZI hHllaJg `IIJKhIJK KII!L^MKJMNNh NJdgIKKgIKKJdgIKKgIKKJdgIKKgIK KoJ Jg IJ'JdgIgIJdgIgIJdgIgI oJ (419 ERROR 291 MEMB 286 RECORDFIELDNAMES 274 ERROR 140 \NCONC2 90 LISTPUT 50 MEMB 45 RECORDFIELDNAMES 19 IREGIONP) (405 IREGION 397 HELPSTRING 389 IREGION 380 SHADE 370 IREGION 362 MASK 354 IREGION 345 REGION 335 IREGION 327 USERDATA 319 IREGION 310 BUTTONEVENTFN 298 IREGION 281 IREGION 258 IREGION 250 HELPSTRING 240 IREGION 231 SHADE 219 IREGION 211 MASK 201 IREGION 192 REGION 180 IREGION 172 USERDATA 162 IREGION 153 BUTTONEVENTFN 106 IREGION 100 IREGION 81 IREGION 67 IREGION 58 IREGION 40 IREGION) ( 413 "Not a valid IREGION prop: " 268 "Not a valid IREGION prop: ") SHOW.ALL.IREGIONSA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 X F 1 SI::*RESETFORMS* F 2 WINDOW F 3 SHADE F 4 DELAY) ]gPgPg hhdQcPgSn RP gRPhhdQcT3n (90 BLOCK 58 INVERT.IREGION 51 IREGIONPROP 21 IREGIONPROP) (63 INVERT.IREGION 40 SHADE 16 SHADE 10 SHADE 4 IREGIONPROP) () SHOW.ALL.IREGIONS :D8 (P 4 RESETSTATE P 3 SI::*RESETFORMS* P 2 LISPXHIST P 1 X P 0 IRS I 2 DELAY I 1 SHADE I 0 WINDOW F 5 LISPXHIST) 3@ H#dU!g $h(38 SI::RESETUNWIND 33 \MVLIST 28 SHOW.ALL.IREGIONSA0001 5 ALL.IREGIONS) (23 SI::RESETUNWIND) () INTERSECTING.IREGIONS? :D8 (I 1 FLG I 0 WINDOW) @gA (11 PUTWINDOWPROP) (5 IR.INTERSECTIONFLG) () INVERT.IREGION :D8 (I 1 IREGION I 0 WINDOW) IA@ @@ Ajd@AAhdggA (70 BKBITBLT 14 TOTOPW 6 \IREGION.ON.WINDOWP) (62 IREGION 56 INVERT 51 MERGE 40 IREGION 31 IREGION 20 IREGION) () WHICH.IREGIONS :D8 (P 7 SOME-IREGION P 2 POSITION P 0 W I 2 Y I 1 POSORX I 0 WINDOW) @ A AA3B3H H ABHg AKL_JOJOhYjII OM Nh]K[N&(127 \FZEROP 63 GETWINDOWUSERPROP 45 LASTMOUSEY 39 LASTMOUSEX 21 POSITIONP 12 WHICHW 5 WINDOWP) (104 IREGION 91 IREGION 80 IREGION 58 IREGIONSLIST) () SURROUNDIRA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 5 POSLIST F 6 TEMPW F 7 TEMP-REGION F 8 SI::NLSETQ-VALUE) xi@jdg0UdKJh\J&L l2g0UdKJh\J&L l2hhdi c chcg(104 \INSUREWINDOW 97 CREATEW 81 APPLY 42 APPLY) (117 :NORMAL 50 MAX 11 MAX) () SURROUNDIR :D8 (P 13 POSITION P 12 *CONDITION-HANDLER-BINDINGS* P 11 SI::*NLSETQFLAG* P 10 *PROCEED-CASES* P 9 SI::NLSETQ-VALUE P 7 TEMPPOS P 6 POINTS.LST P 5 POSITIONS P 4 MASK P 3 POS P 2 TEMP-BITMAP P 1 TEMP-REGION P 0 TEMPW I 5 INSIDE.POS I 4 POSLIST I 3 HELPSTRING I 2 BUTTONEVENTFN I 1 SHADE I 0 WINDOW F 14 CROSSHAIRS F 15 *PROCEED-CASES* F 16 *CONDITION-HANDLER-BINDINGS*) @ h@gg o `l @ Djl@`ljjkjUl`ljjkj@D@ _h bWjd@OWOWhdgg  `WioW  O gOohdi X o `l E A@ b 7D1d Wjd@OWOWhdgg DikhH IIk ZH HIIJjd H J \dEIEIn JjdLjdhdgg @`dBdhdIdLAd3A`_dOdC (493 ADD.IREGION 428 BKBITBLT 404 FILL.REGION 382 BITMAPCOPY 376 CLOSEW 370 BKBITBLT 355 TOTOPW 348 BITMAPCREATE 333 DRAWCURVE 317 BKBITBLT 265 GETPOSITION 257 POSITIONP 251 FLASHWINDOW 239 PROMPTPRINT 226 \INSUREWINDOW 220 CREATEW 193 SURROUNDIRA0001 160 BKBITBLT 117 \APPEND2 108 GETPOSITION 55 TOTOPW 49 FLASHWINDOW 37 PROMPTPRINT 27 PUTWINDOWPROP 8 WINDOWP) (474 DEFAULT.IREGION.SHADE 465 BITMAP 434 |IREGIONTYPE#| 422 ERASE 417 INPUT 311 INVERT 306 INPUT 244 PROMPTWINDOW 199 :NORMAL 171 SI::NLSETQ-PROCEED-CASE 154 INVERT 149 INPUT 87 \LASTKEYSTATE 66 \LASTKEYSTATE 42 PROMPTWINDOW 22 IN.CURSOR.REGION 17 BUTTONEVENTFN) ( 234 "Please button once INSIDE the region" 212 (0 0 10 10) 180 (CL:ERROR . SI::NLSETQHANDLER) 32 "Please button the area around the particular region. To end, hold the SHIFT key when hitting the last point with the mouse.") IN.CURSOR.REGION :D8 (P 9 IR P 7 ALLREADY.PROMPT P 6 BUTTON P 5 TEMPY P 4 TEMPX P 3 OLD-REGIONS P 2 INTERSECTIONFLG P 1 TIMEOUT P 0 TIMEOUT.WAIT I 0 WINDOW F 10 \RCLKMILLISECOND)  nlwnW@g c@ @ J [@ \@ ]Kd @O `dlgdlgkgi^`l_jOO L@ \M@ ]@ hK@LM J UOIg KK.d O o` ` i_UOKd @O @LM J [d @O IIlwnWh_OKd @O Kd @ON h(442 DOSELECTED.IREGION 421 INVERT.IREGION 405 PROMPTPRINT 359 INVERT.IREGION 344 \WITH.INTERSECTION 338 WHICH.IREGIONS 324 INVERT.IREGION 308 PROMPTPRINT 288 TERPRI 277 PRIN1 242 PROMPTPRINT 232 TIMEREXPIRED? 215 \SAME.IREGIONS.LIST 210 \WITH.INTERSECTION 204 WHICH.IREGIONS 190 LASTMOUSEY 181 LASTMOUSEY 171 LASTMOUSEX 160 \FZEROP 131 GETMOUSESTATE 80 INVERT.IREGION 64 LASTMOUSEY 57 LASTMOUSEX 50 \WITH.INTERSECTION 44 WHICH.IREGIONS 38 TOTOPW 29 GETWINDOWUSERPROP) (381 FIXP 370 FIXP 283 PROMPTWINDOW 272 PROMPTWINDOW 258 IREGION 227 TICKS 137 LASTMOUSEBUTTONS 123 MIDDLE 114 RIGHT 101 LEFT 90 LASTMOUSEBUTTONS 24 IR.INTERSECTIONFLG 10 FIXP) ( 267 "Will select this IRREGULAR region when you release the button.") \IR.CLIP.REGION :D8 (P 4 BOTTOM P 3 TOP P 2 RIGHT P 1 LEFT P 0 W.REG I 1 WINDOW I 0 REG) A HHHlA ,HlA ,hX@HH-@HH@@H@@Hoi i h@HdMMY@@HHؾdNNZ@@HH_dOO[@H_dOO\IHLHJIKLh(127 TERPRI 120 PRIN1 44 \INSUREWINDOW 27 \INSUREWINDOW 5 \INSUREWINDOW) NIL ( 114 "None of the region was inside the window.") \IR.SHOW.REGION :D8 (P 2 H P 1 W P 0 REG I 1 REGION I 0 WINDOW) }A AAkAAkHdkHHkHHIHkg@ HJIJkg@ HHHJkg@ IHIJkg@ (122 DRAWLINE 103 DRAWLINE 82 DRAWLINE 64 DRAWLINE 5 COPY) (115 INVERT 96 INVERT 75 INVERT 57 INVERT) () \VALID.POSITION.LIST :D8 (P 1 P I 0 POSITIONLIST) `@d4 @h@oi i gHi@Y hHXoi i g(88 TERPRI 81 PRIN1 61 POSITIONP 35 TERPRI 28 PRIN1 8 POSITIONP) (93 ERROR 40 ERROR) ( 75 "Not all elements in this list are positions." 22 "POSITIONLIST must be NIL, a position, or a list of positions.") \SAME.IREGIONS.LIST :D8 (I 1 LIST2 I 0 LIST1) %@ A h@HiAHX(11 LENGTH 5 LENGTH) NIL () \WITH.INTERSECTION :D8 (L (1 FLG 0 IRLIST)) A@@dhNIL NIL () \IREGION.ON.WINDOWP :D8 (I 1 WINDOW I 0 IREGION) "@ A @Ag @(27 GETWINDOWUSERPROP 13 WINDOWP 5 IREGIONP) (22 IREGIONSLIST) () (PRETTYCOMPRINT AIREGIONSCOMS) (RPAQQ AIREGIONSCOMS ((FILES FILLREGION) (FNS ADD.IREGION ALL.IREGIONS CREATEIR REMOVE.IREGION DOSELECTED.IREGION EDIT.MASK IREGIONP IREGIONPROP SHOW.ALL.IREGIONS INTERSECTING.IREGIONS? INVERT.IREGION WHICH.IREGIONS SURROUNDIR) (FNS IN.CURSOR.REGION \IR.CLIP.REGION \IR.SHOW.REGION \VALID.POSITION.LIST \SAME.IREGIONS.LIST \WITH.INTERSECTION \IREGION.ON.WINDOWP) (RECORDS IREGION) ( PROP ARGNAMES IREGIONPROP) (VARS (DEFAULT.IREGION.SHADE 65535)) (GLOBALVARS DEFAULT.IREGION.SHADE) ( DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA IREGIONPROP))))) (FILESLOAD FILLREGION) (DATATYPE IREGION (BUTTONEVENTFN (* The users function to be called.) USERDATA (* This is where the users data is kept in proplist format.) REGION (* The region relative to the window where the IREGION is located.) MASK (* The mask is the same size as region and contains black where ever the IREGION is to be active.) SHADE (* The shade which IREGION inverts to %.) HELPSTRING (* The helpstring to be printed when the button is held down in this IREGION)) (* there used to be a TYPE? here but it was useless and removed)) (/DECLAREDATATYPE (QUOTE IREGION) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE (( IREGION 0 POINTER) (IREGION 2 POINTER) (IREGION 4 POINTER) (IREGION 6 POINTER) (IREGION 8 POINTER) ( IREGION 10 POINTER))) (QUOTE 12)) (PUTPROPS IREGIONPROP ARGNAMES (NIL (IREGION PROP {NEWVALUE}) . U)) (RPAQQ DEFAULT.IREGION.SHADE 65535) (PUTPROPS AIREGIONS COPYRIGHT ("XEROX Corporation" 1985 1986 1987)) NIL