Set image directory

If[StringQ[$ImagePath], $path = $ImagePath, $path = "."] ; SetDirectory[$path] ;


Created by Mathematica  (February 16, 2004)