; crop
(clear)
(open $path)
(crop 
  (rect 100 100 400 400))