Source

(* Screen *)
    Hblxs->Hblx,Hblys->F(F Hly+Hlz Obly)/(F Hlz-Hly Obly),
    Hlbxs->Hlbx,Hlbys->F(F Hly+Hlz Oby)/(F Hlz-Hly Oby),
    Hltxs->Hltx,Hltys->F(F Hly+Hlz Oty)/(F Hlz-Hly Oty),
    Htlxs->Htlx,Htlys->F(F Hly+Hlz Otly)/(F Hlz-Hly Otly),
    Hbrxs->Hbrx,Hbrys->F(F Hry+Hrz Obry)/(F Hrz-Hry Obry),
    Hrbxs->Hrbx,Hrbys->F(F Hry+Hrz Oby)/(F Hrz-Hry Oby),
    Hrtxs->Hrtx,Hrtys->F(F Hry+Hrz Oty)/(F Hrz-Hry Oty),
    Htrxs->Htrx,Htrys->F(F Hry+Hrz Otry)/(F Hrz-Hry Otry),