unit unit_punti;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils,
grafica, unit_figura_base;
type TPunti=class (FiguraBase)
private
var coordinate:pointf;
public
constructor crea(seme:Ttavola);
procedure setPuntoInizio(x, y: integer); override;
procedure setPuntoFine(x, y: integer); override;
procedure traccia; override;
function denominazione: string; override;
function perimetro: double; override;
function area: double; override;
end;
implementation
constructor TPunti.crea(seme:Ttavola);
begin
inherited crea(seme);
coordinate.x:=0.0;
coordinate.y:=0.0;
coordinate.valido:=True;
end;
procedure TPunti.setPuntoInizio(x, y: integer);
begin
coordinate.x:=x;
coordinate.y:=y;
inizializzata:=True;
end;
procedure TPunti.setPuntoFine(x, y: integer);
begin
coordinate.x:=x;
coordinate.y:=y;
end;
procedure TPunti.traccia;
begin
setPennaInfoglio();
foglio.punto(coordinate);
end;
function TPunti.denominazione: string;
begin
denominazione:=Format('Punto in (%4.0f | %4.0f)', [coordinate.x, coordinate.y]);
end;
function TPunti.perimetro: double;
begin
perimetro:=0.0;
end;
function TPunti.area: double;
begin
area:=0.0;
end;
end.