# # Package to make representations blink # # Makes "atomsel" atoms blink every "interval" seconds # (defaults to 1) # Molid (defaults to "top") # Display blinking with "rep" representation" (defaults to "newcartoon") # Returns -1 if it can't start the blinking # # Download File: # blink.tcl # # Functions: # ::Blinker::blink atomsel {interval 2} {molid "top"} {rep "NewCartoon"} {color "Structure"} # ::Blinker::doBlink blink_rep_id # ::Blinker::stopBlink blink_rep_id #