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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2009-07-05 21:33:03 -05:00
parent a452f32e3a 865e37f590
commit 56523afb29
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/math/matrices/matrices.factor
View File

@ -77,6 +77,16 @@ IN: math.matrices
{ 0.0 0.0 -1.0 0.0 } { 0.0 0.0 -1.0 0.0 }
} ; } ;
:: skew-matrix4 ( theta -- matrix )
theta tan :> zf
{
{ 1.0 0.0 0.0 0.0 }
{ 0.0 1.0 0.0 0.0 }
{ 0.0 zf 1.0 0.0 }
{ 0.0 0.0 0.0 1.0 }
} ;
! Matrix operations ! Matrix operations
: mneg ( m -- m ) [ vneg ] map ; : mneg ( m -- m ) [ vneg ] map ;

2
basis/ui/ui.factor
View File

@ -95,7 +95,7 @@ M: world graft*
[ hand-clicked close-global ] [ hand-clicked close-global ]
[ hand-gadget close-global ] [ hand-gadget close-global ]
[ end-world ] [ end-world ]
[ [ [ [ dispose ] when* ] each V{ } clone ] change-window-resources drop ] [ [ <reversed> [ [ dispose ] when* ] each V{ } clone ] change-window-resources drop ]
} cleave ; } cleave ;
M: world ungraft* M: world ungraft*