21e325b27a
* NEW: Put the old examples in '/trunk/app/examples'. git-svn-id: svn://localhost/gambas/trunk@6724 867c0c6c-44f3-4631-809d-bfa615b0a4ec
27 lines
543 B
Text
27 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
|