Create a list of polygonal elements with x, y coordinates and theta for the square, circle, diamond and triangle. The number of slices in each element can be specified.
Arguments
- nslice
Number of slices in each element If nslice > 1, the elements are created with
polyfun().
Examples
Pedixplorer:::polygons()
#> $square
#> $square[[1]]
#> $square[[1]]$x
#> [1] -0.5 -0.5 0.5 0.5
#>
#> $square[[1]]$y
#> [1] -0.5 0.5 0.5 -0.5
#>
#>
#>
#> $circle
#> $circle[[1]]
#> $circle[[1]]$x
#> [1] 0.50000000 0.49589501 0.48364743 0.46345838 0.43565935 0.40070681
#> [7] 0.35917468 0.31174490 0.25919628 0.20239167 0.14226379 0.07979995
#> [13] 0.01602579 -0.04801151 -0.11126047 -0.17268253 -0.23126915 -0.28605833
#> [19] -0.33615045 -0.38072298 -0.41904405 -0.45048443 -0.47452787 -0.49077958
#> [25] -0.49897270 -0.49897270 -0.49077958 -0.47452787 -0.45048443 -0.41904405
#> [31] -0.38072298 -0.33615045 -0.28605833 -0.23126915 -0.17268253 -0.11126047
#> [37] -0.04801151 0.01602579 0.07979995 0.14226379 0.20239167 0.25919628
#> [43] 0.31174490 0.35917468 0.40070681 0.43565935 0.46345838 0.48364743
#> [49] 0.49589501 0.50000000
#>
#> $circle[[1]]$y
#> [1] 0.000000e+00 6.393858e-02 1.268273e-01 1.876335e-01 2.453588e-01
#> [6] 2.990553e-01 3.478413e-01 3.909157e-01 4.275714e-01 4.572063e-01
#> [11] 4.793339e-01 4.935909e-01 4.997431e-01 4.976896e-01 4.874640e-01
#> [16] 4.692342e-01 4.432997e-01 4.100861e-01 3.701390e-01 3.241142e-01
#> [21] 2.727675e-01 2.169419e-01 1.575541e-01 9.557931e-02 3.203511e-02
#> [26] -3.203511e-02 -9.557931e-02 -1.575541e-01 -2.169419e-01 -2.727675e-01
#> [31] -3.241142e-01 -3.701390e-01 -4.100861e-01 -4.432997e-01 -4.692342e-01
#> [36] -4.874640e-01 -4.976896e-01 -4.997431e-01 -4.935909e-01 -4.793339e-01
#> [41] -4.572063e-01 -4.275714e-01 -3.909157e-01 -3.478413e-01 -2.990553e-01
#> [46] -2.453588e-01 -1.876335e-01 -1.268273e-01 -6.393858e-02 -1.224647e-16
#>
#>
#>
#> $diamond
#> $diamond[[1]]
#> $diamond[[1]]$x
#> [1] 0.0 -0.5 0.0 0.5
#>
#> $diamond[[1]]$y
#> [1] -0.5 0.0 0.5 0.0
#>
#>
#>
#> $triangle
#> $triangle[[1]]
#> $triangle[[1]]$x
#> [1] -0.5 0.0 0.5
#>
#> $triangle[[1]]$y
#> [1] 0.25 -0.50 0.25
#>
#>
#>
Pedixplorer:::polygons(4)
#> $square
#> $square[[1]]
#> $square[[1]]$x
#> [1] 0.0 0.5 0.5 0.0
#>
#> $square[[1]]$y
#> [1] 0.0 0.0 0.5 0.5
#>
#>
#> $square[[2]]
#> $square[[2]]$x
#> [1] 0.0 0.0 -0.5 -0.5
#>
#> $square[[2]]$y
#> [1] 0.0 0.5 0.5 0.0
#>
#>
#> $square[[3]]
#> $square[[3]]$x
#> [1] 0.0 -0.5 -0.5 0.0
#>
#> $square[[3]]$y
#> [1] 0.0 0.0 -0.5 -0.5
#>
#>
#> $square[[4]]
#> $square[[4]]$x
#> [1] 0.0 0.0 0.5 0.5
#>
#> $square[[4]]$y
#> [1] 0.0 -0.5 -0.5 0.0
#>
#>
#>
#> $circle
#> $circle[[1]]
#> $circle[[1]]$x
#> [1] 0.000000e+00 3.061617e-17 -6.526310e-02 -1.294095e-01 -1.913417e-01
#> [6] -2.500000e-01 -3.043807e-01 -3.535534e-01 -3.966767e-01 -4.330127e-01
#> [11] -4.619398e-01 -4.829629e-01 -4.957224e-01 -5.000000e-01
#>
#> $circle[[1]]$y
#> [1] 0.000000e+00 5.000000e-01 4.957224e-01 4.829629e-01 4.619398e-01
#> [6] 4.330127e-01 3.966767e-01 3.535534e-01 3.043807e-01 2.500000e-01
#> [11] 1.913417e-01 1.294095e-01 6.526310e-02 6.123234e-17
#>
#>
#> $circle[[2]]
#> $circle[[2]]$x
#> [1] 0.000000e+00 -5.000000e-01 -4.957224e-01 -4.829629e-01 -4.619398e-01
#> [6] -4.330127e-01 -3.966767e-01 -3.535534e-01 -3.043807e-01 -2.500000e-01
#> [11] -1.913417e-01 -1.294095e-01 -6.526310e-02 -9.184851e-17
#>
#> $circle[[2]]$y
#> [1] 0.000000e+00 6.123234e-17 -6.526310e-02 -1.294095e-01 -1.913417e-01
#> [6] -2.500000e-01 -3.043807e-01 -3.535534e-01 -3.966767e-01 -4.330127e-01
#> [11] -4.619398e-01 -4.829629e-01 -4.957224e-01 -5.000000e-01
#>
#>
#> $circle[[3]]
#> $circle[[3]]$x
#> [1] 0.000000e+00 -9.184851e-17 -1.913417e-01 -3.535534e-01 -4.619398e-01
#> [6] -5.000000e-01 -4.619398e-01 -3.535534e-01 -1.913417e-01 3.061617e-17
#> [11] 1.913417e-01 3.535534e-01 4.619398e-01 5.000000e-01
#>
#> $circle[[3]]$y
#> [1] 0.000000e+00 -5.000000e-01 -4.619398e-01 -3.535534e-01 -1.913417e-01
#> [6] 6.123234e-17 1.913417e-01 3.535534e-01 4.619398e-01 5.000000e-01
#> [11] 4.619398e-01 3.535534e-01 1.913417e-01 0.000000e+00
#>
#>
#> $circle[[4]]
#> $circle[[4]]$x
#> [1] 0.000000e+00 5.000000e-01 3.966767e-01 1.294095e-01 -1.913417e-01
#> [6] -4.330127e-01 -4.957224e-01 -3.535534e-01 -6.526310e-02 2.500000e-01
#> [11] 4.619398e-01 4.829629e-01 3.043807e-01 1.530808e-16
#>
#> $circle[[4]]$y
#> [1] 0.0000000 0.0000000 0.3043807 0.4829629 0.4619398 0.2500000
#> [7] -0.0652631 -0.3535534 -0.4957224 -0.4330127 -0.1913417 0.1294095
#> [13] 0.3966767 0.5000000
#>
#>
#>
#> $diamond
#> $diamond[[1]]
#> $diamond[[1]]$x
#> [1] 0.0 0.5 0.0 0.0
#>
#> $diamond[[1]]$y
#> [1] 0.0 0.0 0.5 0.5
#>
#>
#> $diamond[[2]]
#> $diamond[[2]]$x
#> [1] 0.0 0.0 -0.5 -0.5
#>
#> $diamond[[2]]$y
#> [1] 0.0 0.5 0.0 0.0
#>
#>
#> $diamond[[3]]
#> $diamond[[3]]$x
#> [1] 0.0 -0.5 0.0 0.0
#>
#> $diamond[[3]]$y
#> [1] 0.0 0.0 -0.5 -0.5
#>
#>
#> $diamond[[4]]
#> $diamond[[4]]$x
#> [1] 0.0 0.0 0.5 0.5
#>
#> $diamond[[4]]$y
#> [1] 0.0 -0.5 0.0 0.0
#>
#>
#>
#> $triangle
#> $triangle[[1]]
#> $triangle[[1]]$x
#> [1] 0.000000 0.333333 0.500000 0.000000
#>
#> $triangle[[1]]$y
#> [1] 0.00 0.00 0.25 0.25
#>
#>
#> $triangle[[2]]
#> $triangle[[2]]$x
#> [1] 0.000000 0.000000 -0.500000 -0.333333
#>
#> $triangle[[2]]$y
#> [1] 0.00 0.25 0.25 0.00
#>
#>
#> $triangle[[3]]
#> $triangle[[3]]$x
#> [1] 0.000000 -0.333333 0.000000 0.000000
#>
#> $triangle[[3]]$y
#> [1] 0.0 0.0 -0.5 -0.5
#>
#>
#> $triangle[[4]]
#> $triangle[[4]]$x
#> [1] 0.000000 0.000000 0.333333
#>
#> $triangle[[4]]$y
#> [1] 0.0 -0.5 0.0
#>
#>
#>