Paint sample

Post

Posted
Rating:
#1 (In Topic #847)
tincho
Avatar
Regular
tincho is in the usergroup ‘Regular’
Hello friends.
Could someone please tell me how to stop paint from drawing a line when it is positioned on another point.
The problem appears between point 4 and 5 which should not be drawn.
In the example I try to draw the capital letter "A" but you see the result.
<IMG src="https://i.imgur.com/g0CQKjB.png"> </IMG>

Code (gambas)

  1. Private afPoints As New Float[][]
  2.  
  3. Public Sub ToolButton1_Click()
  4.  
  5.   afPoints.Add([10, 100])
  6.   afPoints.Add([60, 10])
  7.  
  8.   afPoints.Add([60, 10])
  9.   afPoints.Add([110, 100])
  10.  
  11.   afPoints.Add([30, 50])
  12.   afPoints.Add([80, 50])
  13.  
  14.   DrawingArea1.Refresh
  15.  
  17.  
  18. Public Sub DrawingArea1_Draw()
  19.  
  21.  
  22.   If afPoints.Count > 0 Then
  23.     Paint.Brush = Paint.Color(Color.Red)
  24.     Paint.LineWidth = 3
  25.  
  26.     For z = 0 To afPoints.Max - 1
  27.       Paint.MoveTo(afPoints[0], afPoints[1])
  28.       Paint.LineTo(afPoints[z + 1][0], afPoints[z + 1][1])
  29.       Paint.Stroke
  30.     Next
  32.  
  34.  
Regrds
Online now: No Back to the top

Post

Posted
Rating:
#2
cogier
Avatar
Guru
cogier is in the usergroup ‘Guru’
This code should help (I had to change your line 27 as it caused a crash): -

Code (gambas)

  1. Private afPoints As New Float[][]
  2.  
  3. Public Sub ToolButton1_Click()
  4.  
  5.   afPoints.Add([10, 100])
  6.   afPoints.Add([60, 10])
  7.  
  8.   afPoints.Add([60, 10])
  9.   afPoints.Add([110, 100])
  10.  
  11.   afPoints.Add([30, 50])
  12.   afPoints.Add([80, 50])
  13.  
  14.   DrawingArea1.Refresh
  15.  
  17.  
  18. Public Sub DrawingArea1_Draw()
  19.  
  21.  
  22.   If afPoints.Count > 0 Then
  23.     Paint.Brush = Paint.Color(Color.Red)
  24.     Paint.LineWidth = 3
  25.  
  26.     For z = 0 To afPoints.Max - 1
  27.       If z = afPoints.Max - 2 Then
  28.         Paint.NewPath()
  29.       Else
  30.         Paint.MoveTo(afPoints[z][0], afPoints[z][1])
  31.         Paint.LineTo(afPoints[z + 1][0], afPoints[z + 1][1])
  32.       Endif
  33.       Paint.Stroke
  34.     Next
  36.  

<IMG src="https://www.cogier.com/gambas/LetterA.png"> </IMG>
Online now: No Back to the top

Post

Posted
Rating:
#3
tincho
Avatar
Regular
tincho is in the usergroup ‘Regular’

cogier said

This code should help (I had to change your line 27 as it caused a crash): -
ok, it works, but now I add the "E" and…

Code (gambas)

  1. ' Gambas class file
  2.  
  3. Private afPoints As New Float[][]
  4.  
  5. Public Sub Lettering_Click()
  6.  
  7.   afPoints.Clear
  8.   Select Last.Tag
  9.     Case "a"
  10.       afPoints.Add([10, 100])
  11.       afPoints.Add([60, 10])
  12.  
  13.       afPoints.Add([60, 10])
  14.       afPoints.Add([110, 100])
  15.  
  16.       afPoints.Add([30, 50])
  17.       afPoints.Add([80, 50])
  18.       DrawingArea1.Refresh
  19.  
  20.     Case "e"
  21.       afPoints.Add([10, 100])
  22.       afPoints.Add([10, 10])
  23.  
  24.       afPoints.Add([10, 10])
  25.       afPoints.Add([110, 10])
  26.  
  27.       afPoints.Add([10, 50])
  28.       afPoints.Add([80, 50])
  29.  
  30.       afPoints.Add([10, 100])
  31.       afPoints.Add([110, 100])
  32.  
  34.  
  35.   DrawingArea1.Refresh
  36.  
  38.  
  39. Public Sub DrawingArea1_Draw()
  40.  
  43.  
  44.   If afPoints.Count > 0 Then
  45.     Paint.Brush = Paint.Color(Color.Red)
  46.     Paint.LineWidth = 3
  47.  
  48.     For z = 0 To afPoints.Max - 1
  49.       If z = afPoints.Max - 2 Then
  50.         Paint.NewPath()
  51.       Else
  52.         Paint.MoveTo(afPoints[z][0], afPoints[z][1])
  53.         Paint.LineTo(afPoints[z + 1][0], afPoints[z + 1][1])
  54.       Endif
  55.       Paint.Stroke
  56.     Next
  57.   Else
  58.     DrawingArea1.Children.Clear
  60.  
  62.  
  63.  
I looking for the general method.
However, with your example, I am closer to achieving it. Thanks  :D
Regards
Online now: No Back to the top
1 guest and 0 members have just viewed this.