home *** CD-ROM | disk | FTP | other *** search
- ;;; -*- Base: 10.; Lowercase: Yes; Mode: Lisp; Package: 3D; -*-
-
- :version 18
- :units FEET
-
- :name "symcube"
- :init-display (flag 3 min-edge-hardness NIL)
- :body POLYHEDRON
- :version (18 5)
- :description "(Polyhedron): 8pts 18edges 12faces."
- :numbered-vertices
- ((1 -10.0 -10.0 10.0)
- (2 -10.0 10.0 10.0)
- (3 10.0 10.0 10.0)
- (4 10.0 -10.0 10.0)
- (5 10.0 -10.0 -10.0)
- (6 10.0 10.0 -10.0)
- (7 -10.0 10.0 -10.0)
- (8 -10.0 -10.0 -10.0))
- :numbered-faces-by-vertex
- ((1 1 3 4)
- (2 5 7 8)
- (3 2 6 3)
- (4 8 4 5)
- (5 4 6 5)
- (6 8 2 1)
- (7 2 8 7)
- (8 6 4 3)
- (9 4 8 1)
- (10 6 2 7)
- (11 7 5 6)
- (12 3 1 2))
- :generator
- (MAKE-CUBE 20.0)
- :end-body "POLYHEDRON"
- :end "symcube"
-