Fix the positive-edge case of scroll-offset computation
This commit is contained in:
parent
dd498ab627
commit
d3ca36beaf
|
@ -807,8 +807,7 @@
|
||||||
'()))
|
'()))
|
||||||
|
|
||||||
(define (compute-offset pos viewport limit)
|
(define (compute-offset pos viewport limit)
|
||||||
(define half-viewport (/ viewport 2))
|
(min (max 0 (- pos (/ viewport 2))) (- limit viewport)))
|
||||||
(min (max 0 (- pos half-viewport)) (- limit half-viewport)))
|
|
||||||
|
|
||||||
(define ((update-scroll-offset-from-player-position p) s)
|
(define ((update-scroll-offset-from-player-position p) s)
|
||||||
(define player-positions (matcher-project/set/single (patch-added p) position-projection))
|
(define player-positions (matcher-project/set/single (patch-added p) position-projection))
|
||||||
|
|
Loading…
Reference in New Issue