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

trails: can use symbols directly without wrapping.

factor-shell
John Benediktsson 2018-01-22 07:01:22 -08:00
parent ed32c5df2b
commit 11a2ad3550
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/trails/trails.factor
View File

@ -45,8 +45,8 @@ M: trails-gadget pref-dim* drop { 500 500 } ;
[ dup length ] dip '[ 1 + _ / @ ] each-index ; inline [ dup length ] dip '[ 1 + _ / @ ] each-index ; inline
M:: trails-gadget draw-gadget* ( GADGET -- ) M:: trails-gadget draw-gadget* ( GADGET -- )
T{ rgba f 1 1 1 0.4 } \ fill-color set ! White, with some transparency T{ rgba f 1 1 1 0.4 } fill-color set ! White, with some transparency
T{ rgba f 0 0 0 0 } \ stroke-color set ! no stroke T{ rgba f 0 0 0 0 } stroke-color set ! no stroke
COLOR: black gl-clear COLOR: black gl-clear
GADGET points>> [ dot ] each-percent ; GADGET points>> [ dot ] each-percent ;