(** User Mathematica initialization file **)

Begin["System`Private`"]
ImageNumber = 0;
Unprotect[ $DisplayFunction]; Clear[ $DisplayFunction]; $Display = {};
$DisplayFunction := Block[{fid,str,size=800},
fid="/tmp/test."<>ToString[ImageNumber]<>".tiff";
str=Export[fid, #, "TIFF",ImageSize->size];
Run["xv "<>fid<>" &"];
ImageNumber = Mod[ImageNumber+1,10];
If[ StringQ[ str], WriteString[ $Output,str]]; #]&;
End[]
