ایجاد تصاویر سه بعدی با روش Interleaved Polarization
کد زیر با گرفتن تصاویر سمت راست و چپ تصویر پولاریزه شده ی سه بعدی رو تولید می کنه:
کد:
Function Polarizor(ByVal left As Bitmap, ByVal right As Bitmap) As Bitmap
If left.Width <> right.Width And left.Height <> right.Height Then Return Nothing
Dim final As New Bitmap(left.Width, left.Height)
For j As Integer = 1 To left.Height / 2 - 1
For i As Integer = 0 To left.Width - 1
final.SetPixel(i, 2 * j, left.GetPixel(i, 2 * j))
final.SetPixel(i, 2 * j + 1, right.GetPixel(i, 2 * j + 1))
Next
Next
Return final
End Function