Visual Basic

'Create a cartoonish like affect    <br />
Public Function Cartoon(ByVal EditImage As Image, ByVal Range As Integer) As Image<br />
        Dim ModBMP As New Bitmap(EditImage) 'Image to eidt<br />
        Dim X As Integer, Y As Integer 'Positioning coordinates<br />
        Dim ColorCapture As RGB 'Public Structure(3 integers to handle colors, nothing special)<br />
        Dim Match As Boolean<br />
        Dim R As Integer, G As Integer, B As Integer<br />
        'Filter through<br />
        For X = 1 To ModBMP.Width - 1<br />
            For Y = 1 To ModBMP.Height - 1<br />
                'Get color value of first position<br />
                R = ModBMP.GetPixel(X, Y).R : G = ModBMP.GetPixel(X, Y).G : B = ModBMP.GetPixel(X, Y).B<br />
                'Get color value of one pixel behind<br />
                Try<br />
                    ColorCapture.R = ModBMP.GetPixel(X - 1, Y).R : ColorCapture.G = ModBMP.GetPixel(X - 1, Y).G : ColorCapture.B = ModBMP.GetPixel(X - 1, Y).B<br />
                Catch ex As Exception<br />
                    'MsgBox(ex.Message)<br />
                End Try<br />
                'Modify to enhance check (crap code)<br />
                'Dim Vivi As Integer = 0<br />
                'Vivi = HighestColor(R, G, B)<br />
                'If Vivi = 1 Then R = R * 5<br />
                'If Vivi = 2 Then G = G * 5<br />
                'If Vivi = 3 Then B = B * 5<br />
                'Check Relations between two areas (ReAdjusted to hard way of adding booleans)<br />
                Match = InRange(R, Range, ColorCapture.R) + InRange(G, Range, ColorCapture.G) + InRange(B, Range, ColorCapture.B)<br />
                If Match = True Then R = ColorCapture.R : G = ColorCapture.G : B = ColorCapture.B<br />
                'Adjust the image<br />
                ModBMP.SetPixel(X, Y, Color.FromArgb(R, G, B))<br />
            Next Y<br />
        Next X<br />
        EditImage = ModBMP<br />
        Return EditImage<br />
    End Function<br />
<br />
    'Purpose: Check highest color value to help figure between small differences<br />
    Public Function HighestColor(ByVal R As Integer, ByVal G As Integer, ByVal B As Integer) As Integer<br />
        'Check<br />
        Dim eR As Boolean, eG As Boolean, eB As Boolean<br />
        'Evaluate<br />
        If R < B And R < G Then eR = False<br />
        If G < R And G < B Then eG = False<br />
        If B < R And B < G Then eB = False<br />
        If eR = True Then Return 1<br />
        If eG = True Then Return 2<br />
        If eB = True Then Return 3<br />
    End Function<br />
<br />
    'Purpose: Return boolean of whether in range of this number<br />
    Public Function InRange(ByVal Number As Double, ByVal Range As Double, ByVal Target As Double) As Boolean<br />
        'Check<br />
        If Target <= Number + Range And Target >= Number - Range Then<br />
            InRange = True<br />
        Else<br />
            InRange = False<br />
        End If<br />
        'Return Results<br />
        Return InRange<br />
    End Function