|
From: Trevor W. <pha...@me...> - 2015-05-30 21:17:00
|
Here’s a test script. If the script works correctly, the image should be green ‘C’ shape with blue on the inside of the C shape and white on the outside. If the script fails, image will not contain any blue on the inside of the C. I am only seeing this issue on the Mac (version 8.5.18). It appears to work with 8.5.8 but broken in 8.5.9. I verified that at least 8.5.15 on a Kubuntu 15.04 system appears to render the graphic properly.
set data "#define left_width 8\n#define left_height 20\nstatic char left_bits\[\] = {\n0xc0, 0xf0, 0x38, 0x0c, 0x06, 0x06, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x06, 0x06, 0x0c, 0x38, 0xf0, 0xc0};"
set mask "#define left_mask_width 8\n#define left_mask_height 20\nstatic char left_mask_bits\[\] = {\n0xff, 0xff, 0x3f, 0x0f, 0x07, 0x07, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0x07, 0x07, 0x0f, 0x3f, 0xff, 0xff};"
set img [image create bitmap -data $data -maskdata $mask -foreground green -background white]
pack [label .l -image $img -borderwidth 0 -background blue]
Thanks,
Trevor
> On May 30, 2015, at 9:56 AM, Kevin Walzer <kw...@co...> wrote:
>
> Trevor,
>
> There is nothing to go on here to reproduce the issue. Can you please post a sample script that illustrates what you see? Also, is this a Mac-specific issue, or visible on other platforms as well?
>
> Kevin
>
> On 5/30/15 1:23 AM, pha...@ic... <mailto:pha...@ic...> wrote:
>> I have noticed that bitmask image support appears to be broken in regards to the -maskdata option. According to the documentation, any bit in the data that is cleared should be transparent, but this doesn't seem to be the case.
>>
>>
>>
>> Thanks,
>> Trevor
>>
>
> --
> Kevin Walzer
> Code by Kevin/Mobile Code by Kevin
> http://www.codebykevin.com <http://www.codebykevin.com/>
> http://www.wtmobilesoftware.com <http://www.wtmobilesoftware.com/>
> ------------------------------------------------------------------------------
> _______________________________________________
> Tcl-mac mailing list
> tc...@li...
> https://lists.sourceforge.net/lists/listinfo/tcl-mac
|