21e325b27a
* NEW: Put the old examples in '/trunk/app/examples'. git-svn-id: svn://localhost/gambas/trunk@6724 867c0c6c-44f3-4631-809d-bfa615b0a4ec
14 lines
274 B
Plaintext
14 lines
274 B
Plaintext
Public Sub Example4()
|
|
|
|
Dim hImg As Image
|
|
|
|
Paint.Arc(128.0, 128.0, 76.8)
|
|
Paint.Clip
|
|
hImg = Image.Load(IMAGE_NAME)
|
|
Paint.Scale(256 / hImg.Width, 256 / hImg.Height)
|
|
Paint.Brush = Paint.Image(hImg, 0, 0)
|
|
Paint.Rectangle(0, 0, 512, 512)
|
|
Paint.Fill()
|
|
|
|
End
|