1\subsection{Join two curves at specified ends.} 2\funclabel{s1715} 3\begin{minipg1} 4 To join one end of one curve with one end of another curve by 5 translating the second curve. If {\fov curve1} is to be joined at the start, 6 the direction of the curve is turned. If {\fov curve2} is to be joined at the 7 end, the direction of this curve is turned. This means that {\fov curve1} 8 always makes the first part of the new curve. 9\end{minipg1} \\ \\ 10SYNOPSIS\\ 11 \>void s1715(\begin{minipg3} 12 {\fov curve1}, {\fov curve2}, {\fov end1}, {\fov end2}, {\fov newcurve}, {\fov stat}) 13 \end{minipg3}\\[0.3ex] 14 \>\> SISLCurve \> *{\fov curve1};\\ 15 \>\> SISLCurve \> *{\fov curve2};\\ 16 \>\> int \> {\fov end1};\\ 17 \>\> int \> {\fov end2};\\ 18 \>\> SISLCurve \> **{\fov newcurve};\\ 19 \>\> int \> *{\fov stat};\\ 20\\ 21ARGUMENTS\\ 22 \>Input Arguments:\\ 23 \>\> {\fov curve1} \> - \> First curve to join.\\ 24 \>\> {\fov curve2} \> - \> Second curve to join.\\ 25 \>\> {\fov end1} \> - \> \begin{minipg2} 26 True (1) if the first curve is to be joined at the end, 27 else false (0). 28 \end{minipg2}\\[0.3ex] 29 \>\> {\fov end2} \> - \> \begin{minipg2} 30 True (1) if the second curve is to be joined at the end, 31 else false (0). 32 \end{minipg2}\\[0.3ex] 33\\ 34 \>Output Arguments:\\ 35 \>\> {\fov newcurve}\> - \>\begin{minipg2} 36 The new joined curve. 37 \end{minipg2}\\ 38 \>\> {\fov stat} \> - \> Status messages\\ 39 \>\>\>\>\> $> 0$ : warning\\ 40 \>\>\>\>\> $= 0$ : ok\\ 41 \>\>\>\>\> $< 0$ : error\\ 42\newpagetabs 43EXAMPLE OF USE\\ 44 \> \{ \\ 45 \>\> SISLCurve \> *{\fov curve1};\\ 46 \>\> SISLCurve \> *{\fov curve2};\\ 47 \>\> int \> {\fov end1};\\ 48 \>\> int \> {\fov end2};\\ 49 \>\> SISLCurve \> *{\fov newcurve};\\ 50 \>\> int \> {\fov stat};\\ 51 \>\> \ldots \\ 52 \>\>s1715(\begin{minipg4} 53 {\fov curve1}, {\fov curve2}, {\fov end1}, {\fov end2}, \&{\fov newcurve}, \&{\fov stat}); 54 \end{minipg4}\\ 55 \>\> \ldots \\ 56 \> \} 57\end{tabbing} 58