Pauls-key-bindings-for-coot: Difference between revisions

Pauls-key-bindings-for-coot (edit)

889 bytes added , 12 September 2009

no edit summary

37

edits

@@ Line 32: / Line 32: @@
                                      (alt-conf  (list-ref active-atom 5)))
                                  (fill-partial-residue imol chain-id res-no ins-code))))))
+(add-key-binding "Kill Sidechain" "K"
+   (lambda ()
+       (using-active-atom
+	(delete-residue-sidechain aa-imol aa-chain-id aa-res-no aa-ins-code 0))))
+(define *refine-residue-sphere-radius* 3.5) ;; Angstroms
+(add-key-binding "Refine residues in a sphere" "R"
+    (lambda ()
+      (let ((active-atom (active-residue)))
+        (if (not (list? active-atom))
+            (format #t "No active atom~%")
+            (let* ((centred-residue (list-head (cdr active-atom) 3))
+                   (imol (car active-atom))
+                   (other-residues (residues-near-residue imol centred-residue *refine-residue-sphere-radius*))
+                   (all-residues (if (list? other-residues)
+                                     (cons centred-residue other-residues)
+                                     (list centred-residue))))
+              (refine-residues imol all-residues))))))
 (add-key-binding "Load RNAs files" "F9"
                   (lambda ()