home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Graphics / PerfectPaint / rexx / bridge / MkAnimPict.rx < prev    next >
Text File  |  2000-04-09  |  816b  |  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.     Preview=0
  12.     pp_DialogInit 250 60 "*Preview*Size*" 1
  13.         pp_Cycle 0 100 8 100 16 "Size" 1 "96x96|144x144|192x192" Preview
  14.     pp_Dialog
  15.     rc=result
  16.     if rc=0 then
  17.         do
  18.             EXIT
  19.         end        
  20.  
  21.     pp_GetDialog 0
  22.     Preview=result
  23.  
  24.     pp_AskMultiFile 'Load*Pictures'
  25.     count=result
  26.  
  27.     file="Ram:MultiFile"
  28.     IF OPEN("g",file,"read") then DO
  29.         file=READLN("g")
  30.         pp_Load file
  31.         pp_MakeAnim count Preview
  32.         pp_CountFrames
  33.         count=result
  34.         Do i=1 to count-1
  35.             pp_FastNextFrame
  36.             file=READLN("g")
  37.             pp_Bload file
  38.             pp_GetWidthB
  39.             w=result
  40.             IF w=0 then DO
  41.                 EXIT
  42.             END
  43.             pp_GetHeightB
  44.             h=result
  45.             x=w/2
  46.             y=h/2
  47.             pp_Plot x y
  48.         END
  49.         CALL close(file)        
  50.         pp_GotoFrame 1
  51.     END
  52.     pp_FreeBrush
  53.     pp_PermitRefresh
  54.     
  55.  
  56.  
  57.