Discussion :

[C'bien Scheme semble]

Bonjour, je n'arrive pas à utiliser la transparence des images PNG avec MrEd. J'ai cherché du côté de png/mask et des méthodes associées mais (si j'ai bien compris) elles remplacent juste la transparence par une couleur monochrome.
Alors est ce que j'dois m'y faire, MrEd ne gère pas la transparence? : (

[C'bien Scheme semble]

Personne n'a jamais essayé d'afficher une image PNG contenant des zones transparentes par dessus une autre image? n_n'

[Garulfo]

Pas moi en tout cas.
J'ai cherché un peu, mais je n'ai pas trouvé de réponse. Désolé.

[C'bien Scheme semble]

J'ai pt'être eu un début de réponse sur Irc:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
;first off gets the transparant parts.
(make-object bitmap% "test.png" 'png/mask)

(send bitmap get-argb-pixels 0 0 width height pixmap)
;will load a bytes array 'pixmap' with the non-transparent parts of it.

(send bitmap get-loaded-mask)
;will get the mask you loaded in make-object.

(send mask get-argb-pixels 0 0 width height pixmap #t)
;And finally will add in the transparent parts, leaving the non-transparent color information in pixmap untouched.

Mais ya un truc que j'comprends pas c'est le paramètre mask de la dernière instruction... est ce que ca corresponds à ça :

Code :

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

1
2
(send (send bitmap get-loaded-mask) get-argb-pixels 0 0 width height pixmap #t)

[Garulfo]

J'ai pt'être eu un début de réponse sur Irc:

Code :

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

1
2
3
4
5
6
(send bitmap get-loaded-mask)
;will get the mask you loaded in make-object.

(send mask get-argb-pixels 0 0 width height pixmap #t)
;And finally will add in the transparent parts, leaving the non-transparent color information in pixmap untouched.

Mais ya un truc que j'comprends pas c'est le paramètre mask de la dernière instruction... est ce que ca corresponds à ça :

Code :

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

1
2
(send (send bitmap get-loaded-mask) get-argb-pixels 0 0 width height pixmap #t)

Ça n'est pas équivalent... il manquerait une définition

Code :

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

1
2
3
(let ([mask (send bitmap get-loaded-mask)])
  (send mask get-argb-pixels 0 0 width height pixmap #t))

Ton «*mask » n'est pas défini là.

[C'bien Scheme semble]

Ok. Ok.

Il reste le pixmap, il demande une mutable byte string.
Donc j'ai (enfin) trouver comment en créer :
(define pixmap (make-bytes k [b])) où k est la taille de la chaine

En revanche, comment définir sa taille? J'imagine que c'est en fonction de la taille du mask..?

Pour l'instant j'ai essayé de récupérer la taille de l'image transparente avec (send image get-width)

Mais il me renvoie l'erreur suivante :

get-argb-pixels in bitmap%: byte string too short: #"\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"

Merci pour ton aide, bonne fin de week end.

EDIT : bah en fait j'pense que j'ai trouvé, k = (* largeur hauteur 4)

EDIT² : Mais ca m'affiche toujours un carré noir. T_T

[C'bien Scheme semble]

Hum, sinon est ce qu'il est possible d'insérer un viewport dans une frame?

[Garulfo]

Je ne peux pas vraiment t'aider car je n'ai jamais utilisé tout ça. Il me faudrait m'y pencher et je n'ai pas vraiment le temps. Désolé