Графика в Free Pascal Опции

[abv]

Есле у кого-то есть какая-нибудь инфа по работе с графикой в Free Pascal, скиньте плиз. Т.к. отличается работа с графикой во Фри паск, от Турбо паск.

[Altair]

Принципиально ни чем...
Но есть новые возможности, вот здесь подробно описанны они: (не обращайте на то, что там про TMT, почто все есть в
FPC).

http://pascal.sources.ru/tmt/doc/graph.htm

К 32 битным компиляторам есть отличные графические библиотеки с поддержкой OpenGL, например GraphiX, она поддерживает много медиа форматов:

BMP - Windows Bitmap (uncompressed)  
Color Depth - 1,4,8,24 bits
  
Color Depth - 15,16,32 bits
  
Encoding/Compression - RLE4, RLE8
  
CUR - Windows Cursor (uncompressed)  
Color Depth - 1,4,8,24 bits
 
Encoding/Compression - RLE4, RLE8
 
Multiple Image
 
GIF - Graphics Interchange Format  
Color Depth - 1-8 bits
  
Encoding/Compression - LZW
  
Multiple Image
  
ICO - Windows Icon (uncompressed)  
Color Depth - 1,4,8,24 bits
 
Encoding/Compression - RLE4, RLE8
 
Multiple Image
 
JPG - JPEG Image Format  
Color Depth - grayscale, RGB
 
Encoding/Compression - standard, extended, progressive
 
PCX - Zsoft Paintbrush  
Color Depth - 1,4,8,8-gray, 24 bits
  (no 4 bit)
Encoding/Compression - RLE4, RLE8
  
PNG - Portable Network Graphics  
Color Depth - all
 
Encoding/Compression - Huffmann
 
PBP/PGM/PPM - Portable Bit/Gray/Pixel Map  
Color Depth - monochrome, gray, RGB
 
Encoding - ASCII, binary
 
TGA - Truevision Targa (uncompressed, RLE)  
Color Depth - 8,16,24,32 bits
  
TIF - Tagged Image Format (uncompressed)  
Color Depth - bilevel, palettized, RGB, CMYK
 
Encoding/Compression - packbits, LZW
 
Multiple Image
 
Image Saving Support for ... GraphiX for Freepascal GraphiX for Borland Pascal
BMP - Windows Bitmap - 24bit uncompressed
  
PPM - Portable Pixel Map - ASCII
  
TGA - Truevision Targa - 24bit uncompressed
  
Animation and Video Support for ... GraphiX for Freepascal GraphiX for Borland Pascal
AVI - Audio Video Interleave  
DIB - uncompressed - 8,16,24,32 bits
  
MS-RLE - 8 bits
  
MS Video 1 - 8,16 bits
  
Radius Cinepak - 24 bits
  
FLI/FLC - Autodesk ™ Animator - Animations  
Color Depth - 8 bits
  
GIF - GIF Animations  
Color Depth - 1-8 bits
  
MOV - Apple Quicktime ™ Movie  
Apple Animation - 8,16,24 bits
  
Radius Cinepak - 24 bits

Очень рекомендую эту библиотеку, она имеет отличный справочник, и очень быстрая.
Скачать можно отсюда:
http://stud3.tuwien.ac.at/%7Ee9826443/graphix/gxframe.html

[Romtek]

Здесь я это описал:
Графика в FPC, модуль Graph (Сообщ. #15)

[SKVOZNJAK]

За отсутсвием русской инфы я занимался ручной коррекцией машинного перевода. К сожалению, руки не дошли до конца модуля граф, но нужно рубить концы, иначе это никогда не закончится Чтобы расшифровать перевод желательно посматривать в непереведённый вариант и в оригинальную html инфу прилагаемую к компилятору.
http://stiratel7.narod.ru/1/z0.html

[Romtek]

Кстати, кто знает, почему в нём не устанавливаются режимы 16-bit и выше?
С 8-bit всё нормально...

[Guest]

15 и 16 битные режимы в модуле граф устанавливаются, только вот на выходе из видухи получаются не те цвета Тут какая-то несовместимось или недоработка. Заплатили-бы разработчикам за их труд, так и 24 битный режим наверняка пошёл бы на ура

[MeD]

http://www.freepascal.org/contrib/db.php3 - для тех кто любит готовенькое

[MeD]

К 32 битным компиляторам есть отличные графические библиотеки с поддержкой OpenGL, например GraphiX

Олег, ну нету там подержки OpenGL. Он на DirectX основан.

[warner]

При попытке откомпилить Graphix для Фри паскаля выдает, что не найден модуль system ((( Перерыл все папки, но модуль этот так и не нашел (((
Что делать?

[Guest]

При попытке откомпилить Graphix для Фри паскаля выдает, что не найден модуль system ((( Перерыл все папки, но модуль этот так и не нашел (((
Что делать?

Ой, то есть не систем, а DIRECTDRAW
Меня проглючило, не то написал ((((((((

[Altair]

1. GraphiX можно скомпилировать компилятором FPC 1.0.9 и FPC 1.9.8 aka 2RC

2. Target выстави в Win32, а у тебя наверно DOS32 стоит

[Altair]

А DirectDraw конечно, потому что еще надо скачать для компиляции библиотеку DirectXDist
из этой темы

Библиотека для работы с DirectX
скачать

[Guest]

У меня FP 1.0.10 Full
Теперь все откомпилилось, только в модуле DirectX ругалось на слишком длинную строку....
Завтра буду разбираться, спасибо за подсказку!!!!

[Altair]

Так ты исправил строку длинную?
Или с чем ты хочешь разбираться?
Если что, обращайся...

[warner]

Я буду разбираться с рисованием с использованием этого модуля....
8)

[warner]

Код

uses graphix,crt;
var

BEGIN

InitGraphiX(ig_vesa,ig_lfb);
SetModeGraphiX(640,480,ig_col8);
bar(0,0,getmaxX,getmaxY,10);  
rectangle(50,50,getmaxX-50,getmaxY-50,0);
readkey;

END.

По идее программа должна отрисовать то что указано и ждать нажатия на кнопку, а потом выключаться...
Но она не реагирует ни на одну кнопку, попросту зависает....приходится вырубить через трехпальцевую комбинацию ((((
Как можно поправить эту ситуацию

Сообщение отредактировано: warner - 23.03.2005 0:20

[Altair]

Дык кто -же использует CRT ?????
Заменяй на GXCRT..... тут даже WinCRT не пройдет, у GraphiX'a свое все!

[APAL]

Со фрии паскалем не работал... но разве не надо там указывать CloseGraph; ?

[Altair]

А, еще совет, ты цвет указываешь как в TP всегдла указывается.... зачем? есть гораздо более эфективный способ!
RGBColorRGB(r,g,B)
где r, g,b -компоненты цвета.... -очень удобно!

пример черного:
bar(0,0,getmaxX,getmaxY,rgbcolorrgb(0,0,0));

[Altair]

Со фрии паскалем не работал... но разве не надо там указывать CloseGraph; ?

теоретически он есть. Но его не особо приятно использовать