aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Task/Grayscale-image/REXX/grayscale-image-1.rexx Normal file
View file

@ -0,0 +1,15 @@
/*REXX program converts a RGB (red─green─blue) image to a grayscale image. */
blue= '00 00 ff'x /*define the blue color (hexadecimal).*/
@.= blue /*set the entire image to blue color.*/
width= 60 /* width of the image (in pixels). */
height= 100 /*height " " " " " */
do col=1 for width
do row=1 for height /* [↓] C2D convert char ───> decimal*/
r= left(@.col.row, 1) ; r=c2d(r) /*extract the component red & convert.*/
g=substr(@.col.row, 2, 1) ; g=c2d(g) /* " " " green " " */
b= right(@.col.row, 1) ; b=c2d(b) /* " " " blue " " */
@.col.row=d2c((.2126*r+.7152*g +.0722*b)%1) /*convert RGB number ───► grayscale. */
end /*row*/ /* [↑] D2C convert decimal ───> char*/
end /*col*/ /* [↑] x%1 is the same as TRUNC(x) */
/*stick a fork in it, we're all done. */

14
Task/Grayscale-image/REXX/grayscale-image-2.rexx Normal file
View file

@ -0,0 +1,14 @@
blue= "00 00 ff"x /*define the blue color (hexadecimal).*/
blue= '00 00 ff'x /*define the blue color (hexadecimal).*/
blue= '0000ff'x /*define the blue color (hexadecimal).*/
blue= '00000000 00000000 11111111'b /*define the blue color (binary). */
blue= '000000000000000011111111'b /*define the blue color (binary) */
blue= 'zzy' /*define the blue color (character). */
/*not recommended because of rendering.*/
/*where Z is the character '00'x */
/*where Y is the character 'ff'x */
/*Both Z & Y are normally not viewable*/
/*on most terminals (appear as blanks).*/

16
Task/Grayscale-image/REXX/grayscale-image.rexx
View file

@ -1,16 +0,0 @@
/*REXX program to convert a RGB image to grayscale. */
blue='00 00 ff'x /*define the blue color. */
image.=blue /*set the entire IMAGE to blue. */
width= 60 /* width of the IMAGE. */
height=100 /*height " " " */
do j=1 for width
do k=1 for height
r= left(image.j.k,1) ; r=c2d(r) /*extract red & convert*/
g=substr(image.j.k,2,1) ; g=c2d(g) /* " green " " */
b= right(image.j.k,1) ; b=c2d(b) /* " blue " " */
ddd=right(trunc(.2126*r + .7152*g + .0722*b),3,0) /*──► greyscale.*/
image.j.k=right(d2c(ddd,6),3,0) /*... and transform back.*/
end /*j*/
end /*k*/
/*stick a fork in it, we're done.*/