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

* longint -> Integer would not compile.

Browse Source
This commit is contained in:
carl 1999-04-25 02:29:23 +00:00
parent 23c364f842
commit 417eb205d6
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/inc/graph/clip.inc
View File

@ -25,14 +25,14 @@ const
function LineClipped(var x1, y1,x2,y2: longint; xmin, ymin, function LineClipped(var x1, y1,x2,y2: integer; xmin, ymin,
xmax, ymax:longint): boolean; xmax, ymax:integer): boolean;
{********************************************************} {********************************************************}
{ Function LineClipped() } { Function LineClipped() }
{--------------------------------------------------------} {--------------------------------------------------------}
{ This routine clips the line coordinates to the } { This routine clips the line coordinates to the }
{ min. and max. values of the window. Returns TRUE if } { min. and max. values of the window. Returns TRUE if }
{ there was clipping performed on the line. Updated } { the ENTIRE line was clipped. Updated }
{ clipped line endpoints are also returned. } { clipped line endpoints are also returned. }
{ This algorithm is the classic Cohen-Sutherland line } { This algorithm is the classic Cohen-Sutherland line }
{ clipping algorithm. } { clipping algorithm. }
@ -41,10 +41,10 @@ const
code1, code2: longint; code1, code2: longint;
done:boolean; done:boolean;
code: longint; code: longint;
newx,newy: longint; newx,newy: integer;
function outcode(x,y:longint): longint; function outcode(x,y:integer): longint;
{********************************************************} {********************************************************}
{ Function OutCode() } { Function OutCode() }
{--------------------------------------------------------} {--------------------------------------------------------}
@ -137,7 +137,7 @@ const
end end
end; end;
end; end;
LineClipped:=TRUE; LineClipped:=FALSE;
end; end;