let get_opacity optn = match String.lowercase optn with
  | ("o"|"opaque"-> OPAQUE
  | ("r"|"residues"-> RESIDUES
  | ("t"|"transparent"-> TRANSPARENT
  | x -> failwith (va "\nOpacity value '%s' is invalid.\nPlease see --help\n" x)