Action:
|
Determines if two gvectors are perpendicular.
|
|
Filename:
|
kern/kern_scm/gvec_scm.cxx
|
|
Syntax:
|
(gvector:perpendicular? gvector1 gvector2)
|
|
Arg Types:
|
gvector1
|
gvector
|
|
gvector2
|
gvector
|
|
Returns:
|
boolean
|
|
Description:
|
This extension returns
#t if the gvectors are perpendicular; otherwise, it returns
#f. A zero gvector is perpendicular to all gvectors, including itself, and it causes the extension to return
#f.
|
|
|
gvector1 specifies the first vector.
|
|
|
gvector2 specifies the second vector.
|
|
Example:
|
; gvector:perpendicular?
|
|
; Determine if two gvectors are perpendicular.
|
|
(gvector:perpendicular? (gvector 3 5 0)
|
|
|
(gvector 6 10 0))
|
|
;; #f
|
|
(gvector:perpendicular? (gvector 1 0 0)
|
|
|
(gvector 0 1 0))
|
|
;; #t
|