Avoid tramlining on edges of blocks
This commit is contained in:
parent
a175908953
commit
a3caad0be6
|
@ -415,7 +415,7 @@
|
||||||
[else
|
[else
|
||||||
(define q-pxs (vcross2 (v- q0 p0) s))
|
(define q-pxs (vcross2 (v- q0 p0) s))
|
||||||
(define t (/ q-pxs rxs))
|
(define t (/ q-pxs rxs))
|
||||||
(and (<= 0 t 1) t)]))
|
(and (< 0 t 1) t)]))
|
||||||
|
|
||||||
(define (three-corners top-left size)
|
(define (three-corners top-left size)
|
||||||
(match-define (vector w h) size)
|
(match-define (vector w h) size)
|
||||||
|
@ -444,7 +444,6 @@
|
||||||
#:when (game-piece-has-attribute? g 'solid)]
|
#:when (game-piece-has-attribute? g 'solid)]
|
||||||
(define p1*
|
(define p1*
|
||||||
(clip-movement-by p0 p1 size (piece-pos s id) (game-piece-configuration-size g)))
|
(clip-movement-by p0 p1 size (piece-pos s id) (game-piece-configuration-size g)))
|
||||||
(log-info "\np0 ~v\np1 ~v\ng ~v\np1* ~v" p0 p1 g p1*)
|
|
||||||
p1*))
|
p1*))
|
||||||
|
|
||||||
(define ((update-game-piece elapsed-ms id state-at-beginning-of-frame) s)
|
(define ((update-game-piece elapsed-ms id state-at-beginning-of-frame) s)
|
||||||
|
|
Loading…
Reference in New Issue