// Name: Arduino Mega Midi Controller Mega side.
// Created: May 10,   2021
// Last Edited: Mar 26, 2022
// Author: Larason2
// Acknowledgements:   Bald Engineer, Amanda Ghassaei, jeffb42, GrumpyMike, John Main, Ghost, RIP Tutorial,   Arduino tutorials.
// Includes Midi Through, wiring for pistons, improved debounce.
 
//für Arduino Due und MIDIUSB-Bibliothek angepasst
 
#include "MIDIUSB.h"
 
//Setup   Key Data Arrays
byte keysA[8][8] = { {1, 1, 1, 1, 1, 1, 1, 1}, {1, 1, 1, 1, 1, 1, 1, 1}, {1, 1, 1, 1, 1, 1, 1, 1}, {1, 1, 1, 1, 1, 1, 1, 1},
  {1, 1, 1, 1, 1, 1, 1, 1}, {1, 1, 1, 1, 1, 1, 1, 1}, {1, 1, 1, 1, 1, 1, 1, 1}, {1, 1, 1, 1, 1, 1, 1, 1},
};
 
//Setup Key Press Arrays
byte lastA[8][8];
 

//deckungsgleich zum Tasten-Array die MIDI-Codes für NoteOn/Off
uint8_t keyToMidiMap[8][8] = { 36, 37, 38, 39, 40, 41, 42, 43,
                               44, 45, 46, 47, 48, 49, 50, 51,
                               52, 53, 54, 55, 56, 57, 58, 59,
                               60, 61, 62, 63, 64, 65, 66, 67,
                               68, 69, 70, 71, 72, 73, 74, 75,
                               76, 77, 78, 79, 80, 81, 82, 83,
                               84, 85, 86, 87, 88, 89, 90, 91,
                               92, 93, 94, 95, 96, 97, 98, 99,
                             };
 
//MIDI Kanal
int midichannel = 3; //das ergibt Kanal 4 für das 3. Manual
 
//Entprellen der Tasten
unsigned long Delay = 10; //in Millisekunden
unsigned long DelayMS = 10; //in Mikrosekunden, 10 ging so recht und schlecht
unsigned long BounceAOn[8][8];
unsigned long BounceAOff[8][8];
 

//row-Pins
int row1 = 22;
int row2 = 24;
int row3 = 26;
int row4 = 28;
int row5 = 30;
int row6 = 32;
int row7 = 34;
int row8 = 36;
 

//col-Pins
int col1 = 23;
int col2 = 25;
int col3 = 27;
int col4 = 29;
int col5 = 31;
int col6 = 33;
int col7 = 35;
int col8 = 37;
 
//Sequenzer
bool key2Alt = LOW;
bool key3Alt = LOW;
bool key4Alt = LOW;
bool key5Alt = LOW;
 
int seq1 = 2;
int seq2 = 3;
int seq3 = 4;
int seq4 = 5;
 
//Variablen Schweller OW
int pinOW = A0;
int MapOW;
int LastMapOW = 127; //ganz auf
int LastPotOW = 980; //ganz auf bei ca. 980-1000, 1023 werden nicht erreicht
const unsigned long repeat = 50; // Zeit in ms, die gewartet wird, bis die Schweller-Schleife erneut durchläuft
unsigned long lastrepeatOW; // gespeicherte millis-Zeit des letzten Schweller-Durchlaufs
int DiffMapOW = 4; //Differenzwert zwischen Ist und Soll, ab dem keine weitere Schweller-Bewegung mehr stattfindet, quasi Entprellwert
int DiffOW = 5; //Wert, um den der MIDI-Wert beim Schweller addiert/subtrahiert wird
int PotT = 40; //Entprellwert Schweller
int CCchanOW = 4; //Kanal 5 für Schweller OW
int channel;
int controller = 11; //Controller Nummer, 11=Expression Pedal
int value;
 

 
/** Funktionen für MIDI *****************************************************/
void noteOn(byte channel, byte pitch, byte velocity) {
  midiEventPacket_t noteOn = {0x09, 0x90 | channel, pitch, velocity};
  MidiUSB.sendMIDI(noteOn);
}
 
void noteOff(byte channel, byte pitch, byte velocity) {
  midiEventPacket_t noteOff = {0x08, 0x80 | channel, pitch, velocity};
  MidiUSB.sendMIDI(noteOff);
}
 
void sendControlChange (byte channel, byte controller, byte value) {
  midiEventPacket_t event = {0x0B, 0xB0 | channel, controller, value};
  MidiUSB.sendMIDI(event);
}
 
bool MidiButton(int pin, byte midisig, bool keyAlt) {      //Button-Pin, Noten-Nummer
  bool key = digitalRead(pin);
 
  if (pin == seq1 || pin == seq2 || pin == seq3 || pin == seq4) {
    if (keyAlt == LOW && key == HIGH) {
      noteOn(3, midisig, 64);
      MidiUSB.flush();
      keyAlt = key;
      delay(Delay);
      return keyAlt;
    }
 
    if (keyAlt == HIGH && key == LOW) {
      noteOff(3, midisig, 64);
      MidiUSB.flush();
      keyAlt = key;
      delay(Delay);
      return keyAlt;
    }
  }
  else {
    if (keyAlt == HIGH && key == LOW) {
      noteOn(3, midisig, 64);
      MidiUSB.flush();
      keyAlt = key;
      delay(Delay);
      return keyAlt;
    }
 
    if (keyAlt == LOW && key == HIGH) {
      noteOff(3, midisig, 64);
      MidiUSB.flush();
      keyAlt = key;
      delay(Delay);
      return keyAlt;
    }
  }
}
/****************************************************************************/
 

void setup() {
  //Initialize Row Pins Keyboard   A (Reihe sind unten jeder 2. Pin)
  pinMode(row1, INPUT);
  pinMode(row2, INPUT);
  pinMode(row3, INPUT);
  pinMode(row4, INPUT);
  pinMode(row5, INPUT);
  pinMode(row6, INPUT);
  pinMode(row7, INPUT);
  pinMode(row8, INPUT);
 
  //Initialize Column   Pins Keyboard A (Spalten sind die oberen Kontakte)
 
  pinMode(col1, INPUT);
  pinMode(col2, INPUT);
  pinMode(col3, INPUT);
  pinMode(col4, INPUT);
  pinMode(col5, INPUT);
  pinMode(col6, INPUT);
  pinMode(col7, INPUT);
  pinMode(col8, INPUT);
 
  pinMode(pinOW, INPUT); //Schweller OW
  pinMode(seq1, INPUT_PULLUP);
  pinMode(seq2, INPUT_PULLUP);
  pinMode(seq3, INPUT_PULLUP);
  pinMode(seq4, INPUT_PULLUP);
}
 
void loop() {
 
  key2Alt = MidiButton(seq1, 100, key2Alt); //Sequenzer-Taste
  key3Alt = MidiButton(seq2, 101, key3Alt); //Sequenzer Taste
  key4Alt = MidiButton(seq3, 102, key4Alt); //Sequenzer Taste
  key5Alt = MidiButton(seq4, 103, key5Alt); //Sequenzer Taste
 
  pinMode(col1, INPUT_PULLUP);
  pinMode(col2, INPUT_PULLUP);
  pinMode(col3, INPUT_PULLUP);
  pinMode(col4, INPUT_PULLUP);
  pinMode(col5, INPUT_PULLUP);
  pinMode(col6, INPUT_PULLUP);
  pinMode(col7, INPUT_PULLUP);
  pinMode(col8, INPUT_PULLUP);
 
  pinMode(row1, OUTPUT);
  digitalWrite(row1, LOW);
  delayMicroseconds(DelayMS);
  keysA[0][0] = digitalRead(col1);
  keysA[0][1] = digitalRead(col2);
  keysA[0][2] = digitalRead(col3);
  keysA[0][3] = digitalRead(col4);
  keysA[0][4] = digitalRead(col5);
  keysA[0][5] = digitalRead(col6);
  keysA[0][6] = digitalRead(col7);
  keysA[0][7] = digitalRead(col8);
  pinMode(row1, INPUT);
  //delayMicroseconds(DelayMS);
 
  pinMode(row2, OUTPUT);
  digitalWrite(row2, LOW);
  delayMicroseconds(DelayMS);
  keysA[1][0] = digitalRead(col1);
  keysA[1][1] = digitalRead(col2);
  keysA[1][2] = digitalRead(col3);
  keysA[1][3] = digitalRead(col4);
  keysA[1][4] = digitalRead(col5);
  keysA[1][5] = digitalRead(col6);
  keysA[1][6] = digitalRead(col7);
  keysA[1][7] = digitalRead(col8);
  pinMode(row2, INPUT);
  //delayMicroseconds(DelayMS);
 
  pinMode(row3, OUTPUT);
  digitalWrite(row3, LOW);
  delayMicroseconds(DelayMS);
  keysA[2][0] = digitalRead(col1);
  keysA[2][1] = digitalRead(col2);
  keysA[2][2] = digitalRead(col3);
  keysA[2][3] = digitalRead(col4);
  keysA[2][4] = digitalRead(col5);
  keysA[2][5] = digitalRead(col6);
  keysA[2][6] = digitalRead(col7);
  keysA[2][7] = digitalRead(col8);
  pinMode(row3, INPUT);
  //delayMicroseconds(DelayMS);
 
  pinMode(row4, OUTPUT);
  digitalWrite(row4, LOW);
  delayMicroseconds(DelayMS);
  keysA[3][0] = digitalRead(col1);
  keysA[3][1] = digitalRead(col2);
  keysA[3][2] = digitalRead(col3);
  keysA[3][3] = digitalRead(col4);
  keysA[3][4] = digitalRead(col5);
  keysA[3][5] = digitalRead(col6); //Problemton f1
  keysA[3][6] = digitalRead(col7);
  keysA[3][7] = digitalRead(col8); //Problemton g1
  pinMode(row4, INPUT);
  //delayMicroseconds(DelayMS);
 
  pinMode(row5, OUTPUT);
  digitalWrite(row5, LOW);
  delayMicroseconds(DelayMS);
  keysA[4][0] = digitalRead(col1);
  keysA[4][1] = digitalRead(col2);
  keysA[4][2] = digitalRead(col3);
  keysA[4][3] = digitalRead(col4);
  keysA[4][4] = digitalRead(col5);
  keysA[4][5] = digitalRead(col6);
  keysA[4][6] = digitalRead(col7);
  keysA[4][7] = digitalRead(col8);
  pinMode(row5, INPUT);
  //delayMicroseconds(DelayMS);
 
  pinMode(row6, OUTPUT);
  digitalWrite(row6, LOW);
  delayMicroseconds(DelayMS);
  keysA[5][0] = digitalRead(col1);
  keysA[5][1] = digitalRead(col2);
  keysA[5][2] = digitalRead(col3);
  keysA[5][3] = digitalRead(col4);
  keysA[5][4] = digitalRead(col5);
  keysA[5][5] = digitalRead(col6);
  keysA[5][6] = digitalRead(col7);
  keysA[5][7] = digitalRead(col8);
  pinMode(row6, INPUT);
  //delayMicroseconds(DelayMS);
 
  pinMode(row7, OUTPUT);
  digitalWrite(row7, LOW);
  delayMicroseconds(DelayMS);
  keysA[6][0] = digitalRead(col1);
  keysA[6][1] = digitalRead(col2);
  keysA[6][2] = digitalRead(col3);
  keysA[6][3] = digitalRead(col4);
  keysA[6][4] = digitalRead(col5);
  keysA[6][5] = digitalRead(col6);
  keysA[6][6] = digitalRead(col7);
  keysA[6][7] = digitalRead(col8);
  pinMode(row7, INPUT);
  //delayMicroseconds(DelayMS);
 
  pinMode(row8, OUTPUT);
  digitalWrite(row8, LOW);
  delayMicroseconds(DelayMS);
  keysA[7][0] = digitalRead(col1);
  keysA[7][1] = digitalRead(col2);
  keysA[7][2] = digitalRead(col3);
  keysA[7][3] = digitalRead(col4);
  keysA[7][4] = digitalRead(col5);
  keysA[7][5] = digitalRead(col6);
  keysA[7][6] = digitalRead(col7);
  keysA[7][7] = digitalRead(col8);
  pinMode(row8, INPUT);
  //delayMicroseconds(DelayMS);
 
  pinMode(col1, INPUT);
  pinMode(col2, INPUT);
  pinMode(col3, INPUT);
  pinMode(col4, INPUT);
  pinMode(col5, INPUT);
  pinMode(col6, INPUT);
  pinMode(col7, INPUT);
  pinMode(col8, INPUT);
 
  //delayMicroseconds(DelayMS);
  
  //gedrückte Tasten als MIDI-Befehle senden
  for (int row = 0; row <= 7; row++) {
 
    for (int col = 0; col <= 7; col++) {
 
      if (keysA[row][col] == LOW && lastA[row][col] == HIGH) {
        noteOn(midichannel, keyToMidiMap[row][col], 127);
        MidiUSB.flush();
        lastA[row][col] = keysA[row][col];
        //delay(Delay);
      }
 
      if (keysA[row][col] == HIGH && lastA[row][col] == LOW) {
        noteOff(midichannel, keyToMidiMap[row][col], 0);
        MidiUSB.flush();
        lastA[row][col] = keysA[row][col];
        //delay(Delay);
      }
 
    }
  }
 
/*
  //gedrückte Tasten als MIDI-Befehle senden
  for (int row = 0; row <= 7; row++) {
 
    for (int col = 0; col <= 7; col++) {
 
      if (keysA[row][col] == LOW && lastA[row][col] == HIGH && ((millis()   - BounceAOn[row][col]) > Delay)) {
        noteOn(midichannel, keyToMidiMap[row][col], 127);
        MidiUSB.flush();
        lastA[row][col] = keysA[row][col];
        BounceAOff[row][col] = millis();
        //delay(Delay);
      }
 
      if (keysA[row][col] == HIGH && lastA[row][col] == LOW && ((millis()   - BounceAOff[row][col]) > Delay)) {
        noteOff(midichannel, keyToMidiMap[row][col], 0);
        MidiUSB.flush();
        lastA[row][col] = keysA[row][col];
        BounceAOn[row][col] =   millis();
        //delay(Delay);
      }
 
    }
  }
*/
 
  //Schweller OW
  int CurOW = analogRead(0);
  if (CurOW > 980) CurOW = 980;
  if (CurOW < 100) CurOW = 100;
  MapOW = map(CurOW, 100, 980, 0, 127);
 

  //Schweller 2. Manual (Oberwerk)
  if (abs(MapOW - LastMapOW) >= DiffMapOW) {
    if (millis() - lastrepeatOW >= repeat)  {
      if (MapOW < LastMapOW) {
        LastMapOW = LastMapOW - DiffOW;
        if (LastMapOW < 0) LastMapOW = 0;
        if (abs(MapOW - LastMapOW) <= DiffMapOW) LastMapOW = MapOW;
        sendControlChange(CCchanOW, controller, LastMapOW); // Set the value of controller 10 on channel 0 to 65
      }
      if (MapOW > LastMapOW) {
        LastMapOW = LastMapOW + DiffOW;
        if (LastMapOW > 127) LastMapOW = 127;
        if (abs(MapOW - LastMapOW) <= DiffMapOW) LastMapOW = MapOW;
        sendControlChange(CCchanOW, controller, LastMapOW); // Set the value of controller 10 on channel 0 to 65
      }
      lastrepeatOW = millis();
    }
  }
 
}