Function ResizeImage:TImage(image:TImage,new_width:Short)
   Local new_height:Short = (image.height*new_width/image.width)
   
   Local pix:TPixmap=LockImage(image)
   pix=ResizePixmap(pix,new_width,new_height)
   UnlockImage(image)   
   Return LoadImage(pix)
End Function

Strict

Framework BRL.GlMax2d

Import BRL.JpgLoader
Import BRL.Retro

SetGraphicsDriver GLMax2DDriver()
Graphics 800,600,0,0
SetBlend ALPHABLEND

Global pic:TImage = LoadImage("pic.jpg")
SeedRnd MilliSecs()

Repeat
   Cls
   
   If KeyHit(KEY_SPACE)
      Local width:Short = Rnd(320,800)
      pic = ResizeImage(pic,width)
   EndIf
   
   DrawImage pic,0,0
   
   Flip
   FlushMem()
Until KeyHit(KEY_ESCAPE)
End


Function ResizeImage:TImage(image:TImage,new_width:Short)
   Global backup:TIMage
   If backup = Null Then backup = image
   
   Local new_height:Short = (backup.height*new_width/backup.width)
   
   Local pix:TPixmap=LockImage(backup)
   pix=ResizePixmap(pix,new_width,new_height)
   UnlockImage(backup)
      
   Return LoadImage(pix)
End Function