Gedcom#direct! prunes tree to only direct ancestors

I wanted to see the graph without all the siblings and cousins.  Added `Gedcom#direct!` to achieve this, but would be interested to make `gedcom.direct.to_dot` work instead of `gedcom.direct! ; gedcom.to_dot` if there were a way to initialize from data.