# Graphic Unexpectedly Shrinks in Size [closed]

I have posed this question to someone inside Wolfram and he did not understand why I have the following problem.

I am building a graphic to demonstrate similar triangles in a geometry class to prep students for the geometry of the incline plane problems in physics. The graphic looks fine with just this code:

Show[
Graphics[{
{
Thick,
Line[{ { Sqrt[ 3 ] / 2, 0 }, { Sqrt[ 3 ] / 2, 1 / 2 }  }],
Line[{ { ( Sqrt[ 3 ] / 3 ), 0  }, {Sqrt[ 3 ] / 4, 1 / 4} }],
Line[{ {Sqrt[ 3 ] / 4, 1 / 4}, {Sqrt[ 3 ] / 4, 0 } }],
Line[{ {Sqrt[ 3 ] / 4, 1 / 4}, {Sqrt[ 3 ] / 4, 0 } }],
Line[{ {Sqrt[ 3 ] / 4, 0 }, { 5 Sqrt[ 3 ] / 16, 1 / 16 } }],
Line[{ { 0, 0 }, { Sqrt[ 3 ] / 2, 0 }  }],
Line[{ { 0, 0 }, { Sqrt[ 3 ] / 2, 1 / 2 }  }]
},
(* begin right angle symbols *)
{
Red,
(* incline *)
Line[{ {Sqrt[ 3 ] / 4 - 0.025, 0.025 }, {Sqrt[ 3 ] / 4, 0.025 } }],
Line[{ {Sqrt[ 3 ] / 4 - 0.025, 0 }, {Sqrt[ 3 ] / 4 - 0.025, 0.025 } }],
(* base right *)
Line[{ {Sqrt[ 3 ] / 2 - 0.025, 0.025 }, {Sqrt[ 3 ] / 2, 0.025 } }],
Line[{ {Sqrt[ 3 ] / 2 - 0.025, 0 }, {Sqrt[ 3 ] / 2 - 0.025, 0.025 } }],
(* base left *)
Line[{ { Sqrt[ 3 ] / 4 + 0.05 / Sqrt[ 3 ] + 0.0125 - 0.0125 / Sqrt[ 3 ], 0.25 - 0.0125 Sqrt[ 3 ] + 0.0125 }, { Sqrt[ 3 ] / 4 + 0.0375 / Sqrt[ 3 ], 0.25 + 0.0125 } }],
Line[{ { Sqrt[ 3 ] / 4 + 0.05 / Sqrt[ 3 ] + 0.0125 - 0.0125 / Sqrt[ 3 ], 0.25 - 0.0125 Sqrt[ 3 ] + 0.0125 }, { Sqrt[ 3 ] / 4 + 0.0125, 0.25 - 0.0125 Sqrt[ 3 ] } }],

}
}]
]


However, once I add these next lines my graphic shrinks to being barely visible.

Show[
Graphics[{
{
Thick,
Line[{ { Sqrt[ 3 ] / 2, 0 }, { Sqrt[ 3 ] / 2, 1 / 2 }  }],
Line[{ { ( Sqrt[ 3 ] / 3 ), 0  }, {Sqrt[ 3 ] / 4, 1 / 4} }],
Line[{ {Sqrt[ 3 ] / 4, 1 / 4}, {Sqrt[ 3 ] / 4, 0 } }],
Line[{ {Sqrt[ 3 ] / 4, 1 / 4}, {Sqrt[ 3 ] / 4, 0 } }],
Line[{ {Sqrt[ 3 ] / 4, 0 }, { 5 Sqrt[ 3 ] / 16, 1 / 16 } }],
Line[{ { 0, 0 }, { Sqrt[ 3 ] / 2, 0 }  }],
Line[{ { 0, 0 }, { Sqrt[ 3 ] / 2, 1 / 2 }  }]
},
(* begin right angle symbols *)
{
Red,
(* inclince *)

Line[{ {Sqrt[ 3 ] / 4 - 0.025, 0.025 }, {Sqrt[ 3 ] / 4, 0.025 } }],
Line[{ {Sqrt[ 3 ] / 4 - 0.025, 0 }, {Sqrt[ 3 ] / 4 - 0.025, 0.025 } }],
(* base right *)

Line[{ {Sqrt[ 3 ] / 2 - 0.025, 0.025 }, {Sqrt[ 3 ] / 2, 0.025 } }],
Line[{ {Sqrt[ 3 ] / 2 - 0.025, 0 }, {Sqrt[ 3 ] / 2 - 0.025, 0.025 } }],
(* base left *)

Line[{ { Sqrt[ 3 ] / 4 + 0.05 / Sqrt[ 3 ] + 0.0125 - 0.0125 / Sqrt[ 3 ], 0.25 - 0.0125 Sqrt[ 3 ] + 0.0125 }, { Sqrt[ 3 ] / 4 + 0.0375 / Sqrt[ 3 ], 0.25 + 0.0125 } }],
Line[{ { Sqrt[ 3 ] / 4 + 0.05 / Sqrt[ 3 ] + 0.0125 - 0.0125 / Sqrt[ 3 ], 0.25 - 0.0125 Sqrt[ 3 ] + 0.0125 }, { Sqrt[ 3 ] / 4 + 0.0125, 0.25 - 0.0125 Sqrt[ 3 ] } }],
(* middle *)

Line[{ { 5 Sqrt[ 3 ] - 0.0125 ( 1 + Sqrt[ 3 ] ), 1 /16 + 0.0125 ( Sqrt[ 3 ] - 1 ) }, { 5 Sqrt[ 3 ] - 0.0125, 1 / 16 + 0.0125 Sqrt[ 3 ] } }],
Line[{ { 5 Sqrt[ 3 ] - 0.0125 ( 1 + Sqrt[ 3 ] ),  1 /16 + 0.0125 ( Sqrt[ 3 ] - 1 ) }, { 5 Sqrt[ 3 ] - 0.0125 Sqrt[ 3 ], 1 / 16 - 0.0125 } }]
}
}]
]


Does anyone have any idea why the addition of these final line segments seems to cause the graphic to shrink so dramatically?

-
Why are the "middle" segments so far away from the right triangle? (In other words: you might want to inspect the coordinates of those additional segments; you'll be able to figure out why your picture stretched horizontally.) –  Ｊ. Ｍ. Jun 5 at 17:23
If you click on the tiny version to highlight the long bounding box, and look in the bottom right hand corner, there is a very tiny red dot... this must be what is making it appear to shrink. –  bill s Jun 5 at 17:38
The problem is the "5"'s in the 5 Sqrt[3] term, which occurs in 4 places. These should probably be more like Sqrt[3]/3. Just recalculate these terms. –  bill s Jun 5 at 17:47
The last few lines have an x value that is much higher than the earlier ones, whereas the y range is still small. Mathematica scales the whole to fit in its standard image size, so your original triangle is shrunk. So, quite understandable and probably a programming error. Voting to close. –  Sjoerd C. de Vries Jun 5 at 17:56
Thanks all. That's embarrassing...I have no idea why I couldn't see the problem. –  Robert Kennedy Jun 5 at 18:36