Нарисовать вектор вместо треугольника (правка кода) - Free Pascal - Ответ 2859085

PROGRAM din_0bj_17;
 USES Graph,Crt;
 TYPE
  TMesto=Object
   x,y:Integer;
   Constructor Init(initx,inity:Integer);
   Destructor Done;
  End;
 
  TPoint=Object(TMesto)
   Procedure Show(color:BYTE) ;Virtual;
   Procedure Hide;Virtual;
   Procedure MoveTo(newx,newy:Integer;color:BYTE);
  End;
 
  TTreug=Object(TPoint)
   a,b:Integer;
   Constructor Init(initx,inity,inita,initb:Integer);
   Procedure Show(color:BYTE); Virtual;
   Procedure Hide; Virtual;
  End;
 
  TGraph=Object
   grdriver:Integer;
   grmode:Integer;
   Procedure Init(gd,gm:Integer;path:STRING);
   Procedure Fin;
  End;
 
 TPTreug=^TTreug;
  Constructor TMesto.Init(initx, inity: Integer);
   Begin
    x:=initx;
    y:=inity;
   End;
 
  Destructor TMesto.Done;
   Begin
    WriteLn;
   End;
 
  Procedure TPoint.Show(color:BYTE);
   Begin
    PutPixel(x,y,color);
   End;
  Procedure TPoint.Hide;
   Begin
    PutPixel(x,y,GetBkColor);
   End;
  Procedure TPoint.MoveTo(newx, newy:Integer;color:BYTE);
   Begin
    Hide;
    x:=newx;
    y:=newy;
    Show(color);
   End;
 
  Procedure TGraph.Init(gd,gm:Integer;path:STRING);
   Begin
    grdriver:=gd;
    grmode:=gm;
    IniTGraph(grdriver,grmode, path) ;
   End;
  Procedure TGraph.Fin;
   Begin
    CloseGraph;
   End;
 
  Constructor TTreug.Init(initx,inity,inita,initb:Integer);
      begin
    TPoint.Init(initx, inity) ;
    a:=Inita;
    b:=Initb;
   End;
  Procedure TTreug.Show(color:BYTE);
   Begin
    SetColor(Color);
    Line(x,y,x + b div 2,y + a div 2);
    Line(x,y,x - b div 2,y + a div 2);
    Line(x + b div 2,y + a div 2,x - b div 2, y +a div 2);
  End;
  Procedure TTreug.Hide;
   Begin
    SetColor(GetBkColor);
    Line(x,y,x + b div 2,y + a div 2);
    Line(x,y,x - b div 2,y + a div 2);
    Line(x + b div 2,y + a div 2,x - b div 2, y +a div 2);
 
   // SetFillStyle(1,GetBkColor);
    //bar(x,y,x+storona,y+storona);
   // FloodFill(x,y,GetBkColor);
   End;
   VAR
ptr:tptreug;
world:TGraph;
x,y,y0,a,b:Integer;
col:Byte;
Begin
ClrScr;
WriteLn(' Dvizhenie treugolnika ');
WriteLn(' po sin sprava nalevo');
 
WriteLn(' vvedite cvet c 1 do 15)');
ReadLn(col);
WriteLn('nazhmite ENTER');
ReadLn;
World. Init (DETECT, DETECT, 'C:\FPC\2.4.0\units\i386-win32\graph ' );
y0:=300;
a:=200;
b:=100;
x:=(getmaxX-b div 2);
y:=(getmaxY div 2-a);
{ptr:=new(tptreug,Init(x,y,50));}
New(ptr,Init(x,y,a,b));
ptr^.Show(col);
while x>b div 2 do
 begin
  y:=y0-round(sin(x*pi/180)*120);
  ptr^.Moveto(x,y,col);
  delay (5);
  x:=x-1;
 end;
while x<(getmaxX-b div 2) do
 begin
  y:=y0-round(sin(x*pi/180)*120);
  ptr^.Moveto(x,y,col);
  delay (5);
  x:=x+1;
 end;
 World.Fin;
end.