Step 2: Height Setting

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

{Otlx, Otly} → {Htlxs, Htlys}

{Otx, Oty} → {Htxs, Htys}

{Otrx, Otry} → {Htrxs, Htrys}

{Oblx, Obly} → {Hblxs, Hblys}

{Obx, Oby} → {Hbxs, Hbys}

{Obrx, Obry} → {Hbrxs, Hbrys}

Otlx와 Oblx가 동일한 평면 찾기

y^2 + z^2 == F^2 ; {0, Hy, Hz} ; Hy^2 + Hz^2 == F^2 ;

x/Otlx == y/Otly == z/-F ;

x/Oblx == y/Obly == z/-F ;

Hy y + Hz z == F^2

Solve[{x/Otlx == y/Otly == z/-F, Hy y + Hz z == F^2}, {x, y, z}]

{x→ -(F^2 Otlx)/(F Hz - Hy Otly), y→ -(F^2 Otly)/(F Hz - Hy Otly), z→F^3/(F Hz - Hy Otly)}

Solve[{x/Oblx == y/Obly == z/-F, Hy y + Hz z == F^2}, {x, y, z}]

{x→ -(F^2 Oblx)/(F Hz - Hy Obly), y→ -(F^2 Obly)/(F Hz - Hy Obly), z→F^3/(F Hz - Hy Obly)}

Solve[{-(F^2 Otlx)/(F Hz - Hy Otly) == -(F^2 Oblx)/(F Hz - Hy Obly), Hy^2 + Hz^2 == F^2}, {Hy, Hz}]

{Hy→ (F^2 (Oblx - Otlx))/(F^2 (Oblx - Otlx)^2 + (Obly Otlx - Oblx Otly)^2)^(1/2), Hz→ (F (-Obly Otlx + Oblx Otly))/(F^2 (Oblx - Otlx)^2 + (Obly Otlx - Oblx Otly)^2)^(1/2)}

Source

Screen Rotation

({{1, 0, 0}, {0, -Hz/F, Hy/F}, {0, -Hy/F, -Hz/F}}) . ({{Hblx}, {Hbly}, {Hblz}})

{Hblxs→Hblx, Hblys→ (Hblz Hy)/F - (Hbly Hz)/F, z→ -(Hbly Hy)/F - (Hblz Hz)/F}

Hblxs→Hblx, Hblys→ (F (F Hy + Hz Obly))/(F Hz - Hy Obly), z→ -F,

Source

Combine [H]