home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Image_021_Punch.bas < prev    next >
Encoding:
BASIC Source File  |  2004-03-26  |  531 b   |  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).Punch( 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).Punch( 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).Punch( i,i, -50 )
  19.     ReDraw(1)
  20. Next
  21. Image(0).CopyFrom( iOld )
  22. Image(iOld).Delete()
  23.  
  24.