CARA MEMENGIL OBYEK di BORLAN DELPHI

CARA MEMENGIL OBYEK di BORLAN DELPHI

matrikObyek3D10011705 (Obyek3D);

GambarObyek3D10011705 (Obyek3D);

TRANSLASI

var

a,b,c:real;

begin

a := StrToFloat(Edit2.Text);

b := StrToFloat(Edit3.Text);

c := StrToFloat(Edit4.Text);

matrikObyek3D10011705 (Obyek3D);

MatrikTranslasi3D10011705 (Tv3,a,b,c);

MatrikKaliTransformasiObyek3D10011705 (Obyek3D,Tv3);

Canvas.Pen.Color:=clRed;

GambarObyek3D10011705 (Obyek3D);

SHERING

begin

Hx := StrToFloat(Edit9.Text);

Hy := StrToFloat(Edit10.Text);

Hz := StrToFloat(Edit11.Text);

matrikObyek3D10011705 (Obyek3D);

matrikshering3D10011705 (S4,Hx,Hy,Hz);

MatrikKaliTransformasiObyek3D10011705 (Obyek3D,S3);

Canvas.Pen.Color:=clBlack;

GambarObyek3D10011705 (Obyek3D);

end;