Skip to contents

Removes trim coordinates from the bottom of a shape.

Usage

coo_trimbottom(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_trimbottom(4) %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.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