paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 04:26:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* adapted to new graph unit

Browse Source
This commit is contained in:
pierre 2000-04-14 05:44:22 +00:00
parent 9581f8a99b
commit ddd554ab2a
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/tbs/tbs0051.pp
View File

@ -53,7 +53,8 @@ BEGIN
for i := 0 to 255 for i := 0 to 255
do begin 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 for yi := 0 to 20 do
PutPixel (i,yi,col); PutPixel (i,yi,col);
SetColor (col); SetColor (col);
@ -71,7 +72,10 @@ END.
{ {
$Log$ $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 * moved *.pp into subdirs
* fpcmaked * fpcmaked
@ -82,4 +86,4 @@ END.
in the new graph unit in the new graph unit
} }