fork download

copy

var
  x1, y1, x2, y2, w1, h1, w2, h2, px1, py1, px2, py2: Integer;
  cx1, cy1, cx2, cy2, len, dx, dy, r1, r2: Double;
begin
  x1 := 200;  y1 := 200;  w1 := 100;  h1 := 68;
  x2 := 400;  y2 := 300;  w2 := 120;  h2 := 190;
 
  cx1 := x1 + w1/2;
  cy1 := y1 + h1/2;
  cx2 := x2 + w2/2;
  cy2 := y2 + h2/2;
 
  dx := cx2 - cx1;
  dy := cy2 - cy1;
  len  := Hypot(dx, dy);
  dx := dx / len;
  dy := dy / len;
 
  r1 := 0.5 * w1 * h1 / Sqrt(w1*w1*dy*dy+h1*h1*dx*dx);
  px1 := Round(cx1 + r1 * dx);
  py1 := Round(cy1 + r1 * dy);
 
  r2 := 0.5 * w2 * h2 / sqrt(w2*w2*dy*dy+h2*h2*dx*dx);
  px2 := Round(cx2 - r2 * dx);
  py2 := Round(cy2 - r2 * dy);
 
  Canvas.Ellipse(x1, y1, x1 + w1, y1 + h1);
  Canvas.Ellipse(x2, y2, x2 + w2, y2 + h2);
  Canvas.MoveTo(px1, py1);
  Canvas.LineTo(px2, py2);

Free Pascal Compiler version 3.0.0+dfsg-10 [2016/12/12] for x86_64
Copyright (c) 1993-2015 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling prog.pas
prog.pas(15,11) Error: Identifier not found "Hypot"
prog.pas(27,3) Error: Identifier not found "Canvas"
prog.pas(28,3) Error: Identifier not found "Canvas"
prog.pas(29,3) Error: Identifier not found "Canvas"
prog.pas(30,3) Error: Identifier not found "Canvas"
prog.pas(30,26) Fatal: Unexpected end of file
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode

Standard output is empty