Function SaveBMP(img, file$)

Save an image to a *.bmp file

title$ = "Sprite Test" 
w = 640 
h = 480 
fullscreen = FALSE 
vsync = FALSE 
  
OpenWindow( title$, w, h, fullscreen, vsync ) 
  
my_canvas = OpenCanvas(w, h, 0, 0, w, h, 1) 
  
Canvas(my_canvas) 
  
SetColor(RGB(255,0, 0)) 
CircleFill(50, 50, 25) 
  
SetColor(RGB(0, 255, 0)) 
CircleFill(590, 50, 25) 
  
SetColor(RGB(0, 0, 255)) 
CircleFill(590, 430, 25) 
  
img = CanvasClip(0, 0, 640, 480) 
SaveBMP(img, "test.bmp") 
  
Update() 
WaitKey()