Welcome Guest! To enable all features, please Login or Register.

Notification

Icon
Error

Options
View
Last Go to last post Unread Go to first unread post
#1 Posted : Tuesday, April 15, 2008 2:37:27 AM(UTC)

yourneo  
yourneo

Groups: Registered
Posts: 2


I Use
: Leadtools V15 ( 15.0.1.3)
: VB .Net 2005


The Image will be attatch.

I use despeckle command and try to remove black spots on the image
but black spots still exist, any spots are not removed

This Command not run?

please help me.

ps. image is 12bit grayscale.if you nead whole image , i will send it by e-mail

 

 

Try the latest version of LEADTOOLS for free for 60 days by downloading the evaluation: https://www.leadtools.com/downloads

Wanna join the discussion? Login to your LEADTOOLS Support accountor Register a new forum account.

#2 Posted : Tuesday, April 15, 2008 2:38:29 AM(UTC)

yourneo  
yourneo

Groups: Registered
Posts: 2


sample image
yourneo attached the following image(s):
blackspots.JPG
 
#3 Posted : Tuesday, April 15, 2008 6:02:16 AM(UTC)

Adam Boulad  
Guest

Groups: Guests
Posts: 3,034

Was thanked: 2 time(s) in 2 post(s)

The image that you sent me is 24 bit. Can you please send me the source image in a ZIP or RAR file? You can either send it to support@leadtools.com and mention this post or post it her without hitting preview when attaching.
 
#4 Posted : Tuesday, April 15, 2008 8:32:05 PM(UTC)

Neo.Ko  
Neo.Ko

Groups: Registered
Posts: 17


Hi

yes, this image is 24bpp

I change this image to 12 bpp grayscale image using below code
//---------------------------------
 if Img Is Nothing Then Return
                If Img.GrayscaleMode <> RasterGrayscaleMode.None AndAlso _
                                Img.BitsPerPixel = _Img_BitPerPixel Then Return
                Dim cmd As New GrayscaleCommand(_Img_BitStored)
                cmd.Run(Img)

_img_BitStored = 12
_Img_BitPerPixel = 16
//---------------------------------


and use shift command
//---------------------------------
                If Img Is Nothing Then Return
                If Img.BitsPerPixel = _Img_BitPerPixel Then Return

                Dim cmd As New ShiftDataCommand
                cmd.DestinationBitsPerPixel = _Img_BitPerPixel
                cmd.DestinationLowBit = 0
                cmd.SourceHighBit = 11
                cmd.SourceLowBit = 0
                cmd.Run(Img)
                Img = cmd.DestinationImage.Clone

                Img.LowBit = 0
                Img.HighBit = 11
//---------------------------------
 

I will send you image 24bpp

I expect you to suggest the best way~ ;-)

Thank you

 
#5 Posted : Wednesday, April 16, 2008 9:37:09 AM(UTC)

Adam Boulad  
Guest

Groups: Guests
Posts: 3,034

Was thanked: 2 time(s) in 2 post(s)




I
got the complete image. It doesn't matter if the image is 24-bit or 12-bit,
since in all cases the image will not have more than 256 shades of gray because its origin was 24-bit.


Anyway, the de-speckle function will not work here
because the black dots are not surrounded by white space. If you want to
'dissolve' these black dots, you can do that using the Median function with a
dimension of 3. This will slightly blur the image, but it's a quick way to get rid of the speckles.
 
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.

Powered by YAF.NET | YAF.NET © 2003-2020, Yet Another Forum.NET
This page was generated in 0.249 seconds.