Re: Arithmetique Assemblage Fondu horizontal de 3 images
Publié : 24 janv. 2010 1:43
Oui, un fondu 4 images!
Le forum officiel
http://www.photofiltre-studio.com/forum/
http://www.photofiltre-studio.com/forum/viewtopic.php?t=15458
Code : Tout sélectionner
//Assemblage Fondu horizontal de 4 images. Adaptation : jptom.free.fr
F:64; //Taille de la zone commune
H:Max(H(I1),H(I2),H(I3),H(I4)); //Hauteur maximale des 4 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
S4:BStretch(I4,W(I4)*H/H(I4),H); //Adaptation hauteur Image 4
W:W(S1)+W(S2)+W(S3)+W(S4)-F*3; //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
T4:Scroll(Tile(S4,W,H),W(S1)+W(S2)+W(S3)-F*3,0); //Augmentation zone de travail Image 4 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)and(X<W(S1)+W(S2)+W(S3)-F*3),T3, //Image 3
If(X>W(S1)+W(S2)+W(S3)-F*2,T4, //Image 4
If((X>=W(S1)-F)and(X<=W(S1)),AlphaBlend(T1,T2,X-W(S1)+F,F), //1er Fondu
If((X>=W(S1)+W(S2)-F*2)and(X<=W(S1)+w(S2)-F),AlphaBlend(T2,T3,X-W(S1)-W(S2)+F*2,F), //2ème Fondu
AlphaBlend(T3,T4,X-W(S1)-W(S2)-W(S3)+F*3,F))))))) //3ème Fondu
Code : Tout sélectionner
//Motif en quinconce sans raccord. Adaptation : jptom.free.fr
F:48; //Zone de raccordement. 10% H ou L conseillés
W:W(I1)*2-F; H:H(I1);
T1:Tile(I1,W,H); T2:Scroll(T1,W(I1)-F,0);
X:X(T1);
L1:If(X<W(I1)-F,T1,
If(X>W(I1),T2, AlphaBlend(T1,T2,X-W(I1)+F,F)));
D1:F/2-W(I1)/2; D2:W(I1)/2-F/2; D3:W(I1)*3/2-F*3/2;
T3:Scroll(Tile(I1,W,H),D1,0);
T4:Scroll(Tile(I1,W,H),D2,0);
T5:Scroll(Tile(I1,W,H),D3,0);
X:X(T3);
L2:If(X<D2,T3,
If((X>D2+F)and(X<D3),T4,
If(X>D3+F,T5,
If((X>=D2)and(X<=D2+F),AlphaBlend(T3,T4,X-D2,F),
AlphaBlend(T4,T5,X-D3,F)))));
W:W(T1); H:H(T1)*3-F*2;
TA:Tile(L1,W,H);
TB:Scroll(Tile(L2,W,H),0,H(I1)-F);
TC:Scroll(Tile(L1,W,H),0,H(I1)*2-F*2);
Y:Y(TA);
TZ:If(Y<H(I1)-F,TA,
If((Y>H(I1))and(Y<H(I1)*2-F*2),TB,
If(Y>H(I1)*2-F,TC,
If((Y>=H(I1)-F)and(Y<=H(I1)),AlphaBlend(TA,TB,Y-H(I1)+F,F),
AlphaBlend(TB,TC,Y-H(I1)*2+F*2,F)))));
Tile(Scroll(TZ,-W(I1)/2,-H(I1)/2),W(I1)-F,H(I1)*2-F*2)