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)