home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Image_012_Resample.bas < prev    next >
Encoding:
BASIC Source File  |  2003-11-26  |  235 b   |  8 lines
  1. ' Example fixed width + height
  2. ' Image( 0 ).Resample( 400, 500 )
  3.  
  4. ' Example fixed width, proportional height
  5. newWidth  = 400
  6. newHeight = newWidth * Image( 0 ).Height / Image( 0 ).Width
  7. Image( 0 ).Resample( newWidth, newHeight )
  8.