Discussion :

[Kirbal]

Salut, j'ai un petit probléme ave le type Int32...
je load une image dans un Bigarray.array2 (une matrice ) avec des int32
qui corespondent au code RGB de chaque pixel.
j'utilise Sdlvideo.get_pixel qui renvoie le (code rgb)int32, de chaque pixel et le probleme c'est que j'ai besoin d'un triplet (r,g,b) pour travailler sur le pixel
donc voila sa serait sympas si quelqun pouvait me dire comment
couper les 8 premiers bits du int32 pour le rouge , les 8 suivant pour le vert
et les 8 derniers pour le bleu.
Merci d'avance

[SpiceGuid]

À vérifier :

Code :

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

1
2
3
# let rgb_of col =
  (col lsr 16 land 0xFF,col lsr 8 land 0xFF,col land 0xFF);;
val rgb_of : int -> int * int * int = <fun>

[Kirbal]

JMerci d'avoir repondu si vite , je vien d'essayer mais je vien de voir que je mettais mal exprimer je veux en fait les bit (1-8) (9-16) (17-24) , les 8 dernier j'en ai
pas besoin c'est pour la transparence alpha
j'ai essayer de compiler mais j une erreur que je comprend pas

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
 
let del_noise mat =
  for i=0 to Bigarray.Array2.dim1 mat - 1 do
    begin
      for j=0 to Bigarray.Array2.dim2 mat - 1 do
	begin
	  let rgb  = Bigarray.Array2.get mat i j in
          let (r,g,b)  =
                        (rgb lsr 16 land 0xFF,rgb lsr 8 land 0xFF,rgb land 0xFF) in    
	  let grey = (0.299 *. (float_of_int r) +. 0.587 *. (float_of_int g) +. 0.114 *. (float_of_int b)) in
          let grey32 = Int32.of_float grey in
	  Bigarray.Array2.set >merde ICI<mat i j grey32 ; 
	end
      done;  
    end
  done;
  mat

et en erreur du compilo j'aie....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
-*- mode: compilation; default-directory: "~/OCR/src/" -*-
Compilation started at Thu Feb  7 23:50:07
 
make ocr
ocamlfind ocamlc -c -linkpkg -package sdl,sdl.sdlimage nsn_ocr.ml
File "nsn_ocr.ml", line 22, characters 31-37:
This expression has type int32 but is here used with type int
make: *** [nsn_ocr.cmo] Erreur 2
 
Compilation exited abnormally with code 2 at Thu Feb  7 23:50:07
t