colors: minor change
							parent
							
								
									463b3ff87d
								
							
						
					
					
						commit
						ba61e15689
					
				| 
						 | 
				
			
			@ -29,9 +29,9 @@ M: gray >rgba ( gray -- rgba ) [ gray>> dup dup ] [ alpha>> ] bi rgba boa ;
 | 
			
		|||
 | 
			
		||||
M: array >rgba ( array -- rgba ) first4 rgba boa ;
 | 
			
		||||
 | 
			
		||||
M: color ( color -- red   ) red>>   >rgba red>> ;
 | 
			
		||||
M: color ( color -- green ) green>> >rgba green>> ;
 | 
			
		||||
M: color ( color -- blue  ) blue>>  >rgba blue>> ;
 | 
			
		||||
M: color red>>   ( color -- red   ) >rgba red>>   ;
 | 
			
		||||
M: color green>> ( color -- green ) >rgba green>> ;
 | 
			
		||||
M: color blue>>  ( color -- blue  ) >rgba blue>>  ;
 | 
			
		||||
 | 
			
		||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue