Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.09.2009, 18:08   #1
NeshSoft
Максим Николаев
Форумчанин
 
Аватар для NeshSoft
 
Регистрация: 15.02.2009
Сообщений: 170
По умолчанию Изменение палитры в графическом режиме паскаля

При рисовании в графическом режиме паскаля необязательно довольствоваться установленными 16 цветами, можно поменять палитру, например на оттенки черного, и тогда можно рисовать неплохие чернобелые изображения.
Палитра меняется следующим образом:
Код:
procedure Set_Pal;
  begin
  SetRGBPalette(0,0,0,0);//цвету 0 - присваиваем черный цвет
  SetRGBPalette(1,4,4,4);
  SetRGBPalette(2,8,8,8);
  SetRGBPalette(3,12,12,12);
  SetRGBPalette(4,16,16,16);
  SetRGBPalette(5,20,20,20);
  SetRGBPalette(20,24,24,24);
  SetRGBPalette(7,28,28,28);
  SetRGBPalette(56,32,32,32);
  SetRGBPalette(57,36,36,36);
  SetRGBPalette(58,40,40,40);
  SetRGBPalette(59,44,44,44);
  SetRGBPalette(60,48,48,48);
  SetRGBPalette(61,52,52,52);
  SetRGBPalette(62,56,56,56);
  SetRGBPalette(63,60,60,60); // цвету 15 - белый цвет
  end;
Также для вывода изображений в паскале можно сначало изображения записывать в файл по пикселям, т.е. друг за другом указывать номер пикселя из текущей палитры, есть даже специальный формат *.ima в котором записаны номера из палитры для изображений расширения 256*256, существовали и программы конверторы, для создания таких изображений, но найти их сейчас уже сложно, впрочем при желании можно состряпать и самому...

Прикрепляю к теме архив с прогой на паскале, в которой бегает по экрану ч/б портрет моего наставника по паскалю, также файл ima с этим портретом, из которого прога его и читает, ну и известный файл EGAVGA.BGI, плюс ко всему в этой проге реализована мышь, бегает её указатель, и указаны координаты.

PS исходники бы выложил с радостью, но, к сожалению, не смог их найти...
PPS Чтобы выйти не аварийно из проги: esc, картинка обновиться ещё пару раз, затем остановиться и Enter
Вложения
Тип файла: zip TPBGI.zip (55.6 Кб, 21 просмотров)
NeshSoft. Программирование на заказ для студентов. Delphi/Pascal. Подробнее на сайте neshsoft.narod.ru
NeshSoft вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как вывести текст на экран в графическом режиме. alex(21) Паскаль, Turbo Pascal, PascalABC.NET 3 24.07.2009 15:56
Вылетает паскаль в графическом режиме ai\ekcah^p Помощь студентам 20 05.05.2009 17:02
Вопрос с подключением мыши в графическом режиме Unconnected Паскаль, Turbo Pascal, PascalABC.NET 1 01.07.2008 10:26