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

win32 offscreen refinements

db4
Doug Coleman 2008-12-10 08:49:50 -06:00
parent cd0f46c668
commit 3629b9e5bd
4 changed files with 23 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ui/backend/backend.factor Normal file → Executable file
View File

@ -27,7 +27,7 @@ GENERIC: select-gl-context ( handle -- )
GENERIC: flush-gl-context ( handle -- ) GENERIC: flush-gl-context ( handle -- )
GENERIC: offscreen-pixels ( handle -- alien ) HOOK: offscreen-pixels ui-backend ( world -- alien w h )
HOOK: beep ui-backend ( -- ) HOOK: beep ui-backend ( -- )

4
basis/ui/cocoa/cocoa.factor
View File

@ -123,8 +123,8 @@ M: handle select-gl-context ( handle -- )
M: handle flush-gl-context ( handle -- ) M: handle flush-gl-context ( handle -- )
(gl-context) -> flushBuffer ; (gl-context) -> flushBuffer ;
M: offscreen-handle offscreen-pixels ( handle -- alien ) M: cocoa-ui-backend offscreen-pixels ( world -- alien w h )
buffer>> ; [ handle>> buffer>> ] [ dim>> first2 neg ] ;
M: cocoa-ui-backend beep ( -- ) M: cocoa-ui-backend beep ( -- )
NSBeep ; NSBeep ;

18
basis/ui/windows/windows.factor
View File

@ -6,7 +6,7 @@ ui.gadgets ui.backend ui.clipboards ui.gadgets.worlds
ui.gestures io kernel math math.vectors namespaces make ui.gestures io kernel math math.vectors namespaces make
sequences strings vectors words windows.kernel32 windows.gdi32 sequences strings vectors words windows.kernel32 windows.gdi32
windows.user32 windows.opengl32 windows.messages windows.types windows.user32 windows.opengl32 windows.messages windows.types
windows.nt windows threads libc combinators windows.nt windows threads libc combinators fry
combinators.short-circuit continuations command-line shuffle combinators.short-circuit continuations command-line shuffle
opengl ui.render ascii math.bitwise locals symbols accessors opengl ui.render ascii math.bitwise locals symbols accessors
math.geometry.rect math.order ascii calendar math.geometry.rect math.order ascii calendar
@ -544,8 +544,20 @@ M: windows-ui-backend (close-offscreen-buffer) ( handle -- )
[ hDC>> DeleteDC drop ] [ hDC>> DeleteDC drop ]
[ hBitmap>> DeleteObject drop ] bi ; [ hBitmap>> DeleteObject drop ] bi ;
M: win-offscreen offscreen-pixels ( handle -- alien ) ! Windows 32-bit bitmaps don't actually use the alpha byte of
bits>> ; ! each pixel; it's left as zero
: (make-opaque) ( byte-array -- byte-array' )
[ length 4 / ]
[ '[ 255 swap 4 * 3 + _ set-nth ] each ]
[ ] tri ;
: (opaque-pixels) ( world -- pixels )
[ handle>> bits>> ] [ dim>> first2 * 4 * ] bi
memory>byte-array (make-opaque) ;
M: windows-ui-backend offscreen-pixels ( world -- alien w h )
[ (opaque-pixels) ] [ dim>> first2 ] bi ;
M: windows-ui-backend raise-window* ( world -- ) M: windows-ui-backend raise-window* ( world -- )
handle>> [ handle>> [

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

@ -23,9 +23,11 @@ M: offscreen-world ungraft*
ungraft notify-queued ; ungraft notify-queued ;
: offscreen-world>bitmap ( world -- bitmap ) : offscreen-world>bitmap ( world -- bitmap )
[ handle>> offscreen-pixels ] [ dim>> first2 neg ] bi offscreen-pixels bgra>bitmap ;
bgra>bitmap ;
: do-offscreen ( gadget quot: ( offscreen-world -- ) -- ) : do-offscreen ( gadget quot: ( offscreen-world -- ) -- )
[ open-offscreen ] dip [ open-offscreen ] dip
over [ slip ] [ close-offscreen ] [ ] cleanup ; over [ slip ] [ close-offscreen ] [ ] cleanup ; inline
: gadget>bitmap ( gadget -- bitmap )
[ offscreen-world>bitmap ] do-offscreen ;