-
Notifications
You must be signed in to change notification settings - Fork 0
/
line_of_sight.fas
215 lines (215 loc) · 12.6 KB
/
line_of_sight.fas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
(|SYSTEM|::|VERSION| '(20080430.))
#0Y_ #0Y |CHARSET|::|UTF-8|
#Y(#:|1 6 (DEFUN BLDA (P Q EPS ...) ...)-1|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|BLDA| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|BLDA|
#59Y(00 00 00 00 05 00 00 00 26 06 AE 8E AC 20 AF B2 73 02 37 B1 90 01
31 1B DB 84 01 B1 B1 B1 B3 33 01 38 14 B4 73 02 37 97 05 B1 29 05
0B 5C AD 32 63 19 06 DA 84 01 B1 B1 A2 1B 67)
(0. 1.) (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|P| |COMMON-LISP-USER|::|Q|
|COMMON-LISP-USER|::|EPS| |COMMON-LISP-USER|::|N|
|COMMON-LISP-USER|::|L|)
|COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|8 15 (DEFUN QUADRANT (A B X ...) ...)-2|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|QUADRANT| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|QUADRANT|
#82Y(00 00 00 00 04 00 00 00 26 05 AE B1 90 01 2F 33 AE B1 91 01 32 06
AD B0 90 01 34 2A AE B1 91 01 31 06 AD B0 90 01 34 21 AE B1 91 01
31 06 AD B0 90 01 33 18 AE B1 91 01 32 06 AD B0 90 01 33 0F 00 19
05 C5 19 05 C6 19 05 C7 19 05 C8 19 05 C9 19 05)
(0. 1. 2. 3. 4.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
(|COMMON-LISP-USER|::|A| |COMMON-LISP-USER|::|B| |COMMON-LISP-USER|::|X|
|COMMON-LISP-USER|::|Y|)
|COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|17 19 (DEFUN SLOPE_NUMERATOR (A B X ...) ...)-3|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|SLOPE_NUMERATOR| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|SLOPE_NUMERATOR|
#19Y(00 00 00 00 04 00 00 00 26 05 AF AE 73 01 38 32 B9 19 05) ()
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
(|COMMON-LISP-USER|::|A| |COMMON-LISP-USER|::|B| |COMMON-LISP-USER|::|X|
|COMMON-LISP-USER|::|Y|)
|COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|21 23 (DEFUN SLOPE_DENOMINATOR (A B X ...) ...)-4|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|SLOPE_DENOMINATOR| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|SLOPE_DENOMINATOR|
#19Y(00 00 00 00 04 00 00 00 26 05 B0 AF 73 01 38 32 B9 19 05) ()
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
(|COMMON-LISP-USER|::|A| |COMMON-LISP-USER|::|B| |COMMON-LISP-USER|::|X|
|COMMON-LISP-USER|::|Y|)
|COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|25 27 (DEFUN SLOPE (A B X ...) ...)-5|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|SLOPE| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|SLOPE|
#38Y(00 00 00 00 04 00 00 00 26 05 B0 AF 90 01 2F 13 B0 B0 B0 B0 6E 04
00 B1 B1 B1 B1 6E 04 01 33 01 3A 19 05 00 19 05)
(|COMMON-LISP-USER|::|SLOPE_NUMERATOR|
|COMMON-LISP-USER|::|SLOPE_DENOMINATOR|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|A| |COMMON-LISP-USER|::|B| |COMMON-LISP-USER|::|X|
|COMMON-LISP-USER|::|Y|)
|COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|29 35 (DEFUN IS_SIMPLE_LINE (A B X ...) ...)-6|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|IS_SIMPLE_LINE| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|IS_SIMPLE_LINE|
#41Y(00 00 00 00 04 00 00 00 26 05 B0 AF 33 01 2F 1E 16 AF AE 33 01 2F
1E 0F B0 B0 B0 B0 6E 04 00 72 B9 DB 33 01 2F 19 05 19 05)
(|COMMON-LISP-USER|::|SLOPE| 1.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|A| |COMMON-LISP-USER|::|B| |COMMON-LISP-USER|::|X|
|COMMON-LISP-USER|::|Y|)
|COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|38 56 (DEFUN SIMPLE_LINE (A B X ...) ...)-7|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|SIMPLE_LINE| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|SIMPLE_LINE|
#290Y(00 00 00 00 04 00 00 00 26 05 B0 AF 90 01 2F 80 48 AF AE 90 01 2F
80 7B B0 B0 B0 B0 6E 04 05 DA 90 01 2F 80 A9 B0 B0 B0 B0 6E 04 05
E2 91 01 2F 0E B0 AF 90 01 31 80 B9 B0 AF 90 01 32 80 C8 00 19 05
DA B0 AF 73 01 38 72 B9 63 AE AE 90 01 32 80 CB DB 84 00 85 02 1B
72 AF AE 90 01 31 63 AF AE 91 01 32 5A DA B0 AF 73 01 38 72 B9 63
AE AE 90 01 32 80 A8 DC 84 00 85 02 1B 72 DA B1 B0 73 01 38 72 B9
63 AE AE 90 01 32 80 91 DD 84 00 85 02 1B 72 B0 AF 90 01 31 63 B0
AF 91 01 32 FF 9F DA B1 B0 73 01 38 72 B9 63 AE AE 90 01 32 80 6D
DE 84 00 85 02 1B 72 DA B0 AF 73 01 38 72 B9 63 AE AE 90 01 32 80
56 E0 84 00 85 02 1B 72 B0 AF 90 01 31 63 B0 AF 91 01 32 FF 64 DA
B0 AF 73 01 38 72 B9 63 AE AE 90 01 32 33 E1 84 00 85 02 1B 73 DA
B0 AF 73 01 38 72 B9 63 AE AE 90 01 32 1D E3 84 00 85 02 1B 73 DA
B0 AF 73 01 38 72 B9 63 1B 05 E4 84 00 85 02 AE AE 91 01 32 75 AC
31 B1 19 08)
(1. (0. 1.) (0. -1.) (1. 0.) (-1. 0.) |COMMON-LISP-USER|::|SLOPE|
(1. 1.) (-1. -1.) -1. (1. -1.) (-1. 1.))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|A| |COMMON-LISP-USER|::|B| |COMMON-LISP-USER|::|X|
|COMMON-LISP-USER|::|Y|)
|COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|58 60 (DEFUN LINE_STRING (A B X ...) ...)-8|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|LINE_STRING| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|LINE_STRING|
#38Y(00 00 00 00 04 00 00 00 26 05 B0 B0 B0 B0 6E 04 00 B1 B1 B1 B1 6E
04 01 DC B3 B3 B3 B3 6E 04 03 63 2D 05 04 19 05)
(|COMMON-LISP-USER|::|SLOPE_NUMERATOR|
|COMMON-LISP-USER|::|SLOPE_DENOMINATOR| 0.
|COMMON-LISP-USER|::|EUCLIDEAN_DISTANCE| |COMMON-LISP-USER|::|BLDA|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|A| |COMMON-LISP-USER|::|B| |COMMON-LISP-USER|::|X|
|COMMON-LISP-USER|::|Y|)
|COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|62 72 (DEFUN LINE_COORDINATES (A B X ...) ...)-9|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|LINE_COORDINATES| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|LINE_COORDINATES|
#260Y(00 00 00 00 04 00 00 00 26 05 B0 B0 B0 B0 2D 04 00 1C 80 42 B0 B0
B0 B0 6E 04 02 8E AC 80 43 B0 B0 B0 B0 6E 04 02 DE 90 01 2F 80 56
B0 B0 B0 B0 6E 04 02 E3 90 01 2F 80 69 B0 B0 B0 B0 6E 04 02 E6 90
01 2F 80 7C B0 B0 B0 B0 6E 04 02 E9 90 01 2F 80 8B 00 19 05 B0 B0
B0 B0 2D 04 01 19 05 CA 1B 14 63 B1 B1 B1 B1 6E 04 03 AC 8C 9F 80
8E 94 00 AC 24 04 6A CB 14 84 02 16 01 83 00 1B 6B CC 1B 14 63 B1
B1 B1 B1 6E 04 03 AC 8C 9F 80 6E 94 00 AC 24 04 6A CD 14 84 02 16
01 83 00 1B 6B CF 1B 14 63 B1 B1 B1 B1 6E 04 03 AC 8C 9F 80 4E 94
00 AC 24 04 6A D0 14 84 02 16 01 83 00 1B 6B D2 1B 13 63 B1 B1 B1
B1 6E 04 03 AC 8C 9F 2F 94 00 AC 24 04 6B D3 14 84 02 16 01 83 00
1B 6C 63 B1 B1 B1 B1 6E 04 03 1B 11 D5 1B 07 94 00 AC 24 04 77 D6
14 84 02 16 01 83 00 AC 8D 9F 6E 16 01 AC 31 B1 19 06)
(|COMMON-LISP-USER|::|IS_SIMPLE_LINE| |COMMON-LISP-USER|::|SIMPLE_LINE|
|COMMON-LISP-USER|::|QUADRANT| |COMMON-LISP-USER|::|LINE_STRING| 1.
(0. 1.) (0. 1.) (1. 1.) (1. 0.) 2. (-1. 1.) (-1. 0.) 3. (-1. -1.)
(-1. 0.) 4. (1. -1.) (1. 0.))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|A| |COMMON-LISP-USER|::|B| |COMMON-LISP-USER|::|X|
|COMMON-LISP-USER|::|Y|)
|COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|74 79 (DEFUN COORDINATE_LIST (A B X ...) ...)-10|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|COORDINATE_LIST| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|COORDINATE_LIST|
#51Y(00 00 00 00 04 00 00 00 26 05 B0 B0 00 5D 7A B1 B1 B1 B1 2D 04 00
7A DB AD 72 62 63 1B 0A DC AF B1 6E 03 03 84 00 85 02 AE AE 91 01
32 70 AC 31 B1 19 09)
(|COMMON-LISP-USER|::|LINE_COORDINATES| 1. 0.
|COMMON-LISP-USER|::|SUB_SUM|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|A| |COMMON-LISP-USER|::|B| |COMMON-LISP-USER|::|X|
|COMMON-LISP-USER|::|Y|)
|COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|81 83 (DEFUN SUB_SUM (A B L) ...)-11|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|SUB_SUM| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|SUB_SUM|
#23Y(00 00 00 00 03 00 00 00 26 04 99 00 AE B1 B1 72 60 38 05 32 66 19
04)
(|COMMON-LISP-USER|::|PAIRWISE_ADDITION|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|A| |COMMON-LISP-USER|::|B|
|COMMON-LISP-USER|::|L|)
|COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|85 87 (DEFUN PAIRWISE_ADDITION (A B) ...)-12|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|PAIRWISE_ADDITION| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|PAIRWISE_ADDITION|
#31Y(00 00 00 00 02 00 00 00 26 03 94 02 94 02 73 02 37 A0 5C 78 A0 5C
78 73 02 37 00 5D 5D 19 03)
() (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
(|COMMON-LISP-USER|::|A| |COMMON-LISP-USER|::|B|) |COMMON-LISP|::|NIL|
1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|89 96 (DEFUN IN_LINE_OF_SIGHT (A B X ...) ...)-13|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|IN_LINE_OF_SIGHT| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|IN_LINE_OF_SIGHT|
#55Y(00 00 00 00 04 00 00 00 26 05 B0 B0 B0 B0 6E 04 00 DB 33 01 31 1F
1E DC B1 B1 B1 B1 6E 04 03 6F 04 33 00 2A 1E 0F DF AF AF B3 B3 6E
04 03 6F 04 33 00 2A 19 05 19 05)
(|COMMON-LISP-USER|::|EUCLIDEAN_DISTANCE| 7.
#Y(|COMMON-LISP-USER|::|IN_LINE_OF_SIGHT-1|
#19Y(00 00 00 00 01 00 00 00 26 02 94 01 9F 5C 78 30 00 19 02)
(|COMMON-LISP-USER|::|IS_FLOOR|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|Z|) |COMMON-LISP|::|NIL| 1)
|COMMON-LISP-USER|::|COORDINATE_LIST| |COMMON-LISP-USER|::|INTERIOR|
#Y(|COMMON-LISP-USER|::|IN_LINE_OF_SIGHT-2|
#19Y(00 00 00 00 01 00 00 00 26 02 94 01 9F 5C 78 30 00 19 02)
(|COMMON-LISP-USER|::|IS_FLOOR|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|Z|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|A| |COMMON-LISP-USER|::|B| |COMMON-LISP-USER|::|X|
|COMMON-LISP-USER|::|Y|)
|COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|98 103 (DEFUN IS_LINE (X Y) ...)-14|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|IS_LINE| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|IS_LINE|
#13Y(00 00 00 00 02 00 00 00 26 03 00 19 03) () |COMMON-LISP|::|NIL|
(|COMMON-LISP-USER|::|X| |COMMON-LISP-USER|::|Y|) |COMMON-LISP|::|NIL|
1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|105 107 (DEFUN INTERIOR (L) ...)-15|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|COMMON-LISP-USER|::|INTERIOR| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|COMMON-LISP-USER|::|INTERIOR|
#21Y(00 00 00 00 01 00 00 00 26 02 AD AE 38 01 71 A9 30 00 5C 19 02)
(|COMMON-LISP|::|SET-DIFFERENCE|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP-USER|::|L|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))