Diatonic scale - slider base program plays one octave and a two notes, having 440A (A4) in the center.

Dependencies:   SLCD TSI mbed

Fork of slider_tone_v1 by Stanley Cohen

Revision:
3:f68e9cdfaf2d
Parent:
2:7f347d6a6422
--- a/slider_tone_v1.cpp	Sat Feb 14 23:03:06 2015 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,90 +0,0 @@
-#include "mbed.h"
-#include "SLCD.h"
-#include "TSISensor.h"
-
-
-#define CHANNELON   0
-#define CHANNELOFF  1
-#define LCDLEN      10
-#define DATATIME    0.1
-//LCD messages
-
-
-
-// Operating parameters
-#define SIDETONE    700.0   
-#define TONEMIN     200.0
-#define TONEINT     800.00 // So tone max is 1000
-#define TONEON      0.50
-#define TONEOFF     0.0
-#define SPEEDAST    0
-#define TONEAST     1
-
-SLCD slcd; //define LCD display
-
-TSISensor tsiScaling; // Capacitive sensor/slider
-
-PwmOut led(LED_RED);
-DigitalOut outPin(PTC9); //J1-16
-PwmOut soundOut(PTA13);
-// Global scalars
-char lcdData[LCDLEN];
-
-float tonePeriod;
-float toneFreq = SIDETONE;
-
-
-
-void LCDMessNoDwell(char *lMess){
-        slcd.Home();
-        slcd.clear();
-        slcd.printf(lMess);
-} 
-  
-void toneAdjust( float scaling) {
-    int tempInt;
-    
-    toneFreq = TONEMIN + scaling * TONEINT;
-    tonePeriod = 1.0/toneFreq;  
-    soundOut.period(tonePeriod); // adusting period
-    tempInt = (int)toneFreq;
-    sprintf (lcdData,"%4d",tempInt);
-    LCDMessNoDwell(lcdData);
-    return;
-}
-void lightAdjust( float scaling) { // Control brightness of LED
-    float tempDutyFactor;
-    
-    tempDutyFactor = 1.0 - scaling; //LED is a sinking connection 
-                                    // anode is held at 5V
-    led.write(tempDutyFactor); //sdjusting duty factor
-    return;
-}
-int main(){
-    int tempInt;
-    float tempValue;
-    tonePeriod = 1.0/toneFreq; 
-    soundOut.period(tonePeriod);
-    
-    
-    
-    led.write(CHANNELON);
-    outPin.write(CHANNELOFF);
-    tempInt = (int)toneFreq;
-    sprintf (lcdData,"%4d",tempInt);
-    LCDMessNoDwell(lcdData);
-    wait(DATATIME);   
-    while (true) {
-    
-        tempValue = tsiScaling.readPercentage();
-        if(tempValue > 0) {
-            soundOut.write(TONEON); // set duty factor to 505
-            toneAdjust( tempValue);
-            lightAdjust(tempValue);
-        } else { 
-            soundOut.write(TONEOFF); // set dutyfactor to 0%
-            LCDMessNoDwell("SOFF");
-        }       
-        wait(DATATIME);                  
-    } // while forever
-}// end main
\ No newline at end of file