Author: wmb Date: 2007-09-29 21:33:09 +0200 (Sat, 29 Sep 2007) New Revision: 650
Added: cpu/x86/Linux/graphics/ cpu/x86/Linux/graphics/graphdev.fth cpu/x86/Linux/graphics/run Log: Added X graphics support for use under Linux.
Added: cpu/x86/Linux/graphics/graphdev.fth =================================================================== --- cpu/x86/Linux/graphics/graphdev.fth (rev 0) +++ cpu/x86/Linux/graphics/graphdev.fth 2007-09-29 19:33:09 UTC (rev 650) @@ -0,0 +1,42 @@ +purpose: Simulation of OFW graphics using X + +dev / new-device + " xgraphics" device-name + : open ( -- okay? ) d# 1200 d# 900 d# 392 syscall 2drop retval 0= ; + : close ( -- ) d# 396 syscall ; + + : fill-rectangle ( color565 x y w h -- ) d# 404 syscall 4drop drop ; +finish-device + +: get-color ( r g b -- color ) + d# 400 syscall 3drop retval +; + +: open-screen + " /xgraphics" open-dev to screen-ih +; + +0 value xred +0 value xgreen +0 value xblue +0 value xmagenta +0 value xblack +0 value xmagenta + +: demo ( -- ) + open-screen + + h# ff h# 00 h# 00 get-color to xred + h# 00 h# ff h# 00 get-color to xgreen + h# 00 h# 00 h# ff get-color to xblue + h# ff h# 00 h# ff get-color to xmagenta + 0 0 0 get-color to xblack + h# ff h# ff h# ff get-color to xmagenta + + d# 500 0 do i xred show-state loop + d# 1000 d# 500 do i xblue show-state loop + d# 1500 d# 1000 do i xgreen show-state loop + d# 2000 d# 1500 do i xmagenta show-state loop + + xblack d# 400 d# 300 d# 50 d# 60 " fill-rectangle" $call-screen +;
Added: cpu/x86/Linux/graphics/run =================================================================== --- cpu/x86/Linux/graphics/run (rev 0) +++ cpu/x86/Linux/graphics/run 2007-09-29 19:33:09 UTC (rev 650) @@ -0,0 +1,2 @@ +#!/bin/sh +./forth fw.dic graphdev.fth -
Property changes on: cpu/x86/Linux/graphics/run ___________________________________________________________________ Name: svn:executable + *