Dear Paul and Judit Thank you so much! Its a pleasure doing business with you :-) Victor ------------------------- Victor Alves, DVM, PhD Auxilliary Professor Veterinary Medicine Faculty - UTL Lisbon, Portugal Quoting Paul Emsley <[email protected]>:
Hi Victor, First, to make the new maps from Refmac be the same colours as the previous one, add to your ~/.coot file: (set-keep-map-colour-after-refmac 1) Secondly, to answer your question: (add-key-binding "Blueify the Latest 2foFc Map" "b" (lambda () (let loop ((l (reverse (map-molecule-list)))) (cond ((null? l) 'no-map) ((= (map-is-difference-map (car l)) 0) (set-map-colour (car l) 0.1 0.5 0.68) (graphics-draw)) (else (loop (cdr l))))))) i.e. we have to find the value of active-imol and we do that by working backwards through the list of map molecule numbers and finding the first one that is not a difference map. Note the colour scales go from 0 to 1. Paul.
Quoting Judit Debreczeni <[email protected]>:
This would colour the last non-difference map: (add-key-binding "Blue Map" "b" (lambda () (let loop ((map-imol-list (reverse (map-molecule-list)))) (if (not (null? map-imol-list)) (if (= (map-is-difference-map (car map-imol-list)) 0) (set-map-colour (car map-imol-list) 51 128 178) (loop (cdr map-imol-list)))))))
---------------------------------------------------------------- This message was sent using IMP, the Internet Messaging Program.
