home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / xlispst.cpt / XLisp-Stat ƒ / Disk 1 / Examples / addbox.lsp < prev    next >
Encoding:
Text File  |  1989-07-26  |  1.2 KB  |  28 lines
  1. (defmeth spin-proto :add-box ()
  2.   (let ((x (send self :visible-range 0))
  3.         (y (send self :visible-range 1))
  4.         (z (send self :visible-range 2)))
  5.     (send self :add-lines (list (select x '(0 1 1 0 0))
  6.                                 (select y '(0 0 1 1 0))
  7.                                 (select z '(0 0 0 0 0)))
  8.           :draw nil)
  9.     (send self :add-lines (list (select x '(0 1 1 0 0))
  10.                                 (select y '(0 0 1 1 0))
  11.                                 (select z '(1 1 1 1 1)))
  12.           :draw nil)
  13.     (send self :add-lines (list (select x '(0 0))
  14.                                 (select y '(0 0))
  15.                                 (select z '(0 1)))
  16.           :draw nil)
  17.     (send self :add-lines (list (select x '(0 0))
  18.                                 (select y '(1 1))
  19.                                 (select z '(0 1)))
  20.           :draw nil)
  21.     (send self :add-lines (list (select x '(1 1))
  22.                                 (select y '(1 1))
  23.                                 (select z '(0 1)))
  24.           :draw nil)
  25.     (send self :add-lines (list (select x '(1 1))
  26.                                 (select y '(0 0))
  27.                                 (select z '(0 1))))))
  28.