نمونه کد های کوچک و کاربردی VB.Net

[ravegoat]

کد زیر با دریافت تصویر راست و چپ تصویر سه بعدی را به صورت Anaglyph ایجاد می کند:

    Function CreateAnaglyph(ByVal left As Bitmap, ByVal right As Bitmap) As Bitmap
        If left.Width <> right.Width Or left.Height <> right.Height Then Return Nothing
        Dim final As New Bitmap(left.Width, left.Height)
        For i As Integer = 0 To left.Width - 1
            For j As Integer = 0 To left.Height - 1
                final.SetPixel(i, j, Drawing.Color.FromArgb(left.GetPixel(i, j).R, right.GetPixel(i, j).G, right.GetPixel(i, j).B))
            Next
        Next
        Return final
    End Function