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

cleaner >short-array

cvs
Daniel Ehrenberg 2005-10-09 18:18:44 +00:00
parent 732b269933
commit 5dc9e2d56b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
library/ui/paint.factor
View File

@ -176,9 +176,9 @@ M: gadget draw-gadget* ( gadget -- )
TUPLE: polygon points ; TUPLE: polygon points ;
: >short-array ( seq -- short-array ) : >short-array ( seq -- short-array )
dup length <short-array> over length [ dup length dup <short-array> -rot [
[ tuck >r >r swap nth r> r> swap set-short-nth ] 3keep pick set-short-nth
] repeat nip ; ] 2each ;
: polygon-x/y ( gadget polygon -- vx vy n ) : polygon-x/y ( gadget polygon -- vx vy n )
polygon-points [ polygon-points [