Step 1: Camera Image Processing

[Graphics:../HTMLFiles/index_33.gif]

CH1→ {Vtlx, Vtly} → {Otlx, Otly}

CH0→ {Vtx, Vty} → {Otx, Oty}

CH2→ {Vtrx, Vtry} → {Otrx, Otry}

C1→ {Vblx, Vbly} → {Oblx, Obly}

C0→ {Vbx, Vby} → {Obx, Oby}

C2→ {Vbrx, Vbry} → {Obrx, Obry}

Camera Image Change

Source [V]

Tilt, Pan → Zero

Solve[{x^2 + y^2 + z^2 == F^2, x/Vbx == y/Vby == z/-F}, {x, y, z}]

{x→ (F Vbx)/(F^2 + Vbx^2 + Vby^2)^(1/2), y→ (F Vby)/(F^2 + Vbx^2 + Vby^2)^(1/2), z→ -F^2/(F^2 + Vbx^2 + Vby^2)^(1/2)}

Solve[{(F Vbx)/(F^2 + Vbx^2 + Vby^2)^(1/2) x + (F Vby)/(F^2 + Vbx^2 + Vby^2)^(1/2) y - F^2/(F^2 + Vbx^2 + Vby^2)^(1/2) z == F^2, x/Vblx == y/Vbly == z/-F}, {x, y, z}]

Source [J]

In Screen Shape → Center Line Shape

CC→ArcTan[Jbz, Jby] ;

CD→ArcTan[Jbz Cos[CC] + Jby Sin[CC], -Jbx] ;

CE→ArcTan[Jtx Cos[CD] + Jtz Cos[CC] Sin[CD] + Jty Sin[CC] Sin[CD], -Jty Cos[CC] + Jtz Sin[CC]] ;

Source [N]

Combine [O]