Android Question Can I find the only empty distance in the picture

[alfaiz678]

Hello
Here's a simple example.
I have imageView1 on it.
And another tool label1 has writing
Can I find the only empty distance in the image and put label1 on top of it?
I heard about something called the picture chart, through which you can access every part of the picture.

Do any of you have any idea about this?
and thanks

 

[TILogistic]

see post:

CSBuilder marking based on regex pattern

This sub searches for matches and uses CSBuilder to mark the matches. Sub MarkPattern(Input As String, Pattern As String, GroupNumber As Int) As CSBuilder Dim cs As CSBuilder cs.Initialize Dim lastMatchEnd As Int = 0 Dim m As Matcher = Regex.Matcher(Pattern, Input) Do While...

www.b4x.com

 

[TILogistic]

for space use patern "\s{2,}" (2 or more spaces)

sample with text:

    Dim Text As String = "Hello Hello Hello            Hello"
    Log(Text)
    Text = Regex.Replace("\s{2,}", Text, " [THIS WAS ADDED] ")
    Log(Text)

 

[alfaiz678]

for space use patern "\s{2,}" (2 or more spaces)

sample with text:

    Dim Text As String = "Hello Hello Hello            Hello"
    Log(Text)
    Text = Regex.Replace("\s{2,}", Text, " [THIS WAS ADDED] ")
    Log(Text)

View attachment 126019

Thanks, but I want to find the void in a picture, not in a text.
As I explained in the question

 

[TILogistic]

search post:

BitmapCreator​

or

BitmapCreator Effects​

 

[Erel]

This will help you get started:

Private Sub FindLargestGapAtTheCenter (bc As BitmapCreator) As B4XRect
    Dim y As Int = bc.mHeight / 2
    Dim MaxGapStart As Int
    Dim MaxGapEnd As Int
    Dim GapStart As Int
    Dim white As ARGBColor
    white = bc.ColorToARGB(xui.Color_White, white)
    Dim argb As ARGBColor
    Dim InsideAGap As Boolean
    For x = 0 To bc.mWidth - 1 Step 2 'step is an optimization factor
        bc.GetARGB(x, y, argb)
        If argb.r = white.r And argb.b = white.b And argb.g = white.g Then
            If InsideAGap = False Then
                GapStart = x
                InsideAGap = True
            End If
        Else
            If InsideAGap Then
                If x-1 - GapStart > MaxGapEnd - MaxGapStart Then
                    MaxGapEnd = x - 1
                    MaxGapStart = GapStart
                End If
                InsideAGap = False
            End If
        End If
    Next
    Dim r As B4XRect
    r.Initialize(MaxGapStart, y, MaxGapEnd, y)
    Return r
End Sub

B4J project is attached.

 

[alfaiz678]

View attachment 126027

This will help you get started:

Private Sub FindLargestGapAtTheCenter (bc As BitmapCreator) As B4XRect
    Dim y As Int = bc.mHeight / 2
    Dim MaxGapStart As Int
    Dim MaxGapEnd As Int
    Dim GapStart As Int
    Dim white As ARGBColor
    white = bc.ColorToARGB(xui.Color_White, white)
    Dim argb As ARGBColor
    Dim InsideAGap As Boolean
    For x = 0 To bc.mWidth - 1 Step 2 'step is an optimization factor
        bc.GetARGB(x, y, argb)
        If argb.r = white.r And argb.b = white.b And argb.g = white.g Then
            If InsideAGap = False Then
                GapStart = x
                InsideAGap = True
            End If
        Else
            If InsideAGap Then
                If x-1 - GapStart > MaxGapEnd - MaxGapStart Then
                    MaxGapEnd = x - 1
                    MaxGapStart = GapStart
                End If
                InsideAGap = False
            End If
        End If
    Next
    Dim r As B4XRect
    r.Initialize(MaxGapStart, y, MaxGapEnd, y)
    Return r
End Sub

B4J project is attached.

Thank you
He works well
Is there a last modification so that there are 2 empty space or more
Thank you

 

[Erel]

You will be able to do it once you understand the code.

 

[alfaiz678]

You will be able to do it once you understand the code.

ok