Re: Undocumented functions for working with graphics
- To: mathgroup at smc.vnet.net
- Subject: [mg101188] Re: Undocumented functions for working with graphics
- From: Alexey <lehin.p at gmail.com>
- Date: Fri, 26 Jun 2009 06:50:42 -0400 (EDT)
- References: <h0qogh$kkq$1@smc.vnet.net> <h0sbok$h8i$1@smc.vnet.net>
Thank you again!
But how can I understand the real meaning of such variables (?) as
Image`ImageDump`cf, Image`ImageDump`list etc.?
On 25 Jun, 15:09, David Reiss <dbre... at gmail.com> wrote:
> Hi there...
>
> When I posted the result to MathGroup, I did edit it a bit to remove
> the Image`ImageDump` context prefixes so that it would be easier to
> read. I simply did a global replace for the string Image`ImageDump`
> so that the resulting code fragment would be more readable.
>
> These bits of code that are high level Mathematica code often have
> these various contexts in them based on how Wolfram research handles
> internal not-for-general-consumption Mathematica code.
>
> Also some folks may have noticed that one gets a different answer if
> one tries to obtain the code in a fresh Mathematica session. This is
> because the code in some of these these contexts is not loaded until
> one actually tries to first make use fo the function.
>
> So, for example, executing something like
>
> Image[ {{0, 1, 0}, {1, 0, 1}, {0, 1, 0}}]
>
> Will load that code and then subsequently going through the process
> that I outlined will create the code that I showed.
>
> Best,
>
> Davidhttp://scientificarts.com/worklife
>
> On Jun 24, 6:34 am, Alexey <lehi... at gmail.com> wrote:
>
> > Thank you very much! The method you have described is great. Some
> > times for using it I must launch Mathematica with "-cleanStart" key
> > for clearing the dump. But for Image`ToGraphicsRaster I can not get
> > your "clear" code. My result contains unknown functions like
> > Image`ImageDump`list with no attributes:
>
> > In[1]:= ClearAttributes[Image`ToGraphicsRaster, {Protected,
> > ReadProtected}]
> > ?Image`ToGraphicsRaster
>
> > Output:
>
> > Image`ToGraphicsRaster[Image`ImageDump`list:{_?
> > Image`ValidImageQ..}]:=Image`ToGraphicsRaster/@Image`ImageDump`list
>
> > Image`ToGraphicsRaster[Image`ImageDump`img_?Image`ValidImageQ]:=Modul=
e
> > [{Image`ImageDump`width,Image`ImageDump`height,Image`ImageDump`range,Im=
ag=
> e` =
> > ImageDump`cf,Image`ImageDump`data,Image`ImageDump`interleaving,Image`Im=
ag=
> eD =
> > ump`imsize},
> > {{Image`ImageDump`width,Image`ImageDump`height},Image`ImageDump`range,I=
ma=
> ge =
> > `ImageDump`cf}
> > =ImageData[Image`ImageDump`img,
> > {ImageDimensions,DataRange,ColorFunction}];
> > {Image`ImageDump`interleaving,Image`ImageDump`imsize}=
> > {Interleaving,ImageSize}/.Options[Image`ImageDump`img]/.Options
> > [Image];If
> > [Image`ImageDump`interleaving===False,Image`ImageDump`data=Reve=
rs=
> e
> > [ImageData[Image`ImageDump`img,Interleaving->True]],Image`ImageDump`dat=
a=
> =Reverse[First
>
> > [Image`ImageDump`img]]];Graphics[Raster[Image`ImageDump`data,{{0,0},
> > {Image`ImageDump`width,Image`ImageDump`height}},Image`ImageDump`range,C=
ol=
> or =
> > Function->Image`ImageDump`cf],If[Image`ImageDump`imsize===Automat=
ic=
> ||
>
> > Image`ImageDump`imsize===All,ImageSize->
> > {Image`ImageDump`width,Image`ImageDump`height},ImageSize->Image`ImageDu=
mp=
>
> `imsize],PlotRange->{{0,Image`ImageDump`width},
>
>
>
> > {0,Image`ImageDump`height}}]]
>
> > How did you get your "clear" code?
>
> > On 12 Jun, 05:41, David Reiss <dbre... at gmail.com> wrote:
>
> > > ...just following up on the method for reverse engineering of my
> > > previous post, here is part of the code for ToGraphicsRaster obtai=
ne=
> d
> > > using that approach:
>
> > > Image`ToGraphicsRaster[img_?Image`ValidImageQ] :=
> > > Module[{width, height, range, cf, data, interleaving,
> > > imsize}, {{width, height}, range, cf} =
> > > ImageData[
> > > img, {ImageDimensions, DataRange, ColorFunction}]; {interleav=
in=
> g,
> > > imsize} = {Interleaving, ImageSize} /. Options[img] /.
> > > Options[Image];
> > > If[interleaving === False,
> > > data = Reverse[ImageData[img, Interleaving -> True]],
> > > data = Reverse[First[img]]];
> > > "Graphics"[
> > > Raster[data, {{0, 0}, {width, height}}, range,
> > > ColorFunction -> cf],
> > > If[imsize === Automatic || imsize === All,
> > > ImageSize -> {width, height}, ImageSize -> imsize],
> > > PlotRange -> {{0, width}, {0, height}}]]
>
> > > On Jun 11, 7:06 am, Alexey <lehi... at gmail.com> wrote:
>
> > > > Hello,
>
> > > > Does anyone know where such functions as "Image`ToGraphicsRaster=
" =
> an=
> > d
> > > > "Image`PossibleImageQ" are documented. Are there other such built-i=
n
> > > > functions? At this moment I even can't imagine from where (except t=
hi=
> s
> > > > group) I could learn that functions mentioned exist...
>
>