10 lines
196 B
Text
10 lines
196 B
Text
|
>A=loadrgb("mona.jpg");
|
||
|
|
>insrgb(A);
|
||
|
|
>function grayscale (A) ...
|
||
|
|
${r,g,b}=getrgb(A);
|
||
|
|
$c=0.2126*r+0.7152*g+0.0722*b;
|
||
|
|
$return rgb(c,c,c);
|
||
|
|
$endfunction
|
||
|
|
>insrgb(grayscale(A));
|
||
|
|
>insrgb(A|grayscale(A));
|