***ACCELERATORS
[Control+"UP"]'-pan ^P(trans (list 0 (* -0.25 (getvar "viewsize"))) 0 1) ;^P
[Control+"DOWN"]'-pan ^P(trans (list 0 (* 0.25 (getvar "viewsize"))) 0 1)
;^P
[Control+"LEFT"]'-pan ^P(trans (list (* 0.25 (getvar "viewsize")) 0) 0 1)
;^P
[Control+"RIGHT"]'-pan ^P(trans (list (* -0.25 (getvar "viewsize")) 0) 0 1)
;^P