Is it possible to get better drawing of a CurveShape?
Not so “spongy”?
Code:
[code]Sub Paint(g As Graphics, areas() As REALbasic.Rect) Handles Paint
g.ForeColor = &cffffff
g.FillRect 0, 0, g.Width, g.Height
g.ForeColor = &cff0000
Dim c As New CurveShape
c.BorderWidth = 3
c.FillColor = g.ForeColor
c.BorderColor = g.ForeColor
c.Order = 1
Dim StartPoint As New Pair(10, 10)
Dim EndPoint As New Pair(100, 100)
Dim cp1 As New Pair(80, 10)
Dim cp2 As New Pair(20, 90)
c.X = StartPoint.Left
c.Y = StartPoint.Right
c.X2 = EndPoint.Left
c.X2 = EndPoint.Right
c.ControlX(0) = cp1.Left
c.ControlY(0) = cp1.Right
c.ControlX(1) = cp2.Left
c.ControlY(1) = cp2.Right
g.DrawObject c, 0, 0
g.ForeColor = &c00ff00
g.FillRect cp1.Left - 5, cp1.Right - 5, 10, 10
g.FillRect cp2.Left - 5, cp2.Right - 5, 10, 10
End Sub
[/code]