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: [mg104441] Re: [mg104399] bitmap with bit depth 1
  • From: Patrick Scheibe <pscheibe at trm.uni-leipzig.de>
  • Date: Sat, 31 Oct 2009 01:55:24 -0500 (EST)
  • References: <200910300719.CAA27777@smc.vnet.net>

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

On Fri, 2009-10-30 at 02:19 -0500, van der Burgt, Maarten wrote:
> Hallo,
> 
> 
> 
> Using Mathematica 7.0.1 for Windows, I want to create binary bitmap 
> (Windows BMP format) images with a bit depth of 1 (generally grey scale 
> or color bitmap images have a bit depth of 8 or 24)
> 
> 
> 
> Here is my data:
> 
> 
> 
> dat =RandomInteger[{0,1},{200,200}]
> 
> 
> 
> The image generated from it looks ok:
> 
> 
> 
> im = Image[dat,"Bit"]
> 
> 
> 
> The right mouse click on the image and selecting Image Mode indeed tells 
> me the image is binary with a bit depth of 1 bit/Channel. As does:
> 
> 
> 
> {ImageChannels[im], BinaryImageQ[im],ImageType[im]}
> 
> {1,True,Bit}
> 
> 
> 
> But all the images exported:
> 
> Export["test1.bmp",im];
> 
> Export["test2.bmp",im, "ColorDepth"=AE1];
> 
> Export["test3.bmp",im, "BitDepth"=AE1];
> 
> Export["test4.bmp",im, "BitDepth"=AE1,"ColorDepth"=AE1];
> 
> 
> 
> are 8 bit greyscale images.
> 
> Saving the image via the right mouse click on the image and choosing 
> =93Save Image As..=94 saves a 24 bit image.
> 
> 
> 
> I current solution is the use of another package to reduce the bit 
> depth, but this is not satisfactory. 
> 
> 
> 
> Am I doing something wrong here or is Mathematica failing here?
> 
> 
> 
> On top of this, I cannot import these image back into mathematica:
> 
> 
> 
> Import["test4.bmp" ]
> 
> Import::fmterr: Cannot import data as \[NoBreak]BMP\[NoBreak] format. 
> =87 =
> <http://reference.wolfram.com/mathematica/ref/message/Import/fmterr.html>
> 
> $Failed
> 
> 
> 
> Any help is appreciated.
> 
> 
> 
> regards
> 
> 
> 
> Maarten
> 
> 
> 



  • Prev by Date: Multiply 2 matrices where one contains differential operators with one that contains functions of x and y
  • Next by Date: Version numbesr. Was Re: ToExpression[.., TexForm]
  • Previous by thread: bitmap with bit depth 1
  • Next by thread: Memory Management Issue - Possible Bug or Incompatibility w W7?