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