Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: bitmap with bit depth 1

  • To: mathgroup at smc.vnet.net
  • Subject: [mg104444] Re: bitmap with bit depth 1
  • From: ADL <alberto.dilullo at tiscali.it>
  • Date: Sun, 1 Nov 2009 03:56:27 -0500 (EST)
  • References: <200910300719.CAA27777@smc.vnet.net> <hcgplj$egu$1@smc.vnet.net>

Those who love Mickey Mouse, you may enjoy this:

Manipulate[
 Image[Reverse[
   Table[If[(x^2 + y^2 - 1)^3 > x^2*y^3 + off, 0, 1], {y, -2., 2.,
     2.^(-6)},
         {x, -2., 2., 2.^(-6)}]], "Bit"], {off, -0.08, 0, 0.001}]


ADL

On Oct 31, 8:40 am, Patrick Scheibe <psche... at trm.uni-leipzig.de>
wrote:
> Hi,
>
> has it to be a bmp? If not then
>
> Image[Reverse@
>   Table[If[(x^2 + y^2 - 1)^3 - x^2 y^3 > 0.0, 0, 1], {y, -2, 2,
>     4/255.}, {x, -2, 2, 4/255.}], "Bit"]
> Export["~/tmp/binimg.pbm", %]
> {ImageType[#], ImageChannels[#], ImageDimensions[#]} &@Import[%]
>
> should help.
>
> Cheers
> Patrick
>


  • Prev by Date: Mathematica and desktop search
  • Next by Date: Factor and/or Rules replacements
  • Previous by thread: Re: Mathematica and desktop search
  • Next by thread: Re: Re: bitmap with bit depth 1