Segmento

Código Delphi:
Declaración de funciones y atributos de la clase:

  TSegmento = Class (TVector)
  Xf, Yf:Real;
  Constructor Create(nX0,nY0,nXf,nYf:Real);
  Destructor Destroy();
  Procedure Encender; Override;

Contruccion de las funciones:

Constructor TSegmento.Create(nX0: Real; nY0: Real; nXf: Real; nYf: Real);
begin
    X0:=nX0;
    Y0:=nY0;
    Xf:=nXf;
    Yf:=nYf;
end;
Destructor TSegmento.Destroy();
begin
end;
Procedure TSegmento.Encender;
var
  V:TVector;
  t,dt: Real;
begin
    V:= TVector.Create(0,0,0);
    t:=0;
    dt:= 0.005;
    Repeat
      V.X0:= (Xf-X0)*t + X0;
      V.Y0:= (Yf-Y0)*t + Y0;
      V.Encender;
      t:= t+ dt;
    Until (t >= 1);
    V.Destroy;
end;