paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 23:29:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed constants for graphmodes

Browse Source
This commit is contained in:
marco 2000-01-04 15:29:42 +00:00
parent 89ccc81c2b
commit b5c2fc4725
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
install/demo/mandel.pp
View File

@ -263,7 +263,11 @@ const
{$ifdef win32} {$ifdef win32}
gmdefault : word = m640x480x16; gmdefault : word = m640x480x16;
{$else not win32} {$else not win32}
{$ifdef Linux}
gmdefault : word = g640x480x256;
{$else}
gmdefault : word = m640x480x256; gmdefault : word = m640x480x256;
{$endif}
{$endif win32} {$endif win32}
begin begin
@ -271,10 +275,10 @@ begin
begin begin
val(paramstr(1),gm,error); val(paramstr(1),gm,error);
if error<>0 then if error<>0 then
gm:=m640x400x256; gm:=gmdefault;
end end
else else
gm:=m640x400x256; gm:=gmdefault;
gd:=detect; gd:=detect;
GetTime(hour, minute, second, sec100); GetTime(hour, minute, second, sec100);
starttime:=((hour*60+minute)*60+second)*100+sec100; starttime:=((hour*60+minute)*60+second)*100+sec100;
@ -321,7 +325,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.7 1999-12-22 14:36:07 jonas Revision 1.8 2000-01-04 15:29:42 marco
* fixed constants for graphmodes
Revision 1.7 1999/12/22 14:36:07 jonas
* changed type of max_color to word so it works now with 16bit color modes * changed type of max_color to word so it works now with 16bit color modes
(thanks to Arjan van Dijk for noticing the problem) (thanks to Arjan van Dijk for noticing the problem)