Action:
|
Returns a list of model entities associated with the graph vertices and edges.
|
|
Filename:
|
kern/kern_scm/graph_scm.cxx
|
|
Syntax:
|
(graph:entities in-graph [use-ordering=#f])
|
|
Arg Types:
|
in-graph
|
graph
|
|
use-ordering
|
boolean
|
|
Returns:
|
(entity ...)
|
|
|
in-graph specifies a graph.
|
|
|
If
use-ordering is true (#t), sorts the result by graph order. The default value is false (#f).
|
|
Example:
|
; graph:entities
|
|
; Create an example using entities.
|
|
(define e1 (edge:linear (position 10 10 0)
|
|
|
(position 10 -10 0)))
|
|
;; e1
|
|
(define e2 (edge:linear (position 10 -10 0)
|
|
|
(position -10 -10 0)))
|
|
;; e2
|
|
(define e3 (edge:linear (position -10 -10 0)
|
|
|
(position -10 10 0)))
|
|
;; e3
|
|
(define e4 (edge:linear (position -10 10 0)
|
|
|
(position 10 10 0)))
|
|
;; e4
|
|
(define g1 (graph (list e1 e2 e3 e4)))
|
|
;; g1
|
|
(graph:entities g1)
|
|
;; (#[entity 6 1] #[entity 7 1] #[entity 8 1]
|
|
;; #[entity 9 1] #[entity 10 1] #[entity 11 1]
|
|
;; #[entity 12 1] #[entity 13 1]
|
|
;; #[entity 5 1] #[entity 4 1] #[entity 3 1]
|
|
|
;; #[entity 2 1])
|
|
(graph:edge-entities g1)
|
|
;; (#[entity 5 1] #[entity 4 1] #[entity 3 1]
|
|
;; #[entity 2 1])
|
|
(graph:vertex-entities g1)
|
|
;; (#[entity 6 1] #[entity 7 1] #[entity 8 1]
|
|
;; #[entity 9 1] #[entity 10 1] #[entity 11 1]
|
|
;; #[entity 12 1] #[entity 13 1])
|
|
(define b1 (solid:block (position -5 -10 -20)
|
|
|
(position 5 10 15)))
|
|
;; b1
|
|
(define faces1 (entity:faces b1))
|
|
;; faces1
|
|
; Turn the block faces into vertices of the graph.
|
|
(define g2 (graph faces1))
|
|
;; g2
|
|
(graph:entities g2)
|
|
;; (#[entity 20 1] #[entity 19 1] #[entity 18 1]
|
|
;; #[entity 17 1] #[entity 16 1] #[entity 15 1])
|
|
(graph:edge-entities g2)
|
|
;; ()
|
|
(graph:vertex-entities g2)
|
|
;; (#[entity 20 1] #[entity 19 1] #[entity 18 1]
|
|
;; #[entity 17 1] #[entity 16 1] #[entity 15 1])
|
|
(define g3 (graph:unite g1 g2))
|
|
;; g3
|
|
(graph:entities g3)
|
|
;; (#[entity 13 1] #[entity 12 1] #[entity 11 1]
|
|
;; #[entity 10 1] #[entity 9 1] #[entity 8 1]
|
|
;; #[entity 7 1] #[entity 6 1] #[entity 15 1]
|
|
;; #[entity 16 1] #[entity 17 1] #[entity 18 1]
|
|
;; #[entity 19 1] #[entity 20 1] #[entity 2 1]
|
|
;; #[entity 3 1] #[entity 4 1] #[entity 5 1])
|
|
(graph:edge-entities g3)
|
|
;; (#[entity 2 1] #[entity 3 1] #[entity 4 1]
|
|
;; #[entity 5 1])
|
|
(graph:vertex-entities g3)
|
|
;; (#[entity 13 1] #[entity 12 1] #[entity 11 1]
|
|
;; #[entity 10 1] #[entity 9 1] #[entity 8 1]
|
|
;; #[entity 7 1] #[entity 6 1] #[entity 15 1]
|
|
;; #[entity 16 1] #[entity 17 1] #[entity 18 1]
|
|
;; #[entity 19 1] #[entity 20 1])
|