Начинающему нужна помощь

[Бродяга]

Получил! Спасибо! А как на нём компилировать? Нажимаю рун - рун мигает экран и всё. И какой путь указывать к графике?

 

[AlexZir]

Зависит от того, в какой каталог вы распаковали. По умолчанию "C:\TP7\BGI".

Запустите файл 222.pas )

 

[Бродяга]

Зависит от того, в какой каталог вы распаковали. По умолчанию "C:\TP7\BGI".

Запустите файл 222.pas )

BGI? я по привычке UNITS прописал. сейчас попробую.
Вот что получилось. "Пропустить" не действует

 

[Бродяга]

и снова я. и снова отказывается компилировать. решил вывести "Б" на экран, написал но он не хочет компилировать, во всём винит эллипс.

Uses Graph;
var Device, Mode :Integer;
Begin
Device:=0;
InitGraph (Device, Mode, 'C:\FPC\2.4.0.\units');
Line (60, 60, 60, 300);
line (60, 60, 190, 60);
line (190, 60, 190, 80);
line (190, 80, 80, 80);
line (80, 80, 80, 300);
line (80, 300, 60, 300);
ellipse (80, 240, 90, 180, 190, 60);
ellipse (80, 240, 90, 180, 170, 40);
END.

 

[Vladimir_S]

и снова я. и снова отказывается компилировать. решил вывести "Б" на экран, написал но он не хочет компилировать, во всём винит эллипс.

Уж не знаю, почему он "не хочет компилировать", мой хочет, но выдает нечто, весьма мало напоминающее букву "Б":
Что, кстати, не мудрено, коли Вы помещаете центр эллипса на расстояние 80 пикселов от левого края, а горизонтальную полуось размахиваете аж на 190!

 

[Бродяга]

я понял после написания прошлого поста я полез в контру, когда вылез опять попробовал скомпилировать - он скомпилировал то что на вашем скрине. до этого я 5 раз пробовал. нифига.

помогите пожалуйста кружок для "Б" достроить. у меня никак не получается

 

[Vladimir_S]

помогите пожалуйста кружок для "Б" достроить. у меня никак не получается

Похоже, только так:

ellipse (80, 240,   0,  90, 190, 60);
ellipse (80, 240,   0,  90, 170, 40);
ellipse (80, 240, 270, 360, 190, 60);
ellipse (80, 240, 270, 360, 170, 40);

 

[Бродяга]

Похоже, только так:

ellipse (80, 240,   0,  90, 190, 60);
ellipse (80, 240,   0,  90, 170, 40);
ellipse (80, 240, 270, 360, 190, 60);
ellipse (80, 240, 270, 360, 170, 40);

Спасибо! Сейчас разукрашу и вообще отлично будет.

и ещё вопрос (может уже спрашивал, извините тогда) - можно в программу на паскале стороннее изображение засунуть?

 

[Vladimir_S]

и ещё вопрос (может уже спрашивал, извините тогда) - можно в программу на паскале стороннее изображение засунуть?

Я не умею. Даже и не слышал про такое.

 

[Бродяга]

значит нельзя.... А дельфи на такое способен?

 

[AlexZir]

можно в программу на паскале стороннее изображение засунуть?

Можно, но изображение должно быть в 128-ми цветной палитре. Завтра скину вам пример листинга, полностью рабочий.

В Delphi, естественно, можно вставлять сторонние изображения, вплоть до создания фотоальбомов на основе списка файлов в папке. Для всего этого есть специальные процедуры и компоненты.

 

[Бродяга]

128-ми цветной палитре

это какой же формат? png? dds?

 

[AlexZir]

Куда уж там! Родной bmp, он в своё время универсальным считался, и несжатый к тому же.

 

[Бродяга]

Понятно Буду ждать

 

[AlexZir]

Листинг - в архиве. Небольшие пояснения: нужно переписать пути на свои, естественно. В основной части программы нужно будет переписать путь к файлу рисунка формата bmp. Работа с рисунком производится из процедуры программиста.

Посмотреть вложение Draw.zip

 

[Бродяга]

Спасибо! А рисунок надо как нить настраивать? каналы, слои?

 

[Vladimir_S]

Листинг - в архиве. Небольшие пояснения: нужно переписать пути на свои, естественно. В основной части программы нужно будет переписать путь к файлу рисунка формата bmp. Работа с рисунком производится из процедуры программиста.

Вообще-то работает, только вот с цветами что-то не то:
Исходный рисунок:

Результат работы программы:

 

[Бродяга]

ОГО!!!

 

[AlexZir]

Я же выше писал, что true color не поддерживается. Можно поддержку и добавить, но сложность и выходной файл увеличится на порядок. В своё время я добился нормального отображения high color, внеся свои добавления в листинг, и на этом застопорился, а потом и вовсе забросил.

Бродяга, скажите, пожалуйста, ну какие в растровом несжатом изображении формата bmp могут быть слои и каналы? Вы хоть со спецификацией формата ознакомились бы сначала.

 

[Бродяга]

Я как то не задумывался - формат и формат