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

* Some nested loop improvements. fixes issue #40250

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-04-25 08:39:20 +02:00
parent 5da20fc860
commit 75256399b8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/svgalib/examples/vgatest.pp
View File

@ -108,8 +108,8 @@ begin
vga_drawline(x, y, x, y + yw - 1); vga_drawline(x, y, x, y + yw - 1);
end; end;
for x := 0 to 63 do for y := 0 to 63 do
for y := 0 to 63 do for x := 0 to 63 do
begin begin
vga_setrgbcolor(x * 4 + 3, y * 4 + 3, 0); vga_setrgbcolor(x * 4 + 3, y * 4 + 3, 0);
vga_drawpixel(xmax div 2 - 160 + x, y + ymax div 2 - 80); vga_drawpixel(xmax div 2 - 160 + x, y + ymax div 2 - 80);