DEFINE SUB graphicput (x,y,color)
'This routine Dosent exist, Probbably never will. I just use it as a example
'You would place your .TGA writing routine here, Maybe a Hi-res,Hi-color
'pixel plot. 
DIM R.image(16,16) ' Red Pigment, Original Image
DIM G.image(16,16) ' Blue Pigment, Original Image
DIM B.image(16,16) ' Green Pigment, Original Image

DIM R.overlay(16,16) ' Red Pigment, Overlay
DIM G.overlay(16,16) ' Green Pigment, Overlay
DIM B.overlay(16,16) ' Blue Pigment, Overlay

'Reads All DATA statements and puts it into correct Array's

for x = 1 to 15
        for y = 1 to 15
                read r.image(x,y)
        next y
next x
for x = 1 to 15
        for y = 1 to 15
                read g.image(x,y)
        next y
next x
for x = 1 to 15
        for y = 1 to 15
                read b.image(x,y)
        next y
next x

for x = 1 to 15
        for y = 1 to 15
                read r.overlay(x,y)
        next y
next x
for x = 1 to 15
        for y = 1 to 15
                read g.overlay(x,y)
        next y
next x
for x = 1 to 15
        for y = 1 to 15
                read b.overlay(x,y)
        next y
next x

for x = 1 to 15
        for y = 1 to 15
' Next 3 lines are a cheap HACK. This gets rid of the division by 0 error
                IF r.overlay(x, y) = 0 AND r.image(x, y) = 0 THEN r.overlay(x, y) = 0.1
                IF g.overlay(x, y) = 0 AND g.image(x, y) = 0 THEN g.overlay(x, y) = 0.1
                IF b.overlay(x, y) = 0 AND b.image(x, y) = 0 THEN b.overlay(x, y) = 0.1 
                r = (r.overlay(x, y) + r.image(x, y)) / 2 ' Averages Red pigment's
                g = (g.overlay(x, y) + g.image(x, y)) / 2 ' Averages Green pigment's
                b = (b.overlay(x, y) + b.image(x, y)) / 2 ' Averages Blue pigment's
                graphicput (x,y,[R G B]) ' Place color [R G B] at x,y
        next y
next x
' The folowing DATA statements contain the images. Its ok to screw around
' with numbers

' Original Image CODE.
'Red
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,255,255,0,0,0,0,0,255,255,0,0,0
data 0,0,0,255,255,0,0,0,0,0,255,255,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,255,0,0,0,0,0,0,0,255,0,0,0
data 0,0,0,255,255,255,255,255,255,255,255,255,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
'Green
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,255,255,0,0,0,0,0,255,255,0,0,0
data 0,0,0,255,255,0,0,0,0,0,255,255,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,255,0,0,0,0,0,0,0,255,0,0,0
data 0,0,0,255,255,255,255,255,255,255,255,255,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
'Blue
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,147,147,0,0,0,0,0,147,147,0,0,0
data 0,0,0,147,147,0,0,0,0,0,147,147,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,147,0,0,0,0,0,0,0,147,0,0,0
data 0,0,0,147,147,147,147,147,147,147,147,147,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
' OverLay image code
'Red
data 147,147,147,147,147,147,147,147,147,147,147,147,147,147,147
data 147,147,147,147,147,147,147,147,147,147,147,147,147,147,147
data 147,147,147,147,147,147,147,147,147,147,147,147,147,147,147
data 147,147,147,147,147,147,147,147,147,147,147,147,147,147,147
data 147,147,147,147,147,147,147,147,147,147,147,147,147,147,147
data 147,147,147,147,147,147,147,147,147,147,147,147,147,147,147
data 147,147,147,147,147,147,147,147,147,147,147,147,147,147,147
data 147,147,147,147,147,147,147,147,147,147,147,147,147,147,147
data 147,147,147,147,147,147,147,147,147,147,147,147,147,147,147
data 147,147,147,147,147,147,147,147,147,147,147,147,147,147,147
data 147,147,147,147,147,147,147,147,147,147,147,147,147,147,147
data 147,147,147,147,147,147,147,147,147,147,147,147,147,147,147
data 147,147,147,147,147,147,147,147,147,147,147,147,147,147,147
data 147,147,147,147,147,147,147,147,147,147,147,147,147,147,147
data 147,147,147,147,147,147,147,147,147,147,147,147,147,147,147
'Green
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
'Blue
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
data 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255