home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 20 / AACD20.BIN / AACD / Graphics / PerfectPaint / rexx / bridge / MkAnimPict.rx < prev    next >
Text File  |  2001-03-08  |  650b  |  50 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.     file="Ram:MultiFile"
  21.     IF OPEN("g",file,"read") then DO
  22.         file=READLN("g")
  23.         pp_Load file
  24.         pp_MakeAnim count
  25.         pp_CountFrames
  26.         count=result
  27.         Do i=1 to count-1
  28.             pp_FastNextFrame
  29.             file=READLN("g")
  30.             pp_Bload file
  31.             pp_GetWidthB
  32.             w=result
  33.             IF w=0 then DO
  34.                 EXIT
  35.             END
  36.             pp_GetHeightB
  37.             h=result
  38.             x=w/2
  39.             y=h/2
  40.             pp_Plot x y
  41.         END
  42.         CALL close(file)        
  43.         pp_GotoFrame 1
  44.     END
  45.     pp_FreeBrush
  46.     pp_PermitRefresh
  47.     
  48.  
  49.  
  50.