Grayscale image: Difference between revisions

=={{header|Yabasic}}==

{{trans|BASIC 256}}

"image" is a library created by Hermang Mansilla for import and show .BMP files. http://www.oocities.org/sunsetstrip/palms/1624/yabasic/libs/IMAGE.TXT

<lang Yabasic>import image

open window 600,600

GetImage(1, "House.bmp")

DisplayImage(1, 0, 0)

For x = 1 to 300

For y = 1 to 300

z$ = getbit$(x,y,x,y)

r = dec(mid$(z$,9,2))

g = dec(mid$(z$,11,2))

b = dec(mid$(z$,13,2))

r3=(r+g+b)/3

g3=(r+g+b)/3

b3=(r+g+b)/3

color r3,g3,b3

dot x+300,y+300

next y

next x</lang>