H = 3;
L = 6;
A = 80 (π/180);

X1 = (-H + t*Cos[A])/(L + t*Sin[A]); 
      Y1 = 3/(L + t*Sin[A]);
X2 = (-H + t*Cos[A])/(L + t*Sin[A]); 
      Y2 = 4.7/(L + t*Sin[A]);
X3 = (-H + t*Cos[A])/(L + t*Sin[A]); 
      Y3 = (Sqrt[3^2 - (t - 3)^2] - 1)/(L + t*Sin[A]);
X4 = (-H + t*Cos[A])/(L + t*Sin[A]); 
      Y4 = (Sqrt[3^2 - (t - 10)^2] - 1)/(L + t*Sin[A]);
X5 = (-H + t*Cos[A])/(L + t*Sin[A]); 
      Y5 = (Sqrt[3^2 - (t - 17)^2] - 1)/(L + t*Sin[A]);
X6 = (-H + t*Cos[A])/(L + t*Sin[A]); 
      Y6 = (Sqrt[1.4^2 - (t - 1.5)^2] + 3)/(L + t*Sin[A]);
X7 = (-H + t*Cos[A])/(L + t*Sin[A]); 
      Y7 = (Sqrt[1.4^2 - (t - 4.5)^2] + 3)/(L + t*Sin[A]);
X8 = (-H + t*Cos[A])/(L + t*Sin[A]); 
      Y8 = (Sqrt[1.4^2 - (t - 7.5)^2] + 3)/(L + t*Sin[A]);
X9 = (-H + t*Cos[A])/(L + t*Sin[A]); 
      Y9 = (Sqrt[1.4^2 - (t - 10.5)^2] + 3)/(L + t*Sin[A]);
X10 = (-H + t*Cos[A])/(L + t*Sin[A]) ; 
      Y10 = (Sqrt[1.4^2 - (t - 13.5)^2] + 3)/(L + t*Sin[A]);
X11 = (-H + t*Cos[A])/(L + t*Sin[A]); 
      Y11 = (Sqrt[1.4^2 - (t - 16.5)^2] + 3)/(L + t*Sin[A]);
X12 = (-H + t*Cos[A])/(L + t*Sin[A]);  
      Y12 = (Sqrt[1.4^2 - (t - 19.5)^2] + 3)/(L + t*Sin[A]);
X13 = (-H + t*Cos[A])/(L + t*Sin[A]); 
      Y13 = (Sqrt[3^2 - (t - 24)^2] - 1)/(L + t*Sin[A]);
X14 = (-H + t*Cos[A])/(L + t*Sin[A]); 
      Y14 = (Sqrt[3^2 - (t - 31)^2] - 1)/(L + t*Sin[A]);
X15 = (-H + t*Cos[A])/(L + t*Sin[A]); 
      Y15 = (Sqrt[1.4^2 - (t - 22.5)^2] + 3)/(L + t*Sin[A]);
X16 = (-H + t*Cos[A])/(L + t*Sin[A]); 
      Y16 = (Sqrt[1.4^2 - (t - 25.5)^2] + 3)/(L + t*Sin[A]);
X17 = (-H + t*Cos[A])/(L + t*Sin[A]); 
      Y17 = (Sqrt[1.4^2 - (t - 28.5)^2] + 3)/(L + t*Sin[A]);
X18 = (-H + t*Cos[A])/(L + 
              t*Sin[A]);Y18 = (Sqrt[1.4^2 - (t - 31.5)^2] + 
              3)/(L + t*Sin[A]);

plot1 = 
        ParametricPlot[{X1, Y1}, {t, 0, 55}];
plot2 = 
        ParametricPlot[{X2, Y2}, {t, 0, 55}];
plot3 = 
        ParametricPlot[{X3, Y3}, {t, 0, 55}];
plot4 = 
        ParametricPlot[{X4, Y4}, {t, 0, 55}];
plot5 = 
        ParametricPlot[{X5, Y5}, {t, 0, 55}];
plot6 = 
        ParametricPlot[{X6, Y6}, {t, 0, 55}];
plot7 = 
        ParametricPlot[{X7, Y7}, {t, 0, 55}];
plot8 = 
        ParametricPlot[{X8, Y8}, {t, 0, 55}];
plot9 = 
        ParametricPlot[{X9, Y9}, {t, 0, 55}];
plot10 = 
        ParametricPlot[{X10, Y10}, {t, 0, 55}];
plot11 = 
        ParametricPlot[{X11, Y11}, {t, 0, 55}];
plot12 = 
        ParametricPlot[{X12, Y12}, {t, 0, 55}];
plot13 = 
        ParametricPlot[{X13, Y13}, {t, 0, 55}];
plot14 = 
        ParametricPlot[{X14, Y14}, {t, 0, 55}];
plot15 = 
        ParametricPlot[{X15, Y15}, {t, 0, 55}];
plot16 = 
        ParametricPlot[{X16, Y16}, {t, 0, 55}];
plot17 = 
        ParametricPlot[{X17, Y17}, {t, 0, 55}];
plot18 = ParametricPlot[{X18, Y18}, {t, 0, 55}];

qq = 
      Show[{plot1, plot2, plot3, plot4, plot5, plot6, plot7, plot8, plot9, 
          plot10, plot11, plot12, plot13, plot14, plot15, plot16, plot17, 
          plot18}, Axes -> False,  AspectRatio -> 1, 
        DefaultColor -> RGBColor[0, 0, 0]]