//extendet channel to 18 for multiple 3Watt high powder leds (4x 3watt blue, 2x 3watt white, 4x 3watt RGB soldered on cooperwire, parralel 33yF tantal,switched by D882 NPN transistor with5V
//oh its looking awesome on whal mirrorcage reflektor and IPS display optical knicking foil reflecting all light to front like smartphone creating a lifing colorflame spot on wall
//caused diffrent led positions looking like dancing light explosions if watching inside :3
/*pictures
 * https://marderchen.lima-city.de/NEU+/18chan_%3E30Watt_brainhack_multicolorstroboscope_progress.jpg
 * https://marderchen.lima-city.de/NEU+/30Watt_brainhack_multicolorstroboscope_mirorlightcage.jpg
 * https://marderchen.lima-city.de/NEU+/30Watt_brainhack_multicolorstroboscope_beforopticfoil.jpg
 * **3x 10V 3300yF high frequency capacitor inside caused powered by usb do REDUCE CURRENTPEAKS
 */
//the scope is bpmtimegesynct to my favorite music (GOA,progressive-trance,psychedelick,"Full on" station from soverryawesome radio Caprice:3
//look so less kotelines somuch complexity *PURRR* [MEOW] project (idea,material and brainfuckingkoting work) by marderchen but R.I.P.Artikel 13! so do with it whatever want to :3
#define strobe1 PC13
#define strobe2 PC14
#define strobe3 PC15
#define strobe4 PA0
#define strobe5 PA1
#define strobe6 PA2
#define strobe7 PA3
#define strobe8 PA4
#define strobe9 PA5
#define strobe10 PA6
#define strobe11 PA7
#define strobe12 PB0
#define strobe13 PB1
#define strobe14 PB10
#define strobe15 PB11
#define strobe16 PB12
#define strobe17 PB13
#define strobe18 PB14

void setup(){
  delay(300);
pinMode(strobe1,OUTPUT); pinMode(strobe2,OUTPUT); pinMode(strobe3,OUTPUT); pinMode(strobe4,OUTPUT); pinMode(strobe5,OUTPUT); pinMode(strobe6,OUTPUT);
pinMode(strobe7,OUTPUT); pinMode(strobe8,OUTPUT); pinMode(strobe9,OUTPUT); pinMode(strobe10,OUTPUT); pinMode(strobe11,OUTPUT); pinMode(strobe12,OUTPUT);
pinMode(strobe13,OUTPUT); pinMode(strobe14,OUTPUT); pinMode(strobe14,OUTPUT); pinMode(strobe15,OUTPUT); pinMode(strobe16,OUTPUT); pinMode(strobe17,OUTPUT); pinMode(strobe18,OUTPUT);
ratemal();}
uint8_t beatsplit,strop[20],helligkeiten[20],newtrigger,blinkdata[10][20];
uint8_t channels=18;
void loop(){ zeitreise();}
long littletime=micros();long slowtime=micros();long dimmer=micros();
void zeitreise(void){
  while ((micros()- slowtime)>20500){ //something between 19500-20500 raw
     beatsplit++;if (beatsplit >40){beatsplit=1;newtrigger++;if(newtrigger>16){newtrigger=random(1,4)*3;ratemal();}}
     for(uint8_t fiz=0;fiz<channels;fiz++){strop[fiz]=blinkdata[round(beatsplit/5)][fiz];}
     slowtime = micros();}
  while ((micros()- dimmer)  >=   400){for(uint8_t fu=0;fu<channels;fu++){if(strop[fu]>=10){strop[fu]-=10;}}dimmer = micros();}//downfade
  while ((micros()- littletime)  >=  1650){littletime = micros();pulspowder();}
  }
void ratemal(void){
 for(uint8_t tik=0;tik<9;tik++){for(uint8_t tok=0;tok<channels;tok++){blinkdata[tik][tok]=0;}}
 for(uint8_t wusch=0;wusch<channels;wusch++){helligkeiten[wusch]=(random(0,7)*10)+70;}
 for(uint8_t wisch=0;wisch<9;wisch++){if(random(0,12)<6){for(uint8_t wasch=0;wasch<channels;wasch++){if(random(0,15)<3){blinkdata[wisch][wasch]=helligkeiten[wasch];}}}}}

void pulspowder(void) {
  for (uint8_t fcount=1; fcount <120; fcount++) {
    if (fcount<=strop[0]) {digitalWrite(strobe1,HIGH);} if (fcount> strop[0]) {digitalWrite(strobe1, LOW); }
    if (fcount<=strop[1]) {digitalWrite(strobe2,HIGH);} if (fcount> strop[1]) {digitalWrite(strobe2, LOW); }
    if (fcount<=strop[2]) {digitalWrite(strobe3,HIGH);} if (fcount> strop[2]) {digitalWrite(strobe3, LOW); }
    if (fcount<=strop[3]) {digitalWrite(strobe4,HIGH);} if (fcount> strop[3]) {digitalWrite(strobe4, LOW); }
    if (fcount<=strop[4]) {digitalWrite(strobe5,HIGH);} if (fcount> strop[4]) {digitalWrite(strobe5, LOW); }
    if (fcount<=strop[5]) {digitalWrite(strobe6,HIGH);} if (fcount> strop[5]) {digitalWrite(strobe6, LOW); }
    if (fcount<=strop[6]) {digitalWrite(strobe7,HIGH);} if (fcount> strop[6]) {digitalWrite(strobe7, LOW); }
    if (fcount<=strop[7]) {digitalWrite(strobe8,HIGH);} if (fcount> strop[7]) {digitalWrite(strobe8, LOW); }
    if (fcount<=strop[8]) {digitalWrite(strobe9,HIGH);} if (fcount> strop[8]) {digitalWrite(strobe9, LOW); }
    if (fcount<=strop[9]) {digitalWrite(strobe10,HIGH);} if (fcount> strop[9]) {digitalWrite(strobe10, LOW); }
    if (fcount<=strop[10]) {digitalWrite(strobe11,HIGH);} if (fcount> strop[10]) {digitalWrite(strobe11, LOW); }
    if (fcount<=strop[11]) {digitalWrite(strobe12,HIGH);} if (fcount> strop[11]) {digitalWrite(strobe12, LOW); }
    if (fcount<=strop[12]) {digitalWrite(strobe13,HIGH);} if (fcount> strop[12]) {digitalWrite(strobe13, LOW); }
    if (fcount<=strop[13]) {digitalWrite(strobe14,HIGH);} if (fcount> strop[13]) {digitalWrite(strobe14, LOW); }
    if (fcount<=strop[14]) {digitalWrite(strobe15,HIGH);} if (fcount> strop[14]) {digitalWrite(strobe15, LOW); }
    if (fcount<=strop[15]) {digitalWrite(strobe16,HIGH);} if (fcount> strop[15]) {digitalWrite(strobe16, LOW); }
    if (fcount<=strop[16]) {digitalWrite(strobe17,HIGH);} if (fcount> strop[16]) {digitalWrite(strobe17, LOW); }
    if (fcount<=strop[17]) {digitalWrite(strobe18,HIGH);} if (fcount> strop[17]) {digitalWrite(strobe18, LOW); }}}