home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Image_020_PlaneBend.bas < prev    next >
Encoding:
BASIC Source File  |  2004-03-27  |  1.4 KB  |  34 lines
  1. iOld = CreateImage( 1,1 )    
  2. iSav = CreateImage( 1,1 )    
  3. Image(iSav).CopyFrom(0)
  4.  
  5. w = Image(0).Width
  6. h = Image(0).Height
  7. Image(0).Resample( w*2, h*2 )
  8. Image(0).Color = _ColorBlack
  9. Image(0).DrawImage( 0,0, w, h, iSav )
  10. Image(0).DrawImage( w, h, w, h, iSav )
  11. Image(iOld).CopyFrom(0)
  12. Image(iOld).Rotate( 18000, 0 )
  13.  
  14. for i = 0 to Image(0).Width step (Image(0).Width/10)
  15.     Image(0).CopyFrom( iOld )
  16.                       ' x,y, Zaxis, Distance,        PlaneOffset,      Repeat, PydAngle, Stretch, BendFactor, StartBright, EndBright, BrightLength, Bright,      Fill,        Flags )
  17.     Image(0).PlaneBend( i,1, 0,     Image(0).Height, Image(0).Width/2, -1,     900,      100,     400,        0,           100,       20000,        _ColorBlack, _ColorBlack, _PLaneDown )
  18.     ReDraw(1)
  19. Next
  20. Image(iOld).Rotate( 18000, 0 )
  21.  
  22. for i = 0 to Image(0).Height step (Image(0).Height/10)
  23.     Image(0).CopyFrom( iOld )
  24.                       ' x,               y, Zaxis, Distance,        PlaneOffset,      Repeat, PydAngle, Stretch, BendFactor, StartBright, EndBright, BrightLength, Bright, Fill, Flags )
  25.     Image(0).PlaneBend( Image(0).Width/2,i, 0,     Image(0).Height, Image(0).Width/2, -1,     900,        100,     400,0,100, 20000, _ColorBlack, _ColorBlack, _PLaneLeft+_PlaneRight )
  26.     ReDraw(1)
  27. Next
  28. Sleep(1000)
  29.  
  30. Image(0).CopyFrom( iSav )
  31. Image(iOld).Delete()
  32. Image(iSav).Delete()
  33.  
  34.