Simple pedigree graph for DOT processing

strict digraph pedigree {
  ordering=out;
  splines=ortho;
  ranksep=0.25;
  nodesep=1;
  node [label="",width=1,height=1, shape=box];
  edge [arrowhead=none, arrowtail=none];

# Edges
  Pers1 -> Part3m -> Pers2 [constraint=false,w=10];
  Part3u -> Pers1 -> Part3d [style=invis];
  Part3u -> Part3m [style=invis];
  Part3u -> Pers2 -> Part3d [style=invis];
  Part3m -> Part3d -> Preg4u -> Preg4d;
  Preg4d -> Pers5;
  Part7u -> Pers5 -> Part7d [style=invis];
  Part7u -> Part7m [style=invis];
  Part7u -> Pers6 -> Part7d [style=invis];
  Part7m -> Part7d -> Preg8u -> Preg8d;
  Pers5 -> Part7m -> Pers6 [constraint=false,w=10];
  Preg8d -> Pers9;

# Nodes
## Persons
  Pers1 [shape=circle];
  Pers2 [shape=box];
  Pers5 [shape=box];
  Pers6 [shape=circle];
  Pers9 [shape=diamond,style=dashed];
## Partnerships
  Part3u [shape=circle,height=0,width=0,fixedsize=true];
  Part3m [shape=circle,height=0.2,width=0.2,fixedsize=true,fillcolor=red,color=black,style=filled];
  Part3d [shape=circle,height=0,width=0,fixedsize=true];
  Part7u [shape=circle,height=0,width=0,fixedsize=true];
  Part7m [shape=circle,height=0.2,width=0.2,fixedsize=true,fillcolor=red,color=black,style=filled];
  Part7d [shape=circle,height=0,width=0,fixedsize=true];
## Pregnancies
  Preg4u [shape=circle,height=0.1,width=0.1,fixedsize=true,style=filled];
  Preg4d [shape=circle,height=0,width=0,fixedsize=true];
  Preg8u [shape=circle,height=0.1,width=0.1,fixedsize=true,style=filled];
  Preg8d [shape=circle,height=0,width=0,fixedsize=true];
}