Grayscale image: Difference between revisions
Content added Content deleted
(→Tcl: Added implementation) |
m (→{{header|Tcl}}) |
||
Line 465: | Line 465: | ||
<!-- L = 0.2126·R + 0.7152·G + 0.0722·B --> |
<!-- L = 0.2126·R + 0.7152·G + 0.0722·B --> |
||
{{libheader|Tk}} |
{{libheader|Tk}} |
||
<lang tcl> |
<lang tcl>proc grayscale image { |
||
proc grayscale image { |
|||
set w [image width $image] |
set w [image width $image] |
||
set h [image height $image] |
set h [image height $image] |
||
Line 476: | Line 475: | ||
} |
} |
||
} |
} |
||
⚫ | |||
} |
|||
⚫ | |||
=={{header|Vedit macro language}}== |
=={{header|Vedit macro language}}== |