Author: wmb Date: 2007-07-27 07:28:47 +0200 (Fri, 27 Jul 2007) New Revision: 501
Added: dev/geode/display/gp.fth Log: Geode graphics processor support - initial revision, not integrated with the OFW console mechanism.
Added: dev/geode/display/gp.fth =================================================================== --- dev/geode/display/gp.fth (rev 0) +++ dev/geode/display/gp.fth 2007-07-27 05:28:47 UTC (rev 501) @@ -0,0 +1,98 @@ +purpose: Geode LX graphics acceleration +\ See license at end of file + +dev screen + +alias depth+ wa+ + +: gp! ( l reg -- ) gp-base + rl! ; +: gp@ ( reg -- l ) gp-base + rl@ ; + +: dst! ( x y -- ) bytes/line16 * swap depth+ 0 gp! ; +: src! ( x y -- ) bytes/line16 * swap depth+ 4 gp! ; +: stride! ( dst-stride src-stride -- ) wljoin 8 gp! ; +: wh! ( width height -- ) swap wljoin h# c gp! ; +\ : fg! ( foreground-color -- ) h# 10 gp! ; +\ : bg! ( background-color -- ) h# 14 gp! ; +: pattern! ( color pat# -- ) h# 18 swap la+ gp! ; +: ropmode! ( mode -- ) h# 38 gp! ; +: blt! ( blt -- ) h# 40 gp! ; +: offset! ( ch3 src dst -- ) + h# ffc0.0000 and ( ch3 src dst' ) + swap h# ffc0.0000 and d# 10 rshift or ( ch3 src+dst ) + swap h# ffc0.0000 and d# 20 rshift or ( ch3+src+dst ) + h# 4c gp! +; + +\ Ready to accept a command +: gp-wait-ready ( -- ) begin h# 44 gp@ 4 and 0= until ; + +\ Finished with all the queued-up commands +: gp-wait-done ( -- ) begin h# 44 gp@ 1 and 0= until ; + +\ Do this once +: gp-setup ( -- ) + frame-buffer-adr >physical dup dup offset! + bytes/line16 dup stride! +; + +\ This one is a big win compared to doing it with the CPU +\ Scrolling the whole screen takes about 3.4 mS (GP) or 74 mS (CPU) +: gp-move ( src-x,y dst-x,y w,h -- ) + gp-wait-ready + wh! dst! src! + h# 6000.00cc ropmode! \ RGB565, Output = source + 1 blt! \ Source data from framebuffer + gp-wait-done +; + +\ gp-fill takes 2/3 as long wfill, and about the same time as lfill +\ gp-fill of the entire OLPC screen takes 2 mS; one character row 120 uS +: gp-fill ( color dst-x,y w,h -- ) + gp-wait-ready + wh! dst! 0 pattern! + h# 6000.00f0 ropmode! \ RGB565, Output = pattern + h# 0 blt! \ No source or destination data from framebuffer + gp-wait-done +; + +\ some tests +1 [if] +: gp-fill-screen ( color -- ) + 0 0 screen-width screen-height gp-fill +; +: gp-scroll-screen ( -- ) + 0 char-height 0 0 screen-width ( src-x,y dst-x,y ) + screen-height char-height - gp-move +; +: gp-fill-last-line ( color -- ) + bg16 0 screen-height char-height - screen-width char-height gp-fill +; +[then] + + +dend + +\ LICENSE_BEGIN +\ Copyright (c) 2006 FirmWorks +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END