19 lines
437 B
Text
19 lines
437 B
Text
|
Public Sub Example12()
|
||
|
|
|
||
|
|
Dim hImg As Image
|
||
|
|
Dim hBrush As PaintBrush
|
||
|
|
|
||
|
|
hImg = Image.Load(IMAGE_NAME)
|
||
|
|
|
||
|
|
Paint.Translate(128, 128)
|
||
|
|
'Paint.Rotate(Pi / 4)
|
||
|
|
Paint.Scale(1 / Sqr(2), 1 / Sqr(2))
|
||
|
|
Paint.Translate(-128, -128)
|
||
|
|
hBrush = Paint.Image(himg, 0, 0)
|
||
|
|
hBrush.Matrix = hBrush.Matrix.Scale(1 / (himg.w / 256.0 * 5.0), 1 / (hImg.w / 256.0 * 5.0))
|
||
|
|
Paint.Brush = hBrush
|
||
|
|
Paint.Rectangle(0, 0, 256, 256)
|
||
|
|
Paint.Fill
|
||
|
|
|
||
|
|
End
|