28 lines
543 B
Text
28 lines
543 B
Text
|
Public Sub Example6()
|
||
|
|
|
||
|
|
Dim X As Float = 25.6
|
||
|
|
Dim Y As Float = 128.0
|
||
|
|
Dim X1 As Float = 102.4
|
||
|
|
Dim Y1 As Float = 230.4
|
||
|
|
Dim X2 As Float = 153.6
|
||
|
|
Dim Y2 As Float = 25.6
|
||
|
|
Dim X3 As Float = 230.4
|
||
|
|
Dim Y3 As Float = 128.0
|
||
|
|
|
||
|
|
Paint.MoveTo(X, Y)
|
||
|
|
Paint.CurveTo(X1, Y1, X2, Y2, X3, Y3)
|
||
|
|
|
||
|
|
Paint.LineWidth = 10
|
||
|
|
Paint.Stroke
|
||
|
|
|
||
|
|
Paint.Brush = Paint.Color(Color.RGB(255, 255 * 0.2, 255 * 0.2, 255 * 0.6))
|
||
|
|
Paint.LineWidth = 6
|
||
|
|
|
||
|
|
Paint.MoveTo(X, Y)
|
||
|
|
Paint.LineTo(X1, Y1)
|
||
|
|
Paint.MoveTo(X2, Y2)
|
||
|
|
Paint.LineTo(X3, Y3)
|
||
|
|
Paint.Stroke
|
||
|
|
|
||
|
|
End
|