bind rightmouse menu
bind f1 pick

addmenu rotate \
bind middlemou \""movement $view   $view $object rotate $dy/-500 $dx/500 0"\" \;\
bind leftmouse \""movement $object $view $object rotate $dy/500 $dx/-500 0"\"
addmenu "eye (scaled)" \
bind middlemou \""movement $view   $view $object ztranslate 0 0 $dy/500"\" \;\
bind leftmouse \""movement $object $view $view   ztranslate 0 0 $dy/500"\"
addmenu "translate (scaled)" \
bind middlemou \""movement $view $view $object ztranslate $dx/500 $dy/500 0"\" \;\
bind leftmouse \""movement $object $view $view ztranslate $dx/500 $dy/500 0"\"
addmenu pan \
bind middlemou \""movement $view   $view $view rotate $dy/500 $dx/-500 0"\" \;\
bind leftmouse \""movement $object $view $view rotate $dy/-500 $dx/500 0"\"
addmenu translate \
bind middlemou \""movement $view   $view $view translate $dx/-500 $dy/-500 0"\" \;\
bind leftmouse \""movement $object $view $view translate $dx/500 $dy/500 0"\"
addmenu eye \
bind middlemou \""movement $view   $view $view translate 0 0 $dy/-500"\" \;\
bind leftmouse \""movement $object $view $view translate 0 0 $dy/500"\"
addmenu twist \
bind middlemou \""movement $view   $view $view rotate 0 0 $dy/-500"\" \;\
bind leftmouse \""movement $object $view $view rotate 0 0 $dy/500"\"
bind f2 middlemou "movement $view   $view $object ztranslate 0 0 $dy/500"
bind f2 leftmouse "movement $object $view $view   ztranslate 0 0 $dy/500"
bind f3 middlemou "movement $view   $view $object rotate $dy/-500 $dx/500 0"
bind f3 leftmouse "movement $object $view $object rotate $dy/500 $dx/-500 0"
bind f4 middlemou "movement $view   $view $object ztranslate $dx/500 $dy/500 0"
bind f4 leftmouse "movement $object $view $view   ztranslate $dx/500 $dy/500 0"
bind f5 middlemou "movement $view   $view $view translate 0 0 $dy/-500"
bind f5 leftmouse "movement $object $view $view translate 0 0 $dy/500"
bind f6 middlemou "movement $view   $view $view rotate $dy/500 $dx/-500 0"
bind f6 leftmouse "movement $object $view $view rotate $dy/-500 $dx/500 0"
bind f7 middlemou "movement $view   $view $view translate $dx/-500 $dy/-500 0"
bind f7 leftmouse "movement $object $view $view translate $dx/500 $dy/500 0"
bind f8 middlemou "movement $view   $view $view rotate 0 0 $dy/-500"
bind f8 leftmouse "movement $object $view $view rotate 0 0 $dy/500"
