20 lines
308 B
Text
20 lines
308 B
Text
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
|