/ APDL Public Domain 1 / APDL_PD1A.iso / program / basic / blib / Blib / Coord

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 2a 7c 73 74 | 61 72 74 20 43 4f 4f 52 |....*|st|art COOR|
|00000010| 44 0d 00 14 14 2a 7c 21 | 43 4f 4f 52 44 20 4c 69 |D....*|!|COORD Li|
|00000020| 62 72 61 72 79 0d 00 1e | 07 2a 7c 21 0d 00 1f 39 |brary...|.*|!...9|
|00000030| 2a 7c 21 43 6f 6f 72 64 | 20 4c 69 62 72 61 72 79 |*|!Coord| Library|
|00000040| 20 43 6f 70 79 72 69 67 | 68 74 20 49 61 6e 20 50 | Copyrig|ht Ian P|
|00000050| 61 6c 6d 65 72 2c 20 35 | 74 68 20 4a 75 6e 65 20 |almer, 5|th June |
|00000060| 31 39 39 33 2e 0d 00 20 | 07 2a 7c 21 0d 00 28 35 |1993... |.*|!..(5|
|00000070| 2a 7c 21 53 65 76 65 72 | 61 6c 20 72 6f 75 74 69 |*|!Sever|al routi|
|00000080| 6e 65 73 20 66 6f 72 20 | 63 6f 6f 72 64 69 6e 61 |nes for |coordina|
|00000090| 74 65 20 72 65 6c 61 74 | 65 64 20 73 74 75 66 66 |te relat|ed stuff|
|000000a0| 2e 0d 00 32 10 2a 7c 73 | 74 6f 70 20 43 4f 4f 52 |...2.*|s|top COOR|
|000000b0| 44 0d 00 3c 1f 2a 7c 73 | 74 61 72 74 20 50 52 4f |D..<.*|s|tart PRO|
|000000c0| 43 63 6f 6f 72 64 5f 77 | 69 6e 74 6f 72 65 61 6c |Ccoord_w|intoreal|
|000000d0| 0d 00 46 2c 2a 7c 21 50 | 52 4f 43 63 6f 6f 72 64 |..F,*|!P|ROCcoord|
|000000e0| 5f 77 69 6e 74 6f 72 65 | 61 6c 28 20 77 69 6e 64 |_wintore|al( wind|
|000000f0| 6f 77 20 2c 20 58 20 2c | 20 59 20 29 0d 00 50 07 |ow , X ,| Y )..P.|
|00000100| 2a 7c 21 0d 00 5a 41 2a | 7c 21 43 6f 6e 76 65 72 |*|!..ZA*||!Conver|
|00000110| 74 73 20 62 65 74 77 65 | 65 6e 20 77 69 6e 64 6f |ts betwe|en windo|
|00000120| 77 20 63 6f 6f 72 64 69 | 6e 61 74 65 73 20 74 6f |w coordi|nates to|
|00000130| 20 73 63 72 65 65 6e 20 | 63 6f 6f 72 64 69 6e 61 | screen |coordina|
|00000140| 74 65 73 2e 0d 00 64 23 | dd f2 63 6f 6f 72 64 5f |tes...d#|..coord_|
|00000150| 77 69 6e 74 6f 72 65 61 | 6c 28 57 25 2c f8 20 58 |wintorea|l(W%,. X|
|00000160| 25 2c f8 20 59 25 29 0d | 00 6e 19 ea 20 42 25 3a |%,. Y%).|.n.. B%:|
|00000170| 42 25 3d 5f 77 69 6d 70 | 5f 62 75 66 66 65 72 25 |B%=_wimp|_buffer%|
|00000180| 0d 00 78 1d 21 42 25 3d | 21 28 57 25 2d 38 29 3a |..x.!B%=|!(W%-8):|
|00000190| c8 99 20 26 34 30 30 43 | 42 2c 2c 42 25 0d 00 82 |.. &400C|B,,B%...|
|000001a0| 26 58 25 3d 58 25 2d 42 | 25 21 32 30 2b 42 25 21 |&X%=X%-B|%!20+B%!|
|000001b0| 34 3a 59 25 3d 42 25 21 | 31 36 2d 42 25 21 32 34 |4:Y%=B%!|16-B%!24|
|000001c0| 2b 59 25 0d 00 8c 05 e1 | 0d 00 96 04 0d 00 a0 1e |+Y%.....|........|
|000001d0| 2a 7c 73 74 6f 70 20 50 | 52 4f 43 63 6f 6f 72 64 |*|stop P|ROCcoord|
|000001e0| 5f 77 69 6e 74 6f 72 65 | 61 6c 0d 00 aa 1f 2a 7c |_wintore|al....*||
|000001f0| 73 74 61 72 74 20 50 52 | 4f 43 63 6f 6f 72 64 5f |start PR|OCcoord_|
|00000200| 72 65 61 6c 74 6f 77 69 | 6e 0d 00 b4 2c 2a 7c 21 |realtowi|n...,*|!|
|00000210| 50 52 4f 43 63 6f 6f 72 | 64 5f 72 65 61 6c 74 6f |PROCcoor|d_realto|
|00000220| 77 69 6e 28 20 77 69 6e | 64 6f 77 20 2c 20 58 20 |win( win|dow , X |
|00000230| 2c 20 59 20 29 0d 00 be | 07 2a 7c 21 0d 00 c8 42 |, Y )...|.*|!...B|
|00000240| 2a 7c 21 43 6f 6e 76 65 | 72 74 73 20 62 65 74 77 |*|!Conve|rts betw|
|00000250| 65 65 6e 20 73 63 72 65 | 65 6e 20 63 6f 6f 72 64 |een scre|en coord|
|00000260| 69 6e 61 74 65 73 20 61 | 6e 64 20 77 69 6e 64 6f |inates a|nd windo|
|00000270| 77 20 63 6f 6f 72 64 69 | 6e 61 74 65 73 2e 0d 00 |w coordi|nates...|
|00000280| d2 23 dd f2 63 6f 6f 72 | 64 5f 72 65 61 6c 74 6f |.#..coor|d_realto|
|00000290| 77 69 6e 28 57 25 2c f8 | 20 58 25 2c f8 20 59 25 |win(W%,.| X%,. Y%|
|000002a0| 29 0d 00 dc 19 ea 20 42 | 25 3a 42 25 3d 5f 77 69 |)..... B|%:B%=_wi|
|000002b0| 6d 70 5f 62 75 66 66 65 | 72 25 0d 00 e6 1d 21 42 |mp_buffe|r%....!B|
|000002c0| 25 3d 21 28 57 25 2d 38 | 29 3a c8 99 20 26 34 30 |%=!(W%-8|):.. &40|
|000002d0| 30 43 42 2c 2c 42 25 0d | 00 f0 26 58 25 3d 58 25 |0CB,,B%.|..&X%=X%|
|000002e0| 2b 42 25 21 32 30 2d 42 | 25 21 34 3a 59 25 3d 59 |+B%!20-B|%!4:Y%=Y|
|000002f0| 25 2b 42 25 21 32 34 2d | 42 25 21 31 36 0d 00 fa |%+B%!24-|B%!16...|
|00000300| 05 e1 0d 01 04 04 0d 01 | 0e 1e 2a 7c 73 74 6f 70 |........|..*|stop|
|00000310| 20 50 52 4f 43 63 6f 6f | 72 64 5f 72 65 61 6c 74 | PROCcoo|rd_realt|
|00000320| 6f 77 69 6e 0d 01 18 1f | 2a 7c 73 74 61 72 74 20 |owin....|*|start |
|00000330| 46 4e 63 6f 6f 72 64 5f | 72 65 63 5f 6f 76 65 72 |FNcoord_|rec_over|
|00000340| 6c 61 70 0d 01 22 3c 2a | 7c 21 46 4e 63 6f 6f 72 |lap.."<*||!FNcoor|
|00000350| 64 5f 72 65 63 5f 6f 76 | 65 72 6c 61 70 28 20 78 |d_rec_ov|erlap( x|
|00000360| 31 2c 20 79 31 2c 20 78 | 32 2c 20 79 32 2c 20 58 |1, y1, x|2, y2, X|
|00000370| 31 2c 20 59 31 2c 20 58 | 32 2c 20 59 32 20 29 0d |1, Y1, X|2, Y2 ).|
|00000380| 01 23 07 2a 7c 21 0d 01 | 24 4d 2a 7c 21 54 68 69 |.#.*|!..|$M*|!Thi|
|00000390| 73 20 66 75 6e 63 74 69 | 6f 6e 20 74 61 6b 65 73 |s functi|on takes|
|000003a0| 20 74 68 65 20 74 77 6f | 20 72 65 63 74 61 6e 67 | the two| rectang|
|000003b0| 6c 65 73 20 67 69 76 65 | 6e 20 78 31 79 31 78 32 |les give|n x1y1x2|
|000003c0| 79 32 20 61 6e 64 20 58 | 31 59 31 58 32 59 32 20 |y2 and X|1Y1X2Y2 |
|000003d0| 61 6e 64 0d 01 25 39 2a | 7c 21 72 65 74 75 72 6e |and..%9*||!return|
|000003e0| 73 20 54 52 55 45 20 69 | 66 20 74 68 65 79 20 6f |s TRUE i|f they o|
|000003f0| 76 65 72 6c 61 70 2c 20 | 46 41 4c 53 45 20 69 66 |verlap, |FALSE if|
|00000400| 20 74 68 65 79 20 64 6f | 6e 27 74 2e 0d 01 2c 30 | they do|n't...,0|
|00000410| dd a4 63 6f 6f 72 64 5f | 72 65 63 5f 6f 76 65 72 |..coord_|rec_over|
|00000420| 6c 61 70 28 78 25 2c 79 | 25 2c 58 25 2c 59 25 2c |lap(x%,y|%,X%,Y%,|
|00000430| 61 25 2c 62 25 2c 41 25 | 2c 42 25 29 0d 01 36 18 |a%,b%,A%|,B%)..6.|
|00000440| e7 20 78 25 3c 61 25 20 | 80 20 58 25 3c 61 25 20 |. x%<a% |. X%<a% |
|00000450| 8c 20 3d a3 0d 01 40 18 | e7 20 78 25 3e 41 25 20 |. =...@.|. x%>A% |
|00000460| 80 20 58 25 3e 41 25 20 | 8c 20 3d a3 0d 01 4a 18 |. X%>A% |. =...J.|
|00000470| e7 20 79 25 3c 62 25 20 | 80 20 59 25 3c 62 25 20 |. y%<b% |. Y%<b% |
|00000480| 8c 20 3d a3 0d 01 54 18 | e7 20 79 25 3e 42 25 20 |. =...T.|. y%>B% |
|00000490| 80 20 59 25 3e 42 25 20 | 8c 20 3d a3 0d 01 5e 06 |. Y%>B% |. =...^.|
|000004a0| 3d b9 0d 01 68 1e 2a 7c | 73 74 6f 70 20 46 4e 63 |=...h.*||stop FNc|
|000004b0| 6f 6f 72 64 5f 72 65 63 | 5f 6f 76 65 72 6c 61 70 |oord_rec|_overlap|
|000004c0| 0d ff                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+