- Procedure Wuerfel_Zeigen(W1,W2,W3:Double);
- Var Lauf:Word;
- Zeige_X,Zeige_Y:Longint;
- Begin
- With form1.Scannanzeige.Canvas do
- Begin
- Brush.Color:=$000000;
- Rectangle(-1,-1,513,513); //Fenster löschen
- For Lauf:=1 to 16 do
- Begin
- Pen.Color:=RGB(RGB_Farben[Lauf*2,1],RGB_Farben[Lauf*2,2],RGB_Farben[Lauf*2,3]); //Farbe zuweisen
- Rechenmuehle_3D_in_2D(W1,W2,W3,Quadrat[Lauf,1],Quadrat[Lauf,2],Quadrat[Lauf,3],Zeige_X,Zeige_Y); // Vektoren ausrechnen
- if Lauf=1 then Moveto(trunc(Zeige_X /Fensterfaktor)+Fenster_Halb,trunc(Zeige_Y / Fensterfaktor)+ Fenster_Halb) // Neuen Linienanfang
- Else Lineto(trunc(Zeige_X /Fensterfaktor)+Fenster_Halb,trunc(Zeige_Y / Fensterfaktor)+ Fenster_Halb); // Ziehe Linie
- end;
- end;
- end;