1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
(defmeth spin-proto :add-box ()
(let ((x (send self :visible-range 0))
(y (send self :visible-range 1))
(z (send self :visible-range 2)))
(send self :add-lines (list (select x '(0 1 1 0 0))
(select y '(0 0 1 1 0))
(select z '(0 0 0 0 0)))
:draw nil)
(send self :add-lines (list (select x '(0 1 1 0 0))
(select y '(0 0 1 1 0))
(select z '(1 1 1 1 1)))
:draw nil)
(send self :add-lines (list (select x '(0 0))
(select y '(0 0))
(select z '(0 1)))
:draw nil)
(send self :add-lines (list (select x '(0 0))
(select y '(1 1))
(select z '(0 1)))
:draw nil)
(send self :add-lines (list (select x '(1 1))
(select y '(1 1))
(select z '(0 1)))
:draw nil)
(send self :add-lines (list (select x '(1 1))
(select y '(0 0))
(select z '(0 1))))))
|
