Author: wmb Date: 2007-09-29 21:34:52 +0200 (Sat, 29 Sep 2007) New Revision: 651
Removed: cpu/x86/Linux/graphics/graphdev.fth cpu/x86/Linux/graphics/run Log: Deleted redundant files
Deleted: cpu/x86/Linux/graphics/graphdev.fth =================================================================== --- cpu/x86/Linux/graphics/graphdev.fth 2007-09-29 19:33:09 UTC (rev 650) +++ cpu/x86/Linux/graphics/graphdev.fth 2007-09-29 19:34:52 UTC (rev 651) @@ -1,42 +0,0 @@ -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 -;
Deleted: cpu/x86/Linux/graphics/run =================================================================== --- cpu/x86/Linux/graphics/run 2007-09-29 19:33:09 UTC (rev 650) +++ cpu/x86/Linux/graphics/run 2007-09-29 19:34:52 UTC (rev 651) @@ -1,2 +0,0 @@ -#!/bin/sh -./forth fw.dic graphdev.fth -