Colour Dodge

--if b = 255 then
--  result := 255
--else begin
--  c := (a SHL 8) DIV (255-b);
--  if c > 255 then result := 255 else result := c;
--end;
-- ******* color dodge mode *************
on colorDodgeBlendMode (image1, image2) 
  theWidth = image1.width - 1
  theHeight = image1.height - 1
  theImage = image(theWidth + 1, theHeight + 1, 32)
  theMultiplier = 255.0
 
  repeat with x = 0 to theWidth
    repeat with y = 0 to theHeight
      theColour1 = image1.getPixel(point(x,y))
      theColour2 = image2.getPixel(point(x,y))
      theNewColour = color(0,0,0)
      if theColour2.red = 255 then
        theNewColour.red = 255
      else
        theNewColour.red = min((theColour1.red * theMultiplier) / (255 - theColour2.red), 255)
      end if
      if theColour2.green = 255 then
        theNewColour.green = 255
      else
        theNewColour.green = min((theColour1.green * theMultiplier) / (255 - theColour2.green), 255)
      end if
      if theColour2.blue = 255 then
        theNewColour.blue = 255
      else
        theNewColour.blue = min((theColour1.blue * theMultiplier) / (255 - theColour2.blue), 255)
      end if
      theImage.setPixel(point(x, y), theNewColour)
    end repeat
  end repeat
  return theImage
end