画斜椭圆
procedure TForm1.Button1Click(Sender: TObject);
var
angle: Integer;
iX, iY: Integer;
iShort, iLength: Integer;
begin
for angle:=0 to 359 do
begin
iX := Trunc(36*Sin(angle));
iY := Trunc(64*Cos(angle));
iShort := Round(iX*Cos(60) - iY*sin(60))+200;
iLength := Round(iX*Sin(60) + iY*Cos(60))+200;
Canvas.Pixels[iShort, iLength] := Rgb(255, 0, 0);
end;
end;
