1 ! Copyright (C) 2009 Keith Lazuka.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: images images.normalization images.normalization.private
5 IN: images.normalization.tests
10 [ B{ 0 1 } 2 2 A L permute ] unit-test
12 [ B{ 255 255 255 255 } ]
13 [ B{ 0 1 } 2 2 A RG permute ] unit-test
15 [ B{ 255 255 255 255 255 255 } ]
16 [ B{ 0 1 } 2 2 A BGR permute ] unit-test
18 [ B{ 0 255 255 255 1 255 255 255 } ]
19 [ B{ 0 1 } 2 2 A ABGR permute ] unit-test
22 ! The last byte is padding, so it should not end up in the image
25 [ B{ 0 1 0 } 2 3 A L permute ] unit-test
27 [ B{ 255 255 255 255 } ]
28 [ B{ 0 1 0 } 2 3 A RG permute ] unit-test
30 [ B{ 255 255 255 255 255 255 } ]
31 [ B{ 0 1 0 } 2 3 A BGR permute ] unit-test
33 [ B{ 0 255 255 255 1 255 255 255 } ]
34 [ B{ 0 1 0 } 2 3 A ABGR permute ] unit-test
39 [ B{ 0 1 2 3 } 2 4 LA L permute ] unit-test
41 [ B{ 255 255 255 255 } ]
42 [ B{ 0 1 2 3 } 2 4 LA RG permute ] unit-test
44 [ B{ 255 255 255 255 255 255 } ]
45 [ B{ 0 1 2 3 } 2 4 LA BGR permute ] unit-test
47 [ B{ 1 255 255 255 3 255 255 255 } ]
48 [ B{ 0 1 2 3 } 2 4 LA ABGR permute ] unit-test
53 [ B{ 0 1 2 3 4 5 } 2 6 RGB L permute ] unit-test
56 [ B{ 0 1 2 3 4 5 } 2 6 RGB RG permute ] unit-test
59 [ B{ 0 1 2 3 4 5 } 2 6 RGB BGR permute ] unit-test
61 [ B{ 255 2 1 0 255 5 4 3 } ]
62 [ B{ 0 1 2 3 4 5 } 2 6 RGB ABGR permute ] unit-test
67 [ B{ 0 1 2 3 4 5 6 7 } 2 8 RGBA L permute ] unit-test
70 [ B{ 0 1 2 3 4 5 6 7 } 2 8 RGBA RG permute ] unit-test
73 [ B{ 0 1 2 3 4 5 6 7 } 2 8 RGBA BGR permute ] unit-test
75 [ B{ 3 2 1 0 7 6 5 4 } ]
76 [ B{ 0 1 2 3 4 5 6 7 } 2 8 RGBA ABGR permute ] unit-test
81 [ B{ 0 1 2 3 4 5 6 7 } 2 8 RGBA R permute ] unit-test
83 [ B{ 255 0 1 2 255 4 5 6 } ]
84 [ B{ 0 1 2 3 4 5 6 7 } 2 8 RGBA XRGB permute ] unit-test
86 [ B{ 1 2 3 255 5 6 7 255 } ]
87 [ B{ 0 1 2 3 4 5 6 7 } 2 8 XRGB RGBA permute ] unit-test
89 [ B{ 255 255 255 255 255 255 255 255 } ]
90 [ B{ 0 1 } 2 2 L RGBA permute ] unit-test
95 T{ image f { 1 1 } DEPTH ubyte-components f B{ 0 } }
96 RGB reorder-components
100 T{ image f { 1 1 } DEPTH-STENCIL ubyte-components f B{ 0 } }
101 RGB reorder-components
105 T{ image f { 1 1 } INTENSITY ubyte-components f B{ 0 } }
106 RGB reorder-components
110 T{ image f { 1 1 } RGB ubyte-components f B{ 0 0 0 } }
111 DEPTH reorder-components
115 T{ image f { 1 1 } RGB ubyte-components f B{ 0 0 0 } }
116 DEPTH-STENCIL reorder-components
120 T{ image f { 1 1 } RGB ubyte-components f B{ 0 0 0 } }
121 INTENSITY reorder-components