Sample 17 - Gray Scale Image. Converting to gray scale image
> GrayScale.vbs
>     Dim im
>     Set im = CreateObject("ActiveImage.Images.1")
>     im.SetImageType 1
>     im.ReadFromFile "C:\AI\rose.jpg"
>     im.ConvertToGrayScale
>     im.WriteToFile "C:\AI\gray.jpg"
>     im.DestroyImage

>     Set im = Nothing
> Picture 1. rose.jpg (size - 7 Kb) | Picture 2. gray.jpg (transparent, size - 4 Kb)
If you have any questions or bug reports, write to active.image@tonec.com for technical support.
| © 2000-2001 All Rights Reserved Tonec Inc., 16835 Algonquin Street #400, Huntington Beach, CA, 92649, fax: (509) 752-1450, e-mail: info@tonec.com