X-Git-Url: https://oss.titaniummirror.com/gitweb?a=blobdiff_plain;f=main.c;h=65cff5565ab684b1d875cdc5e0667a5c10dab461;hb=65079ad3f1ecdbcfc6c8d35040a818994f8af94f;hp=7fa14f2fab32eb238dd7f46eefd16f91731e43d6;hpb=e9763e77e5192ca658d54f346d1a046ec227be2c;p=rgblamp.git diff --git a/main.c b/main.c index 7fa14f2..65cff55 100644 --- a/main.c +++ b/main.c @@ -1,159 +1,190 @@ /* * File: main.c * - * Created on August 16, 2010, 12:09 PM + * PWM test program + * + * PIC resources in use, 18-pin DIP, by pin: + * - ( 1) RA2 - unused + * - ( 2) RA3 - CCP3 PWM for blu LED + * - ( 3) RA4 - CCP4 PWM for wht LED. ICSP pin 6, PGM/LVP. + * - ( 4) RA5 - ICSP pin 1, MCLR#/Vpp + * - ( 5) Vss + * - ( 6) RB0 - pushbutton + * - ( 7) RB1 - unused + * - ( 8) RB2 - unused + * - ( 9) RB3 - CCP1 PWM for red LED + * - (10) RB4 - rocker switch position B (right) + * - (11) RB5 - rocker switch position A (left) + * - (12) RB6 - unused (future crystal) + * - (13) RB7 - unused (future crystal) + * - (14) Vdd + * - (15) RA6 - unused + * - (16) RA7 - CCP2 PWM for grn LED + * - (17) RA0 - unused + * - (18) RA1 - unused + * */ - #include -//#include - -#define RUNAT32MHZ /* else 16 MHz */ -#define LEDBIT 0x01 /* Port RB0 */ -#define RED_CHAN 1 -#define GRN_CHAN 2 -#define BLU_CHAN 4 -#define WHT_CHAN 8 -#define ALL_CHAN 15 - -#if defined(RUNAT32MHZ) -__CONFIG(WDTE_OFF & FOSC_INTOSC); -__CONFIG(LVP_OFF & PLLEN_ON); +#include +#include "picinit.h" +#include "unused.h" +#include "buttons.h" +#include "rgb.h" +#include "tmr.h" +#include "adc_random.h" + +#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 -__CONFIG(WDTE_OFF); -__CONFIG(LVP_OFF); +#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 - -void pic_init() -{ -#if defined(RUNAT32MHZ) - OSCCON = 0b11110000; -#else /* 16 MHz */ - OSCCON = 0b01111010; +#define reset_steps() do { incolor_steps = 1; fade_steps = 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] + \ + (rand() % range_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 */ \ + 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; + int increment; + signed char remainder; +} led_t; +#define INIT_LED { 0, 0, 0 } + +/* The index of all step arrays is the speed variable */ +#if 1 +const static unsigned min_incolor_steps[4] = { 320, 32, 32, 1 }; +const static unsigned range_incolor_steps[4] = { 32768, 128, 32, 8 }; +const static int min_fade_steps[4] = { 64, 32, 32, 1 }; +const static int range_fade_steps[4] = { 416, 128, 32, 8 }; +#else /* for debugging */ +const static unsigned min_incolor_steps[4] = { 64, 32, 16, 8 }; +const static unsigned range_incolor_steps[4] = { 1, 1, 1, 1 }; +const static int min_fade_steps[4] = { 64, 32, 16, 8 }; +const static int range_fade_steps[4] = { 1, 1, 1, 1 }; #endif - /* OSCSTAT.HFIOFL is set when oscillator is locked (accurate within 2%) */ - while (!HFIOFL); -} - -void pwm_init() -{ - /* Initialize PWM - * CCP1 on RB3, CCP2 on RA7, CCP3 on RA3, CCP4 on RA4 - * - Fosc = 32MHz - * - Prescale = 16 - * - PRx value = 0xff - * = f(pwm) = 1.95 kHz - */ - - /* Disable output on PWM Rxn pins */ - TRISA |= 0b10011000; - TRISB |= 0b00001000; - - /* Configure ECCP1 */ - CCP1CON = 0b00001100; - CCPR1L = 0; /* Initial PWM value; only using 8 LSBs */ - - /* Configure ECCP2 */ - APFCON0 |= 0b00001000; /* Use alternate output pin RA7 */ - CCP2CON = 0b00001100; - CCPR2L = 0; /* Initial PWM value; only using 8 LSBs */ - - /* Configure CCP3 */ - CCP3CON = 0b00001100; - CCPR3L = 0; /* Initial PWM value; only using 8 LSBs */ - - /* Configure CCP4 */ - CCP4CON = 0b00001100; - CCPR4L = 0; /* Initial PWM value; only using 8 LSBs */ - - /* Configure Timer2 */ - CCPTMRS = 0; /* All CCPx use Timer 2 */ - TMR2IF = 0; - PR2 = 0xff; - T2CON = 0b00000111; - - /* Enable PWM outputs after Timer 2 overflows */ - while (!TMR2IF); - TRISA &= ~0b10011000; - TRISB &= ~0b00001000; -} - -void led_init() -{ - PORTB &= ~LEDBIT; /* Led is RB0 */ - TRISB &= ~LEDBIT; -} - -void led_set(unsigned char led) -{ - if (led) - PORTB |= LEDBIT; - else - PORTB &= ~LEDBIT; -} - -void pwm_set(unsigned char channels, unsigned char step) -{ - if (channels & RED_CHAN) - CCPR1L = step; - if (channels & GRN_CHAN) - CCPR2L = step; - if (channels & BLU_CHAN) - CCPR3L = step; - if (channels & WHT_CHAN) - CCPR4L = step; -} - -void delay() -{ - for (unsigned counter = 0; counter < 10000; counter++); -} - -void ramp_up(unsigned char channels) -{ - unsigned char step = 0; - - do { - pwm_set(channels, step++); - delay(); - } while (step != 0); -} - -void ramp_down(unsigned char channels) -{ - unsigned char step = 255; - - do { - pwm_set(channels, step--); - delay(); - } while (step != 255); -} - -void ramp_up_down(unsigned char channels) -{ - ramp_up(channels); - ramp_down(channels); -} - int main(void) { - unsigned char fwd = 1; - unsigned char step = 0; + led_t red = INIT_LED; + led_t grn = INIT_LED; + led_t blu = INIT_LED; + led_t wht = INIT_LED; + unsigned char speed = 0; + unsigned incolor_steps; + int fade_steps; + unsigned long auto_off = 0; pic_init(); - led_init(); - pwm_init(); + unused_init(); + buttons_init(); + rgb_init(); + tmr_init(); + dbgpin_init(); + + srand((adc_random() << 8) + adc_random()); + reset_steps(); + if (buttons_on()) + rgb_on(); + + dbgpin_high(); + tmr_startPeriodic(TMR_FADE, 1); /* 32.768 msec */ while (1) { - ramp_up(RED_CHAN); - ramp_up(GRN_CHAN); - ramp_down(RED_CHAN); - ramp_up(BLU_CHAN); - ramp_down(GRN_CHAN); - ramp_up(RED_CHAN); - ramp_up(GRN_CHAN + BLU_CHAN); - ramp_down(ALL_CHAN); - ramp_up_down(WHT_CHAN); + unsigned char buttons = buttons_read(); + + if ((buttons & IN_ROCKERB) && auto_off == 0) + tmr_startPeriodic(TMR_AUTO_OFFON, AUTO_OFF_COUNT); + + if ((buttons & IN_ROCKERB) && tmr_fired(TMR_AUTO_OFFON) || + (!(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(); + 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; + + /* 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(); + while (!tmr_fired(TMR_FADE)); + dbgpin_high(); + } } return 0; }