home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 127 / af127a.adf / PerfectPaint.lzx / PerfectPaint / rexx / general / SaveGif_Brush.rx < prev    next >
Text File  |  1999-06-17  |  937b  |  64 lines
  1. /*     arexx Script 
  2.     SAVE Brush in gif format
  3.     need 'tapgif' in PerfectPaint:tools/
  4. */
  5.  
  6.     options results
  7.     parse ARG Port b
  8.     
  9.     ADDRESS value Port
  10.  
  11.     pp_showscreen
  12.  
  13.     pp_DialogInit 250 90 "*Save*Gif*Brush*" 3
  14.         pp_String 0 50 12 150 16 "Name" 1 100 "ram:Noname.GIF"
  15.         pp_Getfile 1 205 13 0 "Save*Gif" 0 "ram:"
  16.         pp_Cycle 2 100 32 100 16 "Transparency" 1 "No|Color*0|Current*Bg" 0
  17.     pp_Dialog    
  18.  
  19.     rc=result
  20.     if rc=0 then
  21.         do
  22.             EXIT
  23.         end    
  24.  
  25.     pp_GetDialog 0
  26.     file=result
  27.  
  28.     pp_GetDialog 2
  29.     option=result
  30.  
  31.  
  32.     if option=2 then
  33.     DO
  34.         pp_GetBpen
  35.         Bpen=result
  36.     END
  37.  
  38.     if option=1 then
  39.     DO
  40.         Bpen=0
  41.     END
  42.     
  43.     pp_asay 'Saving*GIF*file|Please*wait*...'
  44.     pp_Bsave 'ram:t/pptemp' 0
  45.  
  46.     address COMMAND
  47.     if option=0 then
  48.     DO
  49.         'perfectpaint:tools/tapgif '||'ram:t/pptemp '||'"'||file||'"'
  50.     END
  51.     ELSE
  52.     DO
  53.         'perfectpaint:tools/tapgif '||'ram:t/pptemp '||'"'||file||'"'||' TRAN '||Bpen
  54.     END
  55.  
  56.     'delete >nil: ram:t/pptemp'
  57.  
  58.     ADDRESS value Port
  59.     pp_closeasay
  60.  
  61.     end    
  62.  
  63.  
  64.