(clear)
; drag an image on the window
(open $path)
;
(pixels saturation 0
  (rect 100 100 400 400))
(pixels  contrast 0.5
  (rect 300 300 400 400))