|
|
|
|
@ -113,8 +113,8 @@ OK, the datapoints are all corners. Now I know. Find which way is inside |
|
|
|
|
(quadrant-list (cdr (assoc (cdr corner) quadrant-map)))) |
|
|
|
|
(or (and (= px minx) (< miny py) (< py maxy) (< 2 (length (-intersection '(1 4) quadrant-list)))) ; on left edge |
|
|
|
|
(and (= px maxx) (< miny py) (< py maxy) (< 2 (length (-intersection '(2 3) quadrant-list)))) |
|
|
|
|
(and (= py miny) (< minx px) (< px maxx) (< 2 (length (-intersection '(3 4) quadrant-list)))) |
|
|
|
|
(and (= py maxy) (< minx px) (< px maxx) (< 2 (length (-intersection '(1 2) quadrant-list))))))) |
|
|
|
|
(and (= py miny) (< minx px) (< px maxx) (< 2 (length (-intersection '(1 2) quadrant-list)))) |
|
|
|
|
(and (= py maxy) (< minx px) (< px maxx) (< 2 (length (-intersection '(3 4) quadrant-list))))))) |
|
|
|
|
|
|
|
|
|
(setq final-rects (-remove (lambda (rect) (--any (incompatible-p rect it) data-corners)) rects-sifted)) |
|
|
|
|
(-max (-map #'area final-rects)) |
|
|
|
|
@ -144,6 +144,7 @@ OK, the datapoints are all corners. Now I know. Find which way is inside |
|
|
|
|
| (11 1) | 9 | 5 | |
|
|
|
|
| (11 1) | 2 | 5 | |
|
|
|
|
| (11 1) | 2 | 3 | |
|
|
|
|
|
|
|
|
|
| (11 1) | 7 | 3 | |
|
|
|
|
| (11 7) | 9 | 7 | |
|
|
|
|
| (11 7) | 9 | 5 | |
|
|
|
|
|