Dim im
Set im = CreateObject("ActiveImage.Images.1")
im.Setimage 0
im.SetImageType 1
im.ReadFromFile "C:\AI\rose.jpg"
h = im.GetHeight
w = im.GetWidth
im.SetImage 1
im.CreateImage w,h
im.SetColor 255,0,0
im.Fill 0,0
im.CopyImageSimpleRotate 1,0,w/2,h/2,0,0,w,h,-0
im.SetImageType 1
im.SetJpegQuality 90
im.WriteToFile "C:\AI\simplerotate.jpg"
im.DestroyImage
Set im = Nothing
|