module PDBtools.Residues where
import PDBtools.Base
import PDBtools.PDButil.PDBparse
charged :: [Atom] -> [Atom]
charged atms = restype "ASP" atms
++ restype "GLU" atms
++ restype "ARG" atms
++ restype "LYS" atms
++ restype "HIS" atms
uncharged :: [Atom] -> [Atom]
uncharged atms = filter (\s -> elem s $ charged atms) atms
polar :: [Atom] -> [Atom]
polar atms = charged atms
++ restype "SER" atms
++ restype "THR" atms
++ restype "ASN" atms
++ restype "GLN" atms
nonpolar :: [Atom] -> [Atom]
nonpolar atms = filter (\s -> elem s $ polar atms) atms
hydrophobic :: [Atom] -> [Atom]
hydrophobic = nonpolar
hydrophillic :: [Atom] -> [Atom]
hydrophillic = polar