FreeRunner/Buttons and LEDs - Revision history

Hackerb9: /* Power Status */ Minor cleanup. Made code more readable by using current working directory.

2009-05-03T02:31:02Z

‎Power Status: Minor cleanup. Made code more readable by using current working directory.

Hackerb9: /* Power Status */ Removed gratuitous use of egrep

2009-05-03T02:20:50Z

‎Power Status: Removed gratuitous use of egrep

Hackerb9: /* Power Status */ Removed dependency on Perl by using Bourne shell.

2009-05-03T02:18:30Z

‎Power Status: Removed dependency on Perl by using Bourne shell.

Techiem2: orang -> orange

2008-10-12T13:55:34Z

orang -> orange

Michaelshiloh: /* Blink LEDs by user-definable beat */

2008-10-12T00:06:12Z

‎Blink LEDs by user-definable beat

Michaelshiloh: /* Led Power Status Perl Script */

2008-10-12T00:05:35Z

‎Led Power Status Perl Script

Michaelshiloh: /* Python Script For Blinking Leds By Beats */

2008-10-12T00:03:10Z

‎Python Script For Blinking Leds By Beats

Nvanfossen: /* Led Power Status Perl Script */

2008-10-10T20:33:11Z

‎Led Power Status Perl Script

Nvanfossen: /* Led Power Status Perl Script */

2008-10-10T20:19:41Z

‎Led Power Status Perl Script

Nvanfossen: /* Example Beat */

2008-10-10T20:18:42Z

‎Example Beat

@@ Line 199: / Line 199: @@
   #!/bin/sh
   high_thresh=75
   low_thresh=30
@@ Line 205: / Line 206: @@
      value=$(cut -d' ' -f7 < /proc/apm | cut -d% -f1)
-     #echo "Value: $value"
+     echo "Value: $value"
      if [ $value -lt $low_thresh ]; then
-         #echo "Low Battery"
+         echo "Low Battery"
-         echo 1 > /sys/devices/platform/gta02-led.0/leds/gta02-power:orange/brightness
+         echo 1 > gta02-power:orange/brightness
-         echo 0 > /sys/devices/platform/gta02-led.0/leds/gta02-power:blue/brightness
+         echo 0 > gta02-power:blue/brightness
-−
      elif [ $value -gt $high_thresh ]; then
-         #echo "High Battery"
+         echo "High Battery"
-         echo 1 > /sys/devices/platform/gta02-led.0/leds/gta02-power:blue/brightness
+         echo 1 > gta02-power:blue/brightness
-         echo 0 > /sys/devices/platform/gta02-led.0/leds/gta02-power:orange/brightness
+         echo 0 > gta02-power:orange/brightness
      else
-         #echo "Mid Battery"
+         echo "Mid Battery"
-         echo 1 > /sys/devices/platform/gta02-led.0/leds/gta02-power:blue/brightness
+         echo 1 > gta02-power:blue/brightness
-         echo 1 > /sys/devices/platform/gta02-led.0/leds/gta02-power:orange/brightness
+         echo 1 > gta02-power:orange/brightness
      fi
@@ Line 224: / Line 225: @@
   done &
-−
-−
 [[Category:Neo FreeRunner Hardware]]

← Older revision		Revision as of 02:20, 3 May 2009
Line 203:		Line 203:
	while :; do		while :; do

−	~~value=$(apm \| egrep -o ': [0-9]+%' \| egrep -o '[0-9]+')~~
	value=$(cut -d' ' -f7 < /proc/apm \| cut -d% -f1)		value=$(cut -d' ' -f7 < /proc/apm \| cut -d% -f1)

@@ Line 185: / Line 185: @@
 == Power Status ==
-This Perl Script
+The following shell script
 uses the blue and orange LEDs under the power button to show battery power status.
-Install perl using "opkg install perl" to use this script.  The script will indicate high battery with blue, medium battery by purple (blue + orange), and low battery by orange.  Adjust values for your needs.
+The script will indicate high battery with blue, medium battery by purple (blue + orange), and low battery by orange.  Adjust low_thresh and high_thresh values (as percent of full power) for your needs.
-You can have it autostart by saving the script as /etc/init.d/lights.pl<br>
+You can have it autostart by saving the script as /etc/init.d/lights.sh<br>
-then creating a shell script /etc/init.d/startlights.sh with just one line:
+and then create a symlink to it by running
- /etc/init.d/lights.pl &
+  ln -s /etc/init.d/lights.sh /etc/rc5.d/S15lights
-and then create a symlink to it to auto start by running
-  ln -s /etc/init.d/startlights.sh /etc/rc5.d/S15startlights
-Don't forget to "chmod +x" all those scripts :)
+Don't forget to "chmod +x" this script. :)
-lights.pl:
+lights.sh:
-−
- #!/usr/bin/perl
- my $high_thresh = 75;
- my $low_thresh = 30;
- while(1) {
-     my $command = `apm`;
-     if ($command =~ m/battery .*: (\d*)%/) {
-         print("Value: " . $1 . "\n");
-−
-     if($1 < $low_thresh) {
-         print("Low Battery\n");
-         $command = `echo 1 > /sys/devices/platform/gta02-led.0/leds/gta02-power:orange/brightness`;
-         $command = `echo 0 > /sys/devices/platform/gta02-led.0/leds/gta02-power:blue/brightness`;
-−
-     if($1 > $high_thresh) {
-         print("High Battery\n");
-         $command = `echo 1 > /sys/devices/platform/gta02-led.0/leds/gta02-power:blue/brightness`;
-         $command = `echo 0 > /sys/devices/platform/gta02-led.0/leds/gta02-power:orange/brightness`;
-−
-     if(($1 <= $high_thresh) && ($1 >= $low_thresh)){
-         print("Mid Battery\n");
-         $command = `echo 1 > /sys/devices/platform/gta02-led.0/leds/gta02-power:blue/brightness`;
-         $command = `echo 1 > /sys/devices/platform/gta02-led.0/leds/gta02-power:orange/brightness`;
-−
-     sleep(15);
-−
-−
-−
--nvanfossen
 [[Category:Neo FreeRunner Hardware]]

@@ Line 32: / Line 32: @@
 | MIXING TWO LEDS
 |style="background:#80409F;color:white;"| '''purple'''
-| behind POWER button if turning on the blue and the orang buttons together
+| behind POWER button if turning on the blue and the orange buttons together
 |}

@@ Line 104: / Line 104: @@
 = Implementations of other LED behaviors =
-== Blink LEDs by user-definable beat ==
+== Blink LEDs to a user-definable rhythm ==
 A Python Script For Blinking Leds By Beats. This script reads beats from a file and blinks FreeRunners LEDs accordingly.

@@ Line 183: / Line 183: @@
 wifi on the LEDs. It is available [http://openmoko.opendevice.org/~dos/ledd here].
-=Led Power Status Perl Script=
+== Power Status ==
-Use the blue and orange LED's under the power button to show battery power status.  Install perl using "opkg install perl" to use this script.  The script will indicate high battery with blue, medium battery by purple (blue + orange), and low battery by orange.  Adjust values for your needs.
+This Perl Script
 You can have it autostart by saving the script as /etc/init.d/lights.pl<br>

@@ Line 102: / Line 102: @@
-=Python Script For Blinking Leds By Beats=
+= Implementations of other LED behaviors =
-Reads beats from a file and blinks FreeRunners leds.
 File format is human readable text, consisting of a simple sequence of integer quartet (4 numbers).  The first number representing status of blue power-led, second means status of orange power-led and third means status of red aux-led. 0=OFF, 1=ON. (If blue=1 and orange=1 then power=lila. This has nothing to do with this python script or this file format.) The last number represents the duration in milliseconds to hold that situation of leds.  Any non digit characters in the file count as a separators between numbers, but are otherwise ignored.
@@ Line 175: / Line 178: @@
 1 1 100
 =Led Power Status Perl Script=

← Older revision		Revision as of 20:19, 10 October 2008
Line 176:		Line 176:


−	~~===~~= Led Power Status Perl Script~~===~~=	+	=Led Power Status Perl Script=

	Use the blue and orange LED's under the power button to show battery power status. Install perl using "opkg install perl" to use this script. The script will indicate high battery with blue, medium battery by purple (blue + orange), and low battery by orange. Adjust values for your needs.		Use the blue and orange LED's under the power button to show battery power status. Install perl using "opkg install perl" to use this script. The script will indicate high battery with blue, medium battery by purple (blue + orange), and low battery by orange. Adjust values for your needs.