Нужна простая графика на Паскале!, без анимации... просто картинки... Опции

[Лита]

Для диплома нужны примеры того, что можно нарисовать с помощью графики на Паскале.
Самая простая графика. Статичная. Ничего сложного. С использованием простыч геометрических примитивов. Например, кораблик, паровозик, домик и т.д.
Может, у кого осталось со времен обучения?
Даже не обязательно задачи... Просто картинки того, как это будет выглядеть после компиляции программы!
Заранее спасибо! :molitva:

[Altair]

Вот эта программа volvo подойдетдумаю.
Скрин:

Код

uses Graph;

var
 grDriver: Integer;
 grMode: Integer;
 ErrCode: Integer;
begin
 grDriver := Detect;
 InitGraph(grDriver, grMode,'');
 ErrCode := GraphResult;
 if ErrCode <> grOk then
   begin
     Writeln('Graphics error:', GraphErrorMsg(ErrCode));
     readln; exit
   end;

 { derevo }
 setcolor(green);
 setfillstyle(solidfill, green);
 moveto(80, 240);
 lineto(95, 300);
 lineto(65, 300);
 lineto(80, 240);
 floodfill(80, 250, green);

 moveto(80, 300);
 lineto(110, 380);
 lineto(50, 380);
 lineto(80, 300);
 floodfill(80, 310, green);

 moveto(80, 380);
 lineto(120, 460);
 lineto(40, 460);
 lineto(80, 380);
 floodfill(80, 400, green);

 setcolor(brown);
 setfillstyle(solidfill, brown);
 bar(75, 460, 85, 478);

 { solnce }
 setcolor(yellow);
 setfillstyle(solidfill, yellow);
 circle(520, 80, 45);
 floodfill(520, 80, yellow);

 { domik }
 setcolor(white);
 rectangle(520, 380, 638, 478);
 moveto(520, 380);
 lineto(580, 300);
 lineto(638, 380);

 { truba }
 moveto(535, 360);
 lineto(535, 320);
 lineto(550, 320);
 lineto(550, 340);

 readln;

 closegraph;
end.