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

colors: adding inverse-color.

db4
John Benediktsson 2012-10-21 13:16:34 -07:00
parent 0d4f08d7fd
commit 1d9a0f40fc
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/colors/colors.factor
View File

@ -33,3 +33,6 @@ CONSTANT: transparent T{ rgba f 0.0 0.0 0.0 0.0 }
color1 >rgba-components drop [ 1.0 percent - * ] tri@ color1 >rgba-components drop [ 1.0 percent - * ] tri@
color2 >rgba-components drop [ percent * ] tri@ color2 >rgba-components drop [ percent * ] tri@
[ + ] tri-curry@ tri* 1.0 <rgba> ; [ + ] tri-curry@ tri* 1.0 <rgba> ;
: inverse-color ( color -- color' )
>rgba-components [ [ 1.0 swap - ] tri@ ] dip <rgba> ;