gestalt-intersect is probably not useful as an API
This commit is contained in:
parent
77d23a0cba
commit
50ed37f52e
|
@ -25,7 +25,7 @@
|
||||||
pub
|
pub
|
||||||
gestalt-empty
|
gestalt-empty
|
||||||
gestalt-union
|
gestalt-union
|
||||||
gestalt-intersect
|
gestalt-filter
|
||||||
gestalt-empty?
|
gestalt-empty?
|
||||||
gestalt-ref
|
gestalt-ref
|
||||||
compile-gestalt-projection
|
compile-gestalt-projection
|
||||||
|
|
|
@ -34,7 +34,7 @@
|
||||||
(printf "REF:")
|
(printf "REF:")
|
||||||
(pretty-print-matcher (gestalt-ref g 0 0 #f) #:indent 4)
|
(pretty-print-matcher (gestalt-ref g 0 0 #f) #:indent 4)
|
||||||
(printf "INTERSECTED:\n")
|
(printf "INTERSECTED:\n")
|
||||||
(pretty-print-gestalt (gestalt-intersect g (sub (set-timer ? ? ?))))
|
(pretty-print-gestalt (gestalt-filter g (pub (set-timer ? ? ?) #:level 1)))
|
||||||
#f]
|
#f]
|
||||||
[(message (timer-expired 'tick now) _ _)
|
[(message (timer-expired 'tick now) _ _)
|
||||||
(printf "TICK ~v\n" now)
|
(printf "TICK ~v\n" now)
|
||||||
|
|
|
@ -30,7 +30,7 @@
|
||||||
(printf "REF:")
|
(printf "REF:")
|
||||||
(pretty-print-matcher (gestalt-ref g 0 0 #f) #:indent 4)
|
(pretty-print-matcher (gestalt-ref g 0 0 #f) #:indent 4)
|
||||||
(printf "INTERSECTED:\n")
|
(printf "INTERSECTED:\n")
|
||||||
(pretty-print-gestalt (gestalt-intersect g (sub (set-timer ? ? ?))))
|
(pretty-print-gestalt (gestalt-filter g (pub (set-timer ? ? ?) #:level 1)))
|
||||||
#f]
|
#f]
|
||||||
[(message (timer-expired 'tick now) _ _)
|
[(message (timer-expired 'tick now) _ _)
|
||||||
(printf "TICK ~v\n" now)
|
(printf "TICK ~v\n" now)
|
||||||
|
|
|
@ -20,7 +20,6 @@
|
||||||
gestalt-combine-straight
|
gestalt-combine-straight
|
||||||
gestalt-combine-crossed
|
gestalt-combine-crossed
|
||||||
gestalt-union
|
gestalt-union
|
||||||
gestalt-intersect
|
|
||||||
gestalt-filter
|
gestalt-filter
|
||||||
gestalt-match
|
gestalt-match
|
||||||
strip-gestalt-label
|
strip-gestalt-label
|
||||||
|
@ -141,10 +140,6 @@
|
||||||
[(list g) g]
|
[(list g) g]
|
||||||
[(cons g rest) (gestalt-union1 g (walk rest))]))))
|
[(cons g rest) (gestalt-union1 g (walk rest))]))))
|
||||||
|
|
||||||
(define (gestalt-intersect g1 g2) (gestalt-combine-straight g1 g2
|
|
||||||
(lambda (side x) '())
|
|
||||||
matcher-intersect))
|
|
||||||
|
|
||||||
;; View on g1 from g2's perspective.
|
;; View on g1 from g2's perspective.
|
||||||
;; Drops a level from g2 and intersects crossed.
|
;; Drops a level from g2 and intersects crossed.
|
||||||
(define (gestalt-filter g1 g2)
|
(define (gestalt-filter g1 g2)
|
||||||
|
|
Loading…
Reference in New Issue