From: Keith Packard <keithp@keithp.com>
Date: Sun, 19 Apr 2009 06:19:05 +0000 (-0700)
Subject: Slow down panic presentation
X-Git-Tag: sn1-flight1~1
X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=commitdiff_plain;h=3e18b5a0d4c7d84df98b6ed0b7783de1d42d45bf;ds=sidebyside

Slow down panic presentation
---

diff --git a/ao_panic.c b/ao_panic.c
index b486aefb..ec960f01 100644
--- a/ao_panic.c
+++ b/ao_panic.c
@@ -34,20 +34,24 @@ ao_panic(uint8_t reason)
 	uint8_t	n;
 	
 	__critical for (;;) {
-		ao_led_on(AO_LED_RED);
-		ao_beep(AO_BEEP_MID);
-		ao_panic_delay(2);
-		ao_led_off(AO_LED_RED);
+		for (n = 0; n < 5; n++) {
+			ao_led_on(AO_LED_RED);
+			ao_beep(AO_BEEP_HIGH);
+			ao_panic_delay(1);
+			ao_led_off(AO_LED_RED);
+			ao_beep(AO_BEEP_LOW);
+			ao_panic_delay(1);
+		}
 		ao_beep(AO_BEEP_OFF);
 		ao_panic_delay(2);
 		for (n = 0; n < reason; n++) {
 			ao_led_on(AO_LED_RED);
 			ao_beep(AO_BEEP_MID);
-			ao_panic_delay(1);
+			ao_panic_delay(10);
 			ao_led_off(AO_LED_RED);
 			ao_beep(AO_BEEP_OFF);
-			ao_panic_delay(1);
+			ao_panic_delay(10);
 		}
-		ao_panic_delay(2);
+		ao_panic_delay(20);
 	}
 }