//rainbow solarPOLARstern driver

#define t1 PB12
#define t2 PB13
#define t3 PB14
#define t4 PB15

#define power PA2
#define tastmeld PA1
#define LDR  PA0

#define rot  PC13
#define grun PC15
#define blau PC14

int8_t onpress[10];
int duty[10];
long maintime=millis();
long maintime2=micros();
int zeit1,zeit2,zeit3,zeit4,zeit5,sonne;
int16_t rainbow;
int16_t bright =300;
void setup() {
  pinMode(rot, OUTPUT);
  pinMode(grun, OUTPUT);
  pinMode(blau, OUTPUT);
  pinMode(power, OUTPUT);
  pinMode(tastmeld, OUTPUT);

  pinMode(t1, INPUT);
  pinMode(t2, INPUT);
  pinMode(t3, INPUT);
  pinMode(t4, INPUT);

}

void loop() {
 zeitreise();

 if (analogRead(LDR) >= sonne) { sonne++;}
 if (analogRead(LDR) < sonne)  { sonne--;}
autocolor();
rainbowcalc();
istinput();
machlicht();

  }
int16_t brightc,brightcc,nenrandy,rainc;
  void autocolor(void){
    if (zeit5 >200) { rainc=random(0,10);zeit5=random(0,150);}
    if (zeit2 >rainc) {rainbow++; zeit2=0;}
    if (zeit3 >200) {nenrandy=random(0,20);
    if (nenrandy <14) {brightc=random(20,350); brightcc=random(1,5);zeit3=random(0,90); }
    if (nenrandy >= 14 && nenrandy <17) {brightc=random(100,410); brightcc=random(2,7); zeit3=random(20,100); }
    if (nenrandy >= 17 ) {brightc=random(400,650); brightcc=random(1,5);zeit3=random(0,50); }
    }
    duty[3]= (brightcc+rainc+(zeit3/20))*10;
    if(zeit4 > brightcc) {
    if (bright > brightc) {bright--;}
    if (bright < brightc) {bright++;}zeit4=0;}
  }

void istinput(void){
  if (zeit1 >=1) {
  if (digitalRead(t1) == HIGH && onpress[0] ==0) { onpress[0] =1; rainbow+=50;}
  if (onpress[0] == 1) { onpress[1]++; }
  if (onpress[1] >= 5) { onpress[1] =0; onpress[0]=0; }
  if (digitalRead(t2) == HIGH && onpress[2] ==0) { onpress[2] =1; rainbow=0;}
  if (onpress[2] == 1) { onpress[3]++;}
  if (onpress[3] >= 5) { onpress[3] =0; onpress[2]=0; }
  if (digitalRead(t3) == HIGH && onpress[4] ==0) { onpress[4] =1; bright+=20; }
  if (onpress[4] == 1) { onpress[5]++;}
  if (onpress[5] >= 5) { onpress[5] =0; onpress[4]=0; }
  if (digitalRead(t4) == HIGH && onpress[6] ==0) { onpress[6] =1; rainbow-=240;}
  if (onpress[6] == 1) { onpress[7]++;}
  if (onpress[7] >= 5) { onpress[7] =0; onpress[6]=0; }
  if (onpress[1] >1 || onpress[3] >1 || onpress[5] >1 || onpress[7] >1) { duty[4]=400;}
  if (duty[4] > 2) {duty[4]-=10;}
  zeit1=0;
}}

void zeitreise(void){
  while ((millis()- maintime) >=  5) {
   zeit1++;  zeit3++;  zeit5++;
  maintime = millis();
  }
  while ((micros()- maintime2) >=  400) {
  zeit2++; zeit4++;
  maintime2 = micros();
  }
}



void rainbowcalc(void) {
 if(rainbow >=0   && rainbow <=400)   {duty[0] =400;                     duty[1] =rainbow;                  duty[2] =0;}                   //rot  ->gelb  (rotmax grün+ blau0)
 if(rainbow >=401 && rainbow <=801)   {duty[0] =(400 -(rainbow -401));   duty[1] =400;                      duty[2] =0;}                    //gelb ->grün  (rot- grünmax blau0)
 if(rainbow >=802 && rainbow <=1202)  {duty[0] =0;                       duty[1] =400;                      duty[2] =(rainbow - 802);}         //grün ->cyan  (rot0 grünmax blau+)
 if(rainbow >=1203 && rainbow <=1603) {duty[0] =0;                       duty[1] =(400 -(rainbow - 1203));  duty[2] =400;}                 //cyan ->blau  (rot0 grün- blaumax)
 if(rainbow >=1604 && rainbow <=2004) {duty[0] =(rainbow-1604);          duty[1] =0;                        duty[2] =400;}                 //blau ->lila  (rot+ grün0 blaumax)
 if(rainbow >=2005 && rainbow <=2405) {duty[0] =400;                     duty[1] =0;                        duty[2] =(400- (rainbow -2006));}  //lila ->rot   (rotmax grün0 blau-)
 if(rainbow >= 2406) {rainbow =0;}
}

    
long startriger=micros();
int32_t light,darkness,dcach;
void machlicht(void) {
  if (bright > 400){light=bright-400; dcach=0;}
  if (bright <=400){dcach=(400-(bright))/2; light=0;}
  darkness=(dcach*dcach)/1.8;
  while ((micros()-startriger) >=  10) {
    /*
  fcount1++;
  if (fcount1 ==  ((401+darkness)-duty[0])) { digitalWrite(rot, HIGH );}
  if (fcount1 ==  ((401+darkness)-duty[1])) { digitalWrite(grun, HIGH );}
  if (fcount1 ==  ((401+darkness)-duty[2])) { digitalWrite(blau, HIGH );}
  if (fcount1 ==  (401-duty[3])) { digitalWrite(power, HIGH );}
  if (fcount1 ==  (401-duty[4])) { digitalWrite(tastmeld, HIGH );}

  if (fcount1 >=  (402 + light + darkness) ) {
  digitalWrite(rot, LOW );  digitalWrite(grun, LOW );  digitalWrite(blau, LOW );
  digitalWrite(power, LOW );  digitalWrite(tastmeld, LOW );
  fcount1 = 0;  }*/
  for (int32_t fcount1=0; fcount1 <(403+light+darkness); fcount1++) {
    if (fcount1 ==  ((401+darkness)-duty[0])) { digitalWrite(rot, HIGH );}
  if (fcount1 ==  ((401+darkness)-duty[1])) { digitalWrite(grun, HIGH );}
  if (fcount1 ==  ((401+darkness)-duty[2])) { digitalWrite(blau, HIGH );}
  if (fcount1 ==  ((401+darkness)-duty[3])) { digitalWrite(power, HIGH );}
  if (fcount1 ==  ((401+darkness)-duty[4])) { digitalWrite(tastmeld, HIGH );}

  if (fcount1 >=  (402 + light + darkness) ) {
  digitalWrite(rot, LOW );  digitalWrite(grun, LOW );  digitalWrite(blau, LOW );
  digitalWrite(power, LOW );  digitalWrite(tastmeld, LOW );
  }}
  startriger = micros();
  }
}

//currently progressing rest but finaly the rgb rainbowstectrum and brightness working awesome(but have to add 1000yF capacitor for evera led color angains stroposcope effect
// have fun! use it or parts if there is something usefull..