User:Wakebrdkid/Wikicode/System patches

This page stores code for patches, bug fixes, and improvements for default Mathematica system functionality.

Begin["System`Private`"];

(* fix RasterBox layout from Image to reduce printing artifacts *)
Module[{inside, reverse},
 Image;(* autoload *)
 reverse[data_?ArrayQ] := Reverse@data;
 reverse[rar : HoldPattern@RawArray[type_, _]] := 
  RawArray[type, Reverse@Developer`FromRawArray@rar];
 Unprotect[Image];
 PrependTo[FormatValues[Image],
  HoldPattern[mb : MakeBoxes[im_Image, fmt_] /; ! TrueQ[inside]] :> 
   Block[{inside = True},
    mb /. 
     HoldPattern@RasterBox[data_, {{0, f_}, {c_, 0}}, rest__] :> 
      With[{newData = reverse@data}, 
       TagBox[RasterBox[newData,{{0,0},{c,f}},rest], "ImageReflect"] /; True]
    ]];
 Protect[Image];
 ]

End[];

References

• "Mathematica Stack Exchange Chat Log". Retrieved 1 February 2014.