#define ROW 8
#define COL 3
#define G1 13
#define TL 16
#define Speed 1000

const int scan[COL] = {10,11,12};
const int row[ROW] = {2,3,4,5,6,7,8,9};
const int data[TL][ROW] = 
{0x3C,0x42,0x42,0x42,0x42,0x42,0x3C,0x00,
0x18,0x38,0x58,0x18,0x18,0x18,0x7E,0x00,
0x3C,0x42,0x02,0x02,0x1C,0x20,0x7E,0x00,
0x3C,0x42,0x02,0x0C,0x02,0x42,0x3C,0x00,
0x18,0x28,0x48,0x48,0x7E,0x08,0x08,0x00,
0x3C,0x40,0x40,0x3C,0x02,0x02,0x3C,0x00,
0x3C,0x40,0x40,0x3C,0x42,0x42,0x3C,0x00,
0x3C,0x42,0x02,0x04,0x08,0x10,0x10,0x00,
0x3C,0x42,0x42,0x3C,0x42,0x42,0x3C,0x00,
0x3C,0x42,0x42,0x3C,0x02,0x02,0x3C,0x00,
0x00,0x18,0x18,0x7E,0x7E,0x18,0x18,0x00,
0x00,0x00,0x00,0x7E,0x7E,0x00,0x00,0x00,
0x00,0x42,0x24,0x18,0x18,0x24,0x42,0x00,
0x18,0x18,0x00,0x7E,0x00,0x18,0x18,0x00,
0x00,0x00,0x7E,0x00,0x00,0x7E,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x18,0x18,0x00};

int mapBuffer[ROW][ROW];
int c,u;

void setup() {
  int i;
  for (i = 0;i<COL;i++) pinMode(scan[i], OUTPUT);
  for (i = 0;i<ROW;i++) pinMode(row[i], OUTPUT);
  pinMode(G1, OUTPUT);
  c=0;u=0;
}

void loop() {
  moveBuffer(u);
  prnBuffer();
  c = (c+1) % Speed;
  if(c==0){
    u = (u+1) % TL;
  }
}

void moveBuffer(int z){
  int i,j,k;
  for(i=0;i<ROW;i++)
    for(j=0,k=1;j<ROW;j++,k<<=1)
       mapBuffer[i][j] = data[z][i] & k;
}

void prnBuffer(){
   int i, j, k, r, u;
   for(i=LOW;i<=HIGH;i++)
      for(j=LOW;j<=HIGH;j++)
         for(k=LOW;k<=HIGH;k++){
            digitalWrite(G1,0);
            digitalWrite(scan[2],i);
            digitalWrite(scan[1],j);
            digitalWrite(scan[0],k);
            r = (i<<2) | (j<<1) | k;
            for(u=0;u<ROW;u++) digitalWrite(row[u] , mapBuffer[r][u]);
            digitalWrite(G1,1);
         }
}