1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

xMin = 1;// Minimaler Wert der X-Achse
xMax = 7;// Maximaler Wert der X-Achse
yMin = 0;// Mininaler Wert der Y-Achse
yMax = 45;// Maximaler Wert der Y-Achse
x1 = xMax + 1;// X-Wert des Rechtecks oben links
x2 = xMin - 1;// X-Wert des Rechtecks unten rechts
y1 = yMax + 1;// Y-Wert des Rechtecks oben links
y2 = yMin - 1;// Y-Wert des Rechtecks unten rechts
for y = yMin, y <= yMax, y = y + 1 do
  for x = xMin, x <= xMax, x = x + 1 do
    if Diagramm(x,y) == 1 then
      if x < x1 then x1 = x endif;
      if x > x2 then x2 = x endif;
      if y < y1 then y1 = y endif;
      if y > y2 then y2 = y endif;
    endif;
  next x;
next y;