* adapted to new graph unit

tests/tbs/tbs0051.pp

@@ -53,7 +53,8 @@ BEGIN
 
   for i := 0 to 255
   do begin
-    col := i shl 16 + (i div 2) shl 8 + (i div 3);
+    { new grpah unit used word type for colors }
+    col := {i shl 16 + }(i) shl 8 + (i div 2);
     for yi := 0 to 20 do
       PutPixel (i,yi,col);
     SetColor (col);
@@ -71,7 +72,10 @@ END.
 
 {
   $Log$
-  Revision 1.1  1999-12-02 17:37:38  peter
+  Revision 1.2  2000-04-14 05:44:22  pierre
+   * adapted to new graph unit
+
+  Revision 1.1  1999/12/02 17:37:38  peter
     * moved *.pp into subdirs
     * fpcmaked
 
@@ -82,4 +86,4 @@ END.
       in the new graph unit
 
 
-}
+}