home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Image_026_Swirl.bas < prev    next >
Encoding:
BASIC Source File  |  2004-03-26  |  441 b   |  21 lines
  1. iOld = CreateImage( 1,1 )    
  2. Image(iOld).CopyFrom(0)
  3. for i = 0 to 720 step 18
  4.     Image(0).CopyFrom( iOld )
  5.     Image(0).Swirl ( Image(0).Width/2 ,Image(0).Height/2, i )
  6.     ReDraw(1)
  7. Next
  8.  
  9. Image(0).CopyFrom( iOld )
  10. for i = 0 to 180 step 9
  11.     Image(0).Swirl ( Image(0).Width/2 ,Image(0).Height/2, i )
  12.     ReDraw(1)
  13. Next
  14.  
  15. for i = 0 to 720 step 18
  16.     Image(0).CopyFrom( iOld )
  17.     Image(0).Swirl ( i,i, i )
  18.     ReDraw(1)
  19. Next
  20. Image(iOld).Delete()
  21.