Christine M. Liu
cmliu@fas.harvard.edu
 

// Christine Liu
// AutoHarp code

// foot touchpad
// outputs turn on with respective inputs
// lights (output 7) blink faster with more input

// @ digital
// # analog

int p = 10;
int key0 = 0;    // 0 = off, 1 = on
int key1 = 0;
int key2 = 0;
int key3 = 0;
    
int key4 = 0;
int key5 = 0;
int key6 = 0;

int blink = 100;
int press = 0;  // # of sensors activated

while (true) {

  press = key0 + key1 + key2 + key3 + key4 + key5 + key6;
  if (press == 0) {
    :7 = 0;
  } else if (press == 1) {
    :7 = 1;
  } else {
    :7 = 1;
    pause (blink / press);
    :7 = 0;
    pause ((blink / press)/2);
  }

  if (@0 == 0) {
    if (key0 == 0) {
      :0 = 0;
      key0 = 1;
    }
  }
  if (@0 == 1) {
    if (key0 == 1) {
      :1 = 1;
      key0 = 0;
    }
  }   
   
  if (@1 == 0) {
    if (key1 == 0) {
      :1 = 0;
      key1 = 1;
    }
  }
  if (@1 == 1) {
    if (key1 == 1) {
      :1 = 1;
      key1 = 0;
    }
  }
  
  if (@2 == 0) {
    if (key2 == 0) {
      :2 = 0;
      key2 = 1;
    }
  }
  if (@2 == 1) {
    if (key2 == 1) {
      :2 = 1;
      key2 = 0;
    }
  }      

  if (@3 == 0) {
    if (key3 == 0) {
      :3 = 0;
      key3 = 1;
    }
  }
  if (@3 == 1) {
    if (key3 == 1) {
      :3 = 1;
      key3 = 0;
    }
  }  

  // analog

  if (#0 > 50) {
    if (key4 == 0) {
      :4 = 1;
      key4 = 1;
    }
  }
  if (#0 <= 50) {
    if (key4 == 1) {
      :4 = 0;
      key4 = 0;
    }
  }

  if (#1 > 50) {
    if (key5 == 0) {
      :5 = 1;
      key5 = 1;
    }
  }
  if (#1 <= 50) {
    if (key5 == 1) {
      :5 = 0;
      key5 = 0;
    }
  }

  if (#2 > 50) {
    if (key6 == 0) {
      :6 = 1;
      key6 = 1;
    }
  }
  if (#2 <= 50) {
    if (key6 == 1) {
      :6 = 0;
      key6 = 0;
    }
  }
}