home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 20 / AACD20.BIN / AACD / Graphics / PerfectPaint / rexx / general / SaveAnimGif.rx < prev    next >
Text File  |  2000-12-23  |  3KB  |  204 lines
  1. /*     arexx Script 
  2.     SAVE Anim in GIF format
  3.     need in 'PerfectPaint/tools':
  4.     - tapgif
  5.     - WhirlGif
  6. */
  7.  
  8.     options results
  9.     parse ARG Port b
  10.     
  11.     ADDRESS value Port
  12.        options results
  13.  
  14.     pp_CountFrames
  15.     nb=result
  16.     if nb<2 then do
  17.         pp_Warn 'Make*an*Anim*first.'
  18.         EXIT
  19.     end
  20.  
  21.     file=""
  22.     file2=""
  23.     option=0
  24.     option2=0
  25.     if EXISTS('PerfectPaint:Prefs/Rexx_Prefs/SaveAnimGif') THEN DO
  26.         IF OPEN('lfile','PerfectPaint:Prefs/Rexx_Prefs/SaveAnimGif', "R") then DO
  27.             file = READLN('lfile')
  28.             option=READLN('lfile')
  29.             option2=READLN('lfile')
  30.             CALL CLOSE('lfile')
  31.             file2=""
  32.             do i=1 to LENGTH(file)
  33.                 a=SUBSTR(file,i,1)
  34.                 if a=" " then DO
  35.                     a="*"
  36.                 END
  37.                 file2=file2||a
  38.             END
  39.             file=file2
  40.         END
  41.     END
  42.  
  43.     pp_GetDepth
  44.     D=result
  45.     IF D=24 then DO
  46.         pp_RenderReq 1
  47.     END
  48.  
  49.     pp_DialogInit 250 100 "*Save*AnimGif*" 4
  50.         pp_String 0 55 8 150 16 "Name" 1 100 file
  51.  
  52.         n=LASTPOS('/',file)
  53.         if n=0 then DO
  54.             n=LASTPOS(':',file)
  55.             file=SUBSTR(file,1,n)
  56.         END
  57.         else DO            
  58.             file=SUBSTR(file,1,n)
  59.         END
  60.  
  61.         pp_Getfile 1 210 9 0 "Save*AnimGif" 0 file
  62.         pp_Cycle 2 105 28 100 16 "Transparency" 1 "No|Color*0|Current*Bg" option
  63.         pp_Cycle 3 105 48 100 16 "Disposal*method" 1 "None|Not|Background|Previous" option2
  64.     pp_Dialog        
  65.  
  66.     rc=result
  67.     if rc=0 then
  68.         do
  69.             EXIT
  70.         end    
  71.  
  72.     pp_GetDialog 0
  73.     file=result
  74.     IF file="" then DO
  75.         EXIT
  76.     END
  77.  
  78.     file2='PerfectPaint:temp/temp'
  79.  
  80.     pp_GetDialog 2
  81.     option=result
  82.  
  83.     pp_GetDialog 3
  84.     option2=result
  85.  
  86.     CALL SavePrefs('SaveAnimGif',file,option,option2)
  87.     ADDRESS value Port
  88.  
  89.     if option2=0 then
  90.     DO
  91.     dispose='none'
  92.     END
  93.  
  94.     if option2=1 then
  95.     DO
  96.     dispose='not'
  97.     END
  98.  
  99.     if option2=2 then
  100.     DO
  101.     dispose='back'
  102.     END
  103.  
  104.     if option2=3 then
  105.     DO
  106.     dispose='prev'
  107.     END
  108.  
  109.     if option=2 then
  110.     DO
  111.         pp_GetBpen
  112.         Bpen=result
  113.     END
  114.  
  115.     if option=1 then
  116.     DO
  117.         Bpen=0
  118.     END
  119.  
  120.     pp_GotoFrame 1
  121.     pp_GetJiffies
  122.     jiffies=result*2
  123.     filetemp="ram:temp"
  124.  
  125.     ii=''
  126.     IF D=24 then DO
  127.         pp_Render 2 'PerfectPaint:Temp/temp'
  128.         CALL OPEN(out,filetemp,write)
  129.         pp_asay 'Making*GIF*picture|Please*wait*...'
  130.         Do i=1 to nb
  131.             ii=i
  132.             IF i<100 then DO
  133.                 ii='0'||i
  134.                 IF i<10 then DO
  135.                     ii='00'||i
  136.                 END
  137.             END
  138.             address COMMAND
  139.             'perfectpaint:tools/tapgif '||'PerfectPaint:Temp/temp'||ii||' '||'PerfectPaint:Temp/temp.'||ii
  140.             CALL WRITELN(out,'PerfectPaint:Temp/temp.'||ii)                        
  141.         END    
  142.         ADDRESS value Port
  143.         pp_CloseAsay
  144.     END
  145.  
  146.     IF D<24 then DO
  147.         pp_asay 'Saving*GIF*file|Please*wait*...'
  148.         CALL OPEN(out,filetemp,write)
  149.         DO i=1 to nb
  150.             pp_GotoFrame i    
  151.             pp_save 'ram:t/pptemp' 0
  152.             file3=file2||i
  153.             address COMMAND
  154.             'perfectpaint:tools/tapgif '||'ram:t/pptemp '||'"'||file3||'"'
  155.             'delete >nil: ram:t/pptemp'
  156.             CALL WRITELN(out,file3)
  157.             ADDRESS value Port
  158.         END        
  159.         pp_CloseAsay
  160.     END
  161.  
  162.     pp_asay 'Making*Animation|Please*wait*...'
  163.  
  164.     address COMMAND
  165.     CALL CLOSE(out)
  166.  
  167.     if option=0 then
  168.     DO
  169.     'perfectpaint:tools/WhirlGif -time '||jiffies||' -o '||'"'||file||'"'||' -loop '||'-disp '||dispose||' -i ram:temp'    
  170.     END
  171.     ELSE
  172.     DO
  173.     'perfectpaint:tools/WhirlGif -time '||jiffies||' -o '||'"'||file||'"'||' -loop -trans '||Bpen||' -disp '||dispose||' -i ram:temp'
  174.     END
  175.     'delete >nil: PerfectPaint:Temp/?#.*'
  176.  
  177.     ADDRESS value Port
  178.     pp_CloseAsay
  179.  
  180.     address COMMAND
  181.     'delete >nil: ram:temp'
  182.  
  183.     EXIT
  184.     
  185.  
  186.  
  187. SavePrefs: PROCEDURE
  188.     
  189.     Prefname='PerfectPaint:Prefs/Rexx_Prefs/'||ARG(1)
  190.  
  191.     if EXISTS(Prefname) THEN DO
  192.         ADDRESS COMMAND
  193.         'delete >nil: '||Prefname
  194.     END
  195.  
  196.     IF OPEN('pfile',PrefName,'W') THEN DO
  197.  
  198.     do i=2 to ARG()
  199.         CALL WRITELN('pfile',ARG(i))
  200.     end
  201.  
  202.     CALL CLOSE('pfile')
  203.  
  204. RETURN