//Assemblage-Fondu vertical de 2 images F:64; //Taille de la zone commune W:Max(W(I1),W(I2)); //Largeur maximale des 2 images S1:BStretch(I1,W,H(I1)*W/W(I1)); //Adaptation de la largeur pour l'image 1 S2:BStretch(I2,W,H(I2)*W/W(I2)); //Adaptation de la largeur pour l'image 2 H:H(S1)+H(S2)-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),0,H(S1)-F); // Augmentation de la zone de travail de l'image 2 et positionnement au bon endroit Y:Y(T1); //Dégradé If(YH(S1),T2, //Image 2 AlphaBlend(T1,T2,Y-H(S1)+F,F))) //Fondu