https://wiki.uni-konstanz.de/ccp4/index.php?action=history&feed=atom&title=Toggle-ncs-ghosts-script
Toggle-ncs-ghosts-script - Revision history
2026-04-05T20:10:44Z
Revision history for this page on the wiki
MediaWiki 1.43.8
https://wiki.uni-konstanz.de/ccp4/index.php?title=Toggle-ncs-ghosts-script&diff=959&oldid=prev
Emsley: New page: <pre> ;; this bind the "g" key: (add-key-binding "Toggle Ghosts" "g" (lambda () (let ((keyboard-ghosts-mol (let ((ls (model-molecule-list))) ...
2008-06-19T22:28:26Z
<p>New page: <pre> ;; this bind the "g" key: (add-key-binding "Toggle Ghosts" "g" (lambda () (let ((keyboard-ghosts-mol (let ((ls (model-molecule-list))) ...</p>
<p><b>New page</b></p><div><pre><br />
<br />
;; this bind the "g" key:<br />
(add-key-binding "Toggle Ghosts" "g"<br />
(lambda ()<br />
(let ((keyboard-ghosts-mol<br />
(let ((ls (model-molecule-list)))<br />
(let loop ((ls ls))<br />
(cond<br />
((null? ls) -1)<br />
((ncs-ghosts (car ls))<br />
(car ls))<br />
(else<br />
(loop (cdr ls))))))))<br />
(if (= (draw-ncs-ghosts-state keyboard-ghosts-mol) 0)<br />
(set-draw-ncs-ghosts keyboard-ghosts-mol 1)<br />
(set-draw-ncs-ghosts keyboard-ghosts-mol 0))))) <br />
<br />
</pre></div>
Emsley