home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 127 / af127a.adf / PerfectPaint.lzx / PerfectPaint / rexx / circle / AnimPainting_Circle.rx next >
Text File  |  1999-06-17  |  700b  |  47 lines
  1. /* Script Rexx
  2.     AnimPainting for Circle*/
  3.  
  4.     call addlib("rexxmathlib.library", 5, -30, 0)
  5.  
  6.     options results
  7.        parse ARG Port x1 y1 r b
  8.     ADDRESS value Port
  9.  
  10.     pp_DialogInit 250 60 "*AnimPainting*Circle*" 1
  11.         pp_Cycle 0 100 8 100 16 "Order" 1 "--->|<---" 0
  12.     pp_Dialog
  13.     rc=result
  14.     if rc=0 then
  15.         do
  16.             EXIT
  17.         end        
  18.  
  19.     pp_GetDialog 0
  20.     sens=result
  21.  
  22.     pp_CountFrames
  23.     nb=result
  24.     IF nb<2 then DO
  25.         pp_Warn 'Make*an*Anim*first.'
  26.         EXIT
  27.     END    
  28.  
  29.     Pi=3.1415926/180
  30.  
  31.     if sens=0 then DO
  32.       DO i=359 To 0 by -1
  33.         x = Sin(i*Pi)*r+x1
  34.       y = Cos(i*Pi)*r+y1
  35.             pp_Plot x y
  36.             pp_NextFrame
  37.     END
  38.     END
  39.     ELSE
  40.     DO i=0 To 359
  41.         x = Sin(i*Pi)*r+x1
  42.       y = Cos(i*Pi)*r+y1
  43.             pp_Plot x y
  44.             pp_NextFrame
  45.          END
  46.  
  47.