Britney Spears
with some imperfection:
More pictures modified in Delphi ( the
formula for the color is showed below )
(Some pictures was reducted..)
|
Britney Spears |
with some imperfection: |
|
|
If if (g<r) and (b<r) then cc:=37;
if r-cc > 0 then r:=r-cc; if g-cc > 0 then g:=g-cc; if b-cc > 0 then b:=b-cc; |
||
|
|
 |
 |
|
Kelly Clarkson |
If (r in [30..130]) and (g in [40..104])
and (b in [10..100]) then
|
 Jessica Andrews |
 If ((x>143) and (y>174) and (x<151) and (y<185)) then .. c:=Form3.Image1.Canvas.Pixels[x-12, y]; b := GetBValue(c); g := GetGValue(c); r := GetRValue(c); |
 |
 |
| Christina Aguilera | If (r<113) and (g<112) and (b<95) and (g-r<10)
then cc:=25; If r>cc then dec(r,cc); If g>cc then dec(g,cc) If b>cc then dec(b,cc) Full Size
|
 Christina Aguilera |
 If (r>g) and (r>b) and (r in [30..200]) and (r-g>34) and (r-b>34) then cc:=22; If r+cc < 256 then r:=r+cc; |