* removed/commented out (inited but) unused vars and unused types

rtl/inc/graph/graph.pp

@@ -1342,7 +1342,7 @@ var
     TempTerm: graph_float;
     xtemp, ytemp, xp, yp, xm, ym, xnext, ynext,
       plxpyp, plxmyp, plxpym, plxmym: smallint;
-    BackupColor, DeltaAngle, TmpAngle, OldLineWidth: word;
+    BackupColor, TmpAngle, OldLineWidth: word;
   Begin
    If LineInfo.ThickNess = ThickWidth Then
     { first draw the two outer ellipses using normwidth and no filling (JM) }
@@ -1391,8 +1391,6 @@ var
        EndAngle:=StAngle;
        Stangle:=TmpAngle;
      end;
-   { calculate difference of angle now so we don't always have to calculate it }
-   DeltaAngle:= EndAngle-StAngle;
    { approximate the number of pixels required by using the circumference }
    { equation of an ellipse.                                              }
    { Changed this formula a it (trial and error), but the net result is that }
@@ -1958,7 +1956,7 @@ type
   ptw = array[0..2] of longint;
 var
   k: longint;
-  oldCurrentColor, color: word;
+  oldCurrentColor: word;
   oldCurrentWriteMode, i, j, y1, x1, deltaX, deltaX1, deltaY: smallint;
 Begin
 {$ifdef logging}
@@ -3048,7 +3046,10 @@ SetGraphBufSize
 
 {
   $Log$
-  Revision 1.52  1999-12-29 17:26:00  jonas
+  Revision 1.53  2000-01-02 19:02:39  jonas
+    * removed/commented out (inited but) unused vars and unused types
+
+  Revision 1.52  1999/12/29 17:26:00  jonas
     + by default, also attempt to install the fonts that come with TP7
 
   Revision 1.51  1999/12/26 10:33:06  jonas

rtl/inc/graph/gtext.inc

@@ -23,11 +23,11 @@
        SIGNATURE   = '+';  { Signature of CHR file               }
 
     type
-       pbyte = ^byte;
+(*       pbyte = ^byte;
        pword = ^word;
-
+*)
       { Prefix header of Font file }
-      PFHeader = ^TFHeader;
+{      PFHeader = ^TFHeader;}
       TFHeader = packed record
          header_size: word;    {* Version 2.0 Header Format        *}
          font_name: array[1..4] of char;
@@ -40,7 +40,7 @@
 
 
       { Font record information }
-      PHeader = ^THeader;
+{      PHeader = ^THeader;}
       THeader = packed record
         Signature:  char;     { signature byte                        }
         Nr_chars:   smallint;  { number of characters in file          }
@@ -71,7 +71,7 @@
 
 
 
-      pStroke = ^TStroke;
+{      pStroke = ^TStroke;}
       TStroke = packed record
         opcode: byte;
         x: smallint;  { relative x offset character }
@@ -87,7 +87,7 @@
     var
        fonts : array[1..maxfonts] of tfontrec;
        Strokes: TStrokes; {* Stroke Data Base           *}
-       Stroke_count: Array[0..MaxChars] of smallint; {* Stroke Count Table *}
+{       Stroke_count: Array[0..MaxChars] of smallint;} {* Stroke Count Table *}
 
 {***************************************************************************}
 {                         Internal support routines                         }
@@ -497,7 +497,8 @@
               for i:=1 to length(textstring) do
                 begin
                    c:=byte(textstring[i]);
-                   Stroke_Count[c] := unpack( fonts[CurrentTextInfo.font].instr,
+{                   Stroke_Count[c] := }
+                   unpack( fonts[CurrentTextInfo.font].instr,
                      fonts[CurrentTextInfo.font].Offsets[c], Strokes );
                    counter:=0;
                    while true do
@@ -733,7 +734,10 @@
 
 {
 $Log$
-Revision 1.10  1999-12-23 16:48:13  jonas
+Revision 1.11  2000-01-02 19:02:39  jonas
+  * removed/commented out (inited but) unused vars and unused types
+
+Revision 1.10  1999/12/23 16:48:13  jonas
   * turn off IO checking when attempting to open a font file (to avoid RTE)
 
 Revision 1.9  1999/12/20 11:22:36  peter

rtl/inc/graph/modes.inc

@@ -71,7 +71,6 @@
   {   for reqdriver is returned (JM)                       }
   {********************************************************}
     var
-     lastDriver, lastMode: SmallInt;
      list, lastModeInfo: PModeInfo;
     begin
 {$ifdef logging}
@@ -363,7 +362,10 @@
 
 {
 $Log$
-Revision 1.16  1999-12-21 17:42:18  jonas
+Revision 1.17  2000-01-02 19:02:39  jonas
+  * removed/commented out (inited but) unused vars and unused types
+
+Revision 1.16  1999/12/21 17:42:18  jonas
   * changed vesa.inc do it doesn't try to use linear modes anymore (doesn't work
     yet!!)
   * fixed mode detection so the low modenumber of a driver doesn't have to be zero