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

Bild[][] g = new Bild[n][n]; // n Anzahl der Pixel
Bild[0][0].farbe = 0;
Bild[0][n-1].farbe = 255;
Bild[n-1][0].farbe = 255;
Bild[n-1][n-1].farbe = 255;

function calculateColors(Bild[][]) {
  for (int i=1; i<n-1; i++) {
      // hier sitzt der Hase im Pfeffer! Berechnung der beiden Grenzreihen
    Bild[0][i].farbe = (Bild[0][n-1] - Bild[0][0].farbe)/n*i;
    Bild[n-1][i].farbe = (Bild[n-1][n-1] - Bild[n-1][0].farbe)/n*i;

    for (int j=1; j<n; j++) {
        // Berechnung der Reihen zwischen den Grenzen
      Bild[j][i].farbe = (Bild[0][i].farbe - Bild[n-1][i].farbe)/n*j;
    }
  }
}

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

procedure TForm1.Square(a,b,c,d: integer); 
var 
x,y: integer; 
ab, ac, db, dc : real; // Steigung der Querstrecken 
hab,hac,hdb, hcd ,h: real; 
// L: Länge/Breite des Quadrats
begin 
// Links unten 
ab:= (b-a)/L;  // Steigung der Seitenlinien 
ac:= (c-a)/L; 

// rechts oben 
db:= (b-d)/L; 
dc:= (c-d)/L; 


for x:=0 to L do 
        for y:=0 to L do 
        begin 
        if x<y then  // links untern 
                begin 
                hac:= (L-y)*ac;   // Steigung in c-Richtung 
                hab:= (  x)*ab;   // in B-Richtung 
                h  := a+hac+hab;  // aufsummiert und fertig ??? 
                end 
        else         // rechts oben 
                begin 
                hcd:= (L-x)*dc; 
                hdb:= (  y)*db; 
                h  := d+hcd+hdb; 
                end; 

        Img.Canvas.Pixels[x,y]:=color(round(h)); 
        end; 
end; 

1:
2:

Bild[0][i].farbe = (Bild[0][n-1] - Bild[0][0].farbe)/n*i;
Bild[n-1][i].farbe = (Bild[n-1][n-1] - Bild[n-1][0].farbe)/n*i;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure fillPoints(bild:Img, x1,y1,x2,y2: integer) // Das Bild und die Koordinaten von Start- und Endpunkt.
   steig : real;
   pixel : integer
begin
   if x1<>x2 then //Der Abstand zwischen den beiden Punkten, nur für Geraden!
      pixel := x1-x2; 
   else
      pixel := y1-y2;
   end;
   steig := (bild.Canvas.Pixels[x1,y1] - bild.Canvas.Pixels[x2,y2]) / pixel;
   // Jetzt die For-Schleife entweder für x oder y wie gehabt - und fertig.
end;