Author: quozl Date: Mon Sep 17 03:22:53 2012 New Revision: 3311 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3311
Log: OLPC XO-4 - Neonode, tools for signal path resposnse curve plots
Modified: cpu/arm/olpc/nn-touchscreen.fth
Modified: cpu/arm/olpc/nn-touchscreen.fth ============================================================================== --- cpu/arm/olpc/nn-touchscreen.fth Mon Sep 17 01:21:05 2012 (r3310) +++ cpu/arm/olpc/nn-touchscreen.fth Mon Sep 17 03:22:53 2012 (r3311) @@ -450,6 +450,58 @@
+[ifdef] nn-fss-all \ fixed signal strength test, all power levels + +: test-fss-axis-all ( axis power -- ) + swap h# 0f h# 03 h# ee 5 bytes-out + h# 0f d# 20 anticipate + pbuf 4 + c@ 0 do ( ) + pbuf 5 + i + c@ + .d + loop cr +; + +: test-fss-all + 41 0 do ." x " i .d 0 i test-fss-axis-all loop + 41 0 do ." y " i .d 1 i test-fss-axis-all loop +; + +: >scaled ( x y -- x' y' ) + d# 3750 * d# 1000 / d# 900 swap - + swap d# 1850 * d# 100 / swap +; + +: >pseudo ( level -- colour ) \ a red-yellow-green pseudocolour bar + d# 256 over - 2* d# 255 min swap 2* d# 255 min 0 rgb>565 +; + +: (plot-response) ( power axis -- ) + over >r ( power axis r: power ) + h# 0f h# 03 h# ee 5 bytes-out ( r: power ) + h# 0f d# 20 anticipate + r> ( power) + pbuf 4 + c@ 0 do ( power ) + pbuf 5 + i + c@ ( power signal ) + over swap ( power x y ) + >scaled + + i 4 lshift >pseudo -rot 9 9 ( color x y w h ) + fill-rectangle-noff ( ) + loop ( power ) + drop +; + +: plot-response + black 0 0 screen-w screen-h fill-rectangle-noff + 41 1 do i 0 (plot-response) loop + 41 1 do i 1 (plot-response) loop + key drop +; + +[then] + + + [ifdef] nn-ls \ low signals test : test-ls-axis ( axis -- ) h# 0d h# 02 h# ee 4 bytes-out