#load "graphics.cma";;
Graphics.open_graph " 100x100";;
 
(* rectangle bleu back et front *)
Graphics.set_color Graphics.blue;;
Graphics.fill_rect 0 0 50 50;;
let bleue = Graphics.dump_image (Graphics.get_image 0 0 4 4);;
 
(* rectangle vert front *) 
Graphics.set_color Graphics.green;;
Graphics.remember_mode false;;
Graphics.fill_rect 0 0 50 50;;
let verte = Graphics.dump_image (Graphics.get_image 0 0 4 4);;
verte = blue;; (* <-- true *)

(* rectangle vert back et front *) 
Graphics.remember_mode true;;
Graphics.fill_rect 0 0 50 50;;
let verte = Graphics.dump_image (Graphics.get_image 0 0 4 4);;
verte = bleue;; (* <-- false *)
Graphics.close_graph ();;