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:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

type
    PTriaCon = ^TTriaCon; //Container für Dreiecke
    TTriaCon = record
        verts: array[0..2] of IVec4;
        color: integer;
        z: double;
    end;

    TTria = class        //Klasse für Dreiecke
        tria: PTriaCon;
        constructor Create(p1, p2, p3: IVec4; color: integer = 0);
        destructor Free;
        procedure transform(mat: IMat4x4);
    end;

    TRect = class        //Klasse für Rechtecke
        {$ifndef splitRects}
        trias: array[0..1] of TTria;
        verts: array[0..3] of IVec4;
        {$else}
        trias: array[0..3] of TTria;
        verts: array[0..4] of IVec4;
        {$endif}
        constructor Create(p1, p2, p3, p4: IVec4; color: integer = 0);
        destructor Free;
        procedure transform(mat: IMat4x4);
    end;

    TCube = class        //Klasse für Quader
        rects: array[0..5] of TRect;
        {$ifndef splitRects}
        verts: array[0..7] of IVec4;
        {$else}
        verts: array[0..13] of IVec4;
        {$endif}
        constructor Create(p1, p2, p3, p4, p5, p6, p7, p8: IVec4);
        destructor Free;
        procedure transform(mat: IMat4x4);
    end;

var
    trias: array of PTriaCon;  //speichert alle Dreiecke
    lverts: TStringList;       //speichert alle Eckpunkte
    tverts: array of IVec4;    //speichert Eckpunkte für Transformationen zwischen
                               //die kein Objekt direkt beeinflussen sollen (Kameratransformationen)					

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 DrawTriangles(bmp: TBitmap; matProj: IMat4x4);
var i: integer;
    v0, v1, v2: IVec4; //eigentlich unnötig
begin
    //tverts hat die Länge lverts.count und ennthält initialisierte 'IVec4's
    for i := 0 to HIGH(tverts) do begin
        //speichert Eckpunkte in tverts
        tverts[i].assign(TVec4(lverts.Objects[i]));
        //transformiert Eckpunkte
        TVec4(lverts.Objects[i]).mul(matProj);
    end;
    
    //sortiert Dreiecke nach Z-Schwerpunkt
    SortTriangles(trias);

    //zeichnet alle Dreiecke
    for i := 0 to HIGH(trias) do begin
        
        v0 := trias[i].verts[0];
        v1 := trias[i].verts[1];
        v2 := trias[i].verts[2];
    
        bmp.Canvas.Brush.Color := trias[i].color;
        bmp.Canvas.Polygon([
            Point(calcx(v0.x), calcy(v0.y)),
            Point(calcx(v1.x), calcy(v1.y)),
            Point(calcx(v2.x), calcy(v2.y))
        ]);
    end;

    //kopiert zwischengespeicherte Eckpunkte zurück
    for i := 0 to HIGH(tverts) do begin 
        TVec4(lverts.Objects[i]).assign(tverts[i]);
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function TVec4.assign(v: TVec4)          : TVec4; begin result := assign(v.x, v.y, v.z, v.w); end;
function TVec4.assign(v: IVec4)          : TVec4; begin result := assign(v.x, v.y, v.z, v.w); end;
function TVec4.assign(x, y, z, w: double): TVec4;
begin
    fx := x;
    fy := y;
    fz := z;
    fw := w;
    result := self;
end;					

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:

constructor TTria.Create(p1, p2, p3: IVec4; color: integer = 0);
var len: integer;
begin 
    inherited Create;
    
    //erstellt neuen Dreieck-Container
    new(tria);
    tria.color := color;
    tria.verts[0] := p1;
    tria.verts[1] := p2;
    tria.verts[2] := p3;
    
{lverts wurde initialisiert mit:
    lverts := TStringList.Create;
    lverts.Duplicates := dupIgnore;
    lverts.Sorted := true;
}
    //speichert Eckpunkte ohne Dopplungen zwischen
    lverts.AddObject(Format('%p', [pointer(p1)]), TObject(p1));
    lverts.AddObject(Format('%p', [pointer(p2)]), TObject(p2));
    lverts.AddObject(Format('%p', [pointer(p3)]), TObject(p3));
    
    //initialisiert Zwischenspeicher
    len := LENGTH(tverts);
    setLength(tverts, lverts.Count);
    while len < lverts.count do begin
        tverts[len] := Vec4(0);
        inc(len);
    end;
    
    //speichert Dreieck
    len := length(trias);
    SetLength(trias, len + 1);
    trias[len] := tria;
end;					

1:
2:
3:
4:
5:
6:

var
  p1: IVec4;
begin
  p1 := TVec4.Create;
  lverts.AddObject(Format('%p', [pointer(p1)]), TObject(p1));
end;