Wenn du
Delphi-Quellcode:
for i := 0 to a do
begin
for j := 0 to a do
die Y-Achse von -a/2 bis a laufen läßt und die Diagonalen mit
einem "Überlauf" versiehst (
ABS(x)
und
x mod (a+1)
),
dabei noch die senkrechten im negativen Y-Bereich nicht anzeigst,
dann kannst du die erste Dachschleife dort mit integrieren.