Discussion :

[Rniamo]

Salut, j'aurais besoin de développer une sorte de moteur de rendu style raytracing. J'ai commencé en Pascal mais je me heurte à un problème : comment faire l'éclairage avec 15 couleurs (j'utilise l'unité graph) ???
Mon principal problème est que les formules pour l'éclairage sont des fonctions. Quelqu'un peut-il m'aider, SVP ???

[M.Dlb]

Si tu veux quelques chose d'efficace, avec plus de 16 couleurs par exemple, il te faudra programmer un peu, en utilisant par exemple des drivers VESA. Tu peux pour cela utiliser les drivers d'Hdd34, disponibles ici :
http://pascail.developpez.com/utilitaires/?unite=vbe2

[Stormy_Ordos]

Bonjour!

Si tu tiens vraiment à développer une app avec l'unité Graph(qui est bien pour la mise en page de progs "sérieux" mais trop raide pour des animations graphiques) je te conseille le site :
http://www.devq.net/pascal/
(regarde dans Graphics/BGI Drivers). Il y a un miroir pour charger un driver BGI te permettant d'utiliser les fonctions Graph dans pas mal de modes(de noir et blanc jusqu'à 64k de couleurs).
je te renvoies aussi aux excellents SWAGS(toujours eux!):
http://www.gdsoft.com/swag/swag.html

A tout hasard, une procédure d'Initialisation en mode 640x480x256 que j'avais développée pour afficher un PCX :

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
 
procedure User_Initialization;
var
Graphdriver,Graphmode,Errorcode : integer;
AutodetectPointer : pointer;
 
const Path: string ='c:\tp\bgi';
 
{$F+}
function DetectVGA256 : integer;
begin
     DetectVGA256:=2;
end;
{$F-}
 
begin
     Repeat
           Clrscr;
           Writeln('Lancement du moteur graphique...');
           AutoDetectPointer := @DetectVGA256;   { Point to detection routine }
           GraphDriver := InstallUserDriver('SVGA256', AutoDetectPointer);
           GraphDriver:= Detect;
           Initgraph(Graphdriver,Graphmode,Path);
           Errorcode:=Graphresult;
           If Errorcode<>0 then begin
                                     Textcolor(Red);
                                     Writeln('Erreur d''initialisation graphique nø',Errorcode);
                                     Textcolor(White);
                                     Write('Entrez le chemin vers le driver graphique BGI : ');
                                     Readln(Path);
                                     If Path = 'exit' Then halt(1);
           end;
     Until Errorcode=0;
end;   {user_initialization}

A noter que le driver s'appelle SVGA256.BGI. Je sais pas sous quel compilo tu tournes, donc je précise que cette procédure marche au poil sous TP7.

[pascal_damien]

Salut,

Juste en passant pour redire que VBE2 fonctionne bien ... et que les appels sont simples et sembables à ceux de l'unité graph.

[Rniamo]

Merci, je pense que je vais utiliser VESA.
Mais pour les formules, comment faire varier les couleurs de façon exponentielle par exemple ??

[Stormy_Ordos]

Euh... Qu'est-ce que tu veux faire exactement?

[Rniamo]

Je récupère une couleur (en rvb ou tsl) puis j'applique une fonction (exp ou ln) à ses composantes. Pb : En rvb par ex, les couleurs ont 3 composantes entre 0 et 255 -> l'exp va me faire qqchose de bizarre...