freepascal+grafika

Jednotka graph pod freepascalem je a používá se snad stejně, jako pod DOSem. Nicméně pokud byste malinko slevil z té jednoduchosti, tak bych Vám doporučil Simple Directmedia Layer prostřdnictvím projektu SDL4Freepascal (http://www.grulic.org.ar/~dmoisset/sdl4fp/english.html), který k SDL (www.libsdl.org) tvoří rozhraní. SDL je poměrně známá multiplatformní knihovna pro práci s grafikou na nízké úrovni. K ní pak existují i další knihovny pro kreslení čar apod., ty ale asi pro pascal si budete muset upravit sám.

6.5.2003 13:12 pavel
Rozbalit Rozbalit vše freepascal+grafika

Zkusil jsem nainstalovat to SDL, ale vysledek je stejny jako s GRAPH. Pri linkovani mi to vyhodi chybu, ze nemuze najit -LSDL a u GRAPH -LVGA, pri tom mam SDL 1.2 urcite nainstalovany.

6.5.2003 23:34 Tomáš Bláha
Rozbalit Rozbalit vše freepascal+grafika

A máte určitě nainstalovanou SDL včetně vývojového balíku (ale když to hlásí až při linkování, tak snad jo) a SDL4Freepascal? Pokud se týče jednotky graph, máte nainstalovánu super vga lib, opět včetně devel?

6.5.2003 23:36 Ondra 'Kepi' Kudlík | skóre: 29 | Brno
Rozbalit Rozbalit vše freepascal+grafika

Asi jste na to myslel, ale máte určitě nainstalovány také devel balíčky SDL? Ty by to mohli způsobovat. Jinak předpokládám, že parametry, které knihovny má přilinkovat zadáváte (dělal jsem to už dávno, takže si nepamatuju, které to přesně byly)..

16.1.2009 12:48 ikarlos
Rozbalit Rozbalit vše Re: freepascal+grafika

Dík za nakopnutí směrem k SDL, funguje to pěkně, určitě je příjemnější překompilovat staré DOSové prográmky pod touhle SDL a pouštět si je v oknech X, než přepínat obrazovku do nějakých svga módů, které na dnešních videokartách ani nemusejí řádně fungovat. Kdysi jsem také bojoval s graph unit pod linuxem, nakonec to nějak šlo (byla to hodně komplexní aplikace pro srovnávání molekul peptidů ve 3D), ale byl to opruz a vypadalo to děsně, 480x640 na dnešním širokoúhlém monitoru, a svg módy fungovaly jen některé. A při přepínání rozlišení to padalo.

Nevíte někdo jak rozjet ve freepascalu pod linuxem nějakou jednoduchou grafiku? Něco jako byla v dosu jednotka GRAPH. Ta tady sice taky je, ale nevim, jak inicializovat ovladač gr. karty, tak jak to bylo v dosu InitGraph(g,m)... Dík moc

Program inigraph1;

{ Program to demonstrate static graphics mode selection }

uses graph;


const
  TheLine = 'We are now in 640 x 480 x 256 colors!'+
            ' (press <Return> to continue)';

var
  gd, gm, lo, hi, error,tw,th: integer;
  found: boolean;

begin
  { We want an 8 bit mode }
  gd := D8bit;
  gm := m640x480;
  initgraph(gd,gm,'');
  { Make sure you always check graphresult! }
  error := graphResult;
  if (error <> grOk) Then
    begin
    writeln('640x480x256 is not supported!');
    halt(1)
    end;
  { We are now in 640x480x256 }
  setColor(cyan);
  rectangle(0,0,getmaxx,getmaxy);
  { Write a nice message in the center of the screen }
  setTextStyle(defaultFont,horizDir,1);
  tw:=TextWidth(TheLine);
  th:=TextHeight(TheLine);  
  outTextXY((getMaxX - TW) div 2,
            (getMaxY - TH) div 2,TheLine);
  { Wait for return }
  readln;
  { Back to text mode }
  closegraph;

Staci? 
end.

Dotaz: freepascal+grafika

Odpovědi