input chord;
beginfig(1);
verbatimtex
\documentclass[12pt]{article}
\usepackage{times}
\begin{document}
etex;
init_chord;
path nodes[];
node(0, nodes[8], 12, blue, top, "N8");
node(0, nodes[21], 30, blue, urt, "N21");
node(0, nodes[36], 52, blue, urt, "N36");
node(0, nodes[48], 68, red, rt, "N48");
node(0, nodes[61], 87, green, rt, "N61");
node(0, nodes[88], 125, green, lrt, "N88");
node(0, nodes[96], 135, blue, lrt, "N96");
node(0, nodes[114], 161, red, bot, "N114");
node(0, nodes[129], 182, blue, bot, "N129");
node(0, nodes[156], 220, red, llft, "N156");
node(0, nodes[174], 245, red, llft, "N174");
node(0, nodes[205], 289, green, lft, "N205");
node(0, nodes[216], 305, green, ulft, "N216");
node(0, nodes[232], 327, red, ulft, "N232");
node(0, nodes[251], 353, green, top, "N251");
connect(0, nodes[48], nodes[88]);
connect(0, nodes[48], nodes[114]);
connect(0, nodes[48], nodes[61]);
connect(0, nodes[48], nodes[205]);
connect(0, nodes[156], nodes[205]);
connect(0, nodes[156], nodes[232]);
connect(0, nodes[156], nodes[174]);
connect(0, nodes[156], nodes[8]);
endfig;
verbatimtex
\end{document}
etex
end