I’m trying to keep to the same codebase otherwise there will be a lot of code changes to support 48 Bit.
This is what I have so far, in terms of coming out with an alternative WriteRGB
[code] t.PlanarConfig = 1
t.Photometric = 2
t.SamplesPerPixel = 3
t.BitsPerSample = 16
t.FillOrder = 1
t.Orientation = 1
t.ResolutionUnit = 2
dim current as new picturembs(t.pict.CopyPictureMBS)
t.height = current.height
t.width = current.width
dim h as integer = current.height-1
for i as integer = 0 to h
t.scanline(i) = current.RowInFormat(i,picturembs.ImageFormatRGB)
next
[/code]
This is my original Picture
and this is the one which came out after using the code above
(In the above, I’ve saved the file as a PNG for this post but the result looks exactly as above).
Is there anything I would need to change in my code ? It did reflect that it is a 48 Bit TIFF, just that the picture seems squashed and the color is off with some color bars on the right.