;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:ZL -*-

;;; Try doing PUTBOB and then switch to zwei

(load "lad:pld;bobmouse.qfasl")

(defun putbob ()
  (setq fonts:mouse fonts:bobmouse)
  (if (tv:get-bow-mode)
      (setq zwei:*mouse-font-char* #o127) ;; White on Black Bob
    (setq zwei:*mouse-font-char* #o130)) ;; Black on White Bob
  (setq zwei:*mouse-x-offset* (- 5))
  (setq zwei:*mouse-y-offset* 45.))

(defun rembob ()
  (setq zwei:*mouse-x-offset* 8)
  (setq zwei:*mouse-y-offset* 0)
  (setq zwei:*mouse-font-char* #o31))

(defun logo-blinker ()
  (setq fonts:mouse fonts:bobmouse)
  (setq zwei:*mouse-x-offset* 7.)
  (setq zwei:*mouse-y-offset* 20.)
  (setq zwei:*mouse-font-char* #o126))

(defun phuque-blinker ()
  (setq fonts:mouse fonts:bobmouse)
  (setq zwei:*mouse-x-offset* 9.)
  (setq zwei:*mouse-y-offset* -5.)
  (setq zwei:*mouse-font-char* #o125))