Huge black lines

[IBazavan]

Hi,

I'm evaluating "GdPicture ToolKit Pro Edition" and I’m trying to remove some black pixels on a black & white picture in order to clean it. I try to read a 1 pixel width vertical line, count the number of black pixels on that line and if this number is smaller than 5, I want to replace all the black pixels on that line with white pixels. I'm using the following code:

Code: Select all

Dim numero As Long
Dim culoare As Long
Dim i, j As Integer

culoare = Imaging1.argb(255, 0, 0, 0)

For j = 1 To 150
Call Imaging1.SetROI(j, 0, 1, 40)
numero = 0
For i = 1 To 40
culoare = Imaging1.PixelGetColor(j, i)
If culoare <> -1 Then numero = numero + 1
Next i
If numero< 5 Then Call Imaging1.AdjustRGB(255, 255, 255)
Next j

DrawPreview

The problem is that on the picture apears 3 vertical large black lines and i can't figure why.
First time, i try to use countcolor() and also i had this problem with huge black lines.
Can anyone help me?
Thank you in advance!

[Tom Moran]

Turn off Antialias and see if that makes a difference.

Tom

[IBazavan]

Hi man and thank you for your answer!

Unfortunately, turning off antialiases didn't have any effect.

I'm attaching a testing picture to see what I'm talking about...

[Loïc]

Hi there !

IBazavan, could you attach your original image for investigations ?

Kind regards,

Loïc

[IBazavan]

Here you have my code (I change it today), my original picture and the result. As you can figure, when I read pixels on horizontal it works fine, but when I read them on verticals it just draws that black lines...

CODE in VB6:

Code: Select all

Private Sub test_img_Click()

Dim test As Boolean
Dim numar As Long
Dim culoare As Long
Dim i, j As Integer

Call Imaging1.ConvertTo1Bpp
DrawPreview

culoare = Imaging1.argb(255, 0, 0, 0)

 'on horizontal works fine:
For i = 1 To 40
Call Imaging1.SetROI(0, i, 150, 1)
numar = 0
numar = Imaging1.CountColor(culoare)
If numar < 5 Then Call Imaging1.AdjustRGB(255, 255, 255)
 DrawPreview
Next i

'on vertical:

For i = 1 To 150
Call Imaging1.SetROI(i, 0, 1, 40)
numar = 0
numar = Imaging1.CountColor(culoare)
If numar < 10 Then Call Imaging1.AdjustRGB(255, 255, 255)
 DrawPreview
Next i

DrawPreview

End Sub

Thank you for your help!

[Loïc]

Hi,

I copied your code and ran it: all is OK.

- Are you sure to run this code on the image you attached ??
- What OS are you using ?
- Are you using the latest GdPicture Pro SDK ?

With best regards,

Loïc

[IBazavan]

Hi Loic,

I use Windows XP Professional with SP2. I downloaded the kit from here:
http://www.gdpicture.com/download/downl ... urepro.php

I'm also attaching a print screen from the application.

[Loïc]

OK thanks.

Please, send me the source code of the application at esupport (at) gdpicture (dot) com.

With best regards,

Loïc

[Loïc]

Hi,

This code should provide expected result:

Code: Select all

Private Sub test_img_Click()
  Dim test As Boolean
  Dim numar As Long
  Dim culoare As Long
  Dim i, j As Integer


  Call Imaging1.FxBlackNWhite

  For j = 0 To 149
    Call Imaging1.SetROI(j, 0, 1, 40)
    numar = 0
    For i = 0 To 39
      culoare = Imaging1.PixelGetColor(j, i)
      If culoare <> -1 Then numar = numar + 1
    Next i
    If numar < 6 Then Call Imaging1.AdjustRGB(255, 255, 255)
  Next j
 
  DrawPreview
End Sub

Kind regards,

Loïc

[IBazavan]

It works fine, thank you very much for your help!

[Loïc]

You are welcome. Thank you for your feedback !

Loïc