Hi - could we please have more merge modes ?
These would do nicely :
color func Merge(color pbottom, color ptop)
if @p_modeselect=="MMF Merge Modes"
if @clamp
float r = red(ptop)
float g = green(ptop)
float b = blue(ptop)
if r<0.0
r = 0.0
elseif r>1.0
r = 1.0
endif
if g<0.0
g = 0.0
elseif g>1.0
g = 1.0
endif
if b<0.0
b = 0.0
elseif b>1.0
b = 1.0
endif
ptop = rgba(r,g,b,alpha(ptop))
r = red(pbottom)
g = green(pbottom)
b = blue(pbottom)
if r<0.0
r = 0.0
elseif r>1.0
r = 1.0
endif
if g<0.0
g = 0.0
elseif g>1.0
g = 1.0
endif
if b<0.0
b = 0.0
elseif b>1.0
b = 1.0
endif
pbottom = rgba(r,g,b,alpha(pbottom))
endif
if @p_mmfmergemode=="Exclusion"
return rgba(red(pbottom) + red(ptop) - 2*red(pbottom)*red(ptop), \
green(pbottom) + green(ptop) - 2*green(pbottom)*green(ptop), \
blue(pbottom) + blue(ptop) - 2*blue(pbottom)*blue(ptop), \
alpha(ptop) )
elseif @p_mmfmergemode=="Fade Down"
return rgba( red(ptop) * (1 - red(ptop) + red(pbottom)), \
green(ptop) * (1 - green(ptop) + green(pbottom)), \
blue(ptop) * (1 - blue(ptop) + blue(pbottom)), alpha(ptop) )
elseif @p_mmfmergemode=="Fade Up"
return rgba(red(pbottom) + red(ptop)*(red(ptop) - red(pbottom)), \
green(pbottom) + green(ptop)*(green(ptop) - green(pbottom)), \
blue(pbottom) + blue(ptop)*(blue(ptop) - blue(pbottom)), \
alpha(ptop) )
elseif @p_mmfmergemode=="Contrast Down"
return rgba( 0.5 + red(ptop)*(red(pbottom) - 0.5), \
0.5 + green(ptop)*(green(pbottom) - 0.5), \
0.5 + blue(ptop)*(blue(pbottom) - 0.5), alpha(ptop) )
elseif @p_mmfmergemode=="Contrast Up"
float r = red(pbottom)
float g = green(pbottom)
float b = blue(pbottom)
if r<0.5
r = r - 2.0*red(ptop)*r*(0.5 - r)
else
r = r + 2.0*red(ptop)*(1.0 - r)*(r - 0.5)
endif
if g<0.5
g = g - 2.0*green(ptop)*g*(0.5 - g)
else
g = g + 2.0*green(ptop)*(1.0 - g)*(g - 0.5)
endif
if b<0.5
b = b - 2.0*blue(ptop)*b*(0.5 -
else
b = b + 2.0*blue(ptop)*(1.0 - *(b - 0.5)
endif
return rgba(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Dodge"
; Here we clamp the maximum returned to 1.0 because of the special case
; when the color channel in ptop is one (or more).
float r = 1.0 - red(ptop)
float g = 1.0 - green(ptop)
float b = 1.0 - blue(ptop)
if red(pbottom)<=0
r = 0.0
elseif r<=0.0
r = 1.0
else
r = red(pbottom)/r
if r>1.0
r = 1.0
endif
endif
if green(pbottom)<=0
g = 0
elseif g<=0.0
g = 1.0
else
g = green(pbottom)/g
if g>1.0
g = 1.0
endif
endif
if blue(pbottom)<=0
b = 0
elseif b<=0.0
b = 1.0
else
b = blue(pbottom)/b
if b>1.0
b = 1.0
endif
endif
return rgba(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Burn"
; Here we clamp the minimum returned to 0 because of the special case
; when the color channel in ptop is zero (or less).
float r = red(ptop)
float g = green(ptop)
float b = blue(ptop)
if r<=0.0
r = 0.0
else
r = 1.0 - (1.0 - red(pbottom))/r
if r<0.0
r = 0.0
endif
endif
if g<=0.0
g = 0.0
else
g = 1.0 - (1.0 - green(pbottom))/g
if g<0.0
g = 0.0
endif
endif
if b<=0.0
b = 0.0
else
b = 1.0 - (1.0 - blue(pbottom))/b
if b<0.0
b = 0.0
endif
endif
return rgba(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Negation"
return rgba( 1.0 - abs(1.0 - red(ptop) - red(pbottom)), \
1.0 - abs(1.0 - green(ptop) - green(pbottom)), \
1.0 - abs(1.0 - blue(ptop) - blue(pbottom)), alpha(ptop) )
elseif @p_mmfmergemode=="Reflect"
; Here we clamp the maximum returned to 1.0 because of the special case
; when the color channel in ptop is one (or more).
float r = 1.0 - red(ptop)
float g = 1.0 - green(ptop)
float b = 1.0 - blue(ptop)
if red(pbottom)<=0
r = 0.0
elseif r<=0.0
r = 1.0
else
r = sqr(red(pbottom))/r
if r>1.0
r = 1.0
endif
endif
if green(pbottom)<=0
g = 0.0
elseif g<=0.0
g = 1.0
else
g = sqr(green(pbottom))/g
if g>1.0
g = 1.0
endif
endif
if blue(pbottom)<=0
b = 0.0
elseif b<=0.0
b = 1.0
else
b = sqr(blue(pbottom))/b
if b>1.0
b = 1.0
endif
endif
return rgba(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Freeze"
; Here we clamp the minimum returned to 0 because of the special case
; when the color channel in ptop is zero (or less).
float r = red(ptop)
float g = green(ptop)
float b = blue(ptop)
if r<=0.0
r = 0.0
else
r = 1.0 - sqr(1.0 - red(pbottom))/r
if r<0.0
r = 0.0
endif
endif
if g<=0.0
g = 0.0
else
g = 1.0 - sqr(1.0 - green(pbottom))/g
if g<0.0
g = 0.0
endif
endif
if b<=0.0
b = 0.0
else
b = 1.0 - sqr(1.0 - blue(pbottom))/b
if b<0.0
b = 0.0
endif
endif
return rgba(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Rev. Contrast Down"
return rgba( 0.5 + (1.0 - red(ptop))*(red(pbottom) - 0.5), \
0.5 + (1.0 - green(ptop))*(green(pbottom) - 0.5), \
0.5 + (1.0 - blue(ptop))*(blue(pbottom) - 0.5), alpha(ptop) )
elseif @p_mmfmergemode=="Rev. Contrast Up"
float r = red(pbottom)
float g = green(pbottom)
float b = blue(pbottom)
if r<0.5
r = r - 2.0*(1.0 - red(ptop))*r*(0.5 - r)
else
r = r + 2.0*(1.0 - red(ptop))*(1.0 - r)*(r - 0.5)
endif
if g<0.5
g = g - 2.0*(1.0 - green(ptop))*g*(0.5 - g)
else
g = g + 2.0*(1.0 - green(ptop))*(1.0 - g)*(g - 0.5)
endif
if b<0.5
b = b - 2.0*(1.0 - blue(ptop))*b*(0.5 -
else
b = b + 2.0*(1.0 - blue(ptop))*(1.0 - *(b - 0.5)
endif
return rgba(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Fade"
float r = red(ptop)
float g = green(ptop)
float b = blue(ptop)
if r<0.5
r = 2.0 * r * (0.5 - r + red(pbottom))
else
r = red(pbottom) + 2.0 * (r - 0.5)*(r - red(pbottom))
endif
if g<0.5
g = 2.0 * g * (0.5 - g + green(pbottom))
else
g = green(pbottom) + 2.0 * (g - 0.5)*(g - green(pbottom))
endif
if b<0.5
b = 2.0 * b * (0.5 - b + blue(pbottom))
else
b = blue(pbottom) + 2.0 * (b - 0.5)*(b - blue(pbottom))
endif
return rgba(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Reverse Fade"
float r = red(ptop)
float g = green(ptop)
float b = blue(ptop)
if r<0.5
r = red(pbottom) + 2.0 * r * (r - red(pbottom))
else
r = red(pbottom) + 2.0 * (1.0 - r)*(r - red(pbottom))
endif
if g<0.5
g = green(pbottom) + 2.0 * g * (g - green(pbottom))
else
g = green(pbottom) + 2.0 * (1.0 - g)*(g - green(pbottom))
endif
if b<0.5
b = blue(pbottom) + 2.0 * b * (b - blue(pbottom))
else
b = blue(pbottom) + 2.0 * (1.0 - *(b - blue(pbottom))
endif
return rgba(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Contrast" || @p_mmfmergemode=="Reverse Contrast"
float r1 = red(ptop)
float g1 = green(ptop)
float b1 = blue(ptop)
if @p_mmfmergemode=="Reverse Contrast"
r1 = 1.0 - r1
g1 = 1.0 - g1
b1 = 1.0 - b1
endif
if r1<0.5
r1 = 0.5 + 2.0 * r1 * (red(pbottom) - 0.5)
else
r1 = 2.0 * (r1 - 0.5)
float r = red(pbottom)
if r<0.5
r1 = r - 2.0*r1*r*(0.5 - r)
else
r1 = r + 2.0*r1*(1.0 - r)*(r - 0.5)
endif
endif
if g1<0.5
g1 = 0.5 + 2.0 * g1 * (green(pbottom) - 0.5)
else
g1 = 2.0 * (g1 - 0.5)
float g = green(pbottom)
if g<0.5
g1 = g - 2.0*g1*g*(0.5 - g)
else
g1 = g + 2.0*g1*(1.0 - g)*(g - 0.5)
endif
endif
if b1<0.5
b1 = 0.5 + 2.0 * b1 * (blue(pbottom) - 0.5)
else
b1 = 2.0 * (b1 - 0.5)
float b = blue(pbottom)
if b<0.5
b1 = b - 2.0*b1*b*(0.5 -
else
b1 = b + 2.0*b1*(1.0 - *(b - 0.5)
endif
endif
return rgba(r1,g1,b1,alpha(ptop))
elseif @p_mmfmergemode=="Quantize"
int nr = round(@qmax - (@qmax-@qmin)*(2.0/(1.0 + red(ptop)) - 1.0)) - 1
int ng = round(@qmax - (@qmax-@qmin)*(2.0/(1.0 + green(ptop)) - 1.0)) - 1
int nb = round(@qmax - (@qmax-@qmin)*(2.0/(1.0 + blue(ptop)) - 1.0)) - 1
return rgba(floor(red(pbottom)*(nr+0.999))/nr, \
floor(green(pbottom)*(ng+0.999))/ng, \
floor(blue(pbottom)*(nb+0.999))/nb,alpha(ptop))
elseif @p_mmfmergemode=="Reverse Quantize"
int nr = round(@qmax - (@qmax-@qmin)*(2.0/(2.0 - red(ptop)) - 1.0)) - 1
int ng = round(@qmax - (@qmax-@qmin)*(2.0/(2.0 - green(ptop)) - 1.0)) - 1
int nb = round(@qmax - (@qmax-@qmin)*(2.0/(2.0 - blue(ptop)) - 1.0)) - 1
return rgba(floor(red(pbottom)*(nr+0.999))/nr, \
floor(green(pbottom)*(ng+0.999))/ng, \
floor(blue(pbottom)*(nb+0.999))/nb,alpha(ptop))
elseif @p_mmfmergemode=="Gamma"
return rgba(red(pbottom)^(@mingamma+(@maxgamma-@mingamma)*red(ptop)), \
green(pbottom)^(@mingamma+(@maxgamma-@mingamma)*green(ptop)), \
blue(pbottom)^(@mingamma+(@maxgamma-@mingamma)*blue(ptop)), \
alpha(ptop))
elseif @p_mmfmergemode=="Inverse Gamma"
return rgba(red(pbottom)^(1.0/(@mingamma+(@maxgamma-@mingamma)*red(ptop))), \
green(pbottom)^(1.0/(@mingamma+(@maxgamma-@mingamma)*green(ptop))), \
blue(pbottom)^(1.0/(@mingamma+(@maxgamma-@mingamma)*blue(ptop))), \
alpha(ptop))
elseif @p_mmfmergemode=="Reverse Gamma"
return rgba(red(pbottom)^(@mingamma+(@maxgamma-@mingamma)*(1.0-red(ptop))), \
green(pbottom)^(@mingamma+(@maxgamma-@mingamma)*(1.0-green(ptop))), \
blue(pbottom)^(@mingamma+(@maxgamma-@mingamma)*(1.0-blue(ptop))), \
alpha(ptop))
elseif @p_mmfmergemode=="Rev. Inv. Gamma"
return rgba(red(pbottom)^(1.0/(@mingamma+(@maxgamma-@mingamma)*(1.0-red(ptop)))), \
green(pbottom)^(1.0/(@mingamma+(@maxgamma-@mingamma)*(1.0-green(ptop)))), \
blue(pbottom)^(1.0/(@mingamma+(@maxgamma-@mingamma)*(1.0-blue(ptop)))), \
alpha(ptop))
elseif @p_mmfmergemode=="Combined Gamma"
float r = red(ptop)
float g = green(ptop)
float b = blue(ptop)
if r<0.5
r = red(pbottom)^(@mingamma+2.0*(@maxgamma-@mingamma)*(0.5-red(ptop)))
else
r = red(pbottom)^(1.0/(@mingamma+2.0*(@maxgamma-@mingamma)*(red(ptop)-0.5)))
endif
if g<0.5
g = green(pbottom)^(@mingamma+2.0*(@maxgamma-@mingamma)*(0.5-green(ptop)))
else
g = green(pbottom)^(1.0/(@mingamma+2.0*(@maxgamma-@mingamma)*(green(ptop)-0.5)))
endif
if b<0.5
b = blue(pbottom)^(@mingamma+2.0*(@maxgamma-@mingamma)*(0.5-blue(ptop)))
else
b = blue(pbottom)^(1.0/(@mingamma+2.0*(@maxgamma-@mingamma)*(blue(ptop)-0.5)))
endif
return rgba(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Rev. Comb. Gamma"
float r = red(ptop)
float g = green(ptop)
float b = blue(ptop)
if r<0.5
r = red(pbottom)^(1.0/(@mingamma+2.0*(@maxgamma-@mingamma)*(0.5-red(ptop))))
else
r = red(pbottom)^(@mingamma+2.0*(@maxgamma-@mingamma)*(red(ptop)-0.5))
endif
if g<0.5
g = green(pbottom)^(1.0/(@mingamma+2.0*(@maxgamma-@mingamma)*(0.5-green(ptop))))
else
g = green(pbottom)^(@mingamma+2.0*(@maxgamma-@mingamma)*(green(ptop)-0.5))
endif
if b<0.5
b = blue(pbottom)^(1.0/(@mingamma+2.0*(@maxgamma-@mingamma)*(0.5-blue(ptop))))
else
b = blue(pbottom)^(@mingamma+2.0*(@maxgamma-@mingamma)*(blue(ptop)-0.5))
endif
return rgba(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Stamp"
float r = red(pbottom) + 2.0*red(ptop) - 1.0
float g = green(pbottom) + 2.0*green(ptop) - 1.0
float b = blue(pbottom) + 2.0*blue(ptop) - 1.0
if r<0.0
r = 0.0
elseif r>1.0
r = 1.0
endif
if g<0.0
g = 0.0
elseif g>1.0
g = 1.0
endif
if b<0.0
b = 0.0
elseif b>1.0
b = 1.0
endif
return RGBA(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Soft Dodge"
float r = red(pbottom)
float g = green(pbottom)
float b = blue(pbottom)
if r<=0
r = 0
elseif r+red(ptop)<=1.0
if red(ptop)>=1.0
r = 1.0
elseif (r = 0.5*r/(1.0 - red(ptop)))>1.0
r = 1.0
endif
elseif (r = 1.0 - 0.5*(1.0 - red(ptop))/r)<0.0
r = 0.0
endif
if g<=0
g = 0
elseif g+green(ptop)<=1.0
if green(ptop)>=1.0
g = 1.0
elseif (g = 0.5*g/(1.0 - green(ptop)))>1.0
g = 1.0
endif
elseif (g = 1.0 - 0.5*(1.0 - green(ptop))/g)<0.0
g = 0.0
endif
if b<=0
b = 0
elseif b+blue(ptop)<=1.0
if blue(ptop)>=1.0
b = 1.0
elseif (b = 0.5*b/(1.0 - blue(ptop)))>1.0
b = 1.0
endif
elseif (b = 1.0 - 0.5*(1.0 - blue(ptop))/b)<0.0
b = 0.0
endif
return RGBA(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Soft Burn"
float r = red(ptop)
float g = green(ptop)
float b = blue(ptop)
if r<=0
r = 0
elseif r+red(pbottom)<=1.0
if red(pbottom)>=1.0
r = 1.0
elseif (r = 0.5*r/(1.0 - red(pbottom)))>1.0
r = 1.0
endif
elseif (r = 1.0 - 0.5*(1.0 - red(pbottom))/r)<0.0
r = 0.0
endif
if g<=0
g = 0
elseif g+green(pbottom)<=1.0
if green(pbottom)>=1.0
g = 1.0
elseif (g = 0.5*g/(1.0 - green(pbottom)))>1.0
g = 1.0
endif
elseif (g = 1.0 - 0.5*(1.0 - green(pbottom))/g)<0.0
g = 0.0
endif
if b<=0
b = 0
elseif b+blue(pbottom)<=1.0
if blue(pbottom)>=1.0
b = 1.0
elseif (b = 0.5*b/(1.0 - blue(pbottom)))>1.0
b = 1.0
endif
elseif (b = 1.0 - 0.5*(1.0 - blue(pbottom))/b)<0.0
b = 0.0
endif
return RGBA(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Inverse Dodge"
; Here we clamp the maximum returned to 1.0 because of the special case
; when the color channel in ptop is one (or more).
float r = 1.0 - red(pbottom)
float g = 1.0 - green(pbottom)
float b = 1.0 - blue(pbottom)
if red(ptop)<=0
r = 0
elseif r<=0.0
r = 1.0
else
r = red(ptop)/r
if r>1.0
r = 1.0
endif
endif
if green(ptop)<=0
g = 0
elseif g<=0.0
g = 1.0
else
g = green(ptop)/g
if g>1.0
g = 1.0
endif
endif
if blue(ptop)<=0
b = 0
elseif b<=0.0
b = 1.0
else
b = blue(ptop)/b
if b>1.0
b = 1.0
endif
endif
return rgba(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Inverse Burn"
; Here we clamp the minimum returned to 0 because of the special case
; when the color channel in ptop is zero (or less).
float r = red(pbottom)
float g = green(pbottom)
float b = blue(pbottom)
if r<=0.0
r = 0.0
else
r = 1.0 - (1.0 - red(ptop))/r
if r<0.0
r = 0.0
endif
endif
if g<=0.0
g = 0.0
else
g = 1.0 - (1.0 - green(ptop))/g
if g<0.0
g = 0.0
endif
endif
if b<=0.0
b = 0.0
else
b = 1.0 - (1.0 - blue(ptop))/b
if b<0.0
b = 0.0
endif
endif
return rgba(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Glow"
; Here we clamp the maximum returned to 1.0 because of the special case
; when the color channel in ptop is one (or more).
float r = 1.0 - red(pbottom)
float g = 1.0 - green(pbottom)
float b = 1.0 - blue(pbottom)
if red(ptop)<=0
r = 0.0
elseif r<=0.0
r = 1.0
else
r = sqr(red(ptop))/r
if r>1.0
r = 1.0
endif
endif
if green(ptop)<=0
g = 0.0
elseif g<=0.0
g = 1.0
else
g = sqr(green(ptop))/g
if g>1.0
g = 1.0
endif
endif
if blue(ptop)<=0
b = 0.0
elseif b<=0.0
b = 1.0
else
b = sqr(blue(ptop))/b
if b>1.0
b = 1.0
endif
endif
return rgba(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Heat"
; Here we clamp the minimum returned to 0 because of the special case
; when the color channel in ptop is zero (or less).
float r = red(pbottom)
float g = green(pbottom)
float b = blue(pbottom)
if r<=0.0
r = 0.0
else
r = 1.0 - sqr(1.0 - red(ptop))/r
if r<0.0
r = 0.0
endif
endif
if g<=0.0
g = 0.0
else
g = 1.0 - sqr(1.0 - green(ptop))/g
if g<0.0
g = 0.0
endif
endif
if b<=0.0
b = 0.0
else
b = 1.0 - sqr(1.0 - blue(ptop))/b
if b<0.0
b = 0.0
endif
endif
return rgba(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Inv. Fade Down"
return rgba( red(pbottom) * (1 - red(pbottom) + red(ptop)), \
green(pbottom) * (1 - green(pbottom) + green(ptop)), \
blue(pbottom) * (1 - blue(pbottom) + blue(ptop)), alpha(ptop) )
elseif @p_mmfmergemode=="Inv. Fade Up"
return rgba(red(ptop) + red(pbottom)*(red(pbottom) - red(ptop)), \
green(ptop) + green(pbottom)*(green(pbottom) - green(ptop)), \
blue(ptop) + blue(pbottom)*(blue(pbottom) - blue(ptop)), \
alpha(ptop) )
elseif @p_mmfmergemode=="Inv. Contrast Down"
return rgba( 0.5 + red(pbottom)*(red(ptop) - 0.5), \
0.5 + green(pbottom)*(green(ptop) - 0.5), \
0.5 + blue(pbottom)*(blue(ptop) - 0.5), alpha(ptop) )
elseif @p_mmfmergemode=="Inv. Contrast Up"
float r = red(ptop)
float g = green(ptop)
float b = blue(ptop)
if r<0.5
r = r - 2.0*red(pbottom)*r*(0.5 - r)
else
r = r + 2.0*red(pbottom)*(1.0 - r)*(r - 0.5)
endif
if g<0.5
g = g - 2.0*green(pbottom)*g*(0.5 - g)
else
g = g + 2.0*green(pbottom)*(1.0 - g)*(g - 0.5)
endif
if b<0.5
b = b - 2.0*blue(pbottom)*b*(0.5 -
else
b = b + 2.0*blue(pbottom)*(1.0 - *(b - 0.5)
endif
return rgba(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Inv. Rev. Con. Down"
return rgba( 0.5 + (1.0 - red(pbottom))*(red(ptop) - 0.5), \
0.5 + (1.0 - green(pbottom))*(green(ptop) - 0.5), \
0.5 + (1.0 - blue(pbottom))*(blue(ptop) - 0.5), alpha(ptop) )
elseif @p_mmfmergemode=="Inv. Rev. Con. Up"
float r = red(ptop)
float g = green(ptop)
float b = blue(ptop)
if r<0.5
r = r - 2.0*(1.0 - red(pbottom))*r*(0.5 - r)
else
r = r + 2.0*(1.0 - red(pbottom))*(1.0 - r)*(r - 0.5)
endif
if g<0.5
g = g - 2.0*(1.0 - green(pbottom))*g*(0.5 - g)
else
g = g + 2.0*(1.0 - green(pbottom))*(1.0 - g)*(g - 0.5)
endif
if b<0.5
b = b - 2.0*(1.0 - blue(pbottom))*b*(0.5 -
else
b = b + 2.0*(1.0 - blue(pbottom))*(1.0 - *(b - 0.5)
endif
return rgba(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Inverse Fade"
float r = red(pbottom)
float g = green(pbottom)
float b = blue(pbottom)
if r<0.5
r = 2.0 * r * (0.5 - r + red(ptop))
else
r = red(ptop) + 2.0 * (r - 0.5)*(r - red(ptop))
endif
if g<0.5
g = 2.0 * g * (0.5 - g + green(ptop))
else
g = green(ptop) + 2.0 * (g - 0.5)*(g - green(ptop))
endif
if b<0.5
b = 2.0 * b * (0.5 - b + blue(ptop))
else
b = blue(ptop) + 2.0 * (b - 0.5)*(b - blue(ptop))
endif
return rgba(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Inv. Rev. Fade"
float r = red(pbottom)
float g = green(pbottom)
float b = blue(pbottom)
if r<0.5
r = red(ptop) + 2.0 * r * (r - red(ptop))
else
r = red(ptop) + 2.0 * (1.0 - r)*(r - red(ptop))
endif
if g<0.5
g = green(ptop) + 2.0 * g * (g - green(ptop))
else
g = green(ptop) + 2.0 * (1.0 - g)*(g - green(ptop))
endif
if b<0.5
b = blue(ptop) + 2.0 * b * (b - blue(ptop))
else
b = blue(ptop) + 2.0 * (1.0 - *(b - blue(ptop))
endif
return rgba(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Inverse Contrast" \
|| @p_mmfmergemode=="Inv. Rev. Contrast"
float r1 = red(pbottom)
float g1 = green(pbottom)
float b1 = blue(pbottom)
if @p_mmfmergemode=="Inv. Rev. Contrast"
r1 = 1.0 - r1
g1 = 1.0 - g1
b1 = 1.0 - b1
endif
if r1<0.5
r1 = 0.5 + 2.0 * r1 * (red(ptop) - 0.5)
else
r1 = 2.0 * (r1 - 0.5)
float r = red(ptop)
if r<0.5
r1 = r - 2.0*r1*r*(0.5 - r)
else
r1 = r + 2.0*r1*(1.0 - r)*(r - 0.5)
endif
endif
if g1<0.5
g1 = 0.5 + 2.0 * g1 * (green(ptop) - 0.5)
else
g1 = 2.0 * (g1 - 0.5)
float g = green(ptop)
if g<0.5
g1 = g - 2.0*g1*g*(0.5 - g)
else
g1 = g + 2.0*g1*(1.0 - g)*(g - 0.5)
endif
endif
if b1<0.5
b1 = 0.5 + 2.0 * b1 * (blue(ptop) - 0.5)
else
b1 = 2.0 * (b1 - 0.5)
float b = blue(ptop)
if b<0.5
b1 = b - 2.0*b1*b*(0.5 -
else
b1 = b + 2.0*b1*(1.0 - *(b - 0.5)
endif
endif
return rgba(r1,g1,b1,alpha(ptop))
elseif @p_mmfmergemode=="Inverse Quantize"
int nr = round(@qmax - (@qmax-@qmin)*(2.0/(1.0 + red(pbottom)) - 1.0)) - 1
int ng = round(@qmax - (@qmax-@qmin)*(2.0/(1.0 + green(pbottom)) - 1.0)) - 1
int nb = round(@qmax - (@qmax-@qmin)*(2.0/(1.0 + blue(pbottom)) - 1.0)) - 1
return rgba(floor(red(ptop)*(nr+0.999))/nr, \
floor(green(ptop)*(ng+0.999))/ng, \
floor(blue(ptop)*(nb+0.999))/nb,alpha(ptop))
elseif @p_mmfmergemode=="Inv. Rev. Quantize"
int nr = round(@qmax - (@qmax-@qmin)*(2.0/(2.0 - red(pbottom)) - 1.0)) - 1
int ng = round(@qmax - (@qmax-@qmin)*(2.0/(2.0 - green(pbottom)) - 1.0)) - 1
int nb = round(@qmax - (@qmax-@qmin)*(2.0/(2.0 - blue(pbottom)) - 1.0)) - 1
return rgba(floor(red(ptop)*(nr+0.999))/nr, \
floor(green(ptop)*(ng+0.999))/ng, \
floor(blue(ptop)*(nb+0.999))/nb,alpha(ptop))
elseif @p_mmfmergemode=="Inv. Gamma"
return rgba(red(ptop)^(@mingamma+(@maxgamma-@mingamma)*red(pbottom)), \
green(ptop)^(@mingamma+(@maxgamma-@mingamma)*green(pbottom)), \
blue(ptop)^(@mingamma+(@maxgamma-@mingamma)*blue(pbottom)), \
alpha(ptop))
elseif @p_mmfmergemode=="Inv. Inverse Gamma"
return rgba(red(ptop)^(1.0/(@mingamma+(@maxgamma-@mingamma)*red(pbottom))), \
green(ptop)^(1.0/(@mingamma+(@maxgamma-@mingamma)*green(pbottom))), \
blue(ptop)^(1.0/(@mingamma+(@maxgamma-@mingamma)*blue(pbottom))), \
alpha(ptop))
elseif @p_mmfmergemode=="Inv. Reverse Gamma"
return rgba(red(ptop)^(@mingamma+(@maxgamma-@mingamma)*(1.0-red(pbottom))), \
green(ptop)^(@mingamma+(@maxgamma-@mingamma)*(1.0-green(pbottom))), \
blue(ptop)^(@mingamma+(@maxgamma-@mingamma)*(1.0-blue(pbottom))), \
alpha(ptop))
elseif @p_mmfmergemode=="Inv. Rev. Inv. Gamma"
return rgba(red(ptop)^(1.0/(@mingamma+(@maxgamma-@mingamma)*(1.0-red(pbottom)))), \
green(ptop)^(1.0/(@mingamma+(@maxgamma-@mingamma)*(1.0-green(pbottom)))), \
blue(ptop)^(1.0/(@mingamma+(@maxgamma-@mingamma)*(1.0-blue(pbottom)))), \
alpha(ptop))
elseif @p_mmfmergemode=="Inv. Combined Gamma"
float r = red(pbottom)
float g = green(pbottom)
float b = blue(pbottom)
if r<0.5
r = red(ptop)^(@mingamma+2.0*(@maxgamma-@mingamma)*(0.5-r))
else
r = red(ptop)^(1.0/(@mingamma+2.0*(@maxgamma-@mingamma)*(r-0.5)))
endif
if g<0.5
g = green(ptop)^(@mingamma+2.0*(@maxgamma-@mingamma)*(0.5-g))
else
g = green(ptop)^(1.0/(@mingamma+2.0*(@maxgamma-@mingamma)*(g-0.5)))
endif
if b<0.5
b = blue(ptop)^(@mingamma+2.0*(@maxgamma-@mingamma)*(0.5-)
else
b = blue(ptop)^(1.0/(@mingamma+2.0*(@maxgamma-@mingamma)*(b-0.5)))
endif
return rgba(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Inv. Rev. Comb. Gamma"
float r = red(pbottom)
float g = green(pbottom)
float b = blue(pbottom)
if r<0.5
r = red(ptop)^(1.0/(@mingamma+2.0*(@maxgamma-@mingamma)*(0.5-r)))
else
r = red(ptop)^(@mingamma+2.0*(@maxgamma-@mingamma)*(r-0.5))
endif
if g<0.5
g = green(ptop)^(1.0/(@mingamma+2.0*(@maxgamma-@mingamma)*(0.5-g)))
else
g = green(ptop)^(@mingamma+2.0*(@maxgamma-@mingamma)*(g-0.5))
endif
if b<0.5
b = blue(ptop)^(1.0/(@mingamma+2.0*(@maxgamma-@mingamma)*(0.5-))
else
b = blue(ptop)^(@mingamma+2.0*(@maxgamma-@mingamma)*(b-0.5))
endif
return rgba(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Inverse Stamp"
float r = red(ptop) + 2.0*red(pbottom) - 1.0
float g = green(ptop) + 2.0*green(pbottom) - 1.0
float b = blue(ptop) + 2.0*blue(pbottom) - 1.0
if r<0.0
r = 0.0
elseif r>1.0
r = 1.0
endif
if g<0.0
g = 0.0
elseif g>1.0
g = 1.0
endif
if b<0.0
b = 0.0
elseif b>1.0
b = 1.0
endif
return RGBA(r,g,b,alpha(ptop))
elseif @p_mmfmergemode=="Brightness (Yiq)"
float btop = 0.299*red(ptop) + 0.587*green(ptop) + 0.114*blue(ptop)
float bbtm = 0.299*red(pbottom) + 0.587*green(pbottom) \
+ 0.114*blue(pbottom)
if bbtm==0
return RGBA(btop,btop,btop,alpha(ptop))
else
pbottom = pbottom*(btop/bbtm)
return RGBA(red(pbottom),green(pbottom),blue(pbottom),alpha(ptop))
endif
elseif @p_mmfmergemode=="Colour (Inverse Yiq)"
float btop = 0.299*red(ptop) + 0.587*green(ptop) + 0.114*blue(ptop)
float bbtm = 0.299*red(pbottom) + 0.587*green(pbottom) \
+ 0.114*blue(pbottom)
if btop==0
return RGBA(bbtm,bbtm,bbtm,alpha(ptop))
else
pbottom = ptop*(bbtm/btop)
return RGBA(red(pbottom),green(pbottom),blue(pbottom),alpha(ptop))
endif
elseif @p_mmfmergemode=="Brightness (Custom)"
float btop = (@redlvl*red(ptop) + @greenlvl*green(ptop) \
+ @bluelvl*blue(ptop))/(@redlvl + @greenlvl +@bluelvl)
float bbtm = (@redlvl*red(pbottom) + @greenlvl*green(pbottom) \
+ @bluelvl*blue(pbottom))/(@redlvl + @greenlvl +@bluelvl)
if bbtm==0
return RGBA(btop,btop,btop,alpha(ptop))
else
pbottom = pbottom*(btop/bbtm)
return RGBA(red(pbottom),green(pbottom),blue(pbottom),alpha(ptop))
endif
elseif @p_mmfmergemode=="Colour (Custom)"
float btop = (@redlvl*red(ptop) + @greenlvl*green(ptop) \
+ @bluelvl*blue(ptop))/(@redlvl + @greenlvl +@bluelvl)
float bbtm = (@redlvl*red(pbottom) + @greenlvl*green(pbottom) \
+ @bluelvl*blue(pbottom))/(@redlvl + @greenlvl +@bluelvl)
if btop==0
return RGBA(bbtm,bbtm,bbtm,alpha(ptop))
else
pbottom = ptop*(bbtm/btop)
return RGBA(red(pbottom),green(pbottom),blue(pbottom),alpha(ptop))
endif
elseif @p_mmfmergemode=="Pin Light"
float r = red(ptop)
float g = green(ptop)
float b = blue(ptop)
if (r>=0.5 && rred(pbottom))
r = red(pbottom)
endif
if (g>=0.5 && ggreen(pbottom))
g = green(pbottom)
endif
if (b>=0.5 && bblue(pbottom))
b = blue(pbottom)
endif
return RGBA(r, g, b, alpha(ptop))
elseif @p_mmfmergemode=="Reverse Pin Light"
float r = red(ptop)
float g = green(ptop)
float b = blue(ptop)
if (r>=0.5 && r>red(pbottom)) || (r<0.5 && r
r = red(pbottom)
endif
if (g>=0.5 && g>green(pbottom)) || (g<0.5 && g
g = green(pbottom)
endif
if (b>=0.5 && b>blue(pbottom)) || (b<0.5 && b
b = blue(pbottom)
endif
return RGBA(r, g, b, alpha(ptop))
elseif @p_mmfmergemode=="Inv. Pin Light"
float r = red(pbottom)
float g = green(pbottom)
float b = blue(pbottom)
if (r>=0.5 && rred(ptop))
r = red(ptop)
endif
if (g>=0.5 && ggreen(ptop))
g = green(ptop)
endif
if (b>=0.5 && bblue(ptop))
b = blue(ptop)
endif
return RGBA(r, g, b, alpha(ptop))
else;if @p_mmfmergemode=="Inv. Rev. Pin Light"
float r = red(pbottom)
float g = green(pbottom)
float b = blue(pbottom)
if (r>=0.5 && r>red(ptop)) || (r<0.5 && r
r = red(ptop)
endif
if (g>=0.5 && g>green(ptop)) || (g<0.5 && g
g = green(ptop)
endif
if (b>=0.5 && b>blue(ptop)) || (b<0.5 && b
b = blue(ptop)
endif
return RGBA(r, g, b, alpha(ptop))
endif ; @p_mmfmergemode
