Fix ui.render.test
parent
13509fcabe
commit
db42113bb9
Binary file not shown.
Before Width: | Height: | Size: 72 KiB After Width: | Height: | Size: 72 KiB |
|
@ -17,8 +17,6 @@ M: line-test draw-interior
|
||||||
line-test >>interior
|
line-test >>interior
|
||||||
{ 1 10 } >>dim ;
|
{ 1 10 } >>dim ;
|
||||||
|
|
||||||
TUPLE: ui-render-test < pack { first-time? initial: t } ;
|
|
||||||
|
|
||||||
: message-window ( text -- )
|
: message-window ( text -- )
|
||||||
<label> "Message" open-window ;
|
<label> "Message" open-window ;
|
||||||
|
|
||||||
|
@ -26,24 +24,30 @@ TUPLE: ui-render-test < pack { first-time? initial: t } ;
|
||||||
#! On Windows, white is { 253 253 253 } ?
|
#! On Windows, white is { 253 253 253 } ?
|
||||||
[ dup 253 = [ 2 + ] when ] map ;
|
[ dup 253 = [ 2 + ] when ] map ;
|
||||||
|
|
||||||
: check-rendering ( gadget -- )
|
SYMBOL: render-output
|
||||||
gl-screenshot twiddle
|
|
||||||
"resource:extra/ui/render/test/reference.bmp" load-bitmap array>>
|
|
||||||
= "perfect" "needs work" ? "Your UI rendering is " prepend
|
|
||||||
message-window ;
|
|
||||||
|
|
||||||
M: ui-render-test draw-gadget*
|
: check-rendering ( gadget -- )
|
||||||
[ call-next-method ] [
|
screenshot [ twiddle ] change-array
|
||||||
dup first-time?>> [
|
[ render-output set-global ]
|
||||||
dup check-rendering
|
[
|
||||||
f >>first-time?
|
"resource:extra/ui/render/test/reference.bmp" load-bitmap
|
||||||
] when
|
[ array>> ] bi@ = "perfect" "needs work" ?
|
||||||
drop
|
"Your UI rendering is " prepend
|
||||||
|
message-window
|
||||||
] bi ;
|
] bi ;
|
||||||
|
|
||||||
|
TUPLE: take-screenshot { first-time? initial: t } ;
|
||||||
|
|
||||||
|
M: take-screenshot draw-boundary
|
||||||
|
dup first-time?>> [
|
||||||
|
over check-rendering
|
||||||
|
f >>first-time?
|
||||||
|
] when
|
||||||
|
2drop ;
|
||||||
|
|
||||||
: <ui-render-test> ( -- gadget )
|
: <ui-render-test> ( -- gadget )
|
||||||
\ ui-render-test new-gadget
|
<shelf>
|
||||||
{ 1 0 } >>orientation
|
take-screenshot new >>boundary
|
||||||
<gadget>
|
<gadget>
|
||||||
black <solid> >>interior
|
black <solid> >>interior
|
||||||
{ 98 98 } >>dim
|
{ 98 98 } >>dim
|
||||||
|
|
Loading…
Reference in New Issue