Discussion :

[tagazok]

Bonjour,
J'ai un petit problème en objective caml.
J'aimerais récupérer la matrice de pixels d'une image. J'ai essayé d'utiliser la fonction dump_image en utilisant le code du livre O'Reilly (dispo sur le site de jussieu en ligne) mais en la testant ca ne veut pas vraiment fonctionner :s

Quelqu'un pourrait m'aider en m'expliquand comment je peux récupérer cette matrice?

Merci

[Cooky]

Ton image est un fichier sur ton disque dur, ou bien une image au sens du type abstrait du module Graphics ?

Normalement, dans le second cas, la fonction dump_image doit fonctionner, si tu as bien linker le module Graphics avec ton compilaeur (tâche pas forcément facile il faut l'avouer ).

Sinon, si tu veux charger une image stockée sur ton disque dur et la transformer en matrice de couleur, c'est déjà plus compliqué. C'est bien pour ça que le livre d'Oreilly dissimule un peu tout l'aspect gestion d'images dans ses exemples (l'application des robots graphiques fait usage du module Marshall : il s'avère que les auteurs ont auparavant utilisés un algorithme pour transformer un fichier image, en une représentation interne Ocaml, qu'ils ont ensuite enregistrer. Mais ils ne donnent malheureusement pas leur algorithme.).

Dans ce cas, il faut télécharger la librairie Camlimages, l'installer, et ensuite utiliser la fonction OImages.load, puis ensuite la convertir selon son type réèl (généralement via OImages.rgb24). Ensuite, il faut faire une fonction du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
let transform img=
 let w,h=(img#width,img#heigth) in
  let img_mat= Array.make_matrix w h (0,0,0) in
     for i=0 to w do
     for j=0 to h do
       let pixel=img#get i j in
         img_mat.(i).(j)<-(pixel.r, pixel.g, pixel.b)
     done;
     done;
img_mat

(Note : je n'ai pas testé)

C'est assez lourd, il faut éviter de le faire plusieurs fois.

[thomas9501]

Le sujet est assez ancien mais je viens de l'utiliser donc je met la version du code qui marche :

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
#directory "/usr/lib/ocaml/3.10.0/lablgtk2/";;
#load "lablgtk.cma";;
 
#directory "/usr/lib/ocaml/3.10.0/camlimages/";;
#load "graphics.cma";;
#load "ci_core.cma";;
#load "ci_png.cma";;
 
open Images;;
open OImages;;
open Info;;
open Graphics;;
open Graphic_image;;
 
let transform img =
  let w, h = (img#width, img#height) in
  let img_mat = (Array.make_matrix w h 0) in
    for i = 0 to (w - 1) do
      for j = 0 to (h - 1) do
	let pixel = img#get i j in
          img_mat.(i).(j) <- (Graphics.rgb pixel.r pixel.g pixel.b)
      done;
    done;
    img_mat
;;
 
 
let image = (OImages.rgb24 (OImages.load "Pique.png" []));;
let img = (transform image);;

Attention, toutefois l'image chargée aura pivotée d'un angle de 90° vers la gauche : Donc pour l'afficher dans le bon sens vous avez deux solutions : retravailler la matrice ou (plus simplement) faire pivoter l'image source de 90° vers la droite =)

[Gamecubeur]

Je relance un peu le débat car j'ai besoin d'aide pour CamlImages.

Je n'arrive tout simplement pas à l'installer.

La première étape : ./configure ce passe bien apparemment.
Mais lorsque je fais 'make', cela ne compile pas, à cause d'une erreur : 'ocamc.opt : command not found'.

Quelqu'un a la solution ? Ou bien a un autre moyen de récupérer des matrices de pixels d'une image ? ^^

Merci d'avance !