basis/colors/mix/mix-tests.factor

   1 USING: colors.constants colors.mix kernel tools.test ;
   2
   3 { COLOR: blue } [ COLOR: blue COLOR: red 0.0 linear-gradient ] unit-test
   4 { COLOR: red } [ COLOR: blue COLOR: red 1.0 linear-gradient ] unit-test
   5
   6 { COLOR: blue } [ { COLOR: blue COLOR: red COLOR: green } 0.0 sample-linear-gradient ] unit-test
   7 { COLOR: red } [ { COLOR: blue COLOR: red COLOR: green } 0.5 sample-linear-gradient ] unit-test
   8 { COLOR: green } [ { COLOR: blue COLOR: red COLOR: green } 1.0 sample-linear-gradient ] unit-test
   9
  10 { t } [
  11     { COLOR: blue COLOR: red } 0.5 sample-linear-gradient
  12     COLOR: blue COLOR: red 0.5 linear-gradient =
  13 ] unit-test