My suggestion is to start with the full final graph in white, extract the EdgeStyle with
EdgeStyle
PropertyValue[famgraph, EdgeStyle]
modify the style and replace it into the graph:
SetProperty[famgraph, EdgeStyle -> newEdgeStyles]
OK, thanks, that worked. Here is the modified file
