c6a9cd69c2
* NEW: Add examples again. I hope correctly this time. git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec
22 lines
505 B
Text
22 lines
505 B
Text
Public Sub Example15()
|
|
|
|
Paint.LineWidth = 40.96
|
|
Paint.MoveTo(76.8, 84.48)
|
|
Paint.RelLineTo(51.2, -51.2)
|
|
Paint.RelLineTo(51.2, 51.2)
|
|
Paint.LineJoin = Paint.LineJoinMiter 'Default
|
|
Paint.Stroke
|
|
|
|
Paint.MoveTo(76.8, 161.28)
|
|
Paint.RelLineTo(51.2, -51.2)
|
|
Paint.RelLineTo(51.2, 51.2)
|
|
Paint.LineJoin = Paint.LineJoinBevel
|
|
Paint.Stroke
|
|
|
|
Paint.MoveTo(76.8, 238.08)
|
|
Paint.RelLineTo(51.2, -51.2)
|
|
Paint.RelLineTo(51.2, 51.2)
|
|
Paint.LineJoin = Paint.LineJoinRound
|
|
Paint.Stroke
|
|
|
|
End
|