Fix ui.render.test
parent
08c0960cbf
commit
b0a55d16f7
|
@ -1,10 +1,10 @@
|
|||
! Copyright (C) 2008 Slava Pestov.
|
||||
! Copyright (C) 2008, 2009 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors colors arrays kernel sequences math byte-arrays
|
||||
namespaces grouping fry cap graphics.bitmap
|
||||
ui.gadgets ui.gadgets.packs ui.gadgets.borders ui.gadgets.grids
|
||||
ui.gadgets.grid-lines ui.gadgets.labels ui.gadgets.buttons
|
||||
ui.render ui opengl opengl.gl ;
|
||||
ui.render ui opengl opengl.gl colors.constants ;
|
||||
IN: ui.render.test
|
||||
|
||||
SINGLETON: line-test
|
||||
|
@ -30,8 +30,10 @@ SYMBOL: render-output
|
|||
|
||||
: bitmap= ( bitmap1 bitmap2 -- ? )
|
||||
[
|
||||
[ [ array>> ] [ stride 4 align ] bi group ] [ stride ] bi
|
||||
'[ _ head twiddle ] map
|
||||
dup [ [ height>> ] [ stride ] bi * ] [ array>> length ] bi = [
|
||||
[ [ array>> ] [ stride 4 align ] bi group ] [ stride ] bi
|
||||
'[ _ head twiddle ] map
|
||||
] unless
|
||||
] bi@ = ;
|
||||
|
||||
: check-rendering ( gadget -- )
|
||||
|
@ -57,26 +59,26 @@ M: take-screenshot draw-boundary
|
|||
<shelf>
|
||||
take-screenshot new >>boundary
|
||||
<gadget>
|
||||
black <solid> >>interior
|
||||
COLOR: black <solid> >>interior
|
||||
{ 98 98 } >>dim
|
||||
{ 1 1 } <border> add-gadget
|
||||
<gadget>
|
||||
gray <solid> >>boundary
|
||||
COLOR: gray <solid> >>boundary
|
||||
{ 94 94 } >>dim
|
||||
{ 3 3 } <border>
|
||||
red <solid> >>boundary
|
||||
COLOR: red <solid> >>boundary
|
||||
add-gadget
|
||||
<line-gadget> <line-gadget> <line-gadget> 3array
|
||||
<line-gadget> <line-gadget> <line-gadget> 3array
|
||||
<line-gadget> <line-gadget> <line-gadget> 3array
|
||||
3array <grid>
|
||||
{ 5 5 } >>gap
|
||||
blue <grid-lines> >>boundary
|
||||
COLOR: blue <grid-lines> >>boundary
|
||||
add-gadget
|
||||
<gadget>
|
||||
{ 14 14 } >>dim
|
||||
black <checkmark-paint> >>interior
|
||||
black <solid> >>boundary
|
||||
COLOR: black <checkmark-paint> >>interior
|
||||
COLOR: black <solid> >>boundary
|
||||
{ 4 4 } <border>
|
||||
add-gadget ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue