3 Boyutlu Küp Örneği

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Gauges, ExtCtrls;
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  x,y,x1,y1:integer;
  aci:real;
  p1,p2,p3,p4,p5,p6,p7,p8:tpoint;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
aci:=aci+2*pi/360;
  p1.X:=200;
  p1.Y :=200;
  p2.X :=p1.X +100;
  p2.Y :=p1.Y ;
  p3.X :=p1.X +100;
  p3.Y :=p1.Y +100;
  p4.X :=p1.X ;
  p4.Y :=p1.Y +100;
  p5.X :=p1.X +round(sin(aci)*50);
  p5.Y :=p1.X +round(cos(aci)*50);
  p6.X :=p5.X +100;
  p6.Y :=p5.Y ;
  p7.X :=p5.X +100;
  p7.Y :=p5.Y +100;
  p8.X :=p5.X ;
  p8.Y :=p5.Y+100 ;
  canvas.Pen.Color :=clblack;
  canvas.Pen.Style:=psdot;
  canvas.Pen.Width :=1;
  canvas.MoveTo(p1.X ,p1.y);
  canvas.LineTo(p2.X ,p2.Y);
  canvas.LineTo(p3.X ,p3.Y);
  canvas.LineTo(p4.X ,p4.Y);
  canvas.LineTo(p1.X ,p1.Y);
  canvas.Pen.Style :=pssolid;
  canvas.Pen.Width:=3;
  canvas.LineTo(p5.X ,p5.Y);
  canvas.LineTo(p6.X ,p6.Y);
  canvas.LineTo(p7.X ,p7.Y);
  canvas.LineTo(p8.X ,p8.Y);
  canvas.LineTo(p5.X,p5.Y);
  canvas.MoveTo(p2.X,p2.Y);
  canvas.LineTo(p6.X ,p6.y);
  canvas.MoveTo(p3.X,p3.Y);
  canvas.LineTo(p7.X ,p7.y);
  canvas.MoveTo(p4.X,p4.Y);
  canvas.LineTo(p8.X ,p8.y);
  sleep(1);
  canvas.Pen.Color :=form1.Color;
   canvas.MoveTo(p1.X ,p1.y);
  canvas.LineTo(p2.X ,p2.Y);
  canvas.LineTo(p3.X ,p3.Y);
  canvas.LineTo(p4.X ,p4.Y);
  canvas.LineTo(p1.X ,p1.Y);
  canvas.LineTo(p5.X ,p5.Y);
  canvas.LineTo(p6.X ,p6.Y);
  canvas.LineTo(p7.X ,p7.Y);
  canvas.LineTo(p8.X ,p8.Y);
  canvas.LineTo(p5.X,p5.Y);
  canvas.MoveTo(p2.X,p2.Y);
  canvas.LineTo(p6.X ,p6.y);
  canvas.MoveTo(p3.X,p3.Y);
  canvas.LineTo(p7.X ,p7.y);
  canvas.MoveTo(p4.X,p4.Y);
  canvas.LineTo(p8.X ,p8.y);
end;
end.