home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_Image_025_Spherize.bas < prev    next >
BASIC Source File  |  2004-03-26  |  540b  |  24 lines
  1. iOld = CreateImage( 1,1 )    
  2. Image(iOld).CopyFrom(0)
  3. for i = 0 to 200 step 10  ' -500 ... +500
  4.     Image(0).CopyFrom( iOld )
  5.     Image(0).Spherize( Image(0).Width/2 ,Image(0).Height/2, i )
  6.     ReDraw(1)
  7. Next
  8.  
  9. Image(0).CopyFrom( iOld )
  10. for i = 200 to -100 step -10
  11.     Image(0).CopyFrom( iOld )
  12.     Image(0).Spherize( Image(0).Width/2 ,Image(0).Height/2, i )
  13.     ReDraw(1)
  14. Next
  15.  
  16. for i = 0 to Image(0).Height step 10
  17.     Image(0).CopyFrom( iOld )
  18.     Image(0).Spherize( i,i, -50 )
  19.     ReDraw(1)
  20. Next
  21. Image(0).CopyFrom( iOld )
  22. Image(iOld).Delete()
  23.  
  24.