c6a9cd69c2
* NEW: Add examples again. I hope correctly this time. git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec
14 lines
335 B
Text
14 lines
335 B
Text
Public Sub Example21()
|
|
|
|
If Not $hSvgImage Then
|
|
$hSvgImage = SvgImage.Load("gambas.svg")
|
|
Paint.Begin($hSvgImage)
|
|
Paint.Brush = Paint.RadialGradient(200, 140, 40, 215, 115, [Color.RGB(255, 0, 0, 64), Color.White], [1.0, 0.1])
|
|
Paint.Arc(200, 140, 40)
|
|
Paint.Fill
|
|
Paint.End
|
|
Endif
|
|
|
|
$hSvgImage.Paint
|
|
|
|
End
|