echo "c*N"
copy c:copy t:copy
t:copy c:delete t:del
assign Split: Split
Requestfile >env:ANIMname TITLE="Choose anim to convert"
if warn
   echo >env:msg "Operation canceled....!"
   skip end
endif
if not exists $ANIMname
   echo >env:msg "File does not exist....!"
   skip end
endif
Requestfile >env:ANIMdest TITLE="Choose destination path."
if warn
   echo >env:msg "Operation canceled....!"
   skip end
endif
Requestchoice >env:mode2 "" "Select your priority." Quality Compression
Requestchoice >env:mode "" "Do you want scaling ?" Yes No
if $mode eq 1
   SmartScale ask $ANIMname
   if val $xout GT 352
      eval >env:xout2 $xout/2 
      echo >env:xout $xout2
   endif
   if val $yout GT 256
      eval >env:yout2 $yout/2 
      echo >env:yout $yout2
   endif
   echo "MP scale is $xout x $yout*N"
endif

t:del >nil: split:#? env:#?out2
buildanim $ANIMname Split: SPLIT VERBOSE
echo "*N Animation successfully split.*N*N"
list >t:conpics sort name split: lformat "echo >env:flast %s"
execute t:conpics




ECHO >T:an2mp.param "# This parameter file created by LOMBI"

if $mode2 eq 1
   ECHO >>T:an2mp.param "PATTERN   IIIIIIIIIIIIIII"
else
   ECHO >>T:an2mp.param "PATTERN   IBBPBBPBBPBBPBB"
endif

ECHO >>T:an2mp.param "OUTPUT    "$ANIMdest

ECHO >>T:an2mp.param "BASE_FILE_FORMAT   PPM"
ECHO >>T:an2mp.param "GOP_SIZE    30"
ECHO >>T:an2mp.param "SLICES_PER_FRAME   1" 

ECHO >>T:an2mp.param "PIXEL  HALF"
ECHO >>T:an2mp.param "RANGE  10"
ECHO >>T:an2mp.param "PSEARCH_ALG     LOGARITHMIC"
ECHO >>T:an2mp.param "BSEARCH_ALG     CROSS2"
ECHO >>T:an2mp.param "IQSCALE         8"
ECHO >>T:an2mp.param "PQSCALE         10"
ECHO >>T:an2mp.param "BQSCALE         25"

ECHO >>T:an2mp.param "REFERENCE_FRAME ORIGINAL"
ECHO >>T:an2mp.param "FORCE_ENCODE_LAST_FRAME"

ECHO >>T:an2mp.param "INPUT_DIR       split"
ECHO >>T:an2mp.param "INPUT"
ECHO >>T:an2mp.param "**		[001-$flast]"
ECHO >>T:an2mp.param "END_INPUT"
ECHO >>T:an2mp.param "INPUT_CONVERT  **"




t:copy convertMPimage t:cmi
if $mode eq 1
   list >t:ConPics sort name split: lformat "t:copy %s%s t:iff*Nt:CMI noprogress format ppm x $XOUT y $YOUT t:iff to t:ppm*Nt:copy t:ppm %s%s*Necho %s"
else
   list >t:ConPics sort name split: lformat "t:copy %s%s t:iff*Nt:CMI noprogress format ppm t:iff to t:ppm*Nt:copy t:ppm %s%s*Necho %s"
endif
execute t:conpics
t:del >nil: t:cmi t:conpics t:ppm t:iff env:mode env:mode2 env:flast
stack 30000
mpeg_encode t:an2mp.param
echo >env:msg " Mpeg animation complete."
lab end
t:del >nil: split:#? t:an2mp.param t:copy env:ANIMname env:ANIMdest
Requestchoice >nil: "" "$msg" OK
t:del >nil: env:msg env:xin env:yin env:xout env:yout env:xinh env:din t:del
endcli