9 lines
196 B
Text
9 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));
|