Класс: морская волна

[iFlash66]

Разработать программу для рисования на форме геометрического объекта, используя объектно-ориентированное программирование. В программе должно быть не менее 1 класса.
Морская волна (синусоида, задается высота и длина, и фаза - положение синусоиды относительно начала координат).
Помогите сделать, пожалуйста!

[Stilet]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormPaint(Sender: TObject);
const dess=10;
var x:double;k:integer;
begin
 k:=(Height div 2); while k<(Height div 2)+100 do begin
 Canvas.MoveTo(0,k);
 x:=0;while x<Width do begin
   Canvas.Pen.Color:=RGBToColor(0,0,k);
   Canvas.LineTo(round(x+cos(x)),round(k+sin(x)*dess));
   x:=x+0.1;
 end;
 inc(k,10);
 end;
end;

end.

Тут и классы, и волны и синусойды и рисование.

[iFlash66]

О, спасибо. А можно еще код формы?

[Stilet]

А она пустая. Любую форму можешь использовать.

[superedward]

Сообщение от Stilet

Тут и классы, и волны и синусойды и рисование.

Сдаётся мне, по заданию нужно создать свой класс...

[Sibedir]

Вот, что-то подобное:
http://www.programmersforum.ru/showthread.php?t=227489
Только там лопости рисует, а у вас волна, причем одна. Замените соответствующие функции рисования в тамошнем классе и назовите его TVolna.

  TVolna = class (TObject)
  private
    FFaza     : Real;
    FAmpletuda: Real;
  protected
  public
    constructor Create (AFaza, AAmpletuda: Real);

    procedure Depose (DeltaFaza: Real);
    procedure Draw (ACanvas: TCanvas);

    property Faza     : Real read FFaza      write FFaza     ;
    property Ampletuda: Real read FAmpletuda write FAmpletuda;
  end;

[Stilet]

нужно создать свой класс.

TForm1 и так свой класс.