home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / fish / applications / xlispstat / lisp.lzh / XLisp-Stat / Test / newcursor.lsp < prev   
Text File  |  1990-10-11  |  2KB  |  35 lines
  1. (make-cursor 'new '#2a((0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0)
  2.                        (0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0)
  3.                        (0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0)
  4.                        (0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0)
  5.                        (0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0)
  6.                        (0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0)
  7.                        (0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0)
  8.                        (0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1)
  9.                        (0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0)
  10.                        (0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0)
  11.                        (0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0)
  12.                        (0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0)
  13.                        (0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0)
  14.                        (0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0)
  15.                        (0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0)
  16.                        (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0))
  17.                   '#2a((0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  18.                        (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  19.                        (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  20.                        (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  21.                        (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  22.                        (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  23.                        (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  24.                        (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  25.                        (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  26.                        (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  27.                        (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  28.                        (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  29.                        (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  30.                        (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  31.                        (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
  32.                        (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)) 7 7)
  33. (setf w (send graph-window-proto :new))
  34. (send w :cursor 'new)
  35.