|
Action:
|
Reverses the sense of an edge.
|
|
|
Filename:
|
cstr/cstr_scm/edge_scm.cxx
|
|
|
Syntax:
|
(edge:reverse edge)
|
|
|
Arg Types:
|
edge
|
edge
|
|
|
Returns:
|
entity
|
|
|
edge is an input edge.
|
|
|
Example:
|
; edge:reverse
|
|
; Create an edge and reverse its sense.
|
|
(define block1
|
|
|
(solid:block (position 0 0 0)
|
|
|
(position 10 10 10)))
|
|
;; block1
|
|
; Get a list of the block's edges.
|
|
(define edges1
|
|
|
(entity:edges block1))
|
|
;; edges1
|
|
; Get a list of the block's faces.
|
|
(define faces1
|
|
|
(entity:faces block1))
|
|
;; faces1
|
|
(define one-edge (car edges1))
|
|
;; one-edge
|
|
(define one-face (car faces1))
|
|
;; one-face
|
|
; Determine if an edge is reverse
|
|
; with respect to a face.
|
|
(edge:reversed? one-edge one-face)
|
|
;; #f
|
|
; Reverse the sense of the edge.
|
|
(define reverse (edge:reverse one-edge))
|
|
;; reverse
|
|
; Determine if the edge has been reversed.
|
|
(edge:reversed? one-edge one-face)
|
|
;; #t
|