Méthode de calcul pour fusionner une NormaMap ?

Version imprimable

2 pièce(s) jointe(s)

Bonjour,

J'ai cherché sur la toile sans trouver un algo ou un bout de code pour une question qui me semblait simple à la base :

Comment fusionner (comme sous OpenGL) une image NormalMap à l'image originelle ?

Voici l’image originelle (pour test) :
Pièce jointe 503266

Voici la NormalMap :
Pièce jointe 503270

J'ai bien essayé ceci, comme pour une lightmap, mais le résultat ne me semble pas celui qui devrait être :
Code:

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 var Ab, Bb, Cb: PRGBTriple; X, Y: integer; Begin fus.Picture.bitmap.Width := ori.Picture.Width; fus.Picture.bitmap.Height := ori.Picture.Height; fus.Picture.Bitmap.BeginUpdate; for Y := 0 to ori.Picture.Height - 1 do begin Ab := PRGBTriple(ori.Picture.Bitmap.RawImage.GetLineStart(Y)); Bb := PRGBTriple(map.Picture.Bitmap.RawImage.GetLineStart(Y)); Cb := PRGBTriple(fus.Picture.Bitmap.RawImage.GetLineStart(Y)); for X := 0 to ori.Picture.Width - 1 do begin Cb^.rgbtRed := Trunc(Ab^.rgbtRed * (Bb^.rgbtRed / 255)); Cb^.rgbtGreen := Trunc(Ab^.rgbtGreen * (Bb^.rgbtGreen / 255)); Cb^.rgbtBlue := Trunc(Ab^.rgbtBlue * (Bb^.rgbtBlue / 255)); Inc(Cb); Inc(Bb); Inc(Ab); End; End; fus.Picture.Bitmap.EndUpdate; fus.Invalidate;
A votre avis, quel est la bonne méthode ?

16/09/2019, 14h28
Paul TOTH

euh...qu'est ce que tu attends de la fusion d'une image et d'une normal map ?!

ce sont deux textures utilisées pour faire un rendu avec un éclairage perpixel, mais tu ne peux pas calculer une image résultante... ?! sauf à vouloir calculer l'image éclairée sous un angle donné.

les "couleurs" de la normal map sont en fait des vecteurs normaux à l'image pour chaque pixel, à partir d'un vecteur de lumière il est donc possible de calculer l'éclairage de chaque pixel.
16/09/2019, 15h30
der§en

Je pensait pouvoir renforcer l'impression de 3D sur un bitmap avec, en fait...
17/09/2019, 08h02
Lung

Citation:

Envoyé par der§en

Je pensait pouvoir renforcer l'impression de 3D sur un bitmap avec, en fait...

Tu veux parler de bump mapping ?
17/09/2019, 08h46
der§en

1 pièce(s) jointe(s)

En suivant ton lien, je suis tombé sur cela, est c'est exactement ce que je veux faire sur une simple image:
Pièce jointe 503610

Il me reste plus qu'a trouvé comment procédé.

Si vous avez des liens sur des bouts d'algo en Pascal, je suis preneur...
17/09/2019, 14h06
Paul TOTH

1 pièce(s) jointe(s)

voici rapidement ce que ça pourrait donner...j'ai tenté d'utilise HSL mais ce n'était pas convainquant

comme le calcul dépend de la source d'éclairage, je l'ai rendu dynamique sur le MouseMove (il y a d'ailleurs un bug car je ne tient pas compte de la taille du TImage source dans "ax - 127"...mais c'est pas très grave)

Pièce jointe 503713
17/09/2019, 15h40
der§en

1000 mercis Paul, je m'en vais tester ton code avec gourmandise :ave:
17/09/2019, 17h13
der§en
Quand je vois ceci, peux-tu me si le 127 correspond a la moitié de la hauteur et de la largeur de l'image ?
Code:

1 2 3 4 5 Light.x := ax - 127; Light.y := ay - 127; Light.z := 255; Light.Normalize;
Et que si je travaille avec une image plus grande, je dois changer cette valeur ?
17/09/2019, 17h51
Paul TOTH
Citation:
Envoyé par der§en

Quand je vois ceci, peux-tu me si le 127 correspond a la moitié de la hauteur et de la largeur de l'image ?

Code:

1 2 3 4 5 Light.x := ax - 127; Light.y := ay - 127; Light.z := 255; Light.Normalize;

Et que si je travaille avec une image plus grande, je dois changer cette valeur ?
ben en fait peu importe, j'ai pris ces valeurs pour faire varier le vecteur source de lumière, dans ton cas je suppose que tu veux une image statique (sinon autant passer par OpenGL, le résultat sera meilleur...D'ailleurs rien n'interdit de passer par OpenGL dans tous les cas :D)
17/09/2019, 19h00
BeanzMaster

6 pièce(s) jointe(s)

Salut

C'est ce genre de truc que tu souhaite faire :

https://youtu.be/NexLqs3Rie0

j'ai réalisé cette demo avec Lazarus et ma bibliothèque en cours de dev.

Le code devrait être facilement transposable pour une utilisation avec un TBitmap ou autre. Je t'ai également mis les images que j'ai utilisée

Les images etant assez grosse je les mets ici

Pièce jointe 503813 Pièce jointe 503817
Pièce jointe 503821 Pièce jointe 503825
Pièce jointe 503828

A+

Pièce jointe 503811
18/09/2019, 09h47
der§en

Merci pour le code, je vais tacher d'en extraire, la partie qui m’intéresse:king:

Citation:

Envoyé par der§en

Merci pour le code, je vais tacher d'en extraire, la partie qui m’intéresse:king:

elle n'est pas dedans :D

par contre BeanzMaster, tu peux peut-être compléter ou corriger mon code sur le calcul de la couleur d'un pixel d'après la normal map et un vecteur de lumière normalisé.

Code:

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
 
type
  TVector = record
    x, y, z: Single;
    procedure Normalize;
  end;
 
procedure TVector.Normalize;
var
  L: Single;
begin
  L := Sqrt(x * x + y * y + z * z);
  x := x / L;
  y := y / L;
  z := z / L;
end;
 
procedure ComputePixel(var Pixel: TRGBQuad; const Normal: TRGBQuad; const Light: TVector);
var
  dotProduct: Single;
  Vector: TVector;
begin
  Vector.X :=  (Normal.rgbRed / 255) - 0.5;
  Vector.Y :=  (Normal.rgbGreen / 255) - 0.5;
  Vector.Z :=  (Normal.rgbBlue / 255) - 0.5;
  Vector.Normalize;
 
  dotProduct := Vector.X * Light.x + Vector.Y * Light.y + Vector.Z * Light.z;
 
  if dotProduct < 0 then
    dotProduct := 0
  else
  if dotProduct > 1 then
    dotProduct := 1;
 
  Pixel.rgbRed := Round(Pixel.rgbRed * dotProduct);
  Pixel.rgbGreen := Round(Pixel.rgbGreen * dotProduct);
  Pixel.rgbBlue := Round(Pixel.rgbBlue * dotProduct);
end;

Salut

Citation:

Envoyé par Paul TOTH

elle n'est pas dedans :D

Comment ça ? si, si tout est dedans :zoubi:
Citation:
Envoyé par Paul TOTH
par contre BeanzMaster, tu peux peut-être compléter ou corriger mon code sur le calcul de la couleur d'un pixel d'après la normal map et un vecteur de lumière normalisé.
Code:

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 type TVector = record x, y, z: Single; procedure Normalize; end; procedure TVector.Normalize; var L: Single; begin L := Sqrt(x * x + y * y + z * z); x := x / L; y := y / L; z := z / L; end; procedure ComputePixel(var Pixel: TRGBQuad; const Normal: TRGBQuad; const Light: TVector); var dotProduct: Single; Vector: TVector; begin Vector.X := (Normal.rgbRed / 255) - 0.5; Vector.Y := (Normal.rgbGreen / 255) - 0.5; Vector.Z := (Normal.rgbBlue / 255) - 0.5; Vector.Normalize; dotProduct := Vector.X * Light.x + Vector.Y * Light.y + Vector.Z * Light.z; if dotProduct < 0 then dotProduct := 0 else if dotProduct > 1 then dotProduct := 1; Pixel.rgbRed := Round(Pixel.rgbRed * dotProduct); Pixel.rgbGreen := Round(Pixel.rgbGreen * dotProduct); Pixel.rgbBlue := Round(Pixel.rgbBlue * dotProduct); end;
Je n'avais pas vu ton code Paul :oops:
Je vais y jeter un oeil et le fusionner avec le mien, plus quelques explications en commentaire sur l'algo:zoubi:

Merci
A+

Jérôme

19/09/2019, 22h45
Paul TOTH

Citation:

Envoyé par BeanzMaster

Salut

Comment ça ? si, si tout est dedans :zoubi:

Jérôme

ben je sais pas, Lazarus me dit qu'il manque les paquets bzscene_rt et bzscene_image_rt qui ne sont pas dans le ZIP et que je ne trouve pas par ailleurs...je suppose que c'est le code sur lequel tu bosses non ?
20/09/2019, 19h56
BeanzMaster

Citation:

Envoyé par Paul TOTH

ben je sais pas, Lazarus me dit qu'il manque les paquets bzscene_rt et bzscene_image_rt qui ne sont pas dans le ZIP et que je ne trouve pas par ailleurs...je suppose que c'est le code sur lequel tu bosses non ?

Oui effectivement, les paquets ne sont pas présent. Je pensais que tu parlais du code pour générer le bump. Et tu supposes bien, c'est bien la bibliothèque que je développe depuis un petit moment déja.
Je m'en suis d'ailleurs servie a l'occasion de la Game Jam organisée par LittleWhite ici sur DVP : https://www.developpez.net/forums/d2...e-edition-dvp/
Malheureusement est elle bien trop grosse pour tenir dans le zip sur le forum.
Dès que j'aurais peaufiner encore un peu je rendrais le code source disponible sur Github :zoubi:
24/09/2019, 16h35
der§en

La réponse qu'attends Paul, m’intéresse aussi beaucoup :D
25/09/2019, 13h55
gbegreg

Bonjour,

Joli travail BeanzMaster :ccool:

Pour info, il y a toujours les très bons exemples Delphi/OpenGL de Jan Horns (http://www.sulaco.co.za). De mémoire, il y a un exemple de bumpmapping.
Il y a aussi ce petit tuto (en allemand) : https://wiki.delphigl.com/index.php/Tutorial_BumpMap.