polygon.vbs
Dim im
Dim coords(100)
Set im = CreateObject("ActiveImage.Images.1")
im.CreateImage 300,300
im.SetColor 255,255,255
im.Fill 0,0
im.SetColor 194,194,194
im.DrawRectangle 288,288,298,298
im.SetLineThickness 1
coords(0) = 122
coords(1) = 4
coords(2) = 157
coords(3) = 174
coords(4) = 205
coords(5) = 206
coords(6) = 295
coords(7) = 189
coords(8) = 294
coords(9) = 178
coords(10) = 205
coords(11) = 195
coords(12) = 167
coords(13) = 170
coords(14) = 133
coords(15) = 3
im.DrawPolygon coords, 16
x = -100
y = 30
For i = 0 to 15 step 2
coords(i) = coords(i) + x
coords(i+1) = coords(i+1) + y
next
im.DrawFilledPolygon coords, 16
im.SetColor 0,0,0
im.SetFont 4
im.DrawTextAngle 126,10, 77, "19 Street"
im.DrawTextAngle 126+x,10 + y, 77, "19 Street"
im.SetFont 2
im.DrawTextAngle 209,193, -13, "19 Street"
im.DrawTextAngle 209+x,193 + y, -13, "19 Street"
im.WriteToFile "C:\polygon.png"
im.SetImageType 1
im.SetJpegQuality 100
im.WriteToFile "C:\polygon.jpg"
im.DestroyImage
Set im = Nothing
|
 |
 |
Picture 1. polygon.jpg (size - 16 Kb) |
Picture 2. polygon.png (size - 3.1 Kb) |
|