pattern_diplos function

Extract pattern of diplotypes