23 lines
725 B
Factor
23 lines
725 B
Factor
IN: temporary
|
|
USING: gadgets namespaces styles test ;
|
|
|
|
[
|
|
0 x set
|
|
0 y set
|
|
|
|
[ { 255 0 0 } ] [ { 1 0 0 } red green <gradient> 0 gradient-color ] unit-test
|
|
[ { 0 255 0 } ] [ { 1 0 0 } red green <gradient> 1 gradient-color ] unit-test
|
|
|
|
[ 0 100 0 { 255 0 0 } ]
|
|
[ { 0 1 0 } red green <gradient> { 100 200 0 } 0 (gradient-x) ] unit-test
|
|
|
|
[ 0 100 100 { 255/2 255/2 0 } ]
|
|
[ { 0 1 0 } red green <gradient> { 100 200 0 } 100 (gradient-x) ] unit-test
|
|
|
|
[ 0 0 200 { 255 0 0 } ]
|
|
[ { 1 0 0 } red green <gradient> { 100 200 0 } 0 (gradient-y) ] unit-test
|
|
|
|
[ 50 0 200 { 255/2 255/2 0 } ]
|
|
[ { 1 0 0 } red green <gradient> { 100 200 0 } 50 (gradient-y) ] unit-test
|
|
] with-scope
|