c6a9cd69c2
* NEW: Add examples again. I hope correctly this time. git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec
23 lines
601 B
Text
23 lines
601 B
Text
Public Sub Example9()
|
|
|
|
Paint.LineWidth = 6
|
|
Paint.Rectangle(12, 12, 232, 70)
|
|
Paint.Arc(64, 64, 40, 0, Pi(2))
|
|
Paint.Arc(192, 64, 40, 0, Pi(-2))
|
|
|
|
Paint.FillRule = Paint.FillRuleEvenOdd
|
|
Paint.Brush = Paint.Color(Color.RGB(0, 179, 0))
|
|
Paint.Fill(True)
|
|
Paint.Brush = Paint.Color(0)
|
|
Paint.Stroke
|
|
Paint.Translate(0, 128)
|
|
Paint.Rectangle(12, 12, 232, 70)
|
|
Paint.Arc(64, 64, 40, 0, Pi(-2))
|
|
Paint.Arc(192, 64, 40, 0, Pi(2))
|
|
Paint.FillRule = Paint.FillRuleWinding
|
|
Paint.Brush = Paint.Color(Color.RGB(0, 0, 230))
|
|
Paint.Fill(True)
|
|
Paint.Brush = Paint.Color(0)
|
|
Paint.Stroke
|
|
|
|
End
|