La Commande Numérique sur la Production Bois

{==============  FICHIER DE EDNUM  ======================}
{ 1 Unite Graphe Trace.pas usinage machines c.n. NUM750  }
{ programmation Pascal                                   }
{ Copyright (S) 1997-2011                                }
{ programmeur du programme A.Ara                         }
{ 64150 Mourenx - France.                                }
{ Licence d'utilisation accord dans un but démonstratif  }
{ Unite buffs.pas : graphiques EDnum c.n du bois num750  }
{========================================================}

{$O+,F+}

Unit buffs;

Interface

var
    LinePtr       :Pointer;     {**buffer de une ligne pour mesajes et del_**}
    SizeLinePtr   :Word;        {**Buffer de une Ligne**}

    Menu_Buf      : Pointer;    {**Menu_Buf_Ptr**}
    Size_Menu_Buf : Word;

    Sub_Buf       : pointer;    {**Sub_Buf_Ptr**}
    Size_Sub_Buf  : Word;

    BuffDir       : Pointer;
    SizeDir       : Word;

Implementation

End.

{==============  FICHIER DE EDNUM  ======================}
{ 2 Unite Graphe Trace.pas usinage machines c.n. NUM750  }
{ programmation Pascal                                   }
{ Copyright (S) 1997-2011                                }
{ Licence d'utilisation accord dans un but démonstratif  }
{ unite buff_tex.pas : graphiques EDnum c.n du bois      }
{========================================================}

{$O+,F+}

Unit buff_tex;

Interface

Type
     Buf___Ptr = Array[1..30720] of char;

var
     BufTexte   : ^Buf___Ptr;

Implementation

End.

{==============  FICHIER DE EDNUM  ======================}
{ 3 Unite Graphe Trace.pas usinage machines c.n. NUM750  }
{ programmation Pascal                                   }
{ Copyright (S) 1997-2011                                }
{ Licence d'utilisation accord dans un but démonstratif  }
{ unite Num_buff.pas: graphiques EDnum c.n du bois       }
{========================================================}

{$O+,F+}

Unit num_buff;

Interface

Const MaxLig       = 500;
      Long_Formule = 20;
      Limite       = 19;
      Max_Outils   = 32;

Type  var_str = string[Long_Formule];

      Tableau128    =  Array[1..20] OF Var_Str;

      TablesValeur = Record
                       X,Y,Z,R ,I ,J ,K :real;
                       {*. . . EB,EX,EY,ER *}
                       T,D : byte;
                       ED  : integer;
                     end;

      TablesCommande = Record
                         {** N5  G0  X  Y  R  M  ED  F  S **}
                         CN,CF,CS : String[6];
                         CG, CX,CY,CR,CM,CED : String[6];
                         LA,LX,LY,LR,LI,LJ,LED : ^VAR_STR;
                       end;

      TabVar  = ^Liste1;
      Liste1  = Array[1..MaxLig] OF TablesValeur;
      TabFonc = ^Liste2;
      Liste2  = Array[1..MaxLig] OF TablesCommande;

      TableOutils   =  Array[1..2,1..Max_Outils] Of Real;
      Fichier_Outil = file of TableOutils;

var
   W     : TabVar;  {**Size mem = 23ko.**}
   C     : TabFonc; {**Size mem = 43ko. avec formules = nil**}

   Tab128         : Tableau128;
   Tab_Case_Reyon : TableOutils;
   File_Outils    : Fichier_Outil;

Implementation

var u : byte;

begin
  for u:=1 to Max_Outils Do
   begin
     Tab_Case_Reyon[1,u]:=50;
     Tab_Case_Reyon[2,u]:=4;
   end;
end.