*7,0,0,0.080,0.055,0.0125,45* %
/ 2#) ^ 2# - (CT# / 2#) ^ 2#)
Y1# = CT# / 2#
X2# = CT# / 2#
Y2# = SQR((OD# / 2#) ^ 2# - (CT# / 2#) ^ 2#)
X3# = (CT# / 2#)
Y3# = SQR((ID# / 2#) ^ 2# - (CT# / 2#) ^ 2#)
X4# = SQR((ID# / 2#) ^ 2# - (CT# / 2#) ^ 2#)
Y4# = (CT# / 2#)
X5# = SQR(((OD# / 2#) ^ 2#) / 2#)
Y5# = SQR(((OD# / 2#) ^ 2#) / 2#)
X6# = X2# + ((X1# - X2#) / 2#)
Y6# = Y2# + ((Y1# - Y2#) / 2#)
C1# = SQR((X1# - X2#) ^ 2# + (Y1# - Y2#) ^ 2#)
C2# = SQR((X6# - X5#) ^ 2# + (Y6# - Y5#) ^ 2#)
B1# = 2# * (C2# / C1#)
X7# = SQR(((ID# / 2#) ^ 2#) / 2#)
Y7# = SQR(((ID# / 2#) ^ 2#) / 2#)
X8# = X4# + ((X3# - X4#) / 2#)
Y8# = Y4# + ((Y3# - Y4#) / 2#)
C3# = SQR((X3# - X4#) ^ 2# + (Y3# - Y4#) ^ 2#)
C4# = SQR((X8# - X7#) ^ 2# + (Y8# - Y7#) ^ 2#)
B2# = 2# * (C4# / C3#)
B2#=-B2#
REM SECOND SEGMENT
X5#=-X1#
Y5#=Y1#
X6#=-X2#
Y6#=Y2#
X7#=-X3#
Y7#=Y3#
X8#=-X4#
Y8#=Y4#
B3#=-B1#
B4#=-B2#
REM THIRD SEGMENT
X9#=-X1#
Y9#=-Y1#
X10#=-X2#
Y10#=-Y2#
X11#=-X3#
Y11#=-Y3#
X12#=-X4#
Y12#=-Y4#
B5#±#
B6#²#
REM FOURTH SEGMENT
X13#=X1#
Y13#=-Y1#
X14#=X2#
Y14#=-Y2#
X15#=X3#
Y15#=-Y3#
X16#=X4#
Y16#=-Y4#
B7#=-B1#
B8#=-B2#
REM ROTATE