Core Base Classes for the Light Endpoints
Dependents: mbed_mqtt_endpoint_ublox_ethernet mbed_mqtt_endpoint_ublox_cellular mbed_nsp_endpoint_ublox_cellular mbed_nsp_endpoint_ublox_ethernet ... more
APMDemoLight.cpp@168:1dc1f4e6a6cd, 2014-07-17 (annotated)
- Committer:
- ansond
- Date:
- Thu Jul 17 17:08:54 2014 +0000
- Revision:
- 168:1dc1f4e6a6cd
- Parent:
- 167:2529c18d0eb1
- Child:
- 169:5ba15f5f7f87
namespace conflict resolved for nsp endpoints
Who changed what in which revision?
User | Revision | Line number | New contents of line |
---|---|---|---|
ansond | 167:2529c18d0eb1 | 1 | /* Copyright C2013 Doug Anson, MIT License |
ansond | 167:2529c18d0eb1 | 2 | * |
ansond | 167:2529c18d0eb1 | 3 | * Permission is hereby granted, free of charge, to any person obtaining a copy of this software |
ansond | 167:2529c18d0eb1 | 4 | * and associated documentation files the "Software", to deal in the Software without restriction, |
ansond | 167:2529c18d0eb1 | 5 | * including without limitation the rights to use, copy, modify, merge, publish, distribute, |
ansond | 167:2529c18d0eb1 | 6 | * sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is |
ansond | 167:2529c18d0eb1 | 7 | * furnished to do so, subject to the following conditions: |
ansond | 167:2529c18d0eb1 | 8 | * |
ansond | 167:2529c18d0eb1 | 9 | * The above copyright notice and this permission notice shall be included in all copies or |
ansond | 167:2529c18d0eb1 | 10 | * substantial portions of the Software. |
ansond | 167:2529c18d0eb1 | 11 | * |
ansond | 167:2529c18d0eb1 | 12 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING |
ansond | 167:2529c18d0eb1 | 13 | * BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND |
ansond | 167:2529c18d0eb1 | 14 | * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, |
ansond | 167:2529c18d0eb1 | 15 | * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, |
ansond | 167:2529c18d0eb1 | 16 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. |
ansond | 167:2529c18d0eb1 | 17 | */ |
ansond | 167:2529c18d0eb1 | 18 | |
ansond | 167:2529c18d0eb1 | 19 | #include "APMDemoLight.h" |
ansond | 167:2529c18d0eb1 | 20 | |
ansond | 167:2529c18d0eb1 | 21 | // Configuration settings for the APM Demo Light... |
ansond | 167:2529c18d0eb1 | 22 | |
ansond | 167:2529c18d0eb1 | 23 | PwmOut apm_light_led(LED1); // led 1 indicates dim value |
ansond | 167:2529c18d0eb1 | 24 | DigitalOut apm_light_led2(LED2); // led 2 indicates delay time for interrupts |
ansond | 167:2529c18d0eb1 | 25 | |
ansond | 167:2529c18d0eb1 | 26 | // pin for ZeroCross tail input - NOTE: An external 1K pullup required |
ansond | 167:2529c18d0eb1 | 27 | InterruptIn apm_light_zerocross(p27); |
ansond | 167:2529c18d0eb1 | 28 | |
ansond | 167:2529c18d0eb1 | 29 | // pin for PowerSSRtail output |
ansond | 167:2529c18d0eb1 | 30 | DigitalOut apm_light_SSR(p21); |
ansond | 167:2529c18d0eb1 | 31 | |
ansond | 167:2529c18d0eb1 | 32 | //use timer interrupts to control dimming |
ansond | 167:2529c18d0eb1 | 33 | Timeout apm_light_SSRtriggerOn; |
ansond | 167:2529c18d0eb1 | 34 | |
ansond | 167:2529c18d0eb1 | 35 | // AC power line frequency |
ansond | 167:2529c18d0eb1 | 36 | const float apm_light_powerlinefrequency = 60.000; |
ansond | 167:2529c18d0eb1 | 37 | |
ansond | 167:2529c18d0eb1 | 38 | // Our instance |
ansond | 167:2529c18d0eb1 | 39 | APMDemoLight *_apm_light_instance = NULL; |
ansond | 167:2529c18d0eb1 | 40 | |
ansond | 167:2529c18d0eb1 | 41 | // this interrupt routine is activated after a time delay set by dim value |
ansond | 168:1dc1f4e6a6cd | 42 | extern "C" void apm_light_triggerOn() |
ansond | 167:2529c18d0eb1 | 43 | { |
ansond | 167:2529c18d0eb1 | 44 | apm_light_SSR = 1; |
ansond | 167:2529c18d0eb1 | 45 | apm_light_led2 = 0; |
ansond | 167:2529c18d0eb1 | 46 | } |
ansond | 167:2529c18d0eb1 | 47 | |
ansond | 167:2529c18d0eb1 | 48 | // this interrupt routine is activated by every AC line zero crossing |
ansond | 167:2529c18d0eb1 | 49 | // it is needed to synchronize the SCR turnon time delay to the AC line |
ansond | 168:1dc1f4e6a6cd | 50 | extern "C" void apm_light_dimmer() |
ansond | 167:2529c18d0eb1 | 51 | { |
ansond | 167:2529c18d0eb1 | 52 | // turn off SSR at zero crossing |
ansond | 167:2529c18d0eb1 | 53 | apm_light_SSR = 0; |
ansond | 167:2529c18d0eb1 | 54 | |
ansond | 167:2529c18d0eb1 | 55 | // compute time delay using dim value and set timer interrupt |
ansond | 167:2529c18d0eb1 | 56 | // triggers SSR after a small post zero crossing time delay |
ansond | 168:1dc1f4e6a6cd | 57 | apm_light_SSRtriggerOn.attach(&apm_light_triggerOn,(1.001-_apm_light_instance->getDimValue())/(2*apm_light_powerlinefrequency)); |
ansond | 167:2529c18d0eb1 | 58 | apm_light_led2 = 1; |
ansond | 167:2529c18d0eb1 | 59 | } |
ansond | 167:2529c18d0eb1 | 60 | |
ansond | 167:2529c18d0eb1 | 61 | // default constructor |
ansond | 167:2529c18d0eb1 | 62 | APMDemoLight::APMDemoLight(ErrorHandler *error_handler) : BaseClass(error_handler,NULL) { |
ansond | 167:2529c18d0eb1 | 63 | this->m_led = &apm_light_led; |
ansond | 167:2529c18d0eb1 | 64 | this->m_dimming = false; |
ansond | 167:2529c18d0eb1 | 65 | sscanf(LIGHT_DEFAULT_STATE,"%d",&this->m_state); |
ansond | 167:2529c18d0eb1 | 66 | sscanf(LIGHT_DIM_STATE,"%f",&this->m_dim); |
ansond | 167:2529c18d0eb1 | 67 | |
ansond | 167:2529c18d0eb1 | 68 | // establish our instance |
ansond | 167:2529c18d0eb1 | 69 | _apm_light_instance = this; |
ansond | 167:2529c18d0eb1 | 70 | |
ansond | 167:2529c18d0eb1 | 71 | // ZeroCross configuration |
ansond | 167:2529c18d0eb1 | 72 | apm_light_zerocross.mode(PullNone); |
ansond | 167:2529c18d0eb1 | 73 | wait_ms(LIGHT_BLINK_WAIT_MS); |
ansond | 168:1dc1f4e6a6cd | 74 | apm_light_zerocross.rise(&apm_light_dimmer); |
ansond | 167:2529c18d0eb1 | 75 | } |
ansond | 167:2529c18d0eb1 | 76 | |
ansond | 167:2529c18d0eb1 | 77 | // destructor |
ansond | 167:2529c18d0eb1 | 78 | APMDemoLight::~APMDemoLight() { |
ansond | 167:2529c18d0eb1 | 79 | } |
ansond | 167:2529c18d0eb1 | 80 | |
ansond | 167:2529c18d0eb1 | 81 | // turn the light on |
ansond | 167:2529c18d0eb1 | 82 | void APMDemoLight::on() { this->m_state = 1; this->m_dimming = false; this->update(); } |
ansond | 167:2529c18d0eb1 | 83 | |
ansond | 167:2529c18d0eb1 | 84 | // turn the light off |
ansond | 167:2529c18d0eb1 | 85 | void APMDemoLight::off() { this->m_state = 0; this->m_dimming = false; this->update(); } |
ansond | 167:2529c18d0eb1 | 86 | |
ansond | 167:2529c18d0eb1 | 87 | // dim the light (dim is between 0 and 100) |
ansond | 167:2529c18d0eb1 | 88 | void APMDemoLight::dim(int dim) { this->m_dim = (float)(dim/100.0); this->m_dimming = true; this->update(); } |
ansond | 167:2529c18d0eb1 | 89 | |
ansond | 167:2529c18d0eb1 | 90 | // get the dimming value |
ansond | 167:2529c18d0eb1 | 91 | float APMDemoLight::getDimValue() { return this->m_dim; } |
ansond | 167:2529c18d0eb1 | 92 | |
ansond | 167:2529c18d0eb1 | 93 | // set the light state |
ansond | 167:2529c18d0eb1 | 94 | void APMDemoLight::update() { |
ansond | 167:2529c18d0eb1 | 95 | if (this->m_dimming) { |
ansond | 167:2529c18d0eb1 | 96 | // dim the light |
ansond | 167:2529c18d0eb1 | 97 | *(this->m_led) = this->m_dim; |
ansond | 167:2529c18d0eb1 | 98 | } |
ansond | 167:2529c18d0eb1 | 99 | else { |
ansond | 167:2529c18d0eb1 | 100 | // turn the light on or off |
ansond | 167:2529c18d0eb1 | 101 | if (this->m_state == 0) { |
ansond | 167:2529c18d0eb1 | 102 | // just turn the LED off |
ansond | 167:2529c18d0eb1 | 103 | *(this->m_led) = 0; |
ansond | 167:2529c18d0eb1 | 104 | } |
ansond | 167:2529c18d0eb1 | 105 | else { |
ansond | 167:2529c18d0eb1 | 106 | // turn the LED on - but re-adjust for the current dim setting: |
ansond | 167:2529c18d0eb1 | 107 | // - if the dimming is set to 0, then lets go ahead and make the light full bright... |
ansond | 167:2529c18d0eb1 | 108 | // - otherwise we wont see the transition change. |
ansond | 167:2529c18d0eb1 | 109 | if (this->m_dim == 0.0) { |
ansond | 167:2529c18d0eb1 | 110 | *(this->m_led) = 1; |
ansond | 167:2529c18d0eb1 | 111 | } |
ansond | 167:2529c18d0eb1 | 112 | else { |
ansond | 167:2529c18d0eb1 | 113 | *(this->m_led) = this->m_dim; |
ansond | 167:2529c18d0eb1 | 114 | } |
ansond | 167:2529c18d0eb1 | 115 | } |
ansond | 167:2529c18d0eb1 | 116 | } |
ansond | 167:2529c18d0eb1 | 117 | } |