Mark O'Neill <[EMAIL PROTECTED]> wrote:
> Hi All,
>
> I'm not too hot at graphics, so please
> excuse me if this is a simple question,
> but how would I go about drawing a
> picture (which is a color JPG) as
> greyscale on a canvas?
One way is:
dim p as Picture
p=TintPictureMBS(bild1,&c808080,&c808080)
g.DrawPicture p,0,0
Of course you need to know good values for GrayBase and SepiaBase.
Another way is the PictureSepiaMBS class which has more options:
dim p as Picture
dim t as PictureSepiaMBS
t=new PictureSepiaMBS
t.SourcePicture=bild1
if t.run then
p=t.DestinationPicture
g.DrawPicture p,0,0
end if
(the more options are not used in this example)
Mfg
Christian
--
Around eleven thousand functions in one REALbasic plug-in.
The Monkeybread Software Realbasic Plugin.
<http://www.monkeybreadsoftware.de/realbasic/plugins.shtml>
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
