Update for route.rkt -> trie.rkt switch
This commit is contained in:
parent
5fcb4cb777
commit
a7eae9b00e
|
@ -23,7 +23,7 @@
|
|||
(require (prefix-in pict: pict))
|
||||
|
||||
(require prospect)
|
||||
(require prospect/route)
|
||||
(require prospect/trie)
|
||||
(require prospect/ground)
|
||||
|
||||
(require "texture.rkt")
|
||||
|
@ -180,8 +180,8 @@
|
|||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(define scene-projection (compile-projection (?! (scene ? ?))))
|
||||
(define sprite-projection (compile-projection (?! (sprite ? ?))))
|
||||
(define scene-projection (?! (scene ? ?)))
|
||||
(define sprite-projection (?! (sprite ? ?)))
|
||||
|
||||
(define sprite-order
|
||||
(order 'sprite-order
|
||||
|
|
|
@ -4,8 +4,8 @@
|
|||
(require 2htdp/image)
|
||||
(require "../2d.rkt")
|
||||
|
||||
(define window-projection (compile-projection (at-meta (?! (window ? ?)))))
|
||||
(define key-pressed-projection (compile-projection (key-pressed (?!))))
|
||||
(define window-projection (at-meta (?! (window ? ?))))
|
||||
(define key-pressed-projection (key-pressed (?!)))
|
||||
|
||||
(define (spawn-background)
|
||||
(spawn (lambda (e s)
|
||||
|
|
Loading…
Reference in New Issue