Re: [ccp4bb] coot extensions for residue mutation to Cbeta

Protein crystallography Programs for crystallography X-ray detectors
Basic tutorials:
Protein Peptide

CCP4bb navigation

CCP4bb <-- 2008 <-- March 2008 <-- 13 March 2008

Previous message:
Subject: coot extensions for residue mutation to Cbeta
From: byron delabarre byron {- dot -} ccp4 {- at -} GMAIL {- dot -} COM
Date: 2008-03-13

Next message:
Subject: normal protein in detergent?
From: Melody Lin xtalin2007 {- at -} GMAIL {- dot -} COM
Date: 2008-03-14

Subject: Re: coot extensions for residue mutation to Cbeta
From: Paul Emsley paul {- dot -} emsley {- at -} BIOCH {- dot -} OX {- dot -} AC {- dot -} UK
Date: 2008-03-13

;; Delete (back to the CB stub) the side change in the range
;; resno-start to resno-end
;;
(define delete-sidechain-range
(lambda (imol chain-id resno-start resno-end)

(map (lambda (resno)
(delete-residue-sidechain imol chain-id resno "" 0))
(number-list resno-start resno-end))))

(let ((menu (coot-menubar-menu "Extensions")))

(add-simple-coot-menu-menuitem
menu "Trim back sidechains"
(lambda ()

(generic-chooser-and-entry
"Choose a molecule to have its sidechains chopped"
"Chain ID: " ""
(lambda (imol chain-id)
(generic-double-entry "Starting Resno"
"End Resno"
"" "" #f #f " Chop Sidechains "
(lambda (text-1 text-2 dummy)
(let ((resno-1 (string->number text-1))
(resno-2 (string->number text-2)))
(if (and (number? resno-1)
(number? resno-2))
(delete-sidechain-range imol chain-id resno-1 resno-2))))))))))

CCP4bb navigation

CCP4bb <-- 2008 <-- March 2008 <-- 13 March 2008

Previous message:
Subject: coot extensions for residue mutation to Cbeta
From: byron delabarre byron {- dot -} ccp4 {- at -} GMAIL {- dot -} COM
Date: 2008-03-13

Next message:
Subject: normal protein in detergent?
From: Melody Lin xtalin2007 {- at -} GMAIL {- dot -} COM
Date: 2008-03-14