Discussion :

[mrttlemonde]

Bonjour à tous,

voici mon problème : je suis en train d'écrire un script perl dans lequel je dois pouvoir capturer la couleur de plusieurs pixel d'une image. Le problème c'est que je ne parviens pas à le faire. J'utilise pourtant la bonne méthode... voici le code :

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
        Gimp->palette_set_foreground([247, 255, 5]); #Yellow
	Gimp->palette_set_background([195, 90, 0]); #Orange
	$img = Gimp->image_new(1, 10, RGB);
	$layer = Gimp->layer_new($img, Gimp->image_width($img), Gimp->image_height($img), 
					RGB_IMAGE,
					"layer",
					100, NORMAL_MODE);
	Gimp->image_add_layer($img, $layer, 0);
	Gimp->edit_blend($layer, FG_BG_RGB_MODE, 
				NORMAL_MODE,
				GRADIENT_LINEAR,
				100, 0,
				REPEAT_NONE, 0, 0, 1, 0, 0, 
				0, 0, 0, 9);
	$layer = Gimp->image_merge_visible_layers($img, CLIP-TO-IMAGE);
...
	$theColor = Gimp->image_pick_color($img, $layer, 0, $i, FALSE, FALSE, 0);

Ce que que j'obtiens c'est la couleur noire...
Auriez-vous une idée de ce qui ne va pas?

[mrttlemonde]

Finalement j'ai découvert que la couleur était la bonne... c'est seulement au moment de la passer en argument que ça coince ! Je ne comprends vraiment pas comment c'est possible.