Tema: 3D en un proyector 2D.

Chicos, necesito que proveis una cosa.
Os pongo en situacion.
Tengo un Optoma HD230X
He seguido este y muchos hilos sobre proyectar 3d anaglifico

Despues de muchas pruebas, tirar el cable hdmi al proyector desde el pc, usar el reproductor stereoscopic player, el reproductor colorcode3d, el tridef, etc ... casi nunca conseguida ver profundidad o tenia que configurar un monton de cosas en el pc y casi no veia 3d

Entonces fui al segundo paso, que era codificar el video 3d sidebyside a formato anaglifico mkv y reproducirlo directamente desde un reproductor multimedia normal.
Ahi segui el procedimiento antiguo de hace un monton de tiempo de generar el fichero grf con los filtros del stereoscopic player y patatin ...
Nada, pinche tambien.

Al final me puse a hacer mi propio codigo avisynth a partir de todo lo leido aqui y alla, documentacion de colorcode, etc .. etc ... (porque parece que el algoritmo amarillo azul del stereoscopic no es colorcode ..)

Bueno, lo dicho, despues de ajustar afinar y traducir todo a codigo (la formula del colorcode3d) me ha quedado este codigo avisynth ...

Please, probarlo y mejorarlo que seguro que se puede mejorar ...

En el ejemplo he tomado como fichero ERLS.mkv y el avisynth lo he pasado con el Meguii

Probad, criticad, y si es posible, mejorarlo ...


NOTA:
El codigo siguiente no tiene erratas. De hecho, es asi. Lo digo porque hay muchas interpretaciones sobre el color code, pero la que yo he seguido dice que el colorcode se compone de enviar al ojo izquierdo la gama de rojo y verde de la imagen izquierda, y al ojo derecho la grama completa de la imagen derecha, en monocromo, y con los pesos 0.15, 0.15, 0.70 para los colores.
De mi cosecha solo he aumentado el brillo y contraste ... Como veis, el resto es traducir al codigo avysinth la receta



video2d = DirectShowSource("ERLS.mkv")

video2d.AssumeFPS(24000,1001)

video2d = ConvertToRGB(video2d)

videoW = width(video2d)
videoH = height(video2d)

mitadW = videoW / 2

left = Crop(video2d, 0, 0, mitadW, -0)
left = Lanczos4Resize(left, 1920, 1080)

right = Crop(video2d, mitadW, 0, mitadW, -0)
right = ConvertToYV12(right)
right= Tweak(right, hue=0, sat=1, bright=16.5, cont=1.2, coring=false)
right = Tweak(right, sat=0)
right = ConvertToRGB(right)
right = RGBAdjust(right, 0.15, 0.15, 0.7)
right = Lanczos4Resize(right, 1920, 1080)

MergeRGB(left.ShowRed, left.ShowGreen, right)

ConvertToYV12()