графика в PascalABC

[Shanel]

У кого-нибудь есть готовый интересные программы с графикой для PascalABC?:conf used:

[McFrey]

Интернет усеян программами по графике, хотя бы вот:
http://programmersforum.ru/showthread.php?t=103707

[Shanel]

не везде есть полные и нормальные программы

[BDA]

Да хотя бы вот http://programmersforum.ru/showpost....34&postcount=2
Рисует с одной стороны дороги елки, с другой - тополя

[Shanel]

есть ошибки

[BDA]

Интересно, какие?
Хотя...
Предполагаю. У вас ведь Pascal ABC? А программа выше для Pascal ABC.net.
Я ошибся

uses
  graphABC;

var
  x, y, r, h, i, n, top, elk: integer;
  
  type
  Point=record
  x,y: integer;
end;


procedure topol(x, y, r, h: integer);
begin
  circle(x, y, r);
  floodfill(x,y,clGreen);
  setbrushcolor(clbrown);
  Line(x, y, x, y + h);
end;

procedure elka(x, y: integer);
var
  n: array[1..3] of point;
begin
  setpencolor(clbrown);
  Rectangle(x, y, x + 15, y + 25);
  floodfill(x, y,clbrown);
  setpencolor(clgreen);
  moveto(x-15,y);
  lineto(x+10,y-60);
  lineto(x+30,y);
  lineto(x-15,y);
  floodfill(x,y-1,clgreen);
end;

begin
  writeln('vvod kol-vo topolei');
  readln(top);
  writeln('vvod kol-vo elka');
  readln(elk);
  //window.Clear;
  Line(350, 0, 150, 800);
  Line(450, 0, 650, 800);
  //window.Title := ('???');
  //window.SetSize(800, 800);
  //window.CenterOnScreen;

  for i := 1 to top do
  begin
    y := random(800);
    r := random(11)+10;
    h := r + 25;
    repeat
      x := random(350);
    until y + h < 1400 - 4 * x;
    r := random(11)+10;
    h := r + 25;
    topol(x, y, r, h);
    //sleep(30);
  end;
  for i := 1 to elk do
  begin
    y := random(windowHeight - 30);
    repeat
      x := random(windowWidth - 30);
    until y + 25 < 4 * x - 1800;
    elka(x, y);
    //sleep(40);
  end;

end.

Исправил все критические ошибки. Но она хуже работает, чем в Pascal ABC.net, из-за отсутствия рисования сразу залитых фигур.

[Shanel]

да, теперь работает, спасибо
только одна просьба, не называйте меня на Вы