/* Trasformazione incrociata tra le due pagine con effetto MOSAICO in 60 FRAMES */

ADDRESS "ADPro"
OPTIONS RESULTS

TRUE  = 1
FALSE = 0
TmpIma = 'T:immagine'
TmpIma2 = 'T:immagine2'
XM = 2
YM = 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 60 frames elaborati"'
IF RC ~= 0 THEN EXIT
OUTFILE = ADPRO_RESULT
if OUTFILE = "" then exit
  
   DO i=1 to 30         /* Fase 1 */
LOADER "IFF" TmpIma
OPERATOR MOSAIC XSIZE (XM) YSIZE (YM) 
    XM = (XM + 4)
    YM = (YM + 4)
    NUMEROFRAME = (NUMEROFRAME + 1)
NUMERO = RIGHT(NUMEROFRAME,3,'0')
 SFORMAT "IFF"
  SAVE (OUTFILE)||'.'||(NUMERO) "RAW"
  SAY "Salvo il frame Num." NUMERO
    END 
    
XM = (XM - 4)
YM = (YM - 4)
  
   DO i=1 to 30         /* Fase 2 */
LOADER "IFF" TmpIma2
OPERATOR MOSAIC XSIZE (XM) YSIZE (YM) 
    XM = (XM - 4)
    YM = (YM - 4)
    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
EXIT