Merge branch 'master' of git://factorcode.org/git/factor
commit
56523afb29
|
@ -77,6 +77,16 @@ IN: math.matrices
|
|||
{ 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
|
||||
: mneg ( m -- m ) [ vneg ] map ;
|
||||
|
||||
|
|
|
@ -95,7 +95,7 @@ M: world graft*
|
|||
[ hand-clicked close-global ]
|
||||
[ hand-gadget close-global ]
|
||||
[ end-world ]
|
||||
[ [ [ [ dispose ] when* ] each V{ } clone ] change-window-resources drop ]
|
||||
[ [ <reversed> [ [ dispose ] when* ] each V{ } clone ] change-window-resources drop ]
|
||||
} cleave ;
|
||||
|
||||
M: world ungraft*
|
||||
|
|
Loading…
Reference in New Issue