// Effectus auto-generated Mad Pascal source code listing
program trianglePrg;

uses
  Crt, StringUtils, SySutils, Graph, CIO;

var
  strBuffer : string;
var
  eff_loop_var : byte;
  eff_cnt : byte;
  eff_string : string;
// Effectus example:
// Graphics triangle demo
var
  x : byte;  // x_byte_array
  y : byte;  // y_byte_array
  r : byte;  // r_byte_array
  key : byte;  // key_byte_array

procedure MAINProc;
begin
  InitGraph(7);
  x := 80;
  y := 10;
  r := 60;
  SetColor(1);
  PutPixel(x, y);
  MoveTo(x, y);
  LineTo(x+r-10, y+r);
  SetColor(2);
  LineTo(x-r+10, y+r);
  SetColor(3);
  LineTo(x, y);
  x := 80;
  y := 14;
  r := 54;
  PutPixel(x, y);
  MoveTo(x, y);
  LineTo(x+r-y, y+r);
  SetColor(2);
  LineTo(x-r+y, y+r);
  SetColor(3);
  LineTo(x, y);
  eff_string := '';
  Write('Triangle');  // Print 1
  Writeln;
  key := Get(7);
  ReadKey;
end;

begin
  MAINProc;
end.
