# Image effects by aplying formula to RGB

# You need to have an image file 300 by 300 pixels

fastgraphics

clg

refresh

Graphsize 600,600

imgload 150,150,"Kennedy.png"

For x = 1 to 300

For y = 1 to 300

z = Pixel (x,y)

r = int(z/65536)

g = int ((z - r*65536)/256)

b = z - r*65536 - g*256 +1

gosub colors

gosub invert

gosub bw

next y

refresh

next x

colors:

r1=int(r/129)*255

g1=int(g/129)*255

b1=int(b/129)*255

color (r1,g1,b1)

plot x+300,y

return

invert:

r2=abs(255-r)

g2=abs(255-g)

b2=abs(255-b)

color (r2,g2,b2)

plot x,y+300

return

bw:

r3=(r+g+b)/3

g3=(r+g+b)/3

b3=(r+g+b)/3

color (r3,g3,b3)

plot x+300,y+300

return