steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

trails: use ``f`` to represent "invisible" points.

clean-macosx-x86-32
John Benediktsson 2019-07-25 09:19:23 -07:00
parent bd2ed2c214
commit 9135c82eb6
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/trails/trails.factor
View File

@ -11,11 +11,10 @@ IN: trails
! Return the mouse location relative to the current gadget ! Return the mouse location relative to the current gadget
hand-loc get hand-gadget get screen-loc v- ; hand-loc get hand-gadget get screen-loc v- ;
: point-list ( n -- seq ) { 0 0 } <array> <circular> ;
: percent->radius ( percent -- radius ) neg 1 + 25 * 5 max ; : percent->radius ( percent -- radius ) neg 1 + 25 * 5 max ;
: dot ( pos percent -- ) percent->radius draw-circle ; : dot ( pos percent -- )
'[ _ percent->radius draw-circle ] when* ;
TUPLE: trails-gadget < gadget points timer ; TUPLE: trails-gadget < gadget points timer ;
@ -28,7 +27,7 @@ M: trails-gadget ungraft*
:: iterate-system ( GADGET -- ) :: iterate-system ( GADGET -- )
! Add a valid point if the mouse is in the gadget ! Add a valid point if the mouse is in the gadget
! Otherwise, add an "invisible" point ! Otherwise, add an "invisible" point
hand-gadget get GADGET = [ mouse ] [ { -10 -10 } ] if hand-gadget get GADGET = [ mouse ] [ f ] if
GADGET points>> circular-push ; GADGET points>> circular-push ;
M: trails-gadget pref-dim* drop { 500 500 } ; M: trails-gadget pref-dim* drop { 500 500 } ;
@ -44,7 +43,7 @@ M:: trails-gadget draw-gadget* ( GADGET -- )
: <trails-gadget> ( -- trails-gadget ) : <trails-gadget> ( -- trails-gadget )
trails-gadget new trails-gadget new
300 point-list >>points 300 f <array> <circular> >>points
t >>clipped? t >>clipped?
dup '[ _ dup iterate-system relayout-1 ] dup '[ _ dup iterate-system relayout-1 ]
f 10 milliseconds <timer> >>timer ; f 10 milliseconds <timer> >>timer ;