Assemble a stratified geometry

Usage

synthetic.stratified(strata, junctions = NULL)

Arguments

strata: Nonempty list of compatible synthetic_stratum objects.
junctions: Optional data frame describing stratum boundary junctions.

Value

A draw-free synthetic geometry component.

Examples

point <- synthetic.stratum.point("point", c(0, 0))
line <- synthetic.stratum.segment("line", c(0, 1), c(0, 0), c(1, 0))
synthetic.stratified(list(point, line))
#> $kind
#> [1] "geometry"
#> 
#> $family
#> [1] "stratified"
#> 
#> $version
#> [1] 1
#> 
#> $parameters
#> $parameters$strata
#> $parameters$strata[[1]]
#> $id
#> [1] "point"
#> 
#> $family
#> [1] "point"
#> 
#> $version
#> [1] 1
#> 
#> $intrinsic.dim
#> [1] 0
#> 
#> $parameters
#> $parameters$location
#> [1] 0 0
#> 
#> 
#> attr(,"class")
#> [1] "synthetic_point_stratum" "synthetic_stratum"      
#> [3] "list"                   
#> 
#> $parameters$strata[[2]]
#> $id
#> [1] "line"
#> 
#> $family
#> [1] "segment"
#> 
#> $version
#> [1] 1
#> 
#> $intrinsic.dim
#> [1] 1
#> 
#> $parameters
#> $parameters$coordinate.range
#> [1] 0 1
#> 
#> $parameters$origin
#> [1] 0 0
#> 
#> $parameters$direction
#> [1] 1 0
#> 
#> 
#> attr(,"class")
#> [1] "synthetic_segment_stratum" "synthetic_stratum"        
#> [3] "list"                     
#> 
#> 
#> $parameters$junctions
#> NULL
#> 
#> $parameters$ambient.dim
#> [1] 2
#> 
#> $parameters$intrinsic.dim
#> [1] NA
#> 
#> $parameters$intrinsic.dim.by.region
#> point  line 
#>     0     1 
#> 
#> $parameters$declared.regions
#> [1] "point" "line" 
#> 
#> 
#> attr(,"class")
#> [1] "synthetic_stratified_geometry" "synthetic_geometry"           
#> [3] "synthetic_component"