use xmu_dot_define_shapes etc.
preOut = xmu_dot_define_shapes(latents = out$latents, manifests = selDVs[1:varCount])
top = xmu_dot_rank(out$latents, "^[ace]_cp", "min")
bottom = xmu_dot_rank(out$latents, "^[ace]s[0-9]+$", "max")
digraph = paste0("digraph G {\n splines=\"FALSE\";\n", preOut, top, bottom, out$str, "\n}");