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
>