home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 20 / AACD20.BIN / AACD / Graphics / PerfectPaint / rexx / bridge / MkAnimDCTV_Pict.rx < prev    next >
Text File  |  2001-03-08  |  888b  |  57 lines
  1. /*     arexx Script 
  2.     Make anim with pictures
  3. */
  4.  
  5.     options results
  6.     parse ARG Port b
  7.     
  8.     ADDRESS value Port
  9.     pp_AvoidRefresh
  10.  
  11.     pp_AnimGui 1
  12.     if result<0 then
  13.         do
  14.             EXIT
  15.         end
  16.  
  17.     pp_AskMultiFile 'Load*Pictures'
  18.     count=result
  19.  
  20.     pp_AliasOn
  21.     file="Ram:MultiFile"
  22.     IF OPEN("g",file,"read") then DO
  23.         file=READLN("g")
  24.         pp_New 352 282 9
  25.         pp_MakeAnim count
  26.         pp_CountFrames
  27.         count=result
  28.         Do i=1 to count-1
  29.             file=READLN("g")
  30.             pp_ProgressText 'DCTVtoILBM*#'||i
  31.             ADDRESS command;'C:ReadDCTV '||file||' ram:DCTVtemp'
  32.             ADDRESS value Port
  33.             pp_ProgressText 'Ld*Brush*#'||i
  34.             pp_Bload 'ram:DCTVtemp'
  35.             pp_GetWidthB
  36.             w=result
  37.             pp_GetHeightB
  38.             h=result
  39.             pp_ScaleBrush w/2 h
  40.             IF w=0 then DO
  41.                 EXIT
  42.             END
  43.             x=w/4
  44.             y=h/2
  45.             pp_Plot x y
  46.             pp_FastNextFrame
  47.         END
  48.         CALL close(file)        
  49.         pp_GotoFrame 1
  50.     END
  51.     pp_FreeBrush
  52.     pp_PermitRefresh
  53.     ADDRESS Command;'delete ram:DCTVtemp'
  54.     
  55.  
  56.  
  57.