Dotaz: freepascal+grafika

[pavel]

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

Odpovědi

[Tomáš Bláha]

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.

[pavel]

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.

[Tomáš Bláha]

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?

[Ondra 'Kepi' Kudlík]

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)..

[ikarlos]

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.

[pavel]

Tak už se mi povedlo rozchodit tu jednotku Graph, kompilace proběhne OK, vyhodíto spustitelnej soubor, ale při jeho spuštění to napíše nelze najít /dev/svga Nevíte co teď s tím. Dík Moc.

[jimi]

 

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.

[HS]

Jo pascal to byly casy. Nyni je pro me ten jazyk jen nostalgii. Ale v dobe, kdy jsem v nem tvoril, tak jsem mel s nim a jeho grafikou spatne zkusenosti. Proto jsem jsem se poohlidnul po jeho graficke nastavbe, rozjel jsem Lazarus a nekolik programku jsem v nem napsal. Pak jsem presel na Javu, a od te doby jsem pascal nepouzil.