Glad you like it.
I just changed the two parameters I mentioned above and modified the end to look like this:
cylinder(h=5.2, r=5.5, $fn=12*PI, center=false);
rotate_extrude($fn = 60, convexity = 10)
I would just move "t=1.05; // wall Thickness" at the beggining of
the script, just bellow the comments, together with another parameter, something like "phl=125; // Pinard Horn length" and then change ty1 to ty1=phl-26;