Thanks Mark!
Your hint somehow inspired me to use lenght ranges to recognise characters, and I think can be a huge step forward! -I can ignore lenghts like the inside of 8 D A P 0...
Trying it now!
Int32 = 0 To y.count - 1
Dim c As Char = Convert.ToChar(y(i).substring(7, 1))
Dim d As Char = Convert.ToChar(y(i).substring(8, 1))
Dim p As Integer
If c = ";" Then
p = convert.ToInt32(y(i).substring(6, 1))
Else If d = ";" Then
p = convert.ToInt32(y(i).substring(6, 2))
Else
p = convert.ToInt32(y(i).substring(6, 3))
End If
Dim path As New EH_Path(p)
For j As int32 = sum To sum + z(i) - 1
tree.Add(x(j), path)
Next
sum = sum + z(i)
Next
A = tree…
a number between 0 and 1.
5. Generate random number for each of the points.
So each point have 2 numbers - distance D (remapped to 0 to 1), and random R (0-1).
X = D-R
If X is smaller than 0 then delete the point with cull pattern.
Should work.…