Отображение графики: каркасная модель - Delphi - Ответ 7385003

 unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure PaintBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  fon:TBitmap;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
L,B,R,db,dl:integer;
x1,y1,x,y,z:real;
begin
fon.Canvas.Rectangle(0,0,300,300);
R:=60;
L:=0;
B:=-90;
db:=StrToInt(Edit1.Text);
dl:=StrToInt(Edit2.Text);
while B<=90 do
begin
L:=0;
while L<=360 do
begin
x:=R*cos(B*pi/180)*sin(L*pi/180);
y:=R*cos(B*pi/180)*cos(L*pi/180);
z:=R*sin(L*pi/180);
//x1:=150+x/(1-z/1);
//y1:=150-y/(1-z/1);
x1:=150+x-z*0.2;
y1:=150-x-z*0.2;
if L=0 then fon.Canvas.MoveTo(round(x1),round(y1))
else
fon.Canvas.LineTo(round(x1),round(y1));
L:=L+dl;
Application.ProcessMessages;
end;
B:=B+db;
end;
PaintBox1.Repaint;
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
fon:=TBitmap.Create;
fon.Height:=PaintBox1.Height;
fon.Width:=PaintBox1.Width;
fon.Canvas.Brush.Color:=Clwhite;
fon.Canvas.Rectangle(0,0,300,300);
PaintBox1.Repaint;
end;
 
procedure TForm1.PaintBox1Click(Sender: TObject);
begin
PaintBox1.Canvas.Draw(0,0,fon);
end;
 
end.