Seeking improvement on a poor solution---for descendant charts

I think TikZ is nevertheless where you want to go, specifically its tree capability. There are a few questions on TeX.sx that deal with famuily trees that will provide you with an indication of what can be done. Please look at Joining two branches of a family tree, How can I improve this family tree in TikZ? and Genogram or family tree with PGF/TikZ. The manual to TikZ-pgf is available at CTAN (or may already be in your LaTeX distribution. Getting started with TikZ-pgf can be a little daunting but there are numerous examples to learn from at this site.

Inspired by Peter Jansson's comment, I got off of my dead a** and hit the books. In particular I looked at tikz-qtree. What is shown below is certainly not the best solution, but it is quite a bit better looking than my original and easier to use. Unlike my first attempt, this one handles most of the calculation for me. The only thing that needs to be tinkered with is the level depth and that is certainly easier than before. So here it is:

%%
%% chart.tex -- test bed for descendent charting
%%
\documentclass{article}
\usepackage{tikz}
\usepackage{tikz-qtree}
\def\unknown{--------}
\def\circa{$^\approx$}
\begin{document}
\begin{figure}[h!]
\caption{``The Original Immigrant''}
\vspace{1.5em}
\centering
\begin{tikzpicture}
\tikzset{
  married/.style={
    append after command={
      (\tikzlastnode.south west) edge [very thick]
      (\tikzlastnode.south east)
    }
  }
}
\tikzset{execute at begin node=\strut}
\tikzset{level distance = 4em}
\tikzset{level 4/.style={level distance=2em}}
\tikzset{level 5/.style={level distance=6.5em}}
\tikzset{level 6/.style={level distance=5em}}
\tikzset{every tree node/.style={align=center,anchor=north}}
\tikzset{edge from parent/.style={
  draw,
  edge from parent path={
    (\tikzparentnode.south)
    -- +(0,0)
    -| (\tikzchildnode)
    }
  }
}
\Tree 
    [.{Pieter Myers\\\circa 1660---\circa 1725} 
    [.{David Myers\\\circa 1690---\circa 1760} 
    [.{David Myers\\\circa 1730---\circa 1790} 
      [
        [.{Henry Myers\\\circa 1752---\circa 1778} ] 
        [.{Christian Myers\\\circa 1754---23 Aug 1799\\m.Charity \unknown\\\circa 1755---19 Mar 1812} ] 
        [.{Samuel Myers\\\circa 1755---} ] 
        [.{Daniel Myers\\\circa 1758---} ] 
        [.\node[married]{\textbf{Abram Myers I}\\\circa 1760---\circa 1845\\m.Mary C. Schell\\1765---\circa 1855}; 
          [.{\\David Myers\\\circa 1770---1872\\[.5em]
          Jonas Myers\\1795---1870\\[.5em]
          Abram Myers II\\1795---1870\\[.5em]
          Caroline Myers\\1800---1849\\[.5em]
          Mary Myers\\\circa 1805---\\[.5em]
          John Myers\\1807---\circa 1879}
          ]
        ] 
      ] 
    ] 
  ]
] 
\end{tikzpicture}
\end{figure}
\end{document}

At 62 lines, it is slightly longer than the original, but if you consider the interface, the difference in size is inconsequential. I'm still open for improvements so fire away!