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

inline quadtrees:swizzle. add axes word to math.affine-transforms to remove translation from transform

db4
Joe Groff 2009-03-04 11:44:24 -06:00
parent 3636a4f05f
commit 4f156348d3
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/math/affine-transforms/affine-transforms.factor
View File

@ -8,6 +8,9 @@ C: <affine-transform> affine-transform
CONSTANT: identity-transform T{ affine-transform f { 1.0 0.0 } { 0.0 1.0 } { 0.0 0.0 } } CONSTANT: identity-transform T{ affine-transform f { 1.0 0.0 } { 0.0 1.0 } { 0.0 0.0 } }
: axes ( a -- a' )
clone { 0.0 0.0 } >>origin ;
: a.v ( a v -- v ) : a.v ( a v -- v )
[ [ x>> ] [ first ] bi* v*n ] [ [ x>> ] [ first ] bi* v*n ]
[ [ y>> ] [ second ] bi* v*n ] [ [ y>> ] [ second ] bi* v*n ]

2
extra/quadtrees/quadtrees.factor
View File

@ -195,5 +195,5 @@ M: quadtree clear-assoc ( assoc -- )
: swizzle ( sequence quot -- sequence' ) : swizzle ( sequence quot -- sequence' )
[ dup ] dip map [ dup ] dip map
[ zip ] [ rect-containing <quadtree> ] bi [ zip ] [ rect-containing <quadtree> ] bi
[ '[ first2 _ set-at ] each ] [ values ] bi ; [ '[ first2 _ set-at ] each ] [ values ] bi ; inline