//24 RGB led colorflasher (72chans) half matrix 3V3 from stm boosted to lol 7.28V hihihihi (removed onboard leds, addet heatsink on STMF103C8T6chip  leds + powered by stm chip, leds negative switched by npn smd to ground..
/*pics
 * https://marderchen.lima-city.de/NEU+/24x5mmRGB_flasher_1.jpg
 * https://marderchen.lima-city.de/NEU+/24x5mmRGB_flasher_2.jpg
 * https://marderchen.lima-city.de/NEU+/24x5mmRGB_flasher_3.jpg
 * https://marderchen.lima-city.de/NEU+/24x5mmRGB_flasher_4_lol7V28Von3V3.jpg
 * https://marderchen.lima-city.de/NEU+/24x5mmRGB_flasher_5.jpg
 * watch video on cloud.ru :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 bar1    PB9
#define bar2    PB8
#define bar3    PB7
#define bar4    PB6
#define bar5    PB5
#define bar6    PA10
#define strobe13 PB1 /// free not used as comment in kote \/
#define strobe14 PB10
#define strobe15 PB11
#define strobe16 PB12
#define strobe17 PB13
#define strobe18 PB14
#define strobe19 PB15
#define strobe20 PA8
#define strobe21 PA9
#define channelz 72
#define sqsteps 21
void setup(){
  delay(100);
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(bar1,OUTPUT);pinMode(bar2,OUTPUT);pinMode(bar3,OUTPUT);pinMode(bar4,OUTPUT);pinMode(bar5,OUTPUT);pinMode(bar6,OUTPUT);
pinMode(strobe13,OUTPUT); pinMode(strobe14,OUTPUT); pinMode(strobe14,OUTPUT); pinMode(strobe15,OUTPUT); pinMode(strobe16,OUTPUT); pinMode(strobe17,OUTPUT); pinMode(strobe18,OUTPUT);
pinMode(strobe19,OUTPUT); pinMode(strobe20,OUTPUT); pinMode(strobe21,OUTPUT);
allof();delay(300);ratemal();}

void loop(){zeitreise();}
uint8_t beatsplit,strop[channelz+1],helligkeiten[channelz+1],newtrigger,blinkdata[sqsteps+1][channelz+1],isoncount,modi=1,doubleup=4,zufall;
uint8_t moden[5]={1,2,4};
uint8_t xmoden[7]={0,41,82,0,81};//long thing matching vauels to psy fullon {0,81,72,0,59} //most time spendet for adjusting..
uint16_t coolcach;
long littletime=micros();long slowtime=micros();long dimmer=micros();
void zeitreise(void){
  while ((micros()- slowtime)>(18100/doubleup)){//something between 19500-20500 raw-
     beatsplit++;if (beatsplit >=xmoden[doubleup]){beatsplit=1;newtrigger++;if(newtrigger>24){ratemal();newtrigger=random(1,4)*3;}}//ratemal();
     for(uint8_t fiz=0;fiz<channelz;fiz++){if(strop[fiz]<1){strop[fiz]=blinkdata[round(beatsplit/5)][fiz];}}
     slowtime = micros();}
  while ((micros()- dimmer)  >=   (40000/(doubleup*2))){for(uint8_t fu=0;fu<channelz;fu++){if(strop[fu]>=1){strop[fu]-=1;}}dimmer = micros();}//downfade
 while ((micros()- littletime)  >= 2){pulspowder();pulspowder();pulspowder();littletime = micros();}
  }
void pulspowderm(void){for(uint8_t haha=0;haha<2;haha++){pulspowder();}}
void ratemal(void){
 zufall=random(0,60);
 if(modi==3 && zufall <10){doubleup=moden[0];}
 if(modi==3 && zufall >=10 && zufall <30){doubleup=moden[1];}
 if(modi==3 && zufall >=30){doubleup=moden[2];}
 for(uint8_t tik=0;tik<=sqsteps;tik++){for(uint8_t tok=0;tok<channelz;tok++){blinkdata[tik][tok]=0;}}
 for(uint8_t wusch=0;wusch<=channelz;wusch++){helligkeiten[wusch]=(random(0,2)*4)+8;}
 for(uint8_t wisch=0;wisch<=sqsteps;wisch++){for(uint8_t wasch=0;wasch<channelz;wasch++){if(random(0,160)<=2){blinkdata[wisch][wasch]=helligkeiten[wasch];}}}waserraten();}
 uint8_t minusc=channelz/4;
void waserraten(void){
 isoncount=0; minusc=channelz/2;for(uint8_t tak=0;tak<sqsteps;tak++){for(uint8_t tek=0;tek<channelz;tek++){
  if(blinkdata[tak][tek]>=4){isoncount++;}
  if(blinkdata[tak][tek]>=4&&(minusc>1)){minusc--;}}}if(minusc<=1||minusc==0){ratemal();}}//try solong until minimum 3flashes/sequenz

void moduswechsel(void){modi++; if(modi>3){modi=0;} }
uint8_t maxx=16,chansnor=72;
void pulspowder(void) {
    for (uint8_t andere=0; andere <(72); andere+=12) {
    if(andere==0){digitalWrite(bar1,HIGH);}
    if(andere==12){digitalWrite(bar2,HIGH);}
    if(andere==24){digitalWrite(bar3,HIGH);}
    if(andere==36){digitalWrite(bar4,HIGH);}
    if(andere==48){digitalWrite(bar5,HIGH);}
    if(andere==60){digitalWrite(bar6,HIGH);}
  for (uint8_t fcount=0; fcount <=maxx; fcount++) {
    if (fcount <= (maxx-1) && fcount >=1) {
    if (fcount==(maxx-strop[andere+0])) {digitalWrite(strobe1,HIGH);}
    if (fcount==(maxx-strop[andere+1])) {digitalWrite(strobe2,HIGH);}
    if (fcount==(maxx-strop[andere+2])) {digitalWrite(strobe3,HIGH);}
    if (fcount==(maxx-strop[andere+3])) {digitalWrite(strobe4,HIGH);}
    if (fcount==(maxx-strop[andere+4])) {digitalWrite(strobe5,HIGH);}
    if (fcount==(maxx-strop[andere+5])) {digitalWrite(strobe6,HIGH);}
    if (fcount==(maxx-strop[andere+6])) {digitalWrite(strobe7,HIGH);}
    if (fcount==(maxx-strop[andere+7])) {digitalWrite(strobe8,HIGH);}
    if (fcount==(maxx-strop[andere+8])) {digitalWrite(strobe9,HIGH);}
    if (fcount==(maxx-strop[andere+9])) {digitalWrite(strobe10,HIGH);}
    if (fcount==(maxx-strop[andere+10])) {digitalWrite(strobe11,HIGH);}
    if (fcount==(maxx-strop[andere+11])) {digitalWrite(strobe12,HIGH);}
    }
    if (fcount>=maxx){allof();}}barof();}}
/*
    if (fcount==(maxx-strop[chansnor+1])) {digitalWrite(strobe13,HIGH);}
    if (fcount==(maxx-strop[chansnor+2])) {digitalWrite(strobe14,HIGH);}
    if (fcount==(maxx-strop[chansnor+3])) {digitalWrite(strobe15,HIGH);}
    if (fcount==(maxx-strop[chansnor+4])) {digitalWrite(strobe16,HIGH);}
    if (fcount==(maxx-strop[chansnor+5])) {digitalWrite(strobe17,HIGH);}
    if (fcount==(maxx-strop[chansnor+6])) {digitalWrite(strobe18,HIGH);}
    if (fcount==(maxx-strop[chansnor+7])) {digitalWrite(strobe19,HIGH);}
    if (fcount==(maxx-strop[chansnor+8])) {digitalWrite(strobe20,HIGH);}*/
void allof(void){
  digitalWrite(strobe1, LOW);digitalWrite(strobe2, LOW);digitalWrite(strobe3, LOW);digitalWrite(strobe4, LOW);digitalWrite(strobe5, LOW);digitalWrite(strobe6, LOW);
  digitalWrite(strobe7, LOW);digitalWrite(strobe8, LOW);digitalWrite(strobe9, LOW);digitalWrite(strobe10, LOW);digitalWrite(strobe11, LOW);digitalWrite(strobe12, LOW);}
 //digitalWrite(strobe13, LOW);digitalWrite(strobe14, LOW);digitalWrite(strobe15, LOW);digitalWrite(strobe16, LOW);digitalWrite(strobe17, LOW);digitalWrite(strobe18, LOW);digitalWrite(strobe19, LOW);digitalWrite(strobe20, LOW);digitalWrite(strobe21, LOW);
void barof(void){digitalWrite(bar1,LOW);digitalWrite(bar2,LOW);digitalWrite(bar3,LOW);digitalWrite(bar4,LOW);digitalWrite(bar5,LOW);digitalWrite(bar6,LOW);}
//mutch copper build in..
//used 24x 5mm(clear+lense) RGB 4pin leds ledssame - 3V3on stepup(6.6Volt) 5V usb in,
//les 6er line same color=strobe (+) (smal glas diod for red color lower voltage inline each line)
//leds 4leds row, 6rows row(same -) ->J3Y (s8050SMD ~1.5A NPN)->150R->GPIO
//:3 simple