printbarcode.pas

条形码编码算法

    Sender.Rectangle(StartX,StartY,TotalWide + StartX,ThisHeight + StartY + (11 * wide));
    Sender.Brush.color := Self.Color;
   if Sender = Self.canvas then
   with  self, canvas do
  BEGIN
  Pen.Color := Self.color;
  Rectangle(0,0,width,height);
  END;
   if Ean13 then
   BEGIN
   Sender.textout(5 * wide + StartX,ThisHeight + StartY ,s[1]);{- allows for char leadin}
   StartX := StartX + 11*Wide;
   END
   ELSE
   StartX := StartX + 7 * Wide;
   StartY := StartY + Wide;

  END {not FAutoSizing}
  ELSE
  BEGIN
    IF ean13 then
    BEGIN
    Min := trunc(UsePixelsPerInchX * 1.22 * 0.7 / 95) + 1;{no mag < 0.7}
    Wide := round(UsePixelsPerInchX * 1.23 * FMagnification / 95)    ;{1.23" = 31.35mm = X 1 magnification ie standard}
    if Wide < min then wide := min; {stop rounding below 0.8 mag}
    if Wide = 0 then Wide := 1; {screen is 96pixes/inch small just gets in}
    if Sender = Self.Canvas then Self.WIdth :=  Wide * (95+7+11);
    END
    ELSE
    BEGIN
    Min := trunc(UsePixelsPerInchX * 0.86 * 0.7 / 67) + 1;{no mag < 0.7}
    Wide := round(UsePixelsPerInchX * 0.87 * FMagnification / 67)    ;{0.87" = 22.11mm = X 1 magnification ie standard}
    if Wide < min then wide := min; {stop rounding below 0.8 mag}
    if Wide = 0 then Wide := 1; {screen is 96pixes/inch small just gets in}
    if Sender = Self.Canvas then Self.WIdth :=  Wide * (67+7+7);
    END;
    ThisHeight := 55 * Wide;
    if Sender = Self.Canvas then Self.Height :=  ThisHeight + (11 * wide);
    Sender.Font.Name := 'Ariel';
   Sender.Font.Height := Wide * 14;{must be after wide is allocated}
   Sender.Font.Style := [fsBold];
    Sender.Pen.color := Self.color;
    Sender.Rectangle(StartX,StartY,Wide * (67+7+7) + StartX,ThisHeight + StartY + (11 * wide));
    Sender.Brush.color := Self.Color;
    StartX := StartX + 7*Wide;
    StartY := StartY + Wide;
  END;
  if  (Length(s) = 12) or (Length(s) = 7) then {checkdigit}
  BEGIN
    if  (Length(s) = 12) then Mult := 1 else Mult := 3;
    CheckDig := 0;
    for i := 1 to length(s) do
    BEGIN
      Checkdig := CheckDig + mult * (Ord(s[i]) - 48);
      if mult = 3 then mult := 1 else mult := 3;
    END;
    CheckDig := (10 - (CheckDig mod 10));
    if CheckDig = 10 then CheckDig := 0;
    s := s + ' ';
    s[Length(s)] := chr(48 + CheckDig);
  END;

   SLength := length(S);
    StartPoint := 0;

    IF ean13 then EnCode1(s[1])
    else
    BEGIN
      FOR I := 1 to 4 do NumSets[i] := A;
      FOR I := 5 to 8 do NumSets[i] := C;
    END;
    {space at start}
{    for LI := 1 to Leadin do PrintBar(Sender,false,false);}
    {Lead In Symbol}
    PrintBar(Sender,true,true);
    PrintBar(Sender,false,true);
    PrintBar(Sender,true,true);
    if ean13 then si := 2 else si := 1;
    IF EAN13 THEN StopPt := 8 else StopPt := 5;
    REPEAT
      BarChar(s[SI],si);
       SI := SI + 1;
     UNTIL (SI >= StopPt);
    {CENTRE gUARD bARS}
    PrintBar(Sender,false,true);
    PrintBar(Sender,true,true);
    PrintBar(Sender,false,true);
    PrintBar(Sender,true,true);
    PrintBar(Sender,false,true);

    IF EAN13 THEN
    BEGIN
     si := 8;
     StopPt := 14
     END
     else
     BEGIN
     si := 5;
     StopPt := 9;
     END;
    REPEAT
      BarChar(s[SI],si);
      SI := SI + 1;
    UNTIL (SI >= StopPt);
        {Finish Symbol}
    PrintBar(Sender,true,true);
    PrintBar(Sender,false,true);
    PrintBar(Sender,true,true);
    {space at END .. done in rect}
{    for LI := 1 to (Leadin - 1) do PrintBar(Sender,false,true);}

  END;


  PROCEDURE PITF14(S : string; Sender: TCanvas);
VAR CheckDig,mult, i   : integer;
  BEGIN
  if (length(s) < 12)   then
    BEGIN
    if Sender = Self.canvas then
    with  self, canvas do
  BEGIN
  Pen.Color := FBarColor;
  Rectangle(0,0,width,height);
  END;
   exit;
  END;
   if  (Length(s) = 12)  then {checkdigit}
  BEGIN
    Mult := 1;
    CheckDig := 0;
    for i := 1 to length(s) do
    BEGIN
      Checkdig := CheckDig + mult * (Ord(s[i]) - 48);
      if mult = 3 then mult := 1 else mult := 3;
    END;
    CheckDig := (10 - (CheckDig mod 10));
    if CheckDig = 10 then CheckDig := 0;
    s := s + ' ';
    s[Length(s)] := chr(48 + CheckDig);
  END;
   if  (Length(s) = 13)  then  s := '0' + s;
    PI2of5(s,Sender);
  END;




procedure PCode128(S : string; Sender: TCanvas; EAN128 : Boolean);
{EAN 128 ADDS EAN FNC1 .. otherwise Code128 standard}
{Type NumberSet = (A,B,C);}
var Drk : boolean;
     CodeChars : array[1..400] of char;
     CCPtr,  {alway 1 greater than last code added}
     SI : integer;
     Min, ThisHeight : integer;

{    CheckDig, Mult, TotalWide : integer;}
{    Code128 : boolean; {else Code1288}
{     StopPt : integer;}


PROCEDURE  printbar(Sender : TCanvas; drk: boolean; NoOfWide : integer); {Uses global vars so all procs can call}
var  Barwidth : integer;
BEGIN

  with  Sender do
  BEGIN
  if drk then Pen.Color := FBarColor else  Pen.Color := Self.color;
  if drk then  Brush.Color := FBarColor else Brush.Color := Self.color;
  Barwidth := Wide * NoOfWide;
  Rectangle(StartPOint + StartX,0+ StartY,StartPOint + BarWidth + StartX,ThisHeight + StartY {+ (5 * wide)});
  StartPoint := StartPOint + BarWidth;

  END
END;


PROCEDURE barchar(ch : char);
Var i : integer;
   BarWidths : array[1..6] of integer;

PROCEDURE EnCode(ch : char);
BEGIN
  CASE ord(ch) of
  0 : BEGIN BarWidths[1] := 2; BarWidths[2] := 1; BarWidths[3] := 2;
            BarWidths[4] := 2; BarWidths[5] := 2; BarWidths[6] := 2; END;
  1 : BEGIN BarWidths[1] := 2; BarWidths[2] := 2; BarWidths[3] := 2;
            BarWidths[4] := 1; BarWidths[5] := 2; BarWidths[6] := 2; END;
  2 : BEGIN BarWidths[1] := 2; BarWidths[2] := 2; BarWidths[3] := 2;
            BarWidths[4] := 2; BarWidths[5] := 2; BarWidths[6] := 1; END;
  3 : BEGIN BarWidths[1] := 1; BarWidths[2] := 2; BarWidths[3] := 1;
            BarWidths[4] := 2; BarWidths[5] := 2; BarWidths[6] := 3; END;
  4 : BEGIN BarWidths[1] := 1; BarWidths[2] := 2; BarWidths[3] := 1;
            BarWidths[4] := 3; BarWidths[5] := 2; BarWidths[6] := 2; END;
  5 : BEGIN BarWidths[1] := 1; BarWidths[2] := 3; BarWidths[3] := 1;
            BarWidths[4] := 2; BarWidths[5] := 2; BarWidths[6] := 2; END;
  6 : BEGIN BarWidths[1] := 1; BarWidths[2] := 2; BarWidths[3] := 2;
            BarWidths[4] := 2; BarWidths[5] := 1; BarWidths[6] := 3; END;
  7 : BEGIN BarWidths[1] := 1; BarWidths[2] := 2; BarWidths[3] := 2;
            BarWidths[4] := 3; BarWidths[5] := 1; BarWidths[6] := 2; END;
  8 : BEGIN BarWidths[1] := 1; BarWidths[2] := 3; BarWidths[3] := 2;
            BarWidths[4] := 2; BarWidths[5] := 1; BarWidths[6] := 2; END;
  9 : BEGIN BarWidths[1] := 2; BarWidths[2] := 2; BarWidths[3] := 1;
            BarWidths[4] := 2; BarWidths[5] := 1; BarWidths[6] := 3; END;
  10: BEGIN BarWidths[1] := 2; BarWidths[2] := 2; BarWidths[3] := 1;
            BarWidths[4] := 3; BarWidths[5] := 1; BarWidths[6] := 2; END;
  11: BEGIN BarWidths[1] := 2; BarWidths[2] := 3; BarWidths[3] := 1;
            BarWidths[4] := 2; BarWidths[5] := 1; BarWidths[6] := 2; END;
  12 : BEGIN BarWidths[1] := 1; BarWidths[2] := 1; BarWidths[3] := 2;
            BarWidths[4] := 2; BarWidths[5] := 3; BarWidths[6] := 2; END;
  13: BEGIN BarWidths[1] := 1; BarWidths[2] := 2; BarWidths[3] := 2;
            BarWidths[4] := 1; BarWidths[5] := 3; BarWidths[6] := 2; END;
  14: BEGIN BarWidths[1] := 1; BarWidths[2] := 2; BarWidths[3] := 2;
            BarWidths[4] := 2; BarWidths[5] := 3; BarWidths[6] := 1; END;
  15: BEGIN BarWidths[1] := 1; BarWidths[2] := 1; BarWidths[3] := 3;
            BarWidths[4] := 2; BarWidths[5] := 2; BarWidths[6] := 2; END;
  16: BEGIN BarWidths[1] := 1; BarWidths[2] := 2; BarWidths[3] := 3;
            BarWidths[4] := 1; BarWidths[5] := 2; BarWidths[6] := 2; END;
  17: BEGIN BarWidths[1] := 1; BarWidths[2] := 2; BarWidths[3] := 3;
            BarWidths[4] := 2; BarWidths[5] := 2; BarWidths[6] := 1; END;
  18: BEGIN BarWidths[1] := 2; BarWidths[2] := 2; BarWidths[3] := 3;
            BarWidths[4] := 2; BarWidths[5] := 1; BarWidths[6] := 1; END;
  19: BEGIN BarWidths[1] := 2; BarWidths[2] := 2; BarWidths[3] := 1;
            BarWidths[4] := 1; BarWidths[5] := 3; BarWidths[6] := 2; END;
  20: BEGIN BarWidths[1] := 2; BarWidths[2] := 2; BarWidths[3] := 1;
            BarWidths[4] := 2; BarWidths[5] := 3; BarWidths[6] := 1; END;
  21: BEGIN BarWidths[1] := 2; BarWidths[2] := 1; BarWidths[3] := 3;
            BarWidths[4] := 2; BarWidths[5] := 1; BarWidths[6] := 2; END;
  22: BEGIN BarWidths[1] := 2; BarWidths[2] := 2; BarWidths[3] := 3;
            BarWidths[4] := 1; BarWidths[5] := 1; BarWidths[6] := 2; END;
  23: BEGIN BarWidths[1] := 3; BarWidths[2] := 1; BarWidths[3] := 2;
            BarWidths[4] := 1; BarWidths[5] := 3; BarWidths[6] := 1; END;
  24: BEGIN BarWidths[1] := 3; BarWidths[2] := 1; BarWidths[3] := 1;
            BarWidths[4] := 2; BarWidths[5] := 2; BarWidths[6] := 2; END;
  25: BEGIN BarWidths[1] := 3; BarWidths[2] := 2; BarWidths[3] := 1;
            BarWidths[4] := 1; BarWidths[5] := 2; BarWidths[6] := 2; END;
  26: BEGIN BarWidths[1] := 3; BarWidths[2] := 2; BarWidths[3] := 1;
            BarWidths[4] := 2; BarWidths[5] := 2; BarWidths[6] := 1; END;
  27: BEGIN BarWidths[1] := 3; BarWidths[2] := 1; BarWidths[3] := 2;
            BarWidths[4] := 2; BarWidths[5] := 1; BarWidths[6] := 2; END;
  28: BEGIN BarWidths[1] := 3; BarWidths[2] := 2; BarWidths[3] := 2;
            BarWidths[4] := 1; BarWidths[5] := 1; BarWidths[6] := 2; END;
  29: BEGIN BarWidths[1] := 3; BarWidths[2] := 2; BarWidths[3] := 2;
            BarWidths[4] := 2; BarWidths[5] := 1; BarWidths[6] := 1; END;
  30: BEGIN BarWidths[1] := 2; BarWidths[2] := 1; BarWidths[3] := 2;
            BarWidths[4] := 1; BarWidths[5] := 2; BarWidths[6] := 3; END;
  31: BEGIN BarWidths[1] := 2; BarWidths[2] := 1; BarWidths[3] := 2;
            BarWidths[4] := 3; BarWidths[5] := 2; BarWidths[6] := 1; END;
  32: BEGIN BarWidths[1] := 2; BarWidths[2] := 3; BarWidths[3] := 2;
            BarWidths[4] := 1; BarWidths[5] := 2; BarWidths[6] := 1; END;
  33: BEGIN BarWidths[1] := 1; BarWidths[2] := 1; BarWidths[3] := 1;
            BarWidths[4] := 3; BarWidths[5] := 2; BarWidths[6] := 3; END;
  34: BEGIN BarWidths[1] := 1; BarWidths[2] := 3; BarWidths[3] := 1;
            BarWidths[4] := 1; BarWidths[5] := 2; BarWidths[6] := 3; END;
  35: BEGIN BarWidths[1] := 1; BarWidths[2] := 3; BarWidths[3] := 1;
            BarWidths[4] := 3; BarWidths[5] := 2; BarWidths[6] := 1; END;
  36: BEGIN BarWidths[1] := 1; BarWidths[2] := 1; BarWidths[3] := 2;
            BarWidths[4] := 3; BarWidths[5] := 1; BarWidths[6] := 3; END;
  37: BEGIN BarWidths[1] := 1; BarWidths[2] := 3; BarWidths[3] := 2;
            BarWidths[4] := 1; BarWidths[5] := 1; BarWidths[6] := 3; END;
  38: BEGIN BarWidths[1] := 1; BarWidths[2] := 3; BarWidths[3] := 2;
            BarWidths[4] := 3; BarWidths[5] := 1; BarWidths[6] := 1; END;
  39: BEGIN BarWidths[1] := 2; BarWidths[2] := 1; BarWidths[3] := 1;
            BarWidths[4] := 3; BarWidths[5] := 1; BarWidths[6] := 3; END;
  40: BEGIN BarWidths[1] := 2; BarWidths[2] := 3; BarWidths[3] := 1;
            BarWidths[4] := 1; BarWidths[5] := 1; BarWidths[6] := 3; END;
  41: BEGIN BarWidths[1] := 2; BarWidths[2] := 3; BarWidths[3] := 1;
            BarWidths[4] := 3; BarWidths[5] := 1; BarWidths[6] := 1; END;
  42: BEGIN BarWidths[1] := 1; BarWidths[2] := 1; BarWidths[3] := 2;
            BarWidths[4] := 1; BarWidths[5] := 3; BarWidths[6] := 3; END;
  43: BEGIN BarWidths[1] := 1; BarWidths[2] := 1; BarWidths[3] := 2;
            BarWidths[4] := 3; BarWidths[5] := 3; BarWidths[6] := 1; END;
  44: BEGIN BarWidths[1] := 1; BarWidths[2] := 3; BarWidths[3] := 2;
            BarWidths[4] := 1; BarWidths[5] := 3; BarWidths[6] := 1; END;
  45: BEGIN BarWidths[1] := 1; BarWidths[2] := 1; BarWidths[3] := 3;
            BarWidths[4] := 1; BarWidths[5] := 2; BarWidths[6] := 3; END;
  46: BEGIN BarWidths[1] := 1; BarWidths[2] := 1; BarWidths[3] := 3;
            BarWidths[4] := 3; BarWidths[5] := 2; BarWidths[6] := 1; END;
  47: BEGIN BarWidths[1] := 1; BarWidths[2] := 3; BarWidths[3] := 3;
            BarWidths[4] := 1; BarWidths[5] := 2; BarWidths[6] := 1; END;
  48: BEGIN BarWidths[1] := 3; BarWidths[2] := 1; BarWidths[3] := 3;
            BarWidths[4] := 1; BarWidths[5] := 2; BarWidths[6] := 1; END;
  49: BEGIN BarWidths[1] := 2; BarWidths[2] := 1; BarWidths[3] := 1;
            BarWidths[4] := 3; BarWidths[5] := 3; BarWidths[6] := 1; END;
  50: BEGIN BarWidths[1] := 2; BarWidths[2] := 3; BarWidths[3] := 1;
            BarWidths[4] := 1; BarWidths[5] := 3; BarWidths[6] := 1; END;
  51: BEGIN BarWidths[1] := 2; BarWidths[2] := 1; BarWidths[3] := 3;
            BarWidths[4] := 1; BarWidths[5] := 1; BarWidths[6] := 3; END;
  52: BEGIN BarWidths[1] := 2; BarWidths[2] := 1; BarWidths[3] := 3;
            BarWidths[4] := 3; BarWidths[5] := 1; BarWidths[6] := 1; END;
  53: BEGIN BarWidths[1] := 2; BarWidths[2] := 1; BarWidths[3] := 3;
            BarWidths[4] := 1; BarWidths[5] := 3; BarWidths[6] := 1; END;
  54: BEGIN BarWidths[1] := 3; BarWidths[2] := 1; BarWidths[3] := 1;
            BarWidths[4] := 1; BarWidths[5] := 2; BarWidths[6] := 3; END;
  55: BEGIN BarWidths[1] := 3; BarWidths[2] := 1; BarWidths[3] := 1;
            BarWidths[4] := 3; BarWidths[5] := 2; BarWidths[6] := 1; END;
  56: BEGIN BarWidths[1] := 3; BarWidths[2] := 3; BarWidths[3] := 1;
            BarWidths[4] := 1; BarWidths[5] := 2; BarWidths[6] := 1; END;
  57: BEGIN BarWidths[1] := 3; BarWidths[2] := 1; BarWidths[3] := 2;
            BarWidths[4] := 1; BarWidths[5] := 1; BarWidths[6] := 3; END;
  58: BEGIN BarWidths[1] := 3; BarWidths[2] := 1; BarWidths[3] := 2;
            BarWidths[4] := 3; BarWidths[5] := 1; BarWidths[6] := 1; END;
  59: BEGIN BarWidths[1] := 3; BarWidths[2] := 3; BarWidths[3] := 2;
            BarWidths[4] := 1; BarWidths[5] := 1; BarWidths[6] := 1; END;
  60: BEGIN BarWidths[1] := 3; BarWidths[2] := 1; BarWidths[3] := 4;
            BarWidths[4] := 1; BarWidths[5] := 1; BarWidths[6] := 1; END;
  61: BEGIN BarWidths[1] := 2; BarWidths[2] := 2; BarWidths[3] := 1;
            BarWidths[4] := 4; BarWidths[5] := 1; BarWidths[6] := 1; END;
  62: BEGIN BarWidths[1] := 4; BarWidths[2] := 3; BarWidths[3] := 1;
            BarWidths[4] := 1; BarWidths[5] := 1; BarWidths[6] := 1; END;
  63: BEGIN BarWidths[1] := 1; BarWidths[2] := 1; BarWidths[3] := 1;
            BarWidths[4] := 2; BarWidths[5] := 2; BarWidths[6] := 4; END;
  64: BEGIN BarWidths[1] := 1; BarWidths[2] := 1; BarWidths[3] := 1;
            BarWidths[4] := 4; BarWidths[5] := 2; BarWidths[6] := 2; END;
  65: BEGIN BarWidths[1] := 1; BarWidths[2] := 2; BarWidths[3] := 1;
            BarWidths[4] := 1; BarWidths[5] := 2; BarWidths[6] := 4; END;
  66: BEGIN BarWidths[1] := 1; BarWidths[2] := 2; BarWidths[3] := 1;
            BarWidths[4] := 4; BarWidths[5] := 2; BarWidths[6] := 1; END;
  67: BEGIN BarWidths[1] := 1; BarWidths[2] := 4; BarWidths[3] := 1;
            BarWidths[4] := 1; BarWidths[5] := 2; BarWidths[6] := 2; END;
  68: BEGIN BarWidths[1] := 1; BarWidths[2] := 4; BarWidths[3] := 1;
            BarWidths[4] := 2; BarWidths[5] := 2; BarWidths[6] := 1; END;
  69: BEGIN BarWidths[1] := 1; BarWidths[2] := 1; BarWidths[3] := 2;
            BarWidths[4] := 2; BarWidths[5] := 1; BarWidths[6] := 4; END;
  70: BEGIN BarWidths[1] := 1; BarWidths[2] := 1; BarWidths[3] := 2;
            BarWidths[4] := 4; BarWidths[5] := 1; BarWidths[6] := 2; END;
  71: BEGIN BarWidths[1] := 1; BarWidths[2] := 2; BarWidths[3] := 2;
            BarWidths[4] := 1; BarWidths[5] := 1; BarWidths[6] := 4; END;
  72: BEGIN BarWidths[1] := 1; BarWidths[2] := 2; BarWidths[3] := 2;
            BarWidths[4] := 4; BarWidths[5] := 1; BarWidths[6] := 1; END;
  73: BEGIN BarWidths[1] := 1; BarWidths[2] := 4; BarWidths[3] := 2;
            BarWidths[4] := 1; BarWidths[5] := 1; BarWidths[6] := 2; END;
  74: BEGIN BarWidths[1] := 1; BarWidths[2] := 4; BarWidths[3] := 2;
            BarWidths[4] := 2; BarWidths[5] := 1; BarWidths[6] := 1; END;
  75: BEGIN BarWidths[1] := 2; BarWidths[2] := 4; BarWidths[3] := 1;
            BarWidths[4] := 2; BarWidths[5] := 1; BarWidths[6] := 1; END;
  76: BEGIN BarWidths[1] := 2; BarWidths[2] := 2; BarWidths[3] := 1;
            BarWidths[4] := 1; BarWidths[5] := 1; BarWidths[6] := 4; END;
  77: BEGIN BarWidths[1] := 4; BarWidths[2] := 1; BarWidths[3] := 3;
            BarWidths[4] := 1; BarWidths[5] := 1; BarWidths[6] := 1; END;
  78: BEGIN BarWidths[1] := 2; BarWidths[2] := 4; BarWidths[3] := 1;
            BarWidths[4] := 1; BarWidths[5] := 1; BarWidths[6] := 2; END;
  79: BEGIN BarWidths[1] := 1; BarWidths[2] := 3; BarWidths[3] := 4;
            BarWidths[4] := 1; BarWidths[5] := 1; BarWidths[6] := 1; END;
  80: BEGIN BarWidths[1] := 1; BarWidths[2] := 1; BarWidths[3] := 1;
            BarWidths[4] := 2; BarWidths[5] := 4; BarWidths[6] := 2; END;
  81: BEGIN BarWidths[1] := 1; BarWidths[2] := 2; BarWidths[3] := 1;
            BarWidths[4] := 1; BarWidths[5] := 4; BarWidths[6] := 2; END;
  82: BEGIN BarWidths[1] := 1; BarWidths[2] := 2; BarWidths[3] := 1;
            BarWidths[4] := 2; BarWidths[5] := 4; BarWidths[6] := 1; END;
  83: BEGIN BarWidths[1] := 1; BarWidths[2] := 1; BarWidths[3] := 4;
            BarWidths[4] := 2; BarWidths[5] := 1; BarWidths[6] := 2; END;
  84: BEGIN BarWidths[1] := 1; BarWidths[2] := 2; BarWidths[3] := 4;
            BarWidths[4] := 1; BarWidths[5] := 1; BarWidths[6] := 2; END;
  85: BEGIN BarWidths[1] := 1; BarWidths[2] := 2; BarWidths[3] := 4;
            BarWidths[4] := 2; BarWidths[5] := 1; BarWidths[6] := 1; END;
  86: BEGIN BarWidths[1] := 4; BarWidths[2] := 1; BarWidths[3] := 1;
            BarWidths[4] := 2; BarWidths[5] := 1; BarWidths[6] := 2; END;
  87: BEGIN BarWidths[1] := 4; BarWidths[2] := 2; BarWidths[3] := 1;
            BarWidths[4] := 1; BarWidths[5] := 1; BarWidths[6] := 2; END;
  88: BEGIN BarWidths[1] := 4; BarWidths[2] := 2; BarWidths[3] := 1;
            BarWidths[4] := 2; BarWidths[5] := 1; BarWidths[6] := 1; END;
  89: BEGIN BarWidths[1] := 2; BarWidths[2] := 1; BarWidths[3] := 2;
            BarWidths[4] := 1; BarWidths[5] := 4; BarWidths[6] := 1; END;
  90: BEGIN BarWidths[1] := 2; BarWidths[2] := 1; BarWidths[3] := 4;
            BarWidths[4] := 1; BarWidths[5] := 2; BarWidths[6] := 1; END;
  91: BEGIN BarWidths[1] := 4; BarWidths[2] := 1; BarWidths[3] := 2;
            BarWidths[4] := 1; BarWidths[5] := 2; BarWidths[6] := 1; END;
  92: BEGIN BarWidths[1] := 1; BarWidths[2] := 1; BarWidths[3] := 1;
            BarWidths[4] := 1; BarWidths[5] := 4; BarWidths[6] := 3; END;
  93: BEGIN BarWidths[1] := 1; BarWidths[2] := 1; BarWidths[3] := 1;
            BarWidths[4] := 3; BarWidths[5] := 4; BarWidths[6] := 1; END;
  94: BEGIN BarWidths[1] := 1; BarWidths[2] := 3; BarWidths[3] := 1;
            BarWidths[4] := 1; BarWidths[5] := 4; BarWidths[6] := 1; END;
  95: BEGIN BarWidths[1] := 1; BarWidths[2] := 1; BarWidths[3] := 4;
            BarWidths[4] := 1; BarWidths[5] := 1; BarWidths[6] := 3; END;
  96: BEGIN BarWidths[1] := 1; BarWidths[2] := 1; BarWidths[3] := 4;
            BarWidths[4] := 3; BarWidths[5] := 1; BarWidths[6] := 1; END;
  97: BEGIN BarWidths[1] := 4; BarWidths[2] := 1; BarWidths[3] := 1;
            BarWidths[4] := 1; BarWidths[5] := 1; BarWidths[6] := 3; END;
  98: BEGIN BarWidths[1] := 4; BarWidths[2] := 1; BarWidths[3] := 1;