Модуль graph для fpc

[skyther]

Пока реализованы:
InitGraph() / CloseGraph()
SetColor()
PutPixel()
Line() / LineTo() / MoveTo()
OutTextXY()
И KeyPressed() хотя она изначально не отсюда.
Размер окна выставлен фиксированый 640х480.
Надеюсь кому-нибудь пригодится

[Kwah]

Велосипед?

$ aptitude show fp-units-gfx
Package: fp-units-gfx
...
Description: Free Pascal - graphics libraries units
...
 This package contains Free Pascal units with bindings for:
 * opengl :OpenGL
 * forms : Forms 0.88
 * svgalib : Svgalib
 * ggi : General Graphical Interface
 * libgd
 * libpng
 * graph
 * openal
 * cairo
Homepage: http://www.freepascal.org/

[skyther]

скорее костыль оно под libvga, а мое под иксы

[Аndreich]

Как мне кажется, вещь крайне полезная, даже не смотря на то, что исключительно под иксы... не кроссплатформенная то есть! Со стандартным модулем graph проблем не оберешься, и если этот модуль их решает, то автоу твердый "плюс один".

Конечно, нужно добавить функции типа Rectangle, Circle,.. и т.д., но начало положено.

P.S. У меня есть готовая реализация алгоритма рисования окружности, как доберусь домой обязательно здесь выложу.

[skyther]

Кросплатформенную делать не стал, под оффтопик есть нормальная реализация.
Окружности силами иксов рисуются http://tronche.com/gui/x/xlib/graphics/drawing/XDrawArc.html надо просто процедуру добавить...

[Аndreich]

Окружности силами иксов рисуются http://tronche.com/gui/x/xlib/graphics/drawing/XDrawArc.html надо просто процедуру добавить...

В таком случае нет смысла перегружать модуль сторонними алгоритмами. )
А с прямоугольниками как дела обстоят?

[skyther]

Это же просто 4 линии.

[Аndreich]

Ну так я про то и спрашиваю,.. нужно ли самому писать процедуру для проведения этих четырех линий или же в иксах есть стандартная "коробка".

[skyther]

Оказывается есть http://tronche.com/gui/x/xlib/graphics/drawing/XDrawRectangle.html

[CrazyAlex25]

Свяжитесь с разрабами fpc может они внесутэтот модуль в svn и тогда будете его пилить группой

[Аndreich]

Свяжитесь с разрабами fpc может они внесутэтот модуль в svn и тогда будете его пилить группой

А что, хорошая идея! Для начала можно продублировать тему на www.freepascal.ru там есть люди, принимающие непосредственное участие в разработке FPC, возможно они смогут помочь.

[Namolem]

в чем проблема? добавил в graph.pas

Код: [Выделить]

procedure FillArc(X,Y,Angle1,Angle2,R :Integer);
implementation
procedure FillArc(X,Y,Angle1,Angle2,R :Integer);

begin

XFillArc(TheDisplay, TheDrawable, TheGC,  X, Y, R, R, Angle1, Angle2);

end;

и мой код

Код: [Выделить]

program asd;
Uses graph;
const
grDriver = 0;
var
grMode : integer;
//i : integer;

begin
grMode :=0;
InitGraph(grDriver,grMode,'graph.pas');
FillArc(600,300,0,90,60);
repeat until keypressed;
CloseGraph;
end.


запускается и пустой экран

[skyther]

SetColor(16);
FillArc(0,0,0,360*64,60); //читайте доку