Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Графика    >>    giflib
   
 
 GifFallery - Галерея уменьшенных GIF файлов  М.Н.Сидоров 18.06.1994

Программа сжатия изображения GIF файлов



13k 
 

Программа сжатия изображения GIF файлов Написана студентом Чувашского Государственного Университета Сидоровым М.Н. Организует выходной файл в PCX формате 300 х 200 точек аппроксимируя по уровням серого цвета. Имена выходных файлов фиксированны: `PIC-NNN.pcx`, где NNN- максимально возможный номер картинки в данной директории, NNN- можно задать из командной строки. Пример: GIFLIB.EXE 011 (три цифры!) Счет начнется с 11 картинки. Будут уменьшены файлы только из текущей ди- ректории! Обработываются только корректные GIF файлы. (В версии 1.01 улучшен алгоритм распаковки картинок, файлы с ошибкой не ) (заносятся в галерею, а также добавлен подсчет числа обработанных рисунков) Данная программа состоит из 3-х модулей: GIFLIB.PAS - основной блок управляющий памятью и обработкой картинок, GIFSHMAG.PAS- сжимает картинку из файла с выводом в определенное место памяти (логический экран) с определенными координатами в нем. SAVEPCX.PAS - записывает файл размером 320х200. Программа сжимает все фаилы с расширением *.GIF из текущей директории и организует PCX файлы со стандартным названием:`PIC-NNN.pcx`, где NNN- максимально возможный номер картинки в данной директории. Имеется возможность работы программы без перехода в графический режим, для этого надо использовать ключь: /q В этом режиме потребуется 64 кб. свободной памяти для эмуляции экрана. Данная программа может быть использованна любым пользователем без ограничений. Единственное условие: Hе ругать создателя программы! Желаю всем приятного использования программы. г.Чебоксары Июль-Август, 1994 Сидоров М.Н.