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

update ui.offscreen and ui.render

db4
Doug Coleman 2009-02-09 21:40:29 -06:00
parent d887ff6788
commit e82f3a8518
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/ui/offscreen/offscreen.factor
View File

@ -1,5 +1,5 @@
! (c) 2008 Joe Groff, see license for details ! (c) 2008 Joe Groff, see license for details
USING: accessors continuations graphics.bitmap kernel math USING: accessors continuations images.bitmap kernel math
sequences ui.gadgets ui.gadgets.worlds ui ui.backend sequences ui.gadgets ui.gadgets.worlds ui ui.backend
destructors ; destructors ;
IN: ui.offscreen IN: ui.offscreen

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

@ -1,10 +1,10 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 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 images.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 images ;
IN: ui.render.test IN: ui.render.test
SINGLETON: line-test SINGLETON: line-test
@ -30,7 +30,7 @@ SYMBOL: render-output
: bitmap= ( bitmap1 bitmap2 -- ? ) : bitmap= ( bitmap1 bitmap2 -- ? )
[ [
[ [ array>> ] [ stride 4 align ] bi group ] [ stride ] bi [ [ buffer>> ] [ stride 4 align ] bi group ] [ stride ] bi
'[ _ head twiddle ] map '[ _ head twiddle ] map
] bi@ = ; ] bi@ = ;
@ -38,7 +38,7 @@ SYMBOL: render-output
screenshot screenshot
[ render-output set-global ] [ render-output set-global ]
[ [
"resource:extra/ui/render/test/reference.bmp" load-bitmap "resource:extra/ui/render/test/reference.bmp" <image>
bitmap= "is perfect" "needs work" ? bitmap= "is perfect" "needs work" ?
"Your UI rendering " prepend "Your UI rendering " prepend
message-window message-window