18 lines
417 B
Text
18 lines
417 B
Text
|
Public Sub Example7()
|
||
|
|
|
||
|
|
Dim Dashes As Float[] = [5.0, 'ink
|
||
|
|
1.0, 'skip
|
||
|
|
1.0, 'ink
|
||
|
|
1.0] 'skip
|
||
|
|
|
||
|
|
Paint.Dash = Dashes
|
||
|
|
Paint.DashOffset = -5
|
||
|
|
Paint.LineWidth = 10.0
|
||
|
|
Paint.MoveTo(128.0, 25.6)
|
||
|
|
Paint.LineTo(230.4, 230.4)
|
||
|
|
Paint.RelLineTo(-102.4, 0)
|
||
|
|
Paint.CurveTo(51.2, 230.4, 51.2, 128.0, 128.0, 128.0)
|
||
|
|
Paint.Stroke
|
||
|
|
|
||
|
|
End
|