Use new distance word
parent
5bc173b9cf
commit
cbf392c889
|
@ -205,7 +205,7 @@ SYMBOL: drag-timer
|
||||||
dup hand-last-button get = ;
|
dup hand-last-button get = ;
|
||||||
|
|
||||||
: multi-click-position? ( -- ? )
|
: multi-click-position? ( -- ? )
|
||||||
hand-loc get hand-click-loc get v- norm-sq 100 <= ;
|
hand-loc get hand-click-loc get distance 10 <= ;
|
||||||
|
|
||||||
: multi-click? ( button -- ? )
|
: multi-click? ( button -- ? )
|
||||||
{
|
{
|
||||||
|
|
Loading…
Reference in New Issue