steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix ui.render.test

db4
Slava Pestov 2009-03-15 17:36:08 -05:00
parent cb9adb2436
commit 4e5f7525b7
2 changed files with 2 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
extra/ui/render/test/reference.bmp
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 72 KiB

After

Width:  |  Height:  |  Size: 65 KiB

17
extra/ui/render/test/test.factor
View File

@ -26,21 +26,14 @@ SYMBOL: render-output
#! On Windows, white is { 253 253 253 } ? #! On Windows, white is { 253 253 253 } ?
[ 10 /i ] map ; [ 10 /i ] map ;
: stride ( bitmap -- n ) width>> 3 * ;
: bitmap= ( bitmap1 bitmap2 -- ? ) : bitmap= ( bitmap1 bitmap2 -- ? )
[ [ bitmap>> twiddle ] bi@ = ;
dup [ [ height>> ] [ stride ] bi * ] [ array>> length ] bi = [
[ [ array>> ] [ stride 4 align ] bi group ] [ stride ] bi
'[ _ head twiddle ] map
] unless
] bi@ = ;
: check-rendering ( gadget -- ) : check-rendering ( gadget -- )
screenshot screenshot
[ render-output set-global ] [ render-output set-global ]
[ [
"resource:extra/ui/render/test/reference.bmp" load-image "vocab:ui/render/test/reference.bmp" load-image
bitmap= "is perfect" "needs work" ? bitmap= "is perfect" "needs work" ?
"Your UI rendering " prepend "Your UI rendering " prepend
message-window message-window
@ -74,12 +67,6 @@ M: take-screenshot draw-boundary
3array <grid> 3array <grid>
{ 5 5 } >>gap { 5 5 } >>gap
COLOR: blue <grid-lines> >>boundary COLOR: blue <grid-lines> >>boundary
add-gadget
<gadget>
{ 14 14 } >>dim
COLOR: black <checkmark-paint> >>interior
COLOR: black <solid> >>boundary
{ 4 4 } <border>
add-gadget ; add-gadget ;
: ui-render-test ( -- ) : ui-render-test ( -- )