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

[Лита]

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

[volvo]

Попробуй поискать по форуму (слово "заставка", например). Ну или вот это:
Рисунки на Паскале

[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.

[Romtek]

Если нужно, могу скинуть программу Турбограф. Для начинающих изучать графику просто незаменимая вещь.

ТУРБОГРАФ это  экранный графический  редактор, который позволит
      Вам просто  и быстро рисовать, сохранять и воспроизводить свои ри-
      сунки. ТУРБОГРАФ  предоставляет  самый  простой  способ  включения
      рисунков в  программы на  Турбо Паскале,  Турбо Си  и Турбо  Си++.
      ТУРБОГРАФ незаменим  при обучении  программированию, доступен даже
      ребенку.

          Отличительные черты ТУРБОГРАФа:

          - простой, понятный, современный, русскоязычный
            пользовательский интерфейс;
          - полная совместимость с компиляторами фирмы Борланд;
          - объектно-ориентированное представление рисунка;
          - автоматическое получение исходных текстов программ на Турбо
            Паскале и Турбо Си, воспроизводящих созданный рисунок;
          - автоматическое создание исполнимой ( .EXE ) программы,
            воспроизводящей созданный рисунок;
          - минимальные требования к компьютеру ( достаточно XT+CGA );
          - исключительно компактный формат файлов рисунков;
          - быстрая работа;
          - поддержка дисплеев CGA, MCGA, EGA, VGA, Hercules, AT&T,
            IBM3270 PC.
          - работа во всех графических режимах, поддерживаемых
            библиотекой BGI ( 10 режимов на VGA ! );
          - простые и мощные возможности редактирования:
              - откатка назад и вперед на любое число шагов;
              - поиск, вставка и удаление отдельных линий, фигур,
                текста;
              - удаление, перенос, масштабирование, копирование рисунков
                и их частей;
          - полная поддержка русифицированных шрифтов формата BGI;
          - программа просмотра и демонстрации рисунков c возможностью
            создания слайд-фильмов;
          - полная открытость используемого формата файлов рисунка:
            подробное описание, исходный текст программных модулей
            поддержки;
          - преобразование программ на Паскале в файл рисунка. Получение
            файлов рисунка из Ваших программ добавлением в их текст
            одной буквы! ( В крайнем случае - слова ).

[Лита]

Попробуй поискать по форуму (слово "заставка", например). Ну или вот это:
Рисунки на Паскале

искала я, искала... нашал и ту ссылку, которую ты мне дал...
но хочется еще чего-нибудь...

[Atos]

Romtek, скинь, если не трудно, мне на atos13 собака yandex.ru
Что-то я заинтересовался Delphi, конечно, круто, но интересно и в старом добром TP с графикой побаловаться.
Лита, подожди, сейчас посмотрю - у моня должно было множество маленьких программок с графикой где-то лежать.

[Atos]

Вот, может быть, что-нибудь из этого архива подойдёт:

[Romtek]

Прикрепил к сообщению. Рисуйте на здоровье.

[Лита]

Вот, может быть, что-нибудь из этого архива подойдёт:

Спасибки :p2:

[Лита]

Прикрепил к сообщению. Рисуйте на здоровье.

и вам тоже