Golden Ratio Construction

frame[\[Theta]_] :=
 Module[{p = {-Cos[\[Theta]], Sin[\[Theta]]},
   n = {Sin[\[Theta]], Cos[\[Theta]]}, q = {1, Sin[\[Theta]]}, \[Phi]},
  \[Phi] = (Sqrt[5] + 1)/2;
  Graphics[{
    Thickness[0.005],
    {FaceForm[Directive[Opacity[0.3], Purple]],
     EdgeForm[Directive[Thickness[0.005], Black]],
     Rectangle[{0, 0}, {-Cos[\[Theta]], 1}]},
    PointSize[Large],
    {Dashed, Line[{p, q}]},
    Line[{p - n, p + Csc[\[Theta]] n}],
    Line[{{0, 0}, Csc[\[Theta]] n}],
    Line[{p + Csc[\[Theta]] n, Csc[\[Theta]] n}],
    Gray,
    Line[{{1, 0}, {1, 10}}],
    {Black, Disk[{0, 0}, 0.05],
     FaceForm[Directive[Opacity[0.2], Orange]],
     EdgeForm[Directive[Thickness[0.005], Black]], Disk[{0, 0}, 1]},
    Orange,
    Point[p],
    Blue,
    Point[Csc[\[Theta]] n],
    Red,
    Point[q],
    Black,
    Text[Style[1, Large], {0.05, 0.5}],
    Text[Style[Cos[\[Theta]], Large], {-Cos[\[Theta]]/2, -0.13}]
    }, PlotRange -> {{-1.1, 1.1}, {-0.2, 1.61}}]
  ]; Manipulate[
 frame[\[Theta]],
 {\[Theta], Pi/2, ArcCos[1/\[Phi]] - 0.1}]