Graphics 512, 512, 32, 2
Dim ColorDim(1024, 1024, 2)

Function ColorMap(Red_Source, Green_Source, Blue_Source, ColorMap)
   W = ImageWidth(ColorMap)
   H = ImageHeight(ColorMap)
   Dim ColorDim(W, H, 2)
   
   CMapBuffer = ImageBuffer(ColorMap)
   
   LockBuffer(CMapBuffer)
   For X = 0 To W
      For Y = 0 To H
         RGB = ReadPixelFast(X, Y, CMapBuffer)
         ColorDim(X, Y, 0) = (RGB And $FF0000) / $10000      ;Rot
         ColorDim(X, Y, 1) = (RGB And $FF00) / $100         ;Green
         ColorDim(X, Y, 2) = (RGB And $FF)               ;Blue
      Next
   Next
   UnlockBuffer(CMapBuffer)
   
   OutIMG = CreateImage(W, H)
   
   RBuffer = ImageBuffer(Red_Source)
   GBuffer = ImageBuffer(Green_Source)
   BBuffer = ImageBuffer(Blue_Source)
   OBuffer = ImageBuffer(OutIMG)
   
   LockBuffer RBuffer
   LockBuffer GBuffer
   LockBuffer BBuffer
   LockBuffer OBuffer
   
   WR = ImageWidth(Red_Source)
   HR = ImageHeight(Red_Source)
   
   WG = ImageWidth(Green_Source)
   HG = ImageHeight(Green_Source)
   
   WB = ImageWidth(Blue_Source)
   HB = ImageHeight(Blue_Source)
   
   For X2 = 0 To W
      For Y2 = 0 To H
         X = X2 Mod WR
         Y = Y2 Mod HR
         RGB = ReadPixelFast(X, Y, RBuffer)
         R1 = (RGB And $FF0000) / $10000      ;Rot
         G1 = (RGB And $FF00) / $100         ;Green
         B1 = (RGB And $FF)               ;Blue
         
         X = X2 Mod WG
         Y = Y2 Mod HG
         RGB = ReadPixelFast(X, Y, GBuffer)
         R2 = (RGB And $FF0000) / $10000      ;Rot
         G2 = (RGB And $FF00) / $100         ;Green
         B2 = (RGB And $FF)               ;Blue
         
         X = X2 Mod WB
         Y = Y2 Mod HB
         RGB = ReadPixelFast(X, Y, BBuffer)
         R3 = (RGB And $FF0000) / $10000      ;Rot
         G3 = (RGB And $FF00) / $100         ;Green
         B3 = (RGB And $FF)               ;Blue
         
         X = X2
         Y = Y2
         R4 = R1 * (Float(ColorDim(X, Y, 0)) / 255) + R2 * (Float(ColorDim(X, Y, 1)) / 255) + R3 * (Float(ColorDim(X, Y, 2)) / 255)
         If R4 > 255 R4 = 255
         G4 = G1 * (Float(ColorDim(X, Y, 0)) / 255) + G2 * (Float(ColorDim(X, Y, 1)) / 255) + G3 * (Float(ColorDim(X, Y, 2)) / 255)
         If G4 > 255 G4 = 255
         B4 = B1 * (Float(ColorDim(X, Y, 0)) / 255) + B2 * (Float(ColorDim(X, Y, 1)) / 255) + B3 * (Float(ColorDim(X, Y, 2)) / 255)
         If B4 > 255 B4 = 255
         
         RGB = R4 * $10000 + G4 * $100 + B4
         WritePixelFast X, Y, RGB, OBuffer
      Next
   Next
   
   UnlockBuffer RBuffer
   UnlockBuffer GBuffer
   UnlockBuffer BBuffer
   UnlockBuffer OBuffer
   
   Return OutIMG
End Function

Print "Creating Images..."

RedS = LoadImage("001.png")
GreS = LoadImage("002.png")
BluS = CreateImage(32, 32)
ColS = LoadImage("005.png")

img = ColorMap(RedS, GreS, BluS, ColS)

SaveImage(img, "translated.bmp")

SetBuffer BackBuffer()
Cls
DrawImage img, 0, 0
Flip
WaitKey()