# naca6mc_udf_1
# written by John Dannenhoffer

DIMENSION CLT 1 3
DIMENSION A   1 3

DESPMTR   CLT "0.60; 0.30; -.90"        # design lift coefficients
DESPMTR   A   "0.25; 0.50; 0.75"        # extent of constant loadings

# generate a WireBody from the (degenerate) thickness distribution

# thickness is translated up and left for comparison
POINT     0    0    0
TRANSLATE -3/2 1/2  0

POINT     0  0  0

# add the (degenerate) thickness to the composite meanline shape
UDPARG    naca6mc   clt CLT
UDPRIM    naca6mc   a   A
TRANSLATE -3/2 0    0

# generate a SheetBody by using NACA4 thickness

# thickness is translated up for comparison
UDPRIM    naca      thickness 0.12
TRANSLATE 0    1/2  0

UDPRIM    naca      thickness 0.12

# add the (degenerate) thickness to the composite meanline shape
UDPARG    naca6mc   clt CLT
UDPRIM    naca6mc   a   A

END