c6a9cd69c2
* NEW: Add examples again. I hope correctly this time. git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec
11 lines
327 B
Text
11 lines
327 B
Text
Public Sub Example10()
|
|
|
|
Paint.Brush = Paint.LinearGradient(0, 0, 0, 256, [Color.Black, Color.White], [1.0, 0.0])
|
|
Paint.Rectangle(0, 0, 256, 256)
|
|
Paint.Fill
|
|
|
|
Paint.Brush = Paint.RadialGradient(102.4, 102.4, 128.0, 115.2, 102.4, [Color.Black, Color.White], [1.0, 0.1])
|
|
Paint.Arc(128, 128, 76.8)
|
|
Paint.Fill
|
|
|
|
End
|