Action:
|
Determines if the direction of an edge is reversed relative to a face.
|
|
Filename:
|
kern/kern_scm/qedg_scm.cxx
|
|
Syntax:
|
(edge:reversed? edge face)
|
|
Arg Types:
|
edge
|
edge
|
|
face
|
face
|
|
Returns:
|
boolean
|
|
Description:
|
Given an
edge and a
face that the edge lies on, this extension determines if the direction of the edge should be reversed when traversing the loop which contains the edge. This extension returns
#t if the edge is reversed; otherwise, it returns
#f.
|
|
|
edge specifies an edge.
|
|
|
face specifies a face.
|
|
Example:
|
; edge:reversed?
|
|
; Create a block.
|
|
(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
|