Sinus Kurve für Newbie

[Mirilin]

Ich habs kurz so gemacht. ( hoffe es klappt )

Delphi-Quellcode:

type
  TMainForm = class(TForm)
...
private
    Bit : TBitmap;
    procedure DrawSinus;
end;
...
const
  H = 200;
  W = 2*H;
...
procedure TMainForm.DrawSinus;
var
  i : Integer;
  X,Y : Double;
begin
  SetViewPortOrgEx(Bit.Canvas.Handle,0,H div 2,nil);
  Bit.Canvas.MoveTo(0,0);
  Bit.Canvas.Pen.Color := clRed;
  for i := 0 to W do
  begin
    X := i / W * 2 * pi;
    Y := -sin(X)*H / 2;
    Bit.Canvas.LineTo(i,Round(Y));
  end;
  SetViewPortOrgEx(Bit.Canvas.Handle,0,0,nil);
end;

mfg Tobias