//---------------------------------------------------------------------------
// Generowanie kodow kreskowych Extended CODE 93
// www.algorytm.org
// (c)2006 Tomasz Lubinski
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

char special_1 = 127 + 1; // ($)
char special_2 = 127 + 2; // (%)
char special_3 = 127 + 3; // (/)
char special_4 = 127 + 4; // (+)

char code93sign[47] = {
      '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
      'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J',
      'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T',
      'U', 'V', 'W', 'X', 'Y', 'Z', '-', '.', ' ', '$',
      '/', '+', '%', special_1, special_2, special_3, special_4};
      
char code93bars[47][9] = {
        {1, 0, 0, 0, 1, 0, 1, 0, 0},
        {1, 0, 1, 0, 0, 1, 0, 0, 0},
        {1, 0, 1, 0, 0, 0, 1, 0, 0},
        {1, 0, 1, 0, 0, 0, 0, 1, 0},
        {1, 0, 0, 1, 0, 1, 0, 0, 0},
        {1, 0, 0, 1, 0, 0, 1, 0, 0},
        {1, 0, 0, 1, 0, 0, 0, 1, 0},
        {1, 0, 1, 0, 1, 0, 0, 0, 0},
        {1, 0, 0, 0, 1, 0, 0, 1, 0},
        {1, 0, 0, 0, 0, 1, 0, 1, 0},
        {1, 1, 0, 1, 0, 1, 0, 0, 0},
        {1, 1, 0, 1, 0, 0, 1, 0, 0},
        {1, 1, 0, 1, 0, 0, 0, 1, 0},
        {1, 1, 0, 0, 1, 0, 1, 0, 0},
        {1, 1, 0, 0, 1, 0, 0, 1, 0},
        {1, 1, 0, 0, 0, 1, 0, 1, 0},
        {1, 0, 1, 1, 0, 1, 0, 0, 0},
        {1, 0, 1, 1, 0, 0, 1, 0, 0},
        {1, 0, 1, 1, 0, 0, 0, 1, 0},
        {1, 0, 0, 1, 1, 0, 1, 0, 0},
        {1, 0, 0, 0, 1, 1, 0, 1, 0},
        {1, 0, 1, 0, 1, 1, 0, 0, 0},
        {1, 0, 1, 0, 0, 1, 1, 0, 0},
        {1, 0, 1, 0, 0, 0, 1, 1, 0},
        {1, 0, 0, 1, 0, 1, 1, 0, 0},
        {1, 0, 0, 0, 1, 0, 1, 1, 0},
        {1, 1, 0, 1, 1, 0, 1, 0, 0},
        {1, 1, 0, 1, 1, 0, 0, 1, 0},
        {1, 1, 0, 1, 0, 1, 1, 0, 0},
        {1, 1, 0, 1, 0, 0, 1, 1, 0},
        {1, 1, 0, 0, 1, 0, 1, 1, 0},
        {1, 1, 0, 0, 1, 1, 0, 1, 0},
        {1, 0, 1, 1, 0, 1, 1, 0, 0},
        {1, 0, 1, 1, 0, 0, 1, 1, 0},
        {1, 0, 0, 1, 1, 0, 1, 1, 0},
        {1, 0, 0, 1, 1, 1, 0, 1, 0},
        {1, 0, 0, 1, 0, 1, 1, 1, 0},
        {1, 1, 1, 0, 1, 0, 1, 0, 0},
        {1, 1, 1, 0, 1, 0, 0, 1, 0},
        {1, 1, 1, 0, 0, 1, 0, 1, 0},
        {1, 0, 1, 1, 0, 1, 1, 1, 0},
        {1, 0, 1, 1, 1, 0, 1, 1, 0},
        {1, 1, 0, 1, 0, 1, 1, 1, 0},
        {1, 0, 0, 1, 0, 0, 1, 1, 0},
        {1, 1, 1, 0, 1, 1, 0, 1, 0},
        {1, 1, 1, 0, 1, 0, 1, 1, 0},
        {1, 0, 0, 1, 1, 0, 0, 1, 0}
        };
        
char *extendedCode93Replace [128] = {
        "\x81""U", "\x80""A", "\x80""B", "\x80""C", "\x80""D", "\x80""E", "\x80""F", "\x80""G", "\x80""H",
        "\x80""I", "\x80""J", "\x80""K", "\x80""L", "\x80""M", "\x80""N", "\x80""O", "\x80""P", "\x80""Q",
        "\x80""R", "\x80""S", "\x80""T", "\x80""U", "\x80""V", "\x80""W", "\x80""X", "\x80""Y", "\x80""Z",
        "\x81""A", "\x81""B", "\x81""C", "\x81""D", "\x81""E", " ", "\x82""A", "\x82""B", "\x82""C", "\x82""D",
         "\x82""E", "\x82""F", "\x82""G", "\x82""H", "\x82""I", "\x82""J", "\x82""K", "\x82""L", "-", ".", 
         "\x82""O", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "\x82""Z", "\x81""F", "\x81""G", "\x81""H",
        "\x81""I", "\x81""J", "\x81""V", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O",
        "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "\x81""K", "\x81""L", "\x81""M", "\x81""N",
        "\x81""O", "\x81""W", "\x83""A", "\x83""B", "\x83""C", "\x83""D", "\x83""E", "\x83""F", "\x83""G",
        "\x83""H", "\x83""I", "\x83""J", "\x83""K", "\x83""L", "\x83""M", "\x83""N", "\x83""O", "\x83""P",
        "\x83""Q", "\x83""R", "\x83""S", "\x83""T", "\x83""U", "\x83""V", "\x83""W", "\x83""X", "\x83""Y", 
        "\x83""Z", "\x81""P", "\x81""Q", "\x81""R", "\x81""S", "\x81""T"
        };

char start_stop[9] = { 
        1, 0, 1, 0, 1, 1, 1, 1, 0
        };

TForm1 *Form1;
int curentPos;

//converts to code 93 set of characters
char* convert(char *txt, char *result)
{
        char *incorrect = "\x84";
        result[0] = 0;

        for (unsigned int i=0; i<strlen(txt); i++)
        {
                if ((txt[i] >= 0) && (txt[i] <= 127))
                        result = strcat(result, extendedCode93Replace[txt[i]]);
                else
                        result = strcat(result, incorrect);
        }

        return result;
}

// returns 1 if letter is correct, 0 otherwise
int checkLetter(char ch)
{
        for (int i=0; i<47; i++)
                if (code93sign[i] == ch)
                        return 1;

        return 0;
}

// reurns 1 if txt is correct, 0 otherwise
int check(char *txt)
{
        for (unsigned int i=0; i<strlen(txt); i++)
                if (checkLetter(txt[i]) == 0)
                        return 0;

        return 1;
}

// returns letter value for check digit
int getLetterValue(char ch)
{
        for (int i=0; i<47; i++)
                if (code93sign[i] == ch)
                        return i;

        return 0;
}

// return check digit C
int checkDigitC(char *txt)
{
        int sum = 0;
        int w = 0;

        for (int i=strlen(txt)-1; i>=0; i--)
        {
                sum += (getLetterValue(txt[i]) * ((w % 20) + 1));
                w++;
        }

        return (sum % 47);

}

// return check digit K
int checkDigitK(char *txt, char checkDigitC)
{
        int sum = checkDigitC;
        int w = 1;

        for (int i=strlen(txt)-1; i>=0; i--)
        {
                sum += (getLetterValue(txt[i]) * ((w % 15) + 1));
                w++;
        }

        return (sum % 47);

}


void drawSignBars(char bars[])
{
        Form1->Image1->Canvas->Brush->Color = clBlack;

        //print bars
        for (int i=0; i<9; i++)
        {
                if (bars[i] == 1)
                        Form1->Image1->Canvas->Rectangle(curentPos + 20, 10, curentPos + 22, 100);

                curentPos += 2;
        }   
}

void drawTerminationBar()
{
        Form1->Image1->Canvas->Brush->Color = clBlack;

        Form1->Image1->Canvas->Rectangle(curentPos + 20, 10, curentPos + 22, 100);

        curentPos += 2;
}

void drawBars(char *txt, char *converted)
{
        char c, k;
        
        c = checkDigitC(converted);
        k = checkDigitK(converted, c);
        
        curentPos = 0;
        Form1->Image1->Canvas->Brush->Color = clWhite;
        Form1->Image1->Canvas->Rectangle(0, 0, 441, 121);

        //print start character
        drawSignBars(start_stop);
        
        //print characters
        for (unsigned int i=0; i<strlen(converted); i++)
                for (int j=0; j<47; j++)
                        if (code93sign[j] == converted[i])
                        {
                                drawSignBars(code93bars[j]);
                                break;
                        }        

        //print check digit C
        drawSignBars(code93bars[c]);
        
        //print check digit K
        drawSignBars(code93bars[k]);        

        //print stop character
        drawSignBars(start_stop);

        //print termination bar
        drawTerminationBar();
        
        //Draw text
        Form1->Image1->Canvas->Font->Size = 10;
        Form1->Image1->Canvas->Brush->Color = clWhite;
        Form1->Image1->Canvas->Font->Color = clBlack;
        Form1->Image1->Canvas->TextOut(curentPos/2 + 20 - strlen(txt)*3, 100, txt);        
}

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button1Click(TObject *Sender)
{
        char converted[1000];

        convert(Kod->Text.c_str(), converted);

        if (check(converted) == 0)
        {
                ShowMessage("Incorrect text ");
                return;
        }

        drawBars(Kod->Text.c_str(), converted);
}
//---------------------------------------------------------------------------