1 USING: images accessors kernel tools.test literals math.ranges
3 IN: images.tessellation
5 ! Check an invariant we depend on
7 <image> B{ 1 2 3 } >>bitmap dup clone [ bitmap>> ] bi@ eq?
13 T{ image f { 2 2 } L ubyte-components f f B{ 1 2 5 6 } }
14 T{ image f { 2 2 } L ubyte-components f f B{ 3 4 7 8 } }
17 T{ image f { 2 2 } L ubyte-components f f B{ 9 10 13 14 } }
18 T{ image f { 2 2 } L ubyte-components f f B{ 11 12 15 16 } }
23 1 16 [a,b] >byte-array >>bitmap
26 ubyte-components >>component-type
33 T{ image f { 2 2 } L ubyte-components f f B{ 1 2 4 5 } }
34 T{ image f { 1 2 } L ubyte-components f f B{ 3 6 } }
37 T{ image f { 2 1 } L ubyte-components f f B{ 7 8 } }
38 T{ image f { 1 1 } L ubyte-components f f B{ 9 } }
43 1 9 [a,b] >byte-array >>bitmap
46 ubyte-components >>component-type