updates drum input scroller to be sticky

This commit is contained in:
Joseph Bryan 2017-02-27 23:59:13 -05:00
parent 74f32a67dd
commit 5c07bbd93e

View File

@ -412,7 +412,11 @@
^+ +>
=/ pol (lent-char:klr pom)
=/ end (sub edg pol)
=. off ?:((lte p.lin end) 0 (sub p.lin end))
=. off ?: (gth p.lin (add end off))
(sub p.lin end)
?: (lth p.lin off)
(min p.lin (dec off))
off
%+ se-show
(sub (add pol p.lin) off)
(welp pom [*stye (swag [off end] q.lin)]~)