[commit] r2170 - cpu/arm/olpc/1.75

[repository service]

Author: wmb
Date: Fri Feb  4 02:42:59 2011
New Revision: 2170
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2170

Log:
XO-1.75 touchscreen selftest - dim old tracks instead of erasing them.

Modified:
   cpu/arm/olpc/1.75/exc7200-touchscreen.fth

Modified: cpu/arm/olpc/1.75/exc7200-touchscreen.fth
==============================================================================
--- cpu/arm/olpc/1.75/exc7200-touchscreen.fth	Fri Feb  4 02:42:30 2011	(r2169)
+++ cpu/arm/olpc/1.75/exc7200-touchscreen.fth	Fri Feb  4 02:42:59 2011	(r2170)
@@ -166,10 +166,15 @@
 ;
 0 value pressure

+: *3/5  ( n -- n' )  3 5 */  ;
+: dimmer  ( color -- color' )
+   565>rgb rot *3/5 rot *3/5 rot *3/5 rgb>565
+;
+
 : track  ( x y z down? contact# -- )
    setcolor                       ( x y z down? )
    0=  if
-      pixcolor @ black " replace-color" $call-screen
+      pixcolor @  dup dimmer  " replace-color" $call-screen
       3drop exit
    then                           ( x y z )
    to pressure                    ( x y )