Fix ui.render.test

db4
Slava Pestov 2009-02-09 22:52:20 -06:00
parent 08c0960cbf
commit b0a55d16f7
1 changed files with 12 additions and 10 deletions

View File

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