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

+ added a 16bpp linear framebuffer horizontal line drawing routine

Browse Source 
git-svn-id: trunk@40887 -
This commit is contained in:
nickysn 2019-01-17 14:47:39 +00:00
parent b8ef2c11a1
commit 2a62508b59
1 changed files with 55 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
packages/graph/src/go32v2/vesa.inc
View File

@ -1774,6 +1774,60 @@ end;
seg_move(get_ds,longint(@col),WinWriteSeg,offs+LinearPageOfs,2); seg_move(get_ds,longint(@col),WinWriteSeg,offs+LinearPageOfs,2);
end; end;
procedure HLineVESA32kOr64kLinear(x,x2,y: smallint);
var
Offs: Longint;
hlength: smallint;
begin
{ must we swap the values? }
if x > x2 then
begin
x := x xor x2;
x2 := x xor x2;
x:= x xor x2;
end;
{ First convert to global coordinates }
X := X + StartXViewPort;
X2 := X2 + StartXViewPort;
Y := Y + StartYViewPort;
if ClipPixels and
LineClipped(x,y,x2,y,
StartXViewPort,StartYViewPort,
StartXViewPort+ViewWidth, StartYViewPort+ViewHeight) then
exit;
{$ifdef logging2}
LogLn('hline '+strf(x)+' - '+strf(x2)+' on '+strf(y)+' in mode '+strf(currentwritemode));
{$endif logging2}
HLength := x2 - x + 1;
{$ifdef logging2}
LogLn('length: '+strf(hlength));
{$endif logging2}
Offs:=Longint(y)*BytesPerLine+2*x;
{$ifdef logging2}
LogLn('Offs: '+strf(offs)+' -- '+hexstr(offs,8));
{$endif logging2}
case CurrentWriteMode of
AndPut,
XorPut,
OrPut:
{ todo: optimized And/Xor/Or put }
HLineDefault(x-StartXViewPort,x2-StartXViewPort,y-StartYViewPort);
NormalPut:
begin
if UseNoSelector then
FillWord(Pointer(LFBPointer+offs+LinearPageOfs)^,HLength,Word(CurrentColor))
else
seg_fillword(WinWriteSeg,offs+LinearPageOfs,HLength,Word(CurrentColor));
end;
NotPut:
begin
if UseNoSelector then
FillWord(Pointer(LFBPointer+offs+LinearPageOfs)^,HLength,Word(not Word(CurrentColor)))
else
seg_fillword(WinWriteSeg,offs+LinearPageOfs,HLength,Word(not Word(CurrentColor)));
end;
end;
end;
{$endif FPC} {$endif FPC}
{************************************************************************} {************************************************************************}
@ -2399,8 +2453,8 @@ Const
DirectPutPixel:=@DirectPutPixVESA32kor64kLinear; DirectPutPixel:=@DirectPutPixVESA32kor64kLinear;
PutPixel:=@PutPixVESA32kor64kLinear; PutPixel:=@PutPixVESA32kor64kLinear;
GetPixel:=@GetPixVESA32kor64kLinear; GetPixel:=@GetPixVESA32kor64kLinear;
HLine:=@HLineVESA32kOr64kLinear;
{ linear mode for lines not yet implemented PM } { linear mode for lines not yet implemented PM }
HLine:=@HLineDefault;
VLine:=@VLineDefault; VLine:=@VLineDefault;
GetScanLine := @GetScanLineDefault; GetScanLine := @GetScanLineDefault;
PatternLine := @PatternLineDefault; PatternLine := @PatternLineDefault;