Фрактал, добавить масштабирование и изменение глубины рекурсии

{$mode objfpc}
 
unit minkovsky
 
interface
 
uses
  Graph, Math;
 
procedure Draw(x, y, x1, y1: real);
 
implementation
 
 
function GetAngle(x, y, x2, y2: real): real;
var
  angle: real;
begin
  if abs(x2 - x) > 1e-10 then
    angle:= Abs(RadToDeg(ArcTan((y2 - y) / (x2 - x))));
  if (x2 = x) and (y2 = y) then
    Result:= 0
  else
    if x2 > x then
      if y2 > y then
        Result:= angle
      else
        Result := 360 - angle
    else
      if y2 > y then
        Result:= 180 - angle
      else
        Result := 180 + angle;
end;
 
 
function Distance(x, y, x1, y1: real): real;
begin
   result:= Sqrt(Sqr(x1 - x) + Sqr(y1 - y));
end;
 
 
procedure Draw(x, y, x1, y1: real);
var
  r,angle,angleP,angleM: real;
  dx,dy,xA,yA,xB,yB,xC,yC: real;
  x2,y2,x3,y3,x4,y4,x5,y5: real;
begin
  r:= Distance(x, y, x1, y1);
  if r < 10 then
    Line(Round(x), Round(y), Round(x1), Round(y1))
  else
    begin
      angle:= GetAngle(x, y, x1, y1);
      angleP:= DegToRad(angle + 90);
      angleM:= DegToRad(angle - 90);
      r:= r/4;
 
      dx:= (x1 - x)/4;
      dy:= (y1 - y)/4;
 
      xA:= x + dx;
      yA:= y + dy;
      xB:= xA + dx;
      yB:= yA + dy;
      xC:= xB + dx;
      yC:= yB + dy;
 
      x2:= xA + r * Cos(angleP);
      y2:= yA + r * Sin(angleP);
 
      x3:= xB + r * Cos(angleP);
      y3:= yB + r * Sin(angleP);
 
      x4:= xB + r * Cos(angleM);
      y4:= yB + r * Sin(angleM);
 
      x5:= xC + r * Cos(angleM);
      y5:= yC + r * Sin(angleM);
 
      Draw(x, y, xA, yA);
      Draw(xA, yA, x2, y2);
      Draw(x2, y2, x3, y3);
      Draw(x3, y3, xB, yB);
      Draw(xB, yB, x4, y4);
      Draw(x4, y4, x5, y5);
      Draw(x5, y5, xC, yC);
      Draw(xC, yC, x1, y1);
    end;
end;
 
 
end.

program Project1;
uses
  Graph, Math, minkovsky;
var
  grDriver,grMode: smallint;
begin
  grDriver:= detect;
  InitGraph(grDriver,grMode,'');  
  If GraphResult = 0 then 
    begin
      Draw(0, 0, GetMaxX, GetMaxY);
      readln;
    end;
  CloseGraph;
end.