home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 20 / AACD20.BIN / AACD / Graphics / PerfectPaint / rexx / circle / AnimPulsar.rx < prev    next >
Text File  |  1999-01-30  |  247b  |  21 lines
  1. /* Circle arexx test 
  2.     Anim Pulsar*/
  3.  
  4.     options results
  5.     parse ARG Port x1 y1 r b
  6.     ADDRESS value Port
  7.  
  8.     pp_CountFrames
  9.     nb=result
  10.     IF nb<2 then DO
  11.         pp_Warn 'Make*an*Anim*first.'
  12.         EXIT
  13.     END    
  14.  
  15.     do i=1 to r
  16.         pp_Circle x1 y1 i
  17.         pp_NextFrame
  18.     end
  19.  
  20.  
  21.