// 64x16 Red LED matrix

#define COL_PIXEL     64
#define ROW_PIXEL     16

int latchPin=8;
int clockPin=9;
int dataPin=10;

int en_74138 = 11;
int la_74138 = 3;
int lb_74138 = 4;
int lc_74138 = 5;
int ld_74138 = 6;

unsigned int ROW_xPixel;
unsigned int ROW_num;

unsigned char bitmap1[]=
{
  0x80, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x1,
  0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
  0x0, 0x3c, 0x3c, 0x7c, 0x0, 0x0, 0x0, 0x0,
  0x0, 0x66, 0x66, 0x66, 0x0, 0x1C, 0x0, 0x0,
  0x0, 0x6e, 0x66, 0x66, 0x0, 0x22, 0x0, 0x0,
  0x0, 0x7e, 0x66, 0x7c, 0x0, 0x22, 0x0, 0x0,
  0x0, 0x76, 0x6a, 0x66, 0x0, 0x1C, 0x0, 0x0,
  0x0, 0x66, 0x6c, 0x66, 0x0, 0x22, 0x0, 0x0,
  0x0, 0x3c, 0x36, 0x7c, 0x0, 0x22, 0x0, 0x0,
  0x0, 0x00, 0x00, 0x00, 0x0, 0x22, 0x0, 0x0,
  0x0, 0x0, 0x0, 0x0, 0x0, 0x1C, 0x0, 0x0,
  0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
  0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
  0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
  0x1, 0x2, 0x4, 0x8, 0x0, 0x0, 0x0, 0x0,
  0x80, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x87
};

unsigned char bitmap2[]=
{
  0x80, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x1,
  0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
  0x0, B00001000, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
  0x0, B00011000, 0x0, 0x0, 0x0, 0x1C, 0x0, 0x0,
  0x0, B00001000, 0x0, 0x0, 0x0, 0x22, 0x0, 0x0,
  0x0, B00001000, 0x0, 0x0, 0x0, 0x22, 0x0, 0x0,
  0x0, B00001000, 0x0, 0x0, 0x0, 0x1C, 0x0, 0x0,
  0x0, B00001000, 0x0, 0x0, 0x0, 0x22, 0x0, 0x0,
  0x0, B00001000, 0x0, 0x0, 0x0, 0x22, 0x0, 0x0,
  0x0, B00011100, 0x0, 0x0, 0x0, 0x22, 0x0, 0x0,
  0x0, 0x0, 0x0, 0x0, 0x0, 0x1C, 0x0, 0x0,
  0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
  0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
  0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
  0x1, 0x2, 0x4, 0x8, 0x0, 0x0, 0x0, 0x0,
  0x80, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x87
};

unsigned char bbccharset[]=
{
  0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x18, 0x18, 0x18, 0x18, 0x18, 0x00, 0x18, 0x00, 0x6c, 0x6c, 0x6c, 0x00, 0x00, 0x00, 0x00, 0x00, 0x36, 0x36, 0x7f, 0x36, 0x7f, 0x36, 0x36, 0x00, 0x0c, 0x3f, 0x68, 0x3e, 0x0b, 0x7e, 0x18, 0x00, 0x60, 0x66, 0x0c, 0x18, 0x30, 0x66, 0x06, 0x00, 0x38, 0x6c, 0x6c, 0x38, 0x6d, 0x66, 0x3b, 0x00, 0x0c, 0x18, 0x30, 0x00, 0x00, 0x00, 0x00, 0x00,
  0x0c, 0x18, 0x30, 0x30, 0x30, 0x18, 0x0c, 0x00, 0x30, 0x18, 0x0c, 0x0c, 0x0c, 0x18, 0x30, 0x00, 0x00, 0x18, 0x7e, 0x3c, 0x7e, 0x18, 0x00, 0x00, 0x00, 0x18, 0x18, 0x7e, 0x18, 0x18, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x18, 0x18, 0x30, 0x00, 0x00, 0x00, 0x7e, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x18, 0x18, 0x00, 0x00, 0x06, 0x0c, 0x18, 0x30, 0x60, 0x00, 0x00,
  0x3c, 0x66, 0x6e, 0x7e, 0x76, 0x66, 0x3c, 0x00, 0x18, 0x38, 0x18, 0x18, 0x18, 0x18, 0x7e, 0x00, 0x3c, 0x66, 0x06, 0x0c, 0x18, 0x30, 0x7e, 0x00, 0x3c, 0x66, 0x06, 0x1c, 0x06, 0x66, 0x3c, 0x00, 0x0c, 0x1c, 0x3c, 0x6c, 0x7e, 0x0c, 0x0c, 0x00, 0x7e, 0x60, 0x7c, 0x06, 0x06, 0x66, 0x3c, 0x00, 0x1c, 0x30, 0x60, 0x7c, 0x66, 0x66, 0x3c, 0x00, 0x7e, 0x06, 0x0c, 0x18, 0x30, 0x30, 0x30, 0x00,
  0x3c, 0x66, 0x66, 0x3c, 0x66, 0x66, 0x3c, 0x00, 0x3c, 0x66, 0x66, 0x3e, 0x06, 0x0c, 0x38, 0x00, 0x00, 0x00, 0x18, 0x18, 0x00, 0x18, 0x18, 0x00, 0x00, 0x00, 0x18, 0x18, 0x00, 0x18, 0x18, 0x30, 0x0c, 0x18, 0x30, 0x60, 0x30, 0x18, 0x0c, 0x00, 0x00, 0x00, 0x7e, 0x00, 0x7e, 0x00, 0x00, 0x00, 0x30, 0x18, 0x0c, 0x06, 0x0c, 0x18, 0x30, 0x00, 0x3c, 0x66, 0x0c, 0x18, 0x18, 0x00, 0x18, 0x00,
  0x3c, 0x66, 0x6e, 0x6a, 0x6e, 0x60, 0x3c, 0x00, 0x3c, 0x66, 0x66, 0x7e, 0x66, 0x66, 0x66, 0x00, 0x7c, 0x66, 0x66, 0x7c, 0x66, 0x66, 0x7c, 0x00, 0x3c, 0x66, 0x60, 0x60, 0x60, 0x66, 0x3c, 0x00, 0x78, 0x6c, 0x66, 0x66, 0x66, 0x6c, 0x78, 0x00, 0x7e, 0x60, 0x60, 0x7c, 0x60, 0x60, 0x7e, 0x00, 0x7e, 0x60, 0x60, 0x7c, 0x60, 0x60, 0x60, 0x00, 0x3c, 0x66, 0x60, 0x6e, 0x66, 0x66, 0x3c, 0x00,
  0x66, 0x66, 0x66, 0x7e, 0x66, 0x66, 0x66, 0x00, 0x7e, 0x18, 0x18, 0x18, 0x18, 0x18, 0x7e, 0x00, 0x3e, 0x0c, 0x0c, 0x0c, 0x0c, 0x6c, 0x38, 0x00, 0x66, 0x6c, 0x78, 0x70, 0x78, 0x6c, 0x66, 0x00, 0x60, 0x60, 0x60, 0x60, 0x60, 0x60, 0x7e, 0x00, 0x63, 0x77, 0x7f, 0x6b, 0x6b, 0x63, 0x63, 0x00, 0x66, 0x66, 0x76, 0x7e, 0x6e, 0x66, 0x66, 0x00, 0x3c, 0x66, 0x66, 0x66, 0x66, 0x66, 0x3c, 0x00,
  0x7c, 0x66, 0x66, 0x7c, 0x60, 0x60, 0x60, 0x00, 0x3c, 0x66, 0x66, 0x66, 0x6a, 0x6c, 0x36, 0x00, 0x7c, 0x66, 0x66, 0x7c, 0x6c, 0x66, 0x66, 0x00, 0x3c, 0x66, 0x60, 0x3c, 0x06, 0x66, 0x3c, 0x00, 0x7e, 0x18, 0x18, 0x18, 0x18, 0x18, 0x18, 0x00, 0x66, 0x66, 0x66, 0x66, 0x66, 0x66, 0x3c, 0x00, 0x66, 0x66, 0x66, 0x66, 0x66, 0x3c, 0x18, 0x00, 0x63, 0x63, 0x6b, 0x6b, 0x7f, 0x77, 0x63, 0x00,
  0x66, 0x66, 0x3c, 0x18, 0x3c, 0x66, 0x66, 0x00, 0x66, 0x66, 0x66, 0x3c, 0x18, 0x18, 0x18, 0x00, 0x7e, 0x06, 0x0c, 0x18, 0x30, 0x60, 0x7e, 0x00, 0x7c, 0x60, 0x60, 0x60, 0x60, 0x60, 0x7c, 0x00, 0x00, 0x60, 0x30, 0x18, 0x0c, 0x06, 0x00, 0x00, 0x3e, 0x06, 0x06, 0x06, 0x06, 0x06, 0x3e, 0x00, 0x18, 0x3c, 0x66, 0x42, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff,
  0x1c, 0x36, 0x30, 0x7c, 0x30, 0x30, 0x7e, 0x00, 0x00, 0x00, 0x3c, 0x06, 0x3e, 0x66, 0x3e, 0x00, 0x60, 0x60, 0x7c, 0x66, 0x66, 0x66, 0x7c, 0x00, 0x00, 0x00, 0x3c, 0x66, 0x60, 0x66, 0x3c, 0x00, 0x06, 0x06, 0x3e, 0x66, 0x66, 0x66, 0x3e, 0x00, 0x00, 0x00, 0x3c, 0x66, 0x7e, 0x60, 0x3c, 0x00, 0x1c, 0x30, 0x30, 0x7c, 0x30, 0x30, 0x30, 0x00, 0x00, 0x00, 0x3e, 0x66, 0x66, 0x3e, 0x06, 0x3c,
  0x60, 0x60, 0x7c, 0x66, 0x66, 0x66, 0x66, 0x00, 0x18, 0x00, 0x38, 0x18, 0x18, 0x18, 0x3c, 0x00, 0x18, 0x00, 0x38, 0x18, 0x18, 0x18, 0x18, 0x70, 0x60, 0x60, 0x66, 0x6c, 0x78, 0x6c, 0x66, 0x00, 0x38, 0x18, 0x18, 0x18, 0x18, 0x18, 0x3c, 0x00, 0x00, 0x00, 0x36, 0x7f, 0x6b, 0x6b, 0x63, 0x00, 0x00, 0x00, 0x7c, 0x66, 0x66, 0x66, 0x66, 0x00, 0x00, 0x00, 0x3c, 0x66, 0x66, 0x66, 0x3c, 0x00,
  0x00, 0x00, 0x7c, 0x66, 0x66, 0x7c, 0x60, 0x60, 0x00, 0x00, 0x3e, 0x66, 0x66, 0x3e, 0x06, 0x07, 0x00, 0x00, 0x6c, 0x76, 0x60, 0x60, 0x60, 0x00, 0x00, 0x00, 0x3e, 0x60, 0x3c, 0x06, 0x7c, 0x00, 0x30, 0x30, 0x7c, 0x30, 0x30, 0x30, 0x1c, 0x00, 0x00, 0x00, 0x66, 0x66, 0x66, 0x66, 0x3e, 0x00, 0x00, 0x00, 0x66, 0x66, 0x66, 0x3c, 0x18, 0x00, 0x00, 0x00, 0x63, 0x6b, 0x6b, 0x7f, 0x36, 0x00,
  0x00, 0x00, 0x66, 0x3c, 0x18, 0x3c, 0x66, 0x00, 0x00, 0x00, 0x66, 0x66, 0x66, 0x3e, 0x06, 0x3c, 0x00, 0x00, 0x7e, 0x0c, 0x18, 0x30, 0x7e, 0x00, 0x0c, 0x18, 0x18, 0x70, 0x18, 0x18, 0x0c, 0x00, 0x18, 0x18, 0x18, 0x00, 0x18, 0x18, 0x18, 0x00, 0x30, 0x18, 0x18, 0x0e, 0x18, 0x18, 0x30, 0x00, 0x31, 0x6b, 0x46, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff
};


void setup()
{
  pinMode(latchPin,OUTPUT);
  pinMode(clockPin,OUTPUT);
  pinMode(dataPin,OUTPUT);
  
  pinMode(en_74138,OUTPUT);
  pinMode(la_74138,OUTPUT);
  pinMode(lb_74138,OUTPUT);
  pinMode(lc_74138,OUTPUT);
  pinMode(ld_74138,OUTPUT);

  digitalWrite(en_74138, LOW);
  
}


void loop()
{

  int dispchar='B';

  display_frame(bitmap1);
  // display_frame(bitmap2);

  bitmap1[4+0] = *(bbccharset+(8*(dispchar-32))+0);
  bitmap1[4+8] = *(bbccharset+(8*(dispchar-32))+1);
  bitmap1[4+16] = *(bbccharset+(8*(dispchar-32))+2);
  bitmap1[4+24] = *(bbccharset+(8*(dispchar-32))+3);
  bitmap1[4+32] = *(bbccharset+(8*(dispchar-32))+4);
  bitmap1[4+40] = *(bbccharset+(8*(dispchar-32))+5);
  bitmap1[4+48] = *(bbccharset+(8*(dispchar-32))+6);
  bitmap1[4+56] = *(bbccharset+(8*(dispchar-32))+7);

}


void display_frame(unsigned char *BMP)
{
     
   digitalWrite(en_74138, HIGH);//Turn off display

   shiftOut(~*(BMP+(COL_PIXEL/8)*ROW_xPixel));
   shiftOut(~*(BMP+(COL_PIXEL/8)*ROW_xPixel+1));
   shiftOut(~*(BMP+(COL_PIXEL/8)*ROW_xPixel+2));
   shiftOut(~*(BMP+(COL_PIXEL/8)*ROW_xPixel+3));
   shiftOut(~*(BMP+(COL_PIXEL/8)*ROW_xPixel+4));
   shiftOut(~*(BMP+(COL_PIXEL/8)*ROW_xPixel+5));
   shiftOut(~*(BMP+(COL_PIXEL/8)*ROW_xPixel+6));
   shiftOut(~*(BMP+(COL_PIXEL/8)*ROW_xPixel+7));
  
   digitalWrite(latchPin, LOW);
   digitalWrite(latchPin, HIGH);
  
   PORTD = ((ROW_xPixel << 3 ) & 0X78) | (PORTD & 0X87);//Write PIN 3 4 5 6 la_74138 lb_74138 lc_74138 ld_74138
     
   digitalWrite(en_74138, LOW);//Turn on display
     
   if (ROW_xPixel==15) ROW_xPixel=0; else ROW_xPixel++;

}


void shiftOut(unsigned char dataOut)
{
    for (int i=0;i<=7;i++)
     {
       PORTB &=~(1<<(clockPin-8));//equate digitalWrite(clockPin,LOW);
       if(dataOut & (0x01<<(7-i)))  PORTB |=1<<(dataPin-8); //equate digitalWrite(dataPin,HIGH);
       else  PORTB &=~(1<<(dataPin-8));//equate digitalWrite(dataPin,LOW);
       PORTB |=1<<(clockPin-8);//equate digitalWrite(clockPin,HIGH);
     }
}