35 lines
762 B
Factor
35 lines
762 B
Factor
! Copyright (C) 2009 Daniel Ehrenberg.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: images tools.test kernel accessors ;
|
|
IN: images.tests
|
|
|
|
{ B{ 57 57 57 255 } } [ 1 1 T{ image f { 2 3 } RGBA ubyte-components f f B{
|
|
0 0 0 0
|
|
0 0 0 0
|
|
0 0 0 0
|
|
57 57 57 255
|
|
0 0 0 0
|
|
0 0 0 0
|
|
} } pixel-at ] unit-test
|
|
|
|
{ B{
|
|
0 0 0 0
|
|
0 0 0 0
|
|
0 0 0 0
|
|
57 57 57 255
|
|
0 0 0 0
|
|
0 0 0 0
|
|
} } [ B{ 57 57 57 255 } 1 1 T{ image f { 2 3 } RGBA ubyte-components f f B{
|
|
0 0 0 0
|
|
0 0 0 0
|
|
0 0 0 0
|
|
0 0 0 0
|
|
0 0 0 0
|
|
0 0 0 0
|
|
} } [ set-pixel-at ] keep bitmap>> ] unit-test
|
|
|
|
{ 40 30 } [
|
|
T{ image f { 10 3 } RGBA ubyte-components f f } rowstride
|
|
T{ image f { 10 3 } RGB ubyte-components f f } rowstride
|
|
] unit-test
|