Wolfram Mathematica

« first day (746 days earlier) ← previous day next day → last day (3728 days later) »

3:56 AM

@MichaelHale It almost works fine (still a few artifacts but way less) when I changed all the RasterBoxes so their coordinates aren't "reversed" as in images.

reverse[data_?ArrayQ] := Reverse@data;
reverse[rar : HoldPattern@RawArray[type_, _]] :=
  RawArray[type, Reverse@Developer`FromRawArray@rar];
createPrintable[nb_NotebookObject] := NotebookPut[NotebookGet[nb] /.
     HoldPattern@RasterBox[data_, {{0, f_}, {c_, 0}}, rest__] :>
      With[{newData = reverse@data},
       RasterBox[newData, {{0, 0}, {c, f}}, rest] /; True]];

That was good enough for now

Michael Hale

Good tip. I don't think I would have tried that.

Rojo

@MichaelHale Me either. Spelunking led me there. I'm going to try and fix the MakeBoxing of Image for good

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},
       RasterBox[newData, {{0, 0}, {c, f}}, rest] /; True]

Time will tell if I get into trouble for this

Michael Hale

4:26 AM

Looks good to me. I'll make a place to store user-implemented optimizations and bug fixes on Wikicode.

User:Wakebrdkid/Wikicode/System patches

This page stores code for patches, bug fixes, and improvements for default Mathematica system functionality. (* 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__] :> ...

4 hours later…