source: npl/mediabox/lcdproc_edwin/src/server/drivers/MtxOrb.c

#include <stdlib.h>
#include <stdio.h>
#include <unistd.h>
#include <termios.h>
#include <fcntl.h>
#include <string.h>
#include <errno.h>
#include "lcd.h"
#include "MtxOrb.h"
#include "drv_base.h"

#include "../../shared/debug.h"
#include "../../shared/str.h"

static int custom=0;

// TODO: Remove this custom_type if not in use anymore.
typedef enum {
        hbar = 1,
        vbar = 2,
        bign = 4,
        beat = 8 } custom_type;

// TODO: This is my ugglyest piece of code.
typedef enum {
        baru1 = 0,
        baru2 = 1,
        baru3 = 2,
        baru4 = 3,
        baru5 = 4,
        baru6 = 5,
        baru7 = 6,
        bard1 = 7,
        bard2 = 8,
        bard3 = 9,
        bard4 = 10,
        bard5 = 11,
        bard6 = 12,
        bard7 = 13,
        barr1 = 14,
        barr2 = 15,
        barr3 = 16,
        barr4 = 17,
        barl1 = 18,
        barl2 = 19,
        barl3 = 20,
        barl4 = 21,
        barw  = 32,
        barb  = 255} bar_type;

static int fd;
static int clear=1;

static int def[9]={-1,-1,-1,-1,-1,-1,-1,-1,-1};
static int use[9]={1,0,0,0,0,0,0,0,0};



static void MtxOrb_linewrap(int on);
static void MtxOrb_autoscroll(int on);
static void MtxOrb_cursorblink(int on);

// TODO:  Get rid of this variable?
lcd_logical_driver *MtxOrb;
// TODO:  Get the frame buffers working right

/////////////////////////////////////////////////////////////////
// Opens com port and sets baud correctly...
//
int MtxOrb_init(lcd_logical_driver *driver, char *args)
{
   char *argv[64];
   int argc;
   struct termios portset;
   int i;
   int tmp;
   
   int contrast=140;
   char device[256] = "/dev/lcd";
   int speed=B19200;


   MtxOrb = driver;


   //debug("MtxOrb_init: Args(all): %s\n", args);
   
   argc = get_args(argv, args, 64);

   /*
   for(i=0; i<argc; i++)
   {
      printf("Arg(%i): %s\n", i, argv[i]);
   }
   */
   
   for(i=0; i<argc; i++)
   {
      //printf("Arg(%i): %s\n", i, argv[i]);
      if(0 == strcmp(argv[i], "-d")  ||
         0 == strcmp(argv[i], "--device"))
      {
         if(i + 1 > argc) {
            fprintf(stderr, "MtxOrb_init: %s requires an argument\n",
                    argv[i]);
            return -1;
         }
         strcpy(device, argv[++i]);
      }
      else if(0 == strcmp(argv[i], "-c")  ||
         0 == strcmp(argv[i], "--contrast"))
      {
         if(i + 1 > argc) {
            fprintf(stderr, "MtxOrb_init: %s requires an argument\n",
                    argv[i]);
            return -1;
         }
         tmp = atoi(argv[++i]);
         if((tmp < 0) || (tmp > 255)){
            fprintf(stderr, "MtxOrb_init: %s argument must between 0 and 255. Ussing default value.\n",
                    argv[i]);
         } else contrast = tmp;
      }
      else if(0 == strcmp(argv[i], "-s")  ||
         0 == strcmp(argv[i], "--speed"))
      {
         if(i + 1 > argc) {
            fprintf(stderr, "MtxOrb_init: %s requires an argument\n",
                    argv[i]);
            return -1;
         }
         tmp = atoi(argv[++i]);
         if(tmp==1200) speed=B1200;
         else if(tmp==2400) speed=B2400;
         else if(tmp==9600) speed=B9600;
         else if(tmp==19200) speed=B19200;
         else {
            fprintf(stderr, "MtxOrb_init: %s argument must be 1200, 2400, 9600 or 19200. Ussing default value.\n",
                    argv[i]);
         }
      }
      else if(0 == strcmp(argv[i], "-h")  ||
         0 == strcmp(argv[i], "--help"))
      {
         printf("LCDproc Matrix-Orbital LCD driver\n"
                "\t-d\t--device\tSelect the output device to use [/dev/lcd]\n"
                "\t-t\t--type\t\tSelect the LCD type (size) [20x4]\n"
                "\t-c\t--contrast\tSet the initial contrast [140]\n"
                "\t-s\t--speed\t\tSet the communication speed [19200]\n"
                "\t-h\t--help\t\tShow this help information\n");
         return -1;
      }
      else
      {
         printf("Invalid parameter: %s\n", argv[i]);
      }
      
   }
   
   // Set up io port correctly, and open it...
   fd = open(device, O_RDWR | O_NOCTTY | O_NDELAY); 
   if (fd == -1) 
   {
      fprintf(stderr, "MtxOrb_init: failed (%s)\n", strerror(errno));
      return -1;
   }
   //else fprintf(stderr, "MtxOrb_init: opened device %s\n", device);
   tcgetattr(fd, &portset);
   // This is necessary in Linux, but does not exist in irix.
#ifndef IRIX
   cfmakeraw(&portset);
#endif
   cfsetospeed(&portset, speed);
   cfsetispeed(&portset, speed);
   tcsetattr(fd, TCSANOW, &portset);
   
   
   // Set display-specific stuff..
   MtxOrb_linewrap(1);
   MtxOrb_autoscroll(1);
   MtxOrb_cursorblink(0);

   
   if(!driver->framebuf)
   {
      fprintf(stderr, "MtxOrb_init: No frame buffer.\n");
      driver->close();
      return -1;
   }


   // Set the functions the driver supports...

//   driver->clear =      (void *)-1;
   driver->clear =      MtxOrb_clear;
   driver->string =     (void *)-1;
//  driver->chr =        MtxOrb_chr;
   driver->chr =        (void *)-1;
   driver->vbar =       MtxOrb_vbar;
   driver->init_vbar =  MtxOrb_init_vbar;
//   driver->init_vbar =  (void *)-1;
   driver->hbar =       MtxOrb_hbar;
   driver->init_hbar =  MtxOrb_init_hbar;
//   driver->init_hbar =  (void *)-1;
   driver->num =        MtxOrb_num;
   driver->init_num =   MtxOrb_init_num;

   driver->init =       MtxOrb_init;
   driver->close =      MtxOrb_close;
   driver->flush =      MtxOrb_flush;
   driver->flush_box =  MtxOrb_flush_box;
   driver->contrast =   MtxOrb_contrast;
   driver->backlight =  MtxOrb_backlight;
   driver->output =     MtxOrb_output;
   driver->set_char =   MtxOrb_set_char;
   driver->icon =       MtxOrb_icon;
   driver->draw_frame = MtxOrb_draw_frame;

   driver->getkey =     MtxOrb_getkey;

   MtxOrb_contrast(contrast);
  
   return fd;
}


// TODO: Check this quick hack to detect clear of the screen.
/////////////////////////////////////////////////////////////////
// Clear: catch up when the screen get clear to be able to
//  forget bar caracter not in use anymore and reuse the
//  slot for another bar caracter.
//
void MtxOrb_clear() 
{
// REMOVE:  fprintf(stderr, "GLU: MtxOrb_clear.\n");
  drv_base_clear();
  clear=1;
}


/////////////////////////////////////////////////////////////////
// Clean-up
//
void MtxOrb_close() 
{
  close (fd); 

  if(MtxOrb->framebuf) free(MtxOrb->framebuf);

  MtxOrb->framebuf = NULL;
}


void MtxOrb_flush()
{
   MtxOrb_draw_frame(lcd.framebuf);
}


void MtxOrb_flush_box(int lft, int top, int rgt, int bot)
{
  int y;
  char out[LCD_MAX_WIDTH];
  
  
//  printf("Flush (%i,%i)-(%i,%i)\n", lft, top, rgt, bot);

  for(y=top; y<=bot; y++)
    {
      sprintf(out, "%cG%c%c", 254, lft, y);
      write(fd, out, 4);
      write(fd, lcd.framebuf+(y*lcd.wid)+lft, rgt-lft+1);
      
    }
  
  
}


/////////////////////////////////////////////////////////////////
// Prints a character on the lcd display, at position (x,y).  The
// upper-left is (1,1), and the lower right should be (20,4).
//
void MtxOrb_chr(int x, int y, char c) 
{
  y--;
  x--;
  
  lcd.framebuf[(y*lcd.wid) + x] = c;
}


/////////////////////////////////////////////////////////////////
// Changes screen contrast (0-255; 140 seems good)
//
int MtxOrb_contrast(int contrast) 
{
  char out[4];
  static int status=140;

  if(contrast > 0)
  {
     status=contrast;
     sprintf(out, "%cP%c", 254, status);
     write(fd, out, 3);
  }

  return status;
}


/////////////////////////////////////////////////////////////////
// Sets the backlight on or off -- can be done quickly for
// an intermediate brightness...
//
void MtxOrb_backlight(int on)
{
  char out[4];
  if(on)
  {
    sprintf(out, "%cB%c", 254, 0);
    write(fd, out, 3);
  }
  else
  {
    sprintf(out, "%cF", 254);
    write(fd, out, 2);
  }
}


/////////////////////////////////////////////////////////////////
// Sets output port on or off
void MtxOrb_output(int on)
{
   char out[4];
   if(on)
   {
      sprintf(out, "%cW", 254);
      write(fd, out, 2);
   }
   else
   {
      sprintf(out, "%cV", 254);
      write(fd, out, 2);
   }
}


/////////////////////////////////////////////////////////////////
// Toggle the built-in linewrapping feature
//
static void MtxOrb_linewrap(int on)
{
  char out[4];
  if(on)
    sprintf(out, "%cC", 254);
  else
    sprintf(out, "%cD", 254);
  write(fd, out, 2);
}


/////////////////////////////////////////////////////////////////
// Toggle the built-in automatic scrolling feature
//
static void MtxOrb_autoscroll(int on)
{
   char out[4];
   if(on)
     sprintf(out, "%cQ", 254);
   else
     sprintf(out, "%cR", 254);
   write(fd, out, 2);
}


// TODO: make sure this doesn't mess up non-VFD displays
/////////////////////////////////////////////////////////////////
// Toggle cursor blink on/off
//
static void MtxOrb_cursorblink(int on)
{
   char out[4];
   if (on)
     sprintf(out, "%cS", 254);
   else
     sprintf(out, "%cT", 254);
   write(fd, out, 2);
}


//// TODO: Might not be needed anymore...
/////////////////////////////////////////////////////////////////
// Sets up for vertical bars.  Call before lcd.vbar()
//
void MtxOrb_init_vbar() 
{
  MtxOrb_init_all(vbar);
}

// TODO: Might not be needed anymore...
/////////////////////////////////////////////////////////////////
// Inits horizontal bars...
//
void MtxOrb_init_hbar() 
{
  MtxOrb_init_all(hbar);
}

// TODO: Finish the support for bar growing reverse way.
// TODO: Need a "y" as input also !!!
/////////////////////////////////////////////////////////////////
// Draws a vertical bar...
// This is the new version ussing dynamic icon alocation
//
void MtxOrb_vbar(int x, int len) 
{
  unsigned char mapu[9]={barw,baru1,baru2,baru3,baru4,baru5,baru6,baru7,barb};
  unsigned char mapd[9]={barw,bard1,bard2,bard3,bard4,bard5,bard6,bard7,barb};
  
  int y;

// TODO: REMOVE THE NEXT LINE FOR TESTING ONLY...
//  len=-len;
// TODO: REMOVE THE PREVIOUS LINE FOR TESTING ONLY...

  if(len>0){
    for(y=lcd.hgt; y > 0 && len>0; y--)
      {
        if(len >= lcd.cellhgt) MtxOrb_chr(x, y, 255);
        else MtxOrb_chr(x, y, MtxOrb_ask_bar(mapu[len])); 

        len -= lcd.cellhgt;
      }
  }else{
     len=-len;
     for(y=2; y <= lcd.hgt && len>0; y++)
       {
       if(len >= lcd.cellhgt) MtxOrb_chr(x, y, 255);
       else MtxOrb_chr(x, y, MtxOrb_ask_bar(mapd[len])); 

       len -= lcd.cellhgt;
       }
  }
  
}

// TODO: Finish the support for bar growing reverse way.
/////////////////////////////////////////////////////////////////
// Draws a horizontal bar to the right.
// This is the new version ussing dynamic icon alocation
//
void MtxOrb_hbar(int x, int y, int len)
{
  unsigned char mapr[6]={barw,barr1,barr2,barr3,barr4,barb};
  unsigned char mapl[6]={barw,barl1,barl2,barl3,barl4,barb};

  if(len>0)
  {
  for(; x<=lcd.wid && len>0; x++)
    {
      if(len >= lcd.cellwid) MtxOrb_chr(x,y,255);
      else MtxOrb_chr(x, y, MtxOrb_ask_bar(mapr[len]));
      
      len -= lcd.cellwid;
      
    }
  }
  else
  {
  len=-len;
  for(; x>0 && len>0; x--)
    {
      if(len >= lcd.cellwid) MtxOrb_chr(x,y,255);
      else MtxOrb_chr(x, y, MtxOrb_ask_bar(mapl[len]));
      
      len -= lcd.cellwid;
      
    }
  }

}

// TODO: Might not work, bignum is untested... an untested with dynamic bar.

/////////////////////////////////////////////////////////////////
// Sets up for big numbers.
//
void MtxOrb_init_num() 
{
  char out[3];
  if(custom!=bign) {
    sprintf(out, "%cn", 254);
    write(fd, out, 2);
    custom=bign;
  }
}

// TODO: Might not work, bignum is untested... an untested with dynamic bar.

/////////////////////////////////////////////////////////////////
// Writes a big number.
//
void MtxOrb_num(int x, int num) 
{
  char out[5];
  sprintf(out, "%c#%c%c", 254, x, num);
  write(fd, out, 4);
}


// TODO: This could be higly optimised if data where to be pre-computed.

/////////////////////////////////////////////////////////////////
// Sets a custom character from 0-7...
//
// For input, values > 0 mean "on" and values <= 0 are "off".
//
// The input is just an array of characters...
//
void MtxOrb_set_char(int n, char *dat)
{
  char out[4];
  int row, col;
  int letter;

  if(n < 0 || n > 7) return;
  if(!dat) return;

  sprintf(out, "%cN%c", 254, n);
  write(fd, out, 3);
  
  for(row=0; row<lcd.cellhgt; row++)
  {
    letter = 0;
    for(col=0; col<lcd.cellwid; col++)
    {
      letter <<= 1;
      letter |= (dat[(row*lcd.cellwid) + col] > 0);
    }
    write(fd, &letter, 1);
  }
}


void MtxOrb_icon(int which, char dest)
{
  char icons[3][5*8] = {
   {
     1,1,1,1,1,  // Empty Heart
     1,0,1,0,1,
     0,0,0,0,0,
     0,0,0,0,0,
     0,0,0,0,0,
     1,0,0,0,1,
     1,1,0,1,1,
     1,1,1,1,1,
   },   

   {
     1,1,1,1,1,  // Filled Heart
     1,0,1,0,1,
     0,1,0,1,0,
     0,1,1,1,0,
     0,1,1,1,0,
     1,0,1,0,1,
     1,1,0,1,1,
     1,1,1,1,1,
   },
   
   {
     0,0,0,0,0,  // Ellipsis
     0,0,0,0,0,
     0,0,0,0,0,
     0,0,0,0,0,
     0,0,0,0,0,
     0,0,0,0,0,
     0,0,0,0,0,
     1,0,1,0,1,
   },
   
  };
  
  if(custom==bign) custom=beat;
  MtxOrb_set_char(dest, &icons[which][0]);
}

/////////////////////////////////////////////////////////////
// Blasts a single frame onscreen, to the lcd...
//
// Input is a character array, sized lcd.wid*lcd.hgt
//
void MtxOrb_draw_frame(char *dat)
{
  char out[LCD_MAX_WIDTH * LCD_MAX_HEIGHT];
  int i;
  
  if(!dat) return;

  for(i=0; i<lcd.hgt; i++)
  {
     sprintf(out, "%cG%c%c", 254, 1, i+1);
     write(fd, out, 4);
     write(fd, dat+(lcd.wid*i), lcd.wid);
  }

}



/////////////////////////////////////////////////////////////
// returns one character from the keypad...
// (A-Z) on success, 0 on failure...
//
char MtxOrb_getkey()
{
  char in = 0;
  read(fd, &in, 1);
  return in;
}

void MtxOrb_led(int which, int on)
{
  char out[4];

  if(which < 0 || which > 7) return;

  if(!which){
    if(on)
      sprintf(out, "%cV", 254);
    else
      sprintf(out, "%cW", 254);
    write(fd, out, 2);
    }
  else{
    if(on)
      sprintf(out, "%cV%c", 254, which);
    else
      sprintf(out, "%cW%c", 254, which);
    write(fd, out, 3);
    }
}


/////////////////////////////////////////////////////////////////
// Ask for dynamic allocation of a custom caracter to be
//  a well none bar graphic. The function is suppose to
//  return a value between 0 and 7 but 0 is reserver for
//  heart beat.
//  This function manadge a cache of graphical caracter in use.
//  I really hope it is working and bug-less because it is not
//  completely tested, just a quick hack.
//
int MtxOrb_ask_bar(int type) 
{
   int i;
   int last_not_in_use;
   int pos; // 0 is icon, 1 to 7 are free, 8 is not found.
   // TODO: Reuse graphic caracter 0 if heartbeat is not in use.

   // REMOVE: fprintf(stderr, "GLU: MtxOrb_ask_bar(%d).\n", type);
   // Check if the screen was clear.
   if (clear){ // If the screen was clear then graphic caracter are not in use.
      //REMOVE: fprintf(stderr, "GLU: MtxOrb_ask_bar| clear was set.\n");
      use[0]=1; // Heartbeat is always in use (not true but it help).
      for(pos=1; pos<8; pos++){
         use[pos]=0; // Other are not in use.
      }
      clear=0; // We made the special treatement.
   }else{
      // Nothing special if some caracter a curently in use (...) ?
   }

   // Search for a match with caracter already defined.
   pos=8;                                       // Not found.
   last_not_in_use=8;                   // No empty slot to reuse.
   for(i=1; i<8; i++){                  // For all but first (heartbeat).
      if(!use[i]) last_not_in_use=i;    // New empty slot.
      if(def[i]==type) pos=i;           // Founded (should break now).
   }
   
   if (pos==8){
      // REMOVE: fprintf(stderr, "GLU: MtxOrb_ask_bar| not found.\n");
      pos=last_not_in_use;
      // TODO: Best match/deep search is no more graphic caracter are available.
   }
   
   if (pos!=8){ // A caracter is found (Best match could solve our problem).
      // REMOVE: fprintf(stderr, "GLU: MtxOrb_ask_bar| found at %d.\n", pos);
      if(def[pos]!=type){
         MtxOrb_set_known_char(pos, type); // Define a new graphic caracter.
         def[pos]=type; // Remember that now the caracter is available.
      }
      if (!use[pos]){ // If the caracter is no yet in use (but defined).
         use[pos]=1; // Remember it is in use (so protect it from re-use).
      }
   }
   
   if (pos==8) // TODO: Choose a character to approximate the graph
   {
      //pos=65; // ("A")?
      switch(type)
      {
         case baru1: pos='_'; break;
         case baru2: pos='.'; break;
         case baru3: pos=','; break;
         case baru4: pos='o'; break;
         case baru5: pos='o'; break;
         case baru6: pos='O'; break;
         case baru7: pos='8'; break;

         case bard1: pos='\''; break;
         case bard2: pos='"'; break;
         case bard3: pos='^'; break;
         case bard4: pos='^'; break;
         case bard5: pos='*'; break;
         case bard6: pos='O'; break;
         case bard7: pos='8'; break;

         case barr1: pos='-'; break;
         case barr2: pos='-'; break;
         case barr3: pos='='; break;
         case barr4: pos='='; break;

         case barl1: pos='-'; break;
         case barl2: pos='-'; break;
         case barl3: pos='='; break;
         case barl4: pos='='; break;

         case barw: pos=' '; break;

         case barb: pos=255; break;

         default: pos='?'; break;
      }
   }
   
   return(pos);
}


/////////////////////////////////////////////////////////////////
// Sets up a well known character for use.
//
void MtxOrb_set_known_char(int car, int type)
{
   char all_bar[25][5*8] = {
      {
         0,0,0,0,0, //  char u1[] = 
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         1,1,1,1,1,
      },{
         0,0,0,0,0, //  char u2[] = 
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         1,1,1,1,1,
         1,1,1,1,1,
      },{
         0,0,0,0,0, //  char u3[] = 
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
      },{
         0,0,0,0,0, //  char u4[] = 
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
      },{
         0,0,0,0,0, //  char u5[] = 
         0,0,0,0,0,
         0,0,0,0,0,
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
      },{
         0,0,0,0,0, //  char u6[] = 
         0,0,0,0,0,
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
      },{
         0,0,0,0,0, //  char u7[] = 
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
      },{
         1,1,1,1,1, //  char d1[] = 
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
      },{
         1,1,1,1,1, //  char d2[] = 
         1,1,1,1,1,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
      },{
         1,1,1,1,1, //  char d3[] = 
         1,1,1,1,1,
         1,1,1,1,1,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
      },{
         1,1,1,1,1, //  char d4[] = 
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
      },{
         1,1,1,1,1, //  char d5[] = 
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
      },{
         1,1,1,1,1, //  char d6[] = 
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
         0,0,0,0,0,
         0,0,0,0,0,
      },{
         1,1,1,1,1, //  char d7[] = 
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
         1,1,1,1,1,
         0,0,0,0,0,
      },{
         1,0,0,0,0, //  char r1[] = 
         1,0,0,0,0,
         1,0,0,0,0,
         1,0,0,0,0,
         1,0,0,0,0,
         1,0,0,0,0,
         1,0,0,0,0,
         1,0,0,0,0,
      },{
         1,1,0,0,0, //  char r2[] = 
         1,1,0,0,0,
         1,1,0,0,0,
         1,1,0,0,0,
         1,1,0,0,0,
         1,1,0,0,0,
         1,1,0,0,0,
         1,1,0,0,0,
      },{
         1,1,1,0,0, //  char r3[] = 
         1,1,1,0,0,
         1,1,1,0,0,
         1,1,1,0,0,
         1,1,1,0,0,
         1,1,1,0,0,
         1,1,1,0,0,
         1,1,1,0,0,
      },{
         1,1,1,1,0, //  char r4[] = 
         1,1,1,1,0,
         1,1,1,1,0,
         1,1,1,1,0,
         1,1,1,1,0,
         1,1,1,1,0,
         1,1,1,1,0,
         1,1,1,1,0,
      },{
         0,0,0,0,1, //  char l1[] = 
         0,0,0,0,1,
         0,0,0,0,1,
         0,0,0,0,1,
         0,0,0,0,1,
         0,0,0,0,1,
         0,0,0,0,1,
         0,0,0,0,1,
      },{
         0,0,0,1,1, //  char l2[] = 
         0,0,0,1,1,
         0,0,0,1,1,
         0,0,0,1,1,
         0,0,0,1,1,
         0,0,0,1,1,
         0,0,0,1,1,
         0,0,0,1,1,
      },{
         0,0,1,1,1, //  char l3[] = 
         0,0,1,1,1,
         0,0,1,1,1,
         0,0,1,1,1,
         0,0,1,1,1,
         0,0,1,1,1,
         0,0,1,1,1,
         0,0,1,1,1,
      },{
         0,1,1,1,1, //  char l4[] = 
         0,1,1,1,1,
         0,1,1,1,1,
         0,1,1,1,1,
         0,1,1,1,1,
         0,1,1,1,1,
         0,1,1,1,1,
         0,1,1,1,1,
      },{
         1,1,1,1,1,  // Empty Heart
         1,0,1,0,1,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         1,0,0,0,1,
         1,1,0,1,1,
         1,1,1,1,1,
      },{
         1,1,1,1,1,  // Filled Heart
         1,0,1,0,1,
         0,1,0,1,0,
         0,1,1,1,0,
         0,1,1,1,0,
         1,0,1,0,1,
         1,1,0,1,1,
         1,1,1,1,1,
      },{
         0,0,0,0,0,  // Ellipsis
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         0,0,0,0,0,
         1,0,1,0,1,
      }
};

MtxOrb_set_char(car, &all_bar[type][0]);
}



/////////////////STOP READING --- TRASH IS AT THE END////////////////



// TODO: Remove this code wich was use for developpement.
// PS: There might be reference to this code left, so keep it for some time.
void MtxOrb_init_all(int type) 
{
}

// TODO: Remove this code wich was use for developpement.
// PS: That was the code to define unidirectionnal [h|v]bar.
/*
  if(type==hbar){
    if(custom!=hbar) {
      MtxOrb_set_known_char(1, barr1);
      MtxOrb_set_known_char(2, barr2);
      MtxOrb_set_known_char(3, barr3);
      MtxOrb_set_known_char(4, barr4);
      custom=hbar;
    }
  }

  if(type==vbar){
    if(custom!=vbar) {
      MtxOrb_set_known_char(1, baru1);
      MtxOrb_set_known_char(2, baru2);
      MtxOrb_set_known_char(3, baru3);
      MtxOrb_set_known_char(4, baru4);
      MtxOrb_set_known_char(5, baru5);
      MtxOrb_set_known_char(6, baru6);
      MtxOrb_set_known_char(7, baru7);
      custom=vbar;
    }
  }
*/


// TODO: Remove this code wich was use for developpement.
// PS: It was a good idea, but not working (fixing take to much time).
/*
void MtxOrb_icon(int which, char dest)
{
  if(custom==bign) custom=beat;
  MtxOrb_set_known_char(dest, which+21);
}
*/


// TODO: Remove this code wich was use for developpement.
// PS: Temporary code used durring developpement of dynamic bar.
/*
    if(type==barr1)return(1);
    if(type==barr2)return(2);
    if(type==barr3)return(3);
    if(type==barr4)return(4);
    if(type==baru1)return(1);
    if(type==baru2)return(2);
    if(type==baru3)return(3);
    if(type==baru4)return(4);
    if(type==baru5)return(5);
    if(type==baru6)return(6);
    if(type==baru7)return(7);
*/