/* Dissolvenza incrociata CON DISPLACE_PIXEL in 50 FRAMES */

ADDRESS "ADPro"
OPTIONS RESULTS

TRUE  = 1
FALSE = 0
TmpIma = 'T:immagine'       /*SE NON HAI 10 MB DI FASTRAM CAMBIA IL PATH*/
TmpIma2 = 'T:immagine2'
Temporaneo = 'T:Temporaneo'
RAD = 2
DP = 2
DPb = 1
DP2 = 101
DISSOLVE = 100
DISSOLVE2 = 2
NUMEROFRAME = 0

GETFILES '"Seleziona la PRIMA immagine"'
 IF RC ~= 0 THEN EXIT
  PRIMA = ADPRO_RESULT
   IF PRIMA = "" THEN EXIT
    LOADER "UNIVERSAL" PRIMA
SAVER "IFF" TmpIma "RAW"
    XSIZE
     BASE = ADPRO_RESULT
    YSIZE
     ALTZ = ADPRO_RESULT

GETFILES '"Seleziona la SECONDA immagine"'
 IF RC ~= 0 THEN EXIT
  SECONDA = ADPRO_RESULT
   IF SECONDA = "" THEN EXIT
     LOADER "UNIVERSAL" SECONDA
    XSIZE
     BASE2 = ADPRO_RESULT
    YSIZE
     ALTZ2 = ADPRO_RESULT
IF (BASE2 > BASE) | (ALTZ2 > ALTZ) THEN DO
                          ABS_SCALE (BASE) (ALTZ)
                          END
IF (BASE2 < BASE) | (ALTZ2 < ALTZ) THEN DO
                          ABS_SCALE (BASE) (ALTZ)
                          END
 SAVER "IFF" TmpIma2 "RAW"
 
GETfile '"Path e nomebase 50 frames elaborati"'
IF RC ~= 0 THEN EXIT
OUTFILE = ADPRO_RESULT
if OUTFILE = "" then exit
  
   DO i=1 to 50
LOADER "IFF" TmpIma
OPERATOR "Displace_Pixel" (RAD) (DP) 2589
OPERATOR "Displace_Pixel" 1 (DPb) 4587
      SAVER "IFF" Temporaneo "RAW"
    LOADER "IFF" TmpIma2
    DP2 = (DP2 - 2)
OPERATOR "Displace_Pixel" (DP2) (DP2) 1258
  LOADER "IFF" Temporaneo COMPOFFSET 0 0 (DISSOLVE)
   OPERATOR "BLUR" 0 1
    RAD = (RAD + 1)
    DP = (DP + 1)
    DPb = (DPb + 1)
  DR = (DR - 5)
  DR2 = (DR2 + 5)
    DISSOLVE = (DISSOLVE - DISSOLVE2)
  NUMEROFRAME = (NUMEROFRAME + 1)
NUMERO = RIGHT(NUMEROFRAME,3,'0')
 SFORMAT "IFF"
  SAVE (OUTFILE)||'.'||(NUMERO) "RAW"
   SAY "Salvo il frame Num." NUMERO
    END    

ADDRESS COMMAND "Delete >NIL:" TmpIma
ADDRESS COMMAND "Delete >NIL:" TmpIma2
ADDRESS COMMAND "Delete >NIL:" Temporaneo
 EXIT