fork(1) download

copy

var
  i: integer;
  a, b, cx, cy, x, y: Integer;
  fi, t: Double;
begin
  cx := 300;
  cy := 300;
  a := 200;
  b := 100;
  fi := Pi/6;
  for i := 0 to 2 * 628 do begin
    t := i / 200;
    x := Round(a * Cos(t) * Cos(fi) - b * Sin(t) * Sin(fi) + cx);
    y := Round(a * Cos(t) * Sin(fi) + b * Sin(t) * Cos(fi) + cy);
    Canvas.Pixels[x, y] := clRed;
  end;
 
   t := ArcTan(-b / a *  Tan(fi));
   x := Round(a * Cos(t) * Cos(fi) - b * Sin(t) * Sin(fi) + cx);
   y := Round(a * Cos(t) * Sin(fi) + b * Sin(t) * Cos(fi) + cy);
   Canvas.Ellipse(x-3, y-3, x+4, y+4);
   t := Pi + ArcTan(-b / a *  Tan(fi));
   x := Round(a * Cos(t) * Cos(fi) - b * Sin(t) * Sin(fi) + cx);
   y := Round(a * Cos(t) * Sin(fi) + b * Sin(t) * Cos(fi) + cy);
   Canvas.Ellipse(x-3, y-3, x+4, y+4);
   t := ArcTan(b / a *  Cot(fi));
   x := Round(a * Cos(t) * Cos(fi) - b * Sin(t) * Sin(fi) + cx);
   y := Round(a * Cos(t) * Sin(fi) + b * Sin(t) * Cos(fi) + cy);
   Canvas.Ellipse(x-3, y-3, x+4, y+4);
   t := Pi + ArcTan(b / a *  Cot(fi));
   x := Round(a * Cos(t) * Cos(fi) - b * Sin(t) * Sin(fi) + cx);
   y := Round(a * Cos(t) * Sin(fi) + b * Sin(t) * Cos(fi) + cy);
   Canvas.Ellipse(x-3, y-3, x+4, y+4);
 

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,5) Error: Identifier not found "Canvas"
prog.pas(15,28) Error: Identifier not found "clRed"
prog.pas(18,26) Error: Identifier not found "Tan"
prog.pas(21,4) Error: Identifier not found "Canvas"
prog.pas(22,31) Error: Identifier not found "Tan"
prog.pas(25,4) Error: Identifier not found "Canvas"
prog.pas(26,25) Error: Identifier not found "Cot"
prog.pas(29,4) Error: Identifier not found "Canvas"
prog.pas(30,30) Error: Identifier not found "Cot"
prog.pas(33,4) Error: Identifier not found "Canvas"
prog.pas(34) Fatal: Unexpected end of file
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode

Standard output is empty