Skip to contents

Removes trim coordinates at both ends of a shape, ie from top and bottom of the shape matrix.

Usage

coo_trim(coo, trim = 1)

Arguments

coo

matrix of (x; y) coordinates or any Coo object.

trim

numeric, the number of coordinates to trim

Value

a trimmed shape

Examples

olea[1] %>% coo_sample(12) %T>%
   print() %T>% ldk_plot() %>%
   coo_trim(1) %T>% print() %>% points(col="red")
#>            [,1]    [,2]
#>  [1,] -0.500000 0.00000
#>  [2,] -0.453100 0.08999
#>  [3,] -0.371800 0.17700
#>  [4,] -0.269700 0.24720
#>  [5,] -0.177400 0.28280
#>  [6,] -0.084940 0.30470
#>  [7,]  0.007775 0.30940
#>  [8,]  0.100600 0.30720
#>  [9,]  0.193600 0.28790
#> [10,]  0.287000 0.24450
#> [11,]  0.373900 0.17700
#> [12,]  0.443800 0.09201

#>            [,1]    [,2]
#>  [1,] -0.453100 0.08999
#>  [2,] -0.371800 0.17700
#>  [3,] -0.269700 0.24720
#>  [4,] -0.177400 0.28280
#>  [5,] -0.084940 0.30470
#>  [6,]  0.007775 0.30940
#>  [7,]  0.100600 0.30720
#>  [8,]  0.193600 0.28790
#>  [9,]  0.287000 0.24450
#> [10,]  0.373900 0.17700