Symbolics Lisp Machine Museum - mouse-acceleration.lisp.html □ ◻ ×
← Back to Museum

mouse-acceleration.lisp.html

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
;;; -*- Mode: LISP; Syntax: Zetalisp; Package: ZETALISP-USER; Base: 10; -*-

(defun high-mouse-speed ()
  (aset 80. tv:mouse-x-scale-array 0)
  (aset (// (lsh 2 10.) 2) tv:mouse-x-scale-array 1)
  (aset #o17777777777 tv:mouse-x-scale-array 2)
  (aset (// (lsh 4 10.) 2) tv:mouse-x-scale-array 3)
  (aset 80. tv:mouse-y-scale-array 0)
  (aset (// (lsh 3 10.) 3) tv:mouse-y-scale-array 1)
  (aset #o17777777777 tv:mouse-y-scale-array 2)
  (aset (// (lsh 6 10.) 3) tv:mouse-y-scale-array 3))


(high-mouse-speed)