Graphics3D[{{Thickness[0.008], Line[{{-4., 0., 0.}, {4., 0., 0.}}], Line[{{0., -4., 0.}, {0., 4., 0.}}], {Line[{{-4., 0., 0.}, {-4., 0.08, 0.}}], Line[{{-3.5, 0., 0.}, {-3.5, 0.08, 0.}}], Line[{{-3., 0., 0.}, {-3., 0.08, 0.}}], Line[{{-2.5, 0., 0.}, {-2.5, 0.08, 0.}}], Line[{{-2., 0., 0.}, {-2., 0.08, 0.}}], Line[{{-1.5, 0., 0.}, {-1.5, 0.08, 0.}}], Line[{{-1., 0., 0.}, {-1., 0.08, 0.}}], Line[{{-0.5, 0., 0.}, {-0.5, 0.08, 0.}}], Line[{{0., 0., 0.}, {0., 0.08, 0.}}], Line[{{0.5, 0., 0.}, {0.5, 0.08, 0.}}], Line[{{1., 0., 0.}, {1., 0.08, 0.}}], Line[{{1.5, 0., 0.}, {1.5, 0.08, 0.}}], Line[{{2., 0., 0.}, {2., 0.08, 0.}}], Line[{{2.5, 0., 0.}, {2.5, 0.08, 0.}}], Line[{{3., 0., 0.}, {3., 0.08, 0.}}], Line[{{3.5, 0., 0.}, {3.5, 0.08, 0.}}], Line[{{4., 0., 0.}, {4., 0.08, 0.}}]}, {Text[StyleForm["-4", FontSize -> 15.], {-4., -0.32, 0.}], Text[StyleForm["-3", FontSize -> 15.], {-3., -0.32, 0.}], Text[StyleForm["-2", FontSize -> 15.], {-2., -0.32, 0.}], Text[StyleForm["-1", FontSize -> 15.], {-1., -0.32, 0.}]}, {Text[StyleForm["1", FontSize -> 15.], {1., -0.32, 0.}], Text[StyleForm["2", FontSize -> 15.], {2., -0.32, 0.}], Text[StyleForm["3", FontSize -> 15.], {3., -0.32, 0.}], Text[StyleForm["4", FontSize -> 15.], {4., -0.32, 0.}]}, {Line[{{0., -4., 0.}, {0.08, -4., 0.}}], Line[{{0., -3.5, 0.}, {0.08, -3.5, 0.}}], Line[{{0., -3., 0.}, {0.08, -3., 0.}}], Line[{{0., -2.5, 0.}, {0.08, -2.5, 0.}}], Line[{{0., -2., 0.}, {0.08, -2., 0.}}], Line[{{0., -1.5, 0.}, {0.08, -1.5, 0.}}], Line[{{0., -1., 0.}, {0.08, -1., 0.}}], Line[{{0., -0.5, 0.}, {0.08, -0.5, 0.}}], Line[{{0., 0., 0.}, {0.08, 0., 0.}}], Line[{{0., 0.5, 0.}, {0.08, 0.5, 0.}}], Line[{{0., 1., 0.}, {0.08, 1., 0.}}], Line[{{0., 1.5, 0.}, {0.08, 1.5, 0.}}], Line[{{0., 2., 0.}, {0.08, 2., 0.}}], Line[{{0., 2.5, 0.}, {0.08, 2.5, 0.}}], Line[{{0., 3., 0.}, {0.08, 3., 0.}}], Line[{{0., 3.5, 0.}, {0.08, 3.5, 0.}}], Line[{{0., 4., 0.}, {0.08, 4., 0.}}]}, {Text[StyleForm["-4", FontSize -> 15.], {-0.16, -4., 0.}, {1., 0.}], Text[StyleForm["-3", FontSize -> 15.], {-0.16, -3., 0.}, {1., 0.}], Text[StyleForm["-2", FontSize -> 15.], {-0.16, -2., 0.}, {1., 0.}], Text[StyleForm["-1", FontSize -> 15.], {-0.16, -1., 0.}, {1., 0.}]}, {Text[StyleForm["1", FontSize -> 15.], {-0.16, 1., 0.}, {1., 0.}], Text[StyleForm["2", FontSize -> 15.], {-0.16, 2., 0.}, {1., 0.}], Text[StyleForm["3", FontSize -> 15.], {-0.16, 3., 0.}, {1., 0.}], Text[StyleForm["4", FontSize -> 15.], {-0.16, 4., 0.}, {1., 0.}]}}, {{Thickness[0.01], Line[{{-4.5, -5.5, 0.}, {4.5, -5.5, 0.}}], Line[{{-4., -5.3, 0.}, {-4., -5.7, 0.}}], Line[{{-2., -5.3, 0.}, {-2., -5.7, 0.}}], Line[{{0., -5.3, 0.}, {0., -5.7, 0.}}], Line[{{2., -5.3, 0.}, {2., -5.7, 0.}}], Line[{{4., -5.3, 0.}, {4., -5.7, 0.}}], Text[StyleForm["-50", FontSize -> 15.], {-4., -6.2, 0.}], Text[StyleForm["-25", FontSize -> 15.], {-2., -6.2, 0.}], Text[StyleForm["0", FontSize -> 15.], {0., -6.2, 0.}], Text[StyleForm["25", FontSize -> 15.], {2., -6.2, 0.}], Text[StyleForm["50", FontSize -> 15.], {4., -6.2, 0.}]}}, {{RGBColor[0., 0., 1.], Thickness[0.015], Line[{{0., -5.1, 0.}, {0., -5.9, 0.}}]}, {RGBColor[0., 1., 0.], Thickness[0.015], Line[{{0.64*(3.1416 + 2.*ArcSin[Min[1., 0.25*Abs[yg]]]*Sign[yg]), -5.1, 0.}, {0.64*(3.1416 + 2.*ArcSin[Min[1., 0.25*Abs[yg]]]*Sign[yg]), -5.9, 0.}}]}, {RGBColor[1., 0., 0.], Thickness[0.015], Line[{{-0.64*(3.1416 + 2.*ArcSin[Min[1., 0.25*Abs[yh]]]*Sign[yh]), -5.1, 0.}, {-0.64*(3.1416 + 2.*ArcSin[Min[1., 0.25*Abs[yh]]]*Sign[yh]), -5.9, 0.}}]}}, {Thickness[0.005], EdgeForm[], {{{Line[{{-4., -4., 0.}, {-4.2586, -3.7414, 0.}}], Polygon[{{-4.4, -3.6, 0.}, {-4.1879, -3.6707, 0.}, {-4.2586, -3.7414, 0.}, {-4.3293, -3.8121, 0.}}]}, {Line[{{-4., -3., 0.}, {-4.18, -2.76, 0.}}], Polygon[{{-4.3, -2.6, 0.}, {-4.1, -2.7, 0.}, {-4.18, -2.76, 0.}, {-4.26, -2.82, 0.}}]}, {Line[{{-4., -2., 0.}, {-4.1106, -1.7789, 0.}}], Polygon[{{-4.2, -1.6, 0.}, {-4.0211, -1.7342, 0.}, {-4.1106, -1.7789, 0.}, {-4.2, -1.8236, 0.}}]}, {Line[{{-4., -1., 0.}, {-4.0515, -0.79403, 0.}}], Polygon[{{-4.1, -0.6, 0.}, {-3.9545, -0.76977, 0.}, {-4.0515, -0.79403, 0.}, {-4.1485, -0.81828, 0.}}]}, {Line[{{-4., 0., 0.}, {-4., 0.2, 0.}}], Polygon[{{-4., 0.4, 0.}, {-3.9, 0.2, 0.}, {-4., 0.2, 0.}, {-4.1, 0.2, 0.}}]}, {Line[{{-4., 1., 0.}, {-3.9485, 1.206, 0.}}], Polygon[{{-3.9, 1.4, 0.}, {-3.8515, 1.1817, 0.}, {-3.9485, 1.206, 0.}, {-4.0455, 1.2302, 0.}}]}, {Line[{{-4., 2., 0.}, {-3.8894, 2.2211, 0.}}], Polygon[{{-3.8, 2.4, 0.}, {-3.8, 2.1764, 0.}, {-3.8894, 2.2211, 0.}, {-3.9789, 2.2658, 0.}}]}, {Line[{{-4., 3., 0.}, {-3.82, 3.24, 0.}}], Polygon[{{-3.7, 3.4, 0.}, {-3.74, 3.18, 0.}, {-3.82, 3.24, 0.}, {-3.9, 3.3, 0.}}]}, {Line[{{-4., 4., 0.}, {-3.7414, 4.2586, 0.}}], Polygon[{{-3.6, 4.4, 0.}, {-3.6707, 4.1879, 0.}, {-3.7414, 4.2586, 0.}, {-3.8121, 4.3293, 0.}}]}}, {{Line[{{-3., -4., 0.}, {-3.24, -3.82, 0.}}], Polygon[{{-3.4, -3.7, 0.}, {-3.18, -3.74, 0.}, {-3.24, -3.82, 0.}, {-3.3, -3.9, 0.}}]}, {Line[{{-3., -3., 0.}, {-3.1586, -2.8414, 0.}}], Polygon[{{-3.3, -2.7, 0.}, {-3.0879, -2.7707, 0.}, {-3.1586, -2.8414, 0.}, {-3.2293, -2.9121, 0.}}]}, {Line[{{-3., -2., 0.}, {-3.0891, -1.8664, 0.}}], Polygon[{{-3.2, -1.7, 0.}, {-3.0059, -1.8109, 0.}, {-3.0891, -1.8664, 0.}, {-3.1723, -1.9219, 0.}}]}, {Line[{{-3., -1., 0.}, {-3.0368, -0.88974, 0.}}], Polygon[{{-3.1, -0.7, 0.}, {-2.9419, -0.85811, 0.}, {-3.0368, -0.88974, 0.}, {-3.1316, -0.92136, 0.}}]}, {Line[{{-3., 0., 0.}, {-3., 0.1, 0.}}], Polygon[{{-3., 0.3, 0.}, {-2.9, 0.1, 0.}, {-3., 0.1, 0.}, {-3.1, 0.1, 0.}}]}, {Line[{{-3., 1., 0.}, {-2.9632, 1.1103, 0.}}], Polygon[{{-2.9, 1.3, 0.}, {-2.8684, 1.0786, 0.}, {-2.9632, 1.1103, 0.}, {-3.0581, 1.1419, 0.}}]}, {Line[{{-3., 2., 0.}, {-2.9109, 2.1336, 0.}}], Polygon[{{-2.8, 2.3, 0.}, {-2.8277, 2.0781, 0.}, {-2.9109, 2.1336, 0.}, {-2.9941, 2.1891, 0.}}]}, {Line[{{-3., 3., 0.}, {-2.8414, 3.1586, 0.}}], Polygon[{{-2.7, 3.3, 0.}, {-2.7707, 3.0879, 0.}, {-2.8414, 3.1586, 0.}, {-2.9121, 3.2293, 0.}}]}, {Line[{{-3., 4., 0.}, {-2.76, 4.18, 0.}}], Polygon[{{-2.6, 4.3, 0.}, {-2.7, 4.1, 0.}, {-2.76, 4.18, 0.}, {-2.82, 4.26, 0.}}]}}, {{Line[{{-2., -4., 0.}, {-2.2211, -3.8894, 0.}}], Polygon[{{-2.4, -3.8, 0.}, {-2.1764, -3.8, 0.}, {-2.2211, -3.8894, 0.}, {-2.2658, -3.9789, 0.}}]}, {Line[{{-2., -3., 0.}, {-2.1336, -2.9109, 0.}}], Polygon[{{-2.3, -2.8, 0.}, {-2.0781, -2.8277, 0.}, {-2.1336, -2.9109, 0.}, {-2.1891, -2.9941, 0.}}]}, {Line[{{-2., -2., 0.}, {-2.0586, -1.9414, 0.}}], Polygon[{{-2.2, -1.8, 0.}, {-1.9879, -1.8707, 0.}, {-2.0586, -1.9414, 0.}, {-2.1293, -2.0121, 0.}}]}, {Line[{{-2., -1., 0.}, {-2.0106, -0.97889, 0.}}], Polygon[{{-2.1, -0.8, 0.}, {-1.9211, -0.93416, 0.}, {-2.0106, -0.97889, 0.}, {-2.1, -1.0236, 0.}}]}, {Line[{{-2., 0., 0.}, {-2., 0., 0.}}], Polygon[{{-2., 0.2, 0.}, {-1.9, 0., 0.}, {-2., 0., 0.}, {-2.1, 0., 0.}}]}, {Line[{{-2., 1., 0.}, {-1.9894, 1.0211, 0.}}], Polygon[{{-1.9, 1.2, 0.}, {-1.9, 0.97639, 0.}, {-1.9894, 1.0211, 0.}, {-2.0789, 1.0658, 0.}}]}, {Line[{{-2., 2., 0.}, {-1.9414, 2.0586, 0.}}], Polygon[{{-1.8, 2.2, 0.}, {-1.8707, 1.9879, 0.}, {-1.9414, 2.0586, 0.}, {-2.0121, 2.1293, 0.}}]}, {Line[{{-2., 3., 0.}, {-1.8664, 3.0891, 0.}}], Polygon[{{-1.7, 3.2, 0.}, {-1.8109, 3.0059, 0.}, {-1.8664, 3.0891, 0.}, {-1.9219, 3.1723, 0.}}]}, {Line[{{-2., 4., 0.}, {-1.7789, 4.1106, 0.}}], Polygon[{{-1.6, 4.2, 0.}, {-1.7342, 4.0211, 0.}, {-1.7789, 4.1106, 0.}, {-1.8236, 4.2, 0.}}]}}, {{Line[{{-1., -4., 0.}, {-1.206, -3.9485, 0.}}], Polygon[{{-1.4, -3.9, 0.}, {-1.1817, -3.8515, 0.}, {-1.206, -3.9485, 0.}, {-1.2302, -4.0455, 0.}}]}, {Line[{{-1., -3., 0.}, {-1.1103, -2.9632, 0.}}], Polygon[{{-1.3, -2.9, 0.}, {-1.0786, -2.8684, 0.}, {-1.1103, -2.9632, 0.}, {-1.1419, -3.0581, 0.}}]}, {Line[{{-1., -2., 0.}, {-1.0211, -1.9894, 0.}}], Polygon[{{-1.2, -1.9, 0.}, {-0.97639, -1.9, 0.}, {-1.0211, -1.9894, 0.}, {-1.0658, -2.0789, 0.}}]}, {Line[{{-1., -1., 0.}, {-0.95858, -1.0414, 0.}}], Polygon[{{-1.1, -0.9, 0.}, {-0.88787, -0.97071, 0.}, {-0.95858, -1.0414, 0.}, {-1.0293, -1.1121, 0.}}]}, {Line[{{-1., 0., 0.}, {-1., -0.1, 0.}}], Polygon[{{-1., 0.1, 0.}, {-0.9, -0.1, 0.}, {-1., -0.1, 0.}, {-1.1, -0.1, 0.}}]}, {Line[{{-1., 1., 0.}, {-1.0414, 0.95858, 0.}}], Polygon[{{-0.9, 1.1, 0.}, {-0.97071, 0.88787, 0.}, {-1.0414, 0.95858, 0.}, {-1.1121, 1.0293, 0.}}]}, {Line[{{-1., 2., 0.}, {-0.97889, 2.0106, 0.}}], Polygon[{{-0.8, 2.1, 0.}, {-0.93416, 1.9211, 0.}, {-0.97889, 2.0106, 0.}, {-1.0236, 2.1, 0.}}]}, {Line[{{-1., 3., 0.}, {-0.88974, 3.0368, 0.}}], Polygon[{{-0.7, 3.1, 0.}, {-0.85811, 2.9419, 0.}, {-0.88974, 3.0368, 0.}, {-0.92136, 3.1316, 0.}}]}, {Line[{{-1., 4., 0.}, {-0.79403, 4.0515, 0.}}], Polygon[{{-0.6, 4.1, 0.}, {-0.76977, 3.9545, 0.}, {-0.79403, 4.0515, 0.}, {-0.81828, 4.1485, 0.}}]}}}, {{{Line[{{1., -4., 0.}, {0.79403, -4.0515, 0.}}], Polygon[{{0.6, -4.1, 0.}, {0.76977, -3.9545, 0.}, {0.79403, -4.0515, 0.}, {0.81828, -4.1485, 0.}}]}, {Line[{{1., -3., 0.}, {0.88974, -3.0368, 0.}}], Polygon[{{0.7, -3.1, 0.}, {0.85811, -2.9419, 0.}, {0.88974, -3.0368, 0.}, {0.92136, -3.1316, 0.}}]}, {Line[{{1., -2., 0.}, {0.97889, -2.0106, 0.}}], Polygon[{{0.8, -2.1, 0.}, {0.93416, -1.9211, 0.}, {0.97889, -2.0106, 0.}, {1.0236, -2.1, 0.}}]}, {Line[{{1., -1., 0.}, {1.0414, -0.95858, 0.}}], Polygon[{{0.9, -1.1, 0.}, {0.97071, -0.88787, 0.}, {1.0414, -0.95858, 0.}, {1.1121, -1.0293, 0.}}]}, {Line[{{1., 0., 0.}, {1., 0.1, 0.}}], Polygon[{{1., -0.1, 0.}, {0.9, 0.1, 0.}, {1., 0.1, 0.}, {1.1, 0.1, 0.}}]}, {Line[{{1., 1., 0.}, {0.95858, 1.0414, 0.}}], Polygon[{{1.1, 0.9, 0.}, {0.88787, 0.97071, 0.}, {0.95858, 1.0414, 0.}, {1.0293, 1.1121, 0.}}]}, {Line[{{1., 2., 0.}, {1.0211, 1.9894, 0.}}], Polygon[{{1.2, 1.9, 0.}, {0.97639, 1.9, 0.}, {1.0211, 1.9894, 0.}, {1.0658, 2.0789, 0.}}]}, {Line[{{1., 3., 0.}, {1.1103, 2.9632, 0.}}], Polygon[{{1.3, 2.9, 0.}, {1.0786, 2.8684, 0.}, {1.1103, 2.9632, 0.}, {1.1419, 3.0581, 0.}}]}, {Line[{{1., 4., 0.}, {1.206, 3.9485, 0.}}], Polygon[{{1.4, 3.9, 0.}, {1.1817, 3.8515, 0.}, {1.206, 3.9485, 0.}, {1.2302, 4.0455, 0.}}]}}, {{Line[{{2., -4., 0.}, {1.7789, -4.1106, 0.}}], Polygon[{{1.6, -4.2, 0.}, {1.7342, -4.0211, 0.}, {1.7789, -4.1106, 0.}, {1.8236, -4.2, 0.}}]}, {Line[{{2., -3., 0.}, {1.8664, -3.0891, 0.}}], Polygon[{{1.7, -3.2, 0.}, {1.8109, -3.0059, 0.}, {1.8664, -3.0891, 0.}, {1.9219, -3.1723, 0.}}]}, {Line[{{2., -2., 0.}, {1.9414, -2.0586, 0.}}], Polygon[{{1.8, -2.2, 0.}, {1.8707, -1.9879, 0.}, {1.9414, -2.0586, 0.}, {2.0121, -2.1293, 0.}}]}, {Line[{{2., -1., 0.}, {1.9894, -1.0211, 0.}}], Polygon[{{1.9, -1.2, 0.}, {1.9, -0.97639, 0.}, {1.9894, -1.0211, 0.}, {2.0789, -1.0658, 0.}}]}, {Line[{{2., 0., 0.}, {2., 0., 0.}}], Polygon[{{2., -0.2, 0.}, {1.9, 0., 0.}, {2., 0., 0.}, {2.1, 0., 0.}}]}, {Line[{{2., 1., 0.}, {2.0106, 0.97889, 0.}}], Polygon[{{2.1, 0.8, 0.}, {1.9211, 0.93416, 0.}, {2.0106, 0.97889, 0.}, {2.1, 1.0236, 0.}}]}, {Line[{{2., 2., 0.}, {2.0586, 1.9414, 0.}}], Polygon[{{2.2, 1.8, 0.}, {1.9879, 1.8707, 0.}, {2.0586, 1.9414, 0.}, {2.1293, 2.0121, 0.}}]}, {Line[{{2., 3., 0.}, {2.1336, 2.9109, 0.}}], Polygon[{{2.3, 2.8, 0.}, {2.0781, 2.8277, 0.}, {2.1336, 2.9109, 0.}, {2.1891, 2.9941, 0.}}]}, {Line[{{2., 4., 0.}, {2.2211, 3.8894, 0.}}], Polygon[{{2.4, 3.8, 0.}, {2.1764, 3.8, 0.}, {2.2211, 3.8894, 0.}, {2.2658, 3.9789, 0.}}]}}, {{Line[{{3., -4., 0.}, {2.76, -4.18, 0.}}], Polygon[{{2.6, -4.3, 0.}, {2.7, -4.1, 0.}, {2.76, -4.18, 0.}, {2.82, -4.26, 0.}}]}, {Line[{{3., -3., 0.}, {2.8414, -3.1586, 0.}}], Polygon[{{2.7, -3.3, 0.}, {2.7707, -3.0879, 0.}, {2.8414, -3.1586, 0.}, {2.9121, -3.2293, 0.}}]}, {Line[{{3., -2., 0.}, {2.9109, -2.1336, 0.}}], Polygon[{{2.8, -2.3, 0.}, {2.8277, -2.0781, 0.}, {2.9109, -2.1336, 0.}, {2.9941, -2.1891, 0.}}]}, {Line[{{3., -1., 0.}, {2.9632, -1.1103, 0.}}], Polygon[{{2.9, -1.3, 0.}, {2.8684, -1.0786, 0.}, {2.9632, -1.1103, 0.}, {3.0581, -1.1419, 0.}}]}, {Line[{{3., 0., 0.}, {3., -0.1, 0.}}], Polygon[{{3., -0.3, 0.}, {2.9, -0.1, 0.}, {3., -0.1, 0.}, {3.1, -0.1, 0.}}]}, {Line[{{3., 1., 0.}, {3.0368, 0.88974, 0.}}], Polygon[{{3.1, 0.7, 0.}, {2.9419, 0.85811, 0.}, {3.0368, 0.88974, 0.}, {3.1316, 0.92136, 0.}}]}, {Line[{{3., 2., 0.}, {3.0891, 1.8664, 0.}}], Polygon[{{3.2, 1.7, 0.}, {3.0059, 1.8109, 0.}, {3.0891, 1.8664, 0.}, {3.1723, 1.9219, 0.}}]}, {Line[{{3., 3., 0.}, {3.1586, 2.8414, 0.}}], Polygon[{{3.3, 2.7, 0.}, {3.0879, 2.7707, 0.}, {3.1586, 2.8414, 0.}, {3.2293, 2.9121, 0.}}]}, {Line[{{3., 4., 0.}, {3.24, 3.82, 0.}}], Polygon[{{3.4, 3.7, 0.}, {3.18, 3.74, 0.}, {3.24, 3.82, 0.}, {3.3, 3.9, 0.}}]}}, {{Line[{{4., -4., 0.}, {3.7414, -4.2586, 0.}}], Polygon[{{3.6, -4.4, 0.}, {3.6707, -4.1879, 0.}, {3.7414, -4.2586, 0.}, {3.8121, -4.3293, 0.}}]}, {Line[{{4., -3., 0.}, {3.82, -3.24, 0.}}], Polygon[{{3.7, -3.4, 0.}, {3.74, -3.18, 0.}, {3.82, -3.24, 0.}, {3.9, -3.3, 0.}}]}, {Line[{{4., -2., 0.}, {3.8894, -2.2211, 0.}}], Polygon[{{3.8, -2.4, 0.}, {3.8, -2.1764, 0.}, {3.8894, -2.2211, 0.}, {3.9789, -2.2658, 0.}}]}, {Line[{{4., -1., 0.}, {3.9485, -1.206, 0.}}], Polygon[{{3.9, -1.4, 0.}, {3.8515, -1.1817, 0.}, {3.9485, -1.206, 0.}, {4.0455, -1.2302, 0.}}]}, {Line[{{4., 0., 0.}, {4., -0.2, 0.}}], Polygon[{{4., -0.4, 0.}, {3.9, -0.2, 0.}, {4., -0.2, 0.}, {4.1, -0.2, 0.}}]}, {Line[{{4., 1., 0.}, {4.0515, 0.79403, 0.}}], Polygon[{{4.1, 0.6, 0.}, {3.9545, 0.76977, 0.}, {4.0515, 0.79403, 0.}, {4.1485, 0.81828, 0.}}]}, {Line[{{4., 2., 0.}, {4.1106, 1.7789, 0.}}], Polygon[{{4.2, 1.6, 0.}, {4.0211, 1.7342, 0.}, {4.1106, 1.7789, 0.}, {4.2, 1.8236, 0.}}]}, {Line[{{4., 3., 0.}, {4.18, 2.76, 0.}}], Polygon[{{4.3, 2.6, 0.}, {4.1, 2.7, 0.}, {4.18, 2.76, 0.}, {4.26, 2.82, 0.}}]}, {Line[{{4., 4., 0.}, {4.2586, 3.7414, 0.}}], Polygon[{{4.4, 3.6, 0.}, {4.1879, 3.6707, 0.}, {4.2586, 3.7414, 0.}, {4.3293, 3.8121, 0.}}]}}}, {{{Line[{{0., -4., 0.}, {-0.2, -4., 0.}}], Polygon[{{-0.4, -4., 0.}, {-0.2, -3.9, 0.}, {-0.2, -4., 0.}, {-0.2, -4.1, 0.}}]}, {Line[{{0., -3., 0.}, {-0.1, -3., 0.}}], Polygon[{{-0.3, -3., 0.}, {-0.1, -2.9, 0.}, {-0.1, -3., 0.}, {-0.1, -3.1, 0.}}]}, {Line[{{0., -2., 0.}, {0., -2., 0.}}], Polygon[{{-0.2, -2., 0.}, {0., -1.9, 0.}, {0., -2., 0.}, {0., -2.1, 0.}}]}, {Line[{{0., -1., 0.}, {0.1, -1., 0.}}], Polygon[{{-0.1, -1., 0.}, {0.1, -0.9, 0.}, {0.1, -1., 0.}, {0.1, -1.1, 0.}}]}}}, {{{Line[{{0., 1., 0.}, {-0.1, 1., 0.}}], Polygon[{{0.1, 1., 0.}, {-0.1, 0.9, 0.}, {-0.1, 1., 0.}, {-0.1, 1.1, 0.}}]}, {Line[{{0., 2., 0.}, {0., 2., 0.}}], Polygon[{{0.2, 2., 0.}, {0., 1.9, 0.}, {0., 2., 0.}, {0., 2.1, 0.}}]}, {Line[{{0., 3., 0.}, {0.1, 3., 0.}}], Polygon[{{0.3, 3., 0.}, {0.1, 2.9, 0.}, {0.1, 3., 0.}, {0.1, 3.1, 0.}}]}, {Line[{{0., 4., 0.}, {0.2, 4., 0.}}], Polygon[{{0.4, 4., 0.}, {0.2, 3.9, 0.}, {0.2, 4., 0.}, {0.2, 4.1, 0.}}]}}}}, {{FaceForm[RGBColor[0., 1., 1.]], EdgeForm[], Polygon[{{0.3, -3.7, -0.1}, {0.3, -4.3, -0.1}, {-0.3, -4.3, -0.1}, {-0.3, -3.7, -0.1}}]}, {FaceForm[RGBColor[1., 0., 1.]], EdgeForm[], Polygon[{{0.3, 4.3, -0.1}, {0.3, 3.7, -0.1}, {-0.3, 3.7, -0.1}, {-0.3, 4.3, -0.1}}]}}, {Thickness[0.015], PointSize[0.04], {RGBColor[0., 0., 1.], Line[{{0., -4., 0.}, {0., 4., 0.}}], Point[{0., yf, 0.}]}, {RGBColor[0., 1., 0.], Line[{{0., -4., 0.}, {-0.88882, -3.9, 0.}, {-1.249, -3.8, 0.}, {-1.5199, -3.7, 0.}, {-1.7436, -3.6, 0.}, {-1.9365, -3.5, 0.}, {-2.1071, -3.4, 0.}, {-2.2605, -3.3, 0.}, {-2.4, -3.2, 0.}, {-2.5278, -3.1, 0.}, {-2.6458, -3., 0.}, {-2.755, -2.9, 0.}, {-2.8566, -2.8, 0.}, {-2.9513, -2.7, 0.}, {-3.0397, -2.6, 0.}, {-3.1225, -2.5, 0.}, {-3.2, -2.4, 0.}, {-3.2726, -2.3, 0.}, {-3.3407, -2.2, 0.}, {-3.4044, -2.1, 0.}, {-3.4641, -2., 0.}, {-3.5199, -1.9, 0.}, {-3.5721, -1.8, 0.}, {-3.6208, -1.7, 0.}, {-3.6661, -1.6, 0.}, {-3.7081, -1.5, 0.}, {-3.747, -1.4, 0.}, {-3.7829, -1.3, 0.}, {-3.8158, -1.2, 0.}, {-3.8458, -1.1, 0.}, {-3.873, -1., 0.}, {-3.8974, -0.9, 0.}, {-3.9192, -0.8, 0.}, {-3.9383, -0.7, 0.}, {-3.9547, -0.6, 0.}, {-3.9686, -0.5, 0.}, {-3.9799, -0.4, 0.}, {-3.9887, -0.3, 0.}, {-3.995, -0.2, 0.}, {-3.9987, -0.1, 0.}, {-4., 2.2204*^-16, 0.}, {-3.9987, 0.1, 0.}, {-3.995, 0.2, 0.}, {-3.9887, 0.3, 0.}, {-3.9799, 0.4, 0.}, {-3.9686, 0.5, 0.}, {-3.9547, 0.6, 0.}, {-3.9383, 0.7, 0.}, {-3.9192, 0.8, 0.}, {-3.8974, 0.9, 0.}, {-3.873, 1., 0.}, {-3.8458, 1.1, 0.}, {-3.8158, 1.2, 0.}, {-3.7829, 1.3, 0.}, {-3.747, 1.4, 0.}, {-3.7081, 1.5, 0.}, {-3.6661, 1.6, 0.}, {-3.6208, 1.7, 0.}, {-3.5721, 1.8, 0.}, {-3.5199, 1.9, 0.}, {-3.4641, 2., 0.}, {-3.4044, 2.1, 0.}, {-3.3407, 2.2, 0.}, {-3.2726, 2.3, 0.}, {-3.2, 2.4, 0.}, {-3.1225, 2.5, 0.}, {-3.0397, 2.6, 0.}, {-2.9513, 2.7, 0.}, {-2.8566, 2.8, 0.}, {-2.755, 2.9, 0.}, {-2.6458, 3., 0.}, {-2.5278, 3.1, 0.}, {-2.4, 3.2, 0.}, {-2.2605, 3.3, 0.}, {-2.1071, 3.4, 0.}, {-1.9365, 3.5, 0.}, {-1.7436, 3.6, 0.}, {-1.5199, 3.7, 0.}, {-1.249, 3.8, 0.}, {-0.88882, 3.9, 0.}, {0., 4., 0.}}], Point[{-1.*Sqrt[16. - 1.*Min[16., yg^2]], yg, 0.}]}, {RGBColor[1., 0., 0.], Line[{{0., -4., 0.}, {0.88882, -3.9, 0.}, {1.249, -3.8, 0.}, {1.5199, -3.7, 0.}, {1.7436, -3.6, 0.}, {1.9365, -3.5, 0.}, {2.1071, -3.4, 0.}, {2.2605, -3.3, 0.}, {2.4, -3.2, 0.}, {2.5278, -3.1, 0.}, {2.6458, -3., 0.}, {2.755, -2.9, 0.}, {2.8566, -2.8, 0.}, {2.9513, -2.7, 0.}, {3.0397, -2.6, 0.}, {3.1225, -2.5, 0.}, {3.2, -2.4, 0.}, {3.2726, -2.3, 0.}, {3.3407, -2.2, 0.}, {3.4044, -2.1, 0.}, {3.4641, -2., 0.}, {3.5199, -1.9, 0.}, {3.5721, -1.8, 0.}, {3.6208, -1.7, 0.}, {3.6661, -1.6, 0.}, {3.7081, -1.5, 0.}, {3.747, -1.4, 0.}, {3.7829, -1.3, 0.}, {3.8158, -1.2, 0.}, {3.8458, -1.1, 0.}, {3.873, -1., 0.}, {3.8974, -0.9, 0.}, {3.9192, -0.8, 0.}, {3.9383, -0.7, 0.}, {3.9547, -0.6, 0.}, {3.9686, -0.5, 0.}, {3.9799, -0.4, 0.}, {3.9887, -0.3, 0.}, {3.995, -0.2, 0.}, {3.9987, -0.1, 0.}, {4., 2.2204*^-16, 0.}, {3.9987, 0.1, 0.}, {3.995, 0.2, 0.}, {3.9887, 0.3, 0.}, {3.9799, 0.4, 0.}, {3.9686, 0.5, 0.}, {3.9547, 0.6, 0.}, {3.9383, 0.7, 0.}, {3.9192, 0.8, 0.}, {3.8974, 0.9, 0.}, {3.873, 1., 0.}, {3.8458, 1.1, 0.}, {3.8158, 1.2, 0.}, {3.7829, 1.3, 0.}, {3.747, 1.4, 0.}, {3.7081, 1.5, 0.}, {3.6661, 1.6, 0.}, {3.6208, 1.7, 0.}, {3.5721, 1.8, 0.}, {3.5199, 1.9, 0.}, {3.4641, 2., 0.}, {3.4044, 2.1, 0.}, {3.3407, 2.2, 0.}, {3.2726, 2.3, 0.}, {3.2, 2.4, 0.}, {3.1225, 2.5, 0.}, {3.0397, 2.6, 0.}, {2.9513, 2.7, 0.}, {2.8566, 2.8, 0.}, {2.755, 2.9, 0.}, {2.6458, 3., 0.}, {2.5278, 3.1, 0.}, {2.4, 3.2, 0.}, {2.2605, 3.3, 0.}, {2.1071, 3.4, 0.}, {1.9365, 3.5, 0.}, {1.7436, 3.6, 0.}, {1.5199, 3.7, 0.}, {1.249, 3.8, 0.}, {0.88882, 3.9, 0.}, {0., 4., 0.}}], Point[{Sqrt[16. - 1.*Min[16., yh^2]], yh, 0.}]}}}, ViewPoint -> {0., 0., 1.}, Boxed -> False, Axes -> False, Lighting -> False]