|
The following example shows the taper faces local operation.
|
|
|
Scheme Example
|
|
|
(define my_block2 (solid:block
|
|
(position -25 -25 -10)(position 25 25 10)))
|
|
;; my_block2
|
|
; my_block2 => #[entity 2 1]
|
|
(solid:blend-edges (pick:edge (ray
|
|
(position 0 0 0) (gvector 1 -1 0))) 20)
|
|
;; (#[entity 2 1])
|
|
|
(lop:taper-faces (list (pick:face
|
|
(ray (position 0 0 0) (gvector 1 0 0)))
|
|
(pick:face (ray (position 0 0 0)
|
|
(gvector 0 -1 0))) (pick:face
|
|
(ray (position 0 0 0) (gvector 1 -1 0))))
|
|
(position 0 0 -10) (gvector 0 0 1) 45)
|
|
;; #[entity 2 1]
|
|
; Save the results to an output file.
|
|
(part:save "tmplocop1.sat")
|
|
;; #t
|
|
 
|
|
|
Figure 8-8. Taper Faces Local Operation
|