From c119a2a5bb25a12f6fc13ca1b9f0f43c9ba8703e Mon Sep 17 00:00:00 2001
From: slederer <dev@insignificance.de>
Date: Sat, 31 Jan 2026 17:26:13 +0100
Subject: [PATCH] add line/points drawing benchmark

---
 examples/graphbench.pas | 92 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 92 insertions(+)
 create mode 100644 examples/graphbench.pas

diff --git a/examples/graphbench.pas b/examples/graphbench.pas
new file mode 100644
index 0000000..327e72e
--- /dev/null
+++ b/examples/graphbench.pas
@@ -0,0 +1,92 @@
+program graphbench;
+var starttime,endtime:DateTime;
+
+procedure startBench(name:string);
+begin
+	write(name:20, ' ');
+	starttime := GetTime;
+end;
+
+procedure endBench;
+var secDelta, minDelta, hourDelta:integer;
+  procedure write2Digits(i:integer);
+  begin
+	if i < 10 then
+		write('0');
+		write(i);
+  end;
+begin
+	endTime := GetTime;
+
+	hourDelta := endtime.hours - starttime.hours;
+	minDelta  := endtime.minutes - starttime.minutes;
+	secDelta  := endtime.seconds - starttime.seconds;
+
+	if secDelta < 0 then
+	begin
+		secDelta := 60 + secDelta;
+		minDelta := minDelta - 1;
+	end;
+
+	if minDelta < 0 then
+	begin
+		minDelta := 60 + minDelta;
+		hourDelta := hourDelta - 1;
+	end;
+
+	write2Digits(hourDelta);
+	write(':'); write2Digits(minDelta);
+	write(':'); write2Digits(secDelta);
+	writeln;
+end;
+
+function randint(lessthan:integer):integer;
+var r:integer;
+begin
+	r := random and 511;
+	if r >= lessthan then
+		r := r - lessthan;
+	randint := r;
+end;
+
+procedure drawlines(count:integer);
+var i,col,x1,y1,x2,y2:integer;
+begin
+	col := 1;
+	for i := 1 to count do
+	begin
+		x1 := randint(500);
+		y1 := randint(400);
+		x2 := randint(500);
+		y2 := randint(400);
+		DrawLine(x1,y1,x2,y2,col);
+		col := col + 1;
+		if col > 15 then col := 1;
+	end;
+end;
+
+procedure drawpoints(count:integer);
+var i,col,x,y:integer;
+begin
+	col := 1;
+	for i := 1 to count do
+	begin
+		x := randint(500);
+		y := randint(400);
+		PutPixel(x,y,col);
+		col := col + 1;
+		if col > 15 then col := 1;
+	end;
+end;
+
+begin
+	InitGraphics;
+	startBench('200K points');
+	drawpoints(200000);
+	endBench;
+
+	InitGraphics;
+	startBench('10K lines');
+	drawlines(10000);
+	endBench;
+end.