#include "unused.h"
#include "buttons.h"
#include "rgb.h"
-#include "timer.h"
+#include "tmr.h"
#include "adc_random.h"
-#define AUTO_OFF_COUNT 549316UL /* 5 hrs in 32.768 ms units */
+#if 0
+#define AUTO_OFF_COUNT 549316UL /* 5 hrs in 32.768 ms units */
+#define AUTO_ON_COUNT 2087402UL /* 19 hrs in 32.768 ms units */
+#else
+#define AUTO_OFF_COUNT 1831 /* 1 minute in 32.768 ms units */
+#define AUTO_ON_COUNT 3662 /* 2 minutes in 32.768 ms units */
+#endif
#define reset_steps() do { incolor_steps = 1; fade_steps = 0; } \
- while (0)
+ while (0)
#define rand_u8() (rand() & 0xff)
#define rand_u16() ((rand() << 8) + rand_u8())
#define rand_incolor_steps(s) (min_incolor_steps[s & 3] + \
#define rand_fade_steps(s) (min_fade_steps[s & 3] + \
(rand() % range_fade_steps[s & 3]))
#define leds_set(r,g,b,w) rgb_set((r).value >> 7, \
- (g).value >> 7, \
- (b).value >> 7, \
- 0)
-
-#define dbgpin_init() \
-do { \
- /* Set RA2 as output low */ \
- PORTA &= ~0x04; \
- TRISA &= ~0x04; \
-} while (0)
-
-#define dbgpin_high() PORTA |= 0x04;
-#define dbgpin_low() PORTA &= ~0x04;
+ (g).value >> 7, \
+ (b).value >> 7, \
+ 0)
+#define dbgpin_init() do { \
+ /* Set RA2 as output low */ \
+ RA2 = 0; \
+ TRISA2 = 0; \
+ } while (0)
+#define dbgpin_high() (RA2 = 1)
+#define dbgpin_low() (RA2 = 0)
+#define dbgpin_toggle() (RA2 = (LATA2 == 0) ? 1 : 0)
typedef struct {
int value;
unsigned char speed = 0;
unsigned incolor_steps;
int fade_steps;
- unsigned long auto_off = 0;
+ unsigned char buttons, last_buttons;
pic_init();
unused_init();
buttons_init();
rgb_init();
- timer_init();
+ tmr_init();
dbgpin_init();
srand((adc_random() << 8) + adc_random());
rgb_on();
dbgpin_high();
+ last_buttons = 0;
+ buttons = buttons_read();
while (1) {
- unsigned char buttons = buttons_read();
-
- if ((buttons & IN_ROCKERB) && auto_off == 0)
- auto_off = AUTO_OFF_COUNT;
-
- if (((buttons & IN_ROCKERB) && auto_off && --auto_off == 0) ||
- (!(buttons & (IN_ROCKERA | IN_ROCKERB)))) {
- /* Sleep when auto-off time has expired or if rocker switch is
- * turned off.
- */
- rgb_off();
- dbgpin_low();
- auto_off = 0;
- buttons_sleep();
- dbgpin_high();
+ /* Wait for an event. Timer firing or button state change.
+ * When we have a crystal, we can sleep instead. Also, soon we
+ * can transition button state changes to the ISR.
+ */
+ dbgpin_low();
+ while (!tmr_events() && last_buttons == buttons) {
+ last_buttons = buttons;
+ buttons = buttons_read();
+ }
+ dbgpin_high();
+
+ if (((buttons & IN_ROCKERB) && !tmr_on(TMR_AUTO_OFFON)) ||
+ !(last_buttons & (IN_ROCKERB | IN_ROCKERA))) {
+ /* Event: off to on */
+ tmr_startPeriodic(TMR_AUTO_OFFON, AUTO_OFF_COUNT);
+ tmr_startPeriodic(TMR_FADE, 1); /* 32.768 msec */
+
+ } else if (((buttons & IN_ROCKERB) && tmr_fired(TMR_AUTO_OFFON)) ||
+ (!(buttons & (IN_ROCKERA | IN_ROCKERB)))) {
+ /* Event on to off, either by switch or auto-off timer */
+ rgb_off();
+ dbgpin_low();
+ tmr_stop(TMR_AUTO_OFFON);
+ tmr_stop(TMR_FADE);
+ buttons_sleep();
+ dbgpin_high();
+ rgb_on();
+ red.value = 0;
+ grn.value = 0;
+ blu.value = 0;
+ wht.value = 0;
+ reset_steps();
+ tmr_startPeriodic(TMR_FADE, 1); /* 32.768 msec */
+
+ } else if (tmr_fired(TMR_FADE)) {
+ /* Other actions, driven by the fade timer for now */
+
+ /* Crappy way to detect rising edges to change state of speed var */
+ if (!(speed & 4) && (buttons & IN_PUSHBTN))
+ speed |= 4;
+ else if ((speed & 4) && !(buttons & IN_PUSHBTN)) {
+ speed = (speed + 1) & ~4;
reset_steps();
- rgb_on();
- red.value = 0;
- grn.value = 0;
- blu.value = 0;
- wht.value = 0;
- } else {
- /* Crappy way to detect rising edges to change state of speed var */
- if (!(speed & 4) && (buttons & IN_PUSHBTN))
- speed |= 4;
- else if ((speed & 4) && !(buttons & IN_PUSHBTN)) {
- speed = (speed + 1) & ~4;
- reset_steps();
- }
-
- if (fade_steps) {
- fade_steps--;
- /* Continue the in-progress fade */
- red.value += red.increment;
- grn.value += grn.increment;
- blu.value += blu.increment;
- wht.value += wht.increment;
- if (fade_steps == 0) {
- red.value += red.remainder;
- grn.value += grn.remainder;
- blu.value += blu.remainder;
- wht.value += wht.remainder;
- }
- leds_set(red, grn, blu, wht);
- } else if (--incolor_steps == 0) {
- int newr, newg, newb, neww, tmp;
-
- /* Next led color. All off is not a valid option.
- * RGB values are stored and processed as 15-bit non-negative
- * integers. Since the RGB pwm values are 8 bits in width,
- * leds_set() uses >> 7 to convert each color's value.
- */
- do {
- newr = rand();
- newg = rand();
- newb = rand();
- neww = rand();
- } while (newr == 0 && newg == 0 && newb == 0 && neww == 0);
-
- /* Next incolor and fade steps */
- incolor_steps = rand_incolor_steps(speed);
- fade_steps = rand_fade_steps(speed);
-
- /* Compute increment and remainder for each led */
- red.increment = (newr - red.value) / fade_steps;
- red.remainder = newr - (red.value + red.increment * fade_steps);
- grn.increment = (newg - grn.value) / fade_steps;
- grn.remainder = newg - (grn.value + grn.increment * fade_steps);
- blu.increment = (newb - blu.value) / fade_steps;
- blu.remainder = newb - (blu.value + blu.increment * fade_steps);
- wht.increment = (neww - wht.value) / fade_steps;
- wht.remainder = neww - (wht.value + wht.increment * fade_steps);
- }
- dbgpin_low();
- timer_owait(); /* wait 32 ms since last return from last call() */
- dbgpin_high();
}
- }
- return 0;
+
+ if (fade_steps) {
+ /* Continue the in-progress fade */
+ fade_steps--;
+ red.value += red.increment;
+ grn.value += grn.increment;
+ blu.value += blu.increment;
+ wht.value += wht.increment;
+ if (fade_steps == 0) {
+ red.value += red.remainder;
+ grn.value += grn.remainder;
+ blu.value += blu.remainder;
+ wht.value += wht.remainder;
+ }
+ leds_set(red, grn, blu, wht);
+
+ } else if (--incolor_steps == 0) {
+ /* RGB PWM values are 8 bits, but computations are done in 15
+ * (leaving room for a sign bit), so leds_set() uses >>7 to convert
+ * to PWM values.
+ */
+ int newr, newg, newb, neww;
+
+ /* New RGB values; all zero is not a valid option */
+ do {
+ newr = rand();
+ newg = rand();
+ newb = rand();
+ neww = rand();
+ } while (newr == 0 && newg == 0 && newb == 0 && neww == 0);
+
+ /* Next incolor and fade steps */
+ incolor_steps = rand_incolor_steps(speed);
+ fade_steps = rand_fade_steps(speed);
+
+ /* Compute increment and remainder for each led */
+ red.increment = (newr - red.value) / fade_steps;
+ red.remainder = newr - (red.value + red.increment * fade_steps);
+ grn.increment = (newg - grn.value) / fade_steps;
+ grn.remainder = newg - (grn.value + grn.increment * fade_steps);
+ blu.increment = (newb - blu.value) / fade_steps;
+ blu.remainder = newb - (blu.value + blu.increment * fade_steps);
+ wht.increment = (neww - wht.value) / fade_steps;
+ wht.remainder = neww - (wht.value + wht.increment * fade_steps);
+ }
+ }
+ }
+ return 0;
}