home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 106 / EnigmaAmiga106CD.iso / software / grafica / perfectpaint / rexx / circle / spare_transition.rx < prev    next >
Encoding:
Text File  |  1999-02-09  |  274 b   |  29 lines
  1. /* Circle arexx test */
  2.  
  3.  
  4.     options results
  5.   parse ARG Port x1 y1 r b
  6.     ADDRESS value Port
  7.  
  8.     pp_EffectOn
  9.  
  10.     pp_GetWidth
  11.     width=result
  12.  
  13.     pp_GetHeight
  14.     height=result
  15.  
  16.     pp_MakeAnim 11
  17.     
  18.     j=3
  19.  
  20.     do i=0 to 100 by 10
  21.         pp_spray 4 i
  22.         pp_Boxf 0 0 width height
  23.         pp_nextFrame
  24.     end
  25.  
  26.  
  27.  
  28.  
  29.