Resizing and Freeing Images

BlitzMax Forums/BlitzMax Beginners Area/Resizing and Freeing Images

Graphics 640,480
image = LoadImage("max.png",dynamicimage)
DrawImage image,0,0
DrawText "Original : " ,0,0
Flip
WaitKey()
my_pixmap = LockImage(image)
my_new_pixmap = ResizePixmap (my_pixmap,100,100)
UnlockImage(image)
image=LoadImage(my_new_pixmap)
WaitKey()
Cls
DrawImage image,0,0
DrawText "Resized : ",0,0
Flip
WaitKey()