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; |