Arithmetique Assemblages Fondus 3 images et plus

[malkkom]

Bonjour

Je voudrai faire un Assemblage Fondu horizontal de 3 images
j ai pris la formule Assemblage Fondu horizontal de 2 images
j essaye de la modifier pour l adapter a 3 images mais sans succès
je pense que c est la dernier ligne alphablend qui pose porblème
quelqu un de plus doué que moi pourrait il m aider ?
merci
Cordialement

//Assemblage Fondu horizontal de 3images
F:200; //Taille de la zone commune

H:Max(H(I1),H(I2),H(I3)); //Hauteur maximale des 3 images

S1:BStretch(I1,W(I1)*H/H(I1),H); //Adaptation de la hauteur pour l'image 1
S2:BStretch(I2,W(I2)*H/H(I2),H); //Adaptation de la hauteur pour l'image 2
S3:BStretch(I3,W(I3)*H/H(I3),H); //Adaptation de la hauteur pour l'image 3

W:W(S1)+W(S2)+W(S3)-F; //Taille de l'image totale

T1:Tile(S1,W,H); //Augmentation de la zone de travail de l'image 1
T2:Scroll(Tile(S2,W,H),W(S1)-F,0); // Augmentation de la zone de travail de l'image 2 et positionnement au bon endroit
T3:Scroll(Tile(S3,W,H),W(S2)-F,0); // Augmentation de la zone de travail de l'image 3 et positionnement au bon endroit

X:X(T1); //Dégradé
If(X<W(S1)-F,T1, //Image 1
If(X>W(S1),T2, //Image 2
If(X>W(S1),T3, //Image 3

AlphaBlend(T1,T2,T3,X-W(S1)+F,F)))//Fondu

Mots clés pour la recherche : arithmétique, arithmetique

[Tom]

Bonjour,

j'ai pas la tête à faire des math ce matin, mais il y a une autre solution beaucoup plus simple :
Tu peux appliquer deux fois le plugin :
- pour assembler 1 et 2
- pour assembler le résultat de 1 et 2 avec 3

quand j'aurai ma dose de café, je verrai si je trouve une autre solution.

[malkkom]

merci voilà une idée qu'elle est bonne
bon café

[Tom]

Bonjour,

après plusieurs cafés et un peu de prise de tête pour le fun, même si ce n'est pas d'une folle utilité :

Code : Tout sélectionner

//Assemblage Fondu horizontal de 3 images. Adaptation : jptom.free.fr
F:64; //Taille de la zone commune
H:Max(H(I1),H(I2),H(I3)); //Hauteur maximale des 3 images
S1:BStretch(I1,W(I1)*H/H(I1),H); //Adaptation hauteur Image 1
S2:BStretch(I2,W(I2)*H/H(I2),H); //Adaptation hauteur Image 2
S3:BStretch(I3,W(I3)*H/H(I3),H); //Adaptation hauteur Image 3
W:W(S1)+W(S2)+W(S3)-F*2; //Taille de l'image totale
T1:Tile(S1,W,H); //Augmentation zone de travail Image 1
T2:Scroll(Tile(S2,W,H),W(S1)-F,0); //Augmentation zone de travail Image 2 et positionnement au bon endroit
T3:Scroll(Tile(S3,W,H),W(S1)+W(S2)-F*2,0); //Augmentation zone de travail Image 3 et pos. au bon endroit
X:X(T1); //Initialisation Dégradé
If(X<W(S1)-F,T1, //Image 1
If((X>W(S1))and(X<W(S1)+W(S2)-F*2),T2, //Image 2
If(X>W(S1)+W(S2)-F,T3, //Image 3
If((X>=W(S1)-F)and(X<=W(S1)),AlphaBlend(T1,T2,X-W(S1)+F,F), //1er Fondu
AlphaBlend(T2,T3,X-W(S1)-W(S2)+F*2,F))))) //2ème Fondu

J'ai testé avec des images de tailles différentes, et comparé avec la méthode de mon post précédent,
ça a l'air de marcher sur différents groupes d'essais.
Donc à copier/coller tel quel dans la fenêtre du module Arithmétique,
et à enregistrer sous un nom différent du fondu horizontal pour 2 images.

[malkkom]

finalement le café c'est efficace
Bravo j aurai pas trouver

[DM 66]

Bonjour

Je tenais à remercier Tom pour la Formule

DM 66

[Géraldine Touitou]

Bonjour Tom,

[Tom]

Bonjour et merci à vous.
Finalement, si vous avez besoin d'autres variantes, n'hésitez pas,
Il n'est pas dit que je trouverai la bonne solution, mais ç'est plus rigolo que le Sudoku.

[Erik Fou]

Bonjour

merci Tom pour la Formule

une variante

"Assemblage Fondu vertical de 3 images"

A+

Erik

[Tom]

Merci Erik, ça va, t'as pas été top dur avec moi.

Avec seulement une petite tasse de café : "Assemblage Fondu vertical de 3 images" :

Code : Tout sélectionner

//Assemblage-Fondu vertical de 3 images. Adaptation Tom : jptom.free.fr
F:64; //Taille de la zone commune
W:Max(W(I1),W(I2),W(I3)); //Largeur maximale des 3 images
S1:BStretch(I1,W,H(I1)*W/W(I1)); //Adaptation Largeur Image 1
S2:BStretch(I2,W,H(I2)*W/W(I2)); //Adaptation Largeur Image 2
S3:BStretch(I3,W,H(I3)*W/W(I3)); //Adaptation Largeur Image 3
H:H(S1)+H(S2)+H(S3)-F*2; //Taille de l'image totale
T1:Tile(S1,W,H); //Augmentation zone de travail de Image 1
T2:Scroll(Tile(S2,W,H),0,H(S1)-F); // Augmentation zone de travail Image 2 et positionnement au bon endroit
T3:Scroll(Tile(S3,W,H),0,H(S1)+H(S2)-F*2); // Augmentation zone de travail Image 3 et pos. au bon endroit
Y:Y(T1); //Initialisation Dégradé
If(Y<H(S1)-F,T1, //Image 1
If((Y>H(S1))and(Y<H(S1)+H(S2)-F*2),T2, //Image 2
If(Y>H(S1)+H(S2)-F,T3, //Image 3
If((Y>=H(S1)-F)and(Y<=H(S1)),AlphaBlend(T1,T2,Y-H(S1)+F,F), //1er Fondu
AlphaBlend(T2,T3,Y-H(S1)-H(S2)+F*2,F))))) //2ème Fondu

[Tom]

Bonjour,

Pour aller un peu plus loin dans le genre, avec un calcul des tailles un peu plus vicieux :

Fondu horizontal et vertical de 4 Images :

Code : Tout sélectionner

//Assemblage Fondu horizontal et vertical de 4 images Adaptation Tom : jptom.free.fr
F:64; //Taille de la zone commune
H1:Max(H(I1),H(I2)); //Hauteur maximale des 2 images de 1ère ligne
S1:BStretch(I1,W(I1)*H1/H(I1),H1); //Adaptation hauteur image 1
S2:BStretch(I2,W(I2)*H1/H(I2),H1); //Adaptation hauteur image 2
H2:Max(H(I3),H(I4)); //Hauteur maximale des 2 images de 2ème ligne
S3:BStretch(I3,W(I3)*H2/H(I3),H2); //Adaptation hauteur image 3
S4:BStretch(I4,W(I4)*H2/H(I4),H2); //Adaptation hauteur image 4
W:Max(W(S1)+W(S2),W(S3)+W(S4));//Largeur maximale des 2 lignes sans fondu
H1:H1*W/(W(S1)+W(S2)); H2:H2*W/(W(S3)+W(S4)); //Adapt hauteurs lignes
S1:BStretch(S1,W(S1)*H1/H(S1),H1); //Adaptation Largeur Image 1
S2:BStretch(S2,W(S2)*H1/H(S2),H1); //Adaptation Largeur Image 2
S3:BStretch(S3,W(S3)*H2/H(S3),H2); //Adaptation Largeur Image 3
S4:BStretch(S4,W(S4)*H2/H(S4),H2); //Adaptation Largeur Image 4
H:H1+H2-F; //Taille de l'image totale
W:W-F; //Taille de l'image totale
T1:Tile(S1,W,H); //Augmentation zone de travail Image 1
T2:Scroll(Tile(S2,W,H),W(S1)-F,0); // Augmentation zone de travail Image 2 et positionnement au bon endroit
T3:Scroll(Tile(S3,W,H),0,H1-F); // Idem sur Image 3
T4:Scroll(Tile(S4,W,H),W(S3)-F,H1-F); // Idem dur Image 4
X:X(T1); //Initialisation Dégradé H
TA:If(X<W(S1)-F,T1, //Image 1
If(X>W(S1),T2, //Image 2
AlphaBlend(T1,T2,X-W(S1)+F,F)));//1er Fondu
X:X(T3); //Initialisation Dégradé H
TB:If(X<W(S3)-F,T3, //Image 3
If(X>W(S3),T4, //Image 4
AlphaBlend(T3,T4,X-W(S3)+F,F)));//2ème Fondu
Y:Y(T1); //Initialisation Dégradé V
If(Y<H1-F,TA, //Image 1+2
If(Y>H1,TB, //Image 3+4
AlphaBlend(TA,TB,Y-H1+F,F))) //3ème Fondu

fonctionne bien entendu avec des images de tailles différentes, mais les calculs étant importants,
il vaut mieux travailler avec des images de taille modeste.

Petit exemple en image :



Petite suggestion d'utilisation : un assemblage de portraits Pop art à la Andy Warhol
le tuto de Pascal : viewtopic.php?p=4449
_

[Tom]

Bonsoir,

comme je vois que ça passionne les foules, je rajoute un fondu horizontal et vertical pour 9 images.
Comme pour le fondu précédent, il vaut mieux préparer de petites images pour ne pas solliciter inutilement le processeur.

Code : Tout sélectionner

//Assemblage Fondu horizontal et vertical de 9 images Adaptation Tom : jptom.free.fr
F:64; //Taille de la zone commune
H1:Max(H(I1),H(I2),H(I3)); //Hauteur maximale des 3 images de 1ère ligne
S1:BStretch(I1,W(I1)*H1/H(I1),H1); //Adaptation hauteur image 1
S2:BStretch(I2,W(I2)*H1/H(I2),H1); //Adaptation hauteur image 2
S3:BStretch(I3,W(I3)*H1/H(I3),H1); //Adaptation hauteur image 3
H2:Max(H(I4),H(I5),H(I6)); //Hauteur maximale des 3 images de 2ème ligne
S4:BStretch(I4,W(I4)*H2/H(I4),H2); //Adaptation hauteur image 4
S5:BStretch(I5,W(I5)*H2/H(I5),H2); //Adaptation hauteur image 5
S6:BStretch(I6,W(I6)*H2/H(I6),H2); //Adaptation hauteur image 6
H3:Max(H(I7),H(I8),H(I9)); //Hauteur maximale des 3 images de 2ème ligne
S7:BStretch(I7,W(I7)*H3/H(I7),H3); //Adaptation hauteur image 7
S8:BStretch(I8,W(I8)*H3/H(I8),H3); //Adaptation hauteur image 8
S9:BStretch(I9,W(I9)*H3/H(I9),H3); //Adaptation hauteur image 9
W:Max(W(S1)+W(S2)+W(S3),W(S4)+W(S5)+W(S6),W(S7)+W(S8)+W(S9)); //Largeur maximale des lignes sans fondu
H1:H1*W/(W(S1)+W(S2)+W(S3)); H2:H2*W/(W(S4)+W(S5)+W(S6));
H3:H3*W/(W(S7)+W(S8)+W(S9)); //Adapt hauteurs lignes
S1:BStretch(S1,W(S1)*H1/H(S1),H1); //Adaptation Largeur Image 1
S2:BStretch(S2,W(S2)*H1/H(S2),H1); //Adaptation Largeur Image 2
S3:BStretch(S3,W(S3)*H1/H(S3),H1); //Adaptation Largeur Image 3
S4:BStretch(S4,W(S4)*H2/H(S4),H2); //Adaptation Largeur Image 4
S5:BStretch(S5,W(S5)*H2/H(S5),H2); //Adaptation Largeur Image 5
S6:BStretch(S6,W(S6)*H2/H(S6),H2); //Adaptation Largeur Image 6
S7:BStretch(S7,W(S7)*H3/H(S7),H3); //Adaptation Largeur Image 7
S8:BStretch(S8,W(S8)*H3/H(S8),H3); //Adaptation Largeur Image 8
S9:BStretch(S9,W(S9)*H3/H(S9),H3); //Adaptation Largeur Image 9
H:H1+H2+H3-F*2; //Taille de l'image totale
W:W-F*2; //Taille de l'image totale
T1:Tile(S1,W,H); //Augmentation zone de travail Image 1
T2:Scroll(Tile(S2,W,H),W(S1)-F,0); // Augmentation zone de travail Image 2 et positionnement au bon endroit
T3:Scroll(Tile(S3,W,H),W(S1)+W(S2)-F*2,0); // Idem sur Image 3
T4:Scroll(Tile(S4,W,H),0,H1-F); // Idem sur Image 4
T5:Scroll(Tile(S5,W,H),W(S4)-F,H1-F); // Idem sur Image 5
T6:Scroll(Tile(S6,W,H),W(S4)+W(S5)-F*2,H1-F); // Idem sur Image 6
T7:Scroll(Tile(S7,W,H),0,H1+H2-F*2); // Idem sur Image 7
T8:Scroll(Tile(S8,W,H),W(S7)-F,H1+H2-F*2); // Idem sur Image 8
T9:Scroll(Tile(S9,W,H),W(S7)+W(S8)-F*2,H1+H2-F*2); // Idem sur Image 9
X:X(T1); //Initialisation Dégradé H 1ère ligne
TA:If(X<W(S1)-F,T1, //Image 1
If((X>W(S1))and(X<W(S1)+W(S2)-F*2),T2, //Image 2
If(X>W(S1)+W(S2)-F,T3, //Image 3
If((X>=W(S1)-F)and(X<=W(S1)),AlphaBlend(T1,T2,X-W(S1)+F,F), //1er Fondu
AlphaBlend(T2,T3,X-W(S1)-W(S2)+F*2,F))))); //2ème Fondu
X:X(T4); //Initialisation Dégradé H 2ème ligne
TB:If(X<W(S4)-F,T4, //Image 4
If((X>W(S4))and(X<W(S4)+W(S5)-F*2),T5, //Image 5
If(X>W(S4)+W(S5)-F,T6, //Image 6
If((X>=W(S4)-F)and(X<=W(S4)),AlphaBlend(T4,T5,X-W(S4)+F,F), //1er Fondu
AlphaBlend(T5,T6,X-W(S4)-W(S5)+F*2,F))))); //2ème Fondu
X:X(T7); //Initialisation Dégradé H 3ème ligne
TC:If(X<W(S7)-F,T7, //Image 7
If((X>W(S7))and(X<W(S7)+W(S8)-F*2),T8, //Image 8
If(X>W(S7)+W(S8)-F,T9, //Image 9
If((X>=W(S7)-F)and(X<=W(S8)),AlphaBlend(T7,T8,X-W(S7)+F,F), //1er Fondu
AlphaBlend(T8,T9,X-W(S7)-W(S8)+F*2,F))))); //2ème Fondu
Y:Y(T1); //Initialisation Dégradé
If(Y<H1-F,TA, //Ligne 1
If((Y>H1)and(Y<H1+H2-F*2),TB, //Ligne 2
If(Y>H1+H2-F,TC, //Ligne 3
If((Y>=H1-F)and(Y<=H1),AlphaBlend(TA,TB,Y-H1+F,F), //1er Fondu
AlphaBlend(TB,TC,Y-H1-H2+F*2,F))))) //2ème Fondu

Voilà de quoi faire des cartes postales sans peine avec PhotoFiltre.

[Hoareau Moïse]

Merci beaucoup Tom,

Voilà qui va nous faciliter la vie.

[DM 66]

Merci Tom, du joli travail

PS : Tu devrais changer le titre du : Sujet

DM 66

[Erik Fou]

Bonjour

Merci Tom

Je vois que tu as du vidé la cafetiere

Petite Question

Est il possible de faire un formule de 3 images (plus ou moins ) en diagonal ( escalier )

A+

Erik