Action:
|
Determines if a Scheme object is a planar wire.
|
|
Filename:
|
kern/kern_scm/ent_scm.cxx
|
|
Syntax:
|
(wire:planar? object)
|
|
Arg Types:
|
object
|
scheme-object
|
|
Returns:
|
boolean
|
|
|
object specifies the
scheme-object that has to be queried for a planar wire.
|
|
Example:
|
; wire:planar?
|
|
; Create edge 1.
|
|
(define edge1 (edge:linear (position -20 -10 0)
|
|
|
(position 10 -10 0)))
|
|
;; edge1
|
|
; Create edge:circular 2.
|
|
(define edge2 (edge:circular
|
|
|
(position 10 0 0) 10 270 360))
|
|
;; edge2
|
|
; Create edge 3.
|
|
(define edge3 (edge:linear
|
|
|
(position 20 0 0) (position 20 20 0)))
|
|
;; edge3
|
|
; Create edge 4.
|
|
(define edge4 (edge:linear
|
|
|
(position 20 20 0) (position -10 20 0)))
|
|
;; edge4
|
|
; Create edge:circular 5.
|
|
(define edge5 (edge:circular
|
|
|
(position -10 10 0) 10 90 180))
|
|
;; edge5
|
|
; Create edge 6.
|
|
(define edge6 (edge:linear
|
|
|
(position -20 10 0) (position -20 -10 0)))
|
|
;; edge6
|
|
; Create a wire-body from the edges.
|
|
(define wirebody1 (wire-body (list
|
|
|
edge1 edge2 edge3
|
|
|
edge4 edge5 edge6)))
|
|
;; wirebody1
|
|
; Determine if the wire-body is actually a wire-body.
|
|
(wire:planar? wirebody1)
|
|
;; #f
|
|
(wire:planar? (car (entity:wires wirebody1)))
|
|
;; #t
|