[FreePascal] Utilisation de Graph sous FreePascal [Non suivi]

**tit charles** · 12/12/2004, 11h34

hey oui je fais du pascal sous nunux

enfin bon ça a des avantages et des inconvenients

bon voilà la je suis en train de commencer le graphisme et là il y a un petit problème qui se pose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Uses Graph ;
Var Pilote, Mode : integer ;
BEGIN
Pilote := Detect ;
InitGraph(Pilote, Mode, 'ici je met quoi ??') ;
...
CloseGraph ;
END.

et oui la commande InitGraph comment l'utilise t on sous nunux ??
voilà ze question....

Modération par Wormful_sickfoot :
- Titre modifié
Merci de lire les règles du forum.

**M.Dlb** · 12/12/2004, 11h49

Quel compilateur utilises-tu ?

**tit charles** · 12/12/2004, 12h01

j'utilise KDevelop
avec le compilateur borland ou free pascal ça dépend

**M.Dlb** · 12/12/2004, 22h47

Google !!!

http://coleweb.dc.fi.udc.es/docencia/edi/freepascal/doc/units/node9.html#SECTION009442000000000000000

Tu peux aussi consulter la doc de freepascal, disponible sur ton linux, si tu as tout installé...

**tit charles** · 13/12/2004, 10h37

t'as déjà utilisé linux ou pas ???

parce que si tu l'avais déjà utilisé tu saurais que déjà il n'y a pas de répertoir c:
ni de répertoire C:\turbo7\BGI

c pourquoi le titre du forum était le pascal sous linux !!

**Eric Sigoillot** · 13/12/2004, 12h14

Tu t'excites tout seul là ? Surveille tes nerfs, c'est pas bon pour la santé...

Bon, tu nous dis utiliser KDevelop avec un compilateur Borland, tu m'inquiètes. Le seul compilo de Borland qui tourne sous Linux c'est Kylix, et il ne fonctionne absolument pas avec une quelconque unité Graph. Donc y'a un petit souci dans les données.

Pour FreePascal, ça me semble déjà nettement plus réaliste.

Il y a quand même un super, un énorme, un magistral point commun entre un compilateur sous Dos/Windows et un compilateur sous Linux : ils ont tous une documentation qui traine quelque part ! Et y'a plein de chose dedans, même des exemples

Donc la moindre des choses, c'est de lire la doc et de regarder les exemples avant de venir se plaindre.

Et, oh ! Miracle ! Regarde ce que j'ai trouvé dans la doc...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
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;
end.