|
Action:
|
Executes the first phase of blending which creates a blend sheet.
|
|
|
Filename:
|
blnd/blnd_scm/blndtest.cxx
|
|
|
APIs:
|
api_concl_blend_ss, api_do_one_blend_ss, api_init_blend_ss
|
|
|
Syntax:
|
(blend:make-ss-sheet entity-list)
|
|
|
Arg Types:
|
entity-list
|
entity | (entity ...)
|
|
|
Returns:
|
body
|
|
|
entity-list is a list of input entities for creating a blend sheet.
|
|
|
Example:
|
; blend:make-ss-sheet
|
|
; First stage of blending one edge at a time.
|
|
; Create a solid block.
|
|
(define block1
|
|
|
(solid:block (position -20 -20 -20)
|
|
|
(position 5 15 20)))
|
|
;; block1
|
|
; Get a list of the solid block's edges.
|
|
(define edges1 (entity:edges block1))
|
|
;; edges1
|
|
; Attach constant radius blend to 2 connected edges.
|
|
(define list1
|
|
|
(list (car edges1)
|
|
|
(car (cdr (cdr (cdr edges1))))))
|
|
;; list1
|
|
; Attach constant radius blend to 2 connected edges.
|
|
(define attach (blend:const-rad-on-edge list1 5))
|
|
;; attach
|
|
; (#[entity 3 1] #[entity 6 1])
|
|
; OUTPUT Original
|
|
|
(define sheet1
|
|
|
(blend:make-ss-sheet (car list1)))
|
|
;; sheet1
|
|
; OUTPUT Result
|
|
|
 
|
|
|
Figure 2-10. blend:make-ss-sheet
|