R Under development (unstable) (2024-01-07 r85787 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(RTriangle)
> p <- pslg(P=rbind(c(0, 0), c(0, 1), c(0.5, 0.5), c(1, 1), c(1, 0)),
+           S=rbind(c(1, 2), c(2, 3), c(3, 4), c(4, 5), c(5, 1)),
+           PA=matrix(1:10, 5, 2))
> tp <- triangulate(p, a=0.1)
> print(tp)
$P
           [,1]      [,2]
 [1,] 0.0000000 0.0000000
 [2,] 0.0000000 1.0000000
 [3,] 0.5000000 0.5000000
 [4,] 1.0000000 1.0000000
 [5,] 1.0000000 0.0000000
 [6,] 0.0000000 0.5000000
 [7,] 0.5000000 0.0000000
 [8,] 0.1767767 0.8232233
 [9,] 0.2500000 0.2500000
[10,] 1.0000000 0.5000000
[11,] 0.7500000 0.2500000
[12,] 0.8232233 0.8232233

$PB
      [,1]
 [1,]    1
 [2,]    1
 [3,]    1
 [4,]    1
 [5,]    1
 [6,]    1
 [7,]    1
 [8,]    1
 [9,]    0
[10,]    1
[11,]    0
[12,]    1

$PA
          [,1]      [,2]
 [1,] 1.000000  2.000000
 [2,] 3.000000  4.000000
 [3,] 5.000000  6.000000
 [4,] 7.000000  8.000000
 [5,] 9.000000 10.000000
 [6,] 2.000000  3.000000
 [7,] 5.000000  6.000000
 [8,] 3.707107  4.707107
 [9,] 3.000000  4.000000
[10,] 8.000000  9.000000
[11,] 7.000000  8.000000
[12,] 6.292893  7.292893

$T
      [,1] [,2] [,3]
 [1,]   11    3    7
 [2,]    9    3    6
 [3,]    3   11   10
 [4,]    3    9    7
 [5,]    1    7    9
 [6,]    8    2    6
 [7,]    6    1    9
 [8,]    6    3    8
 [9,]   10   12    3
[10,]    5   10   11
[11,]    7    5   11
[12,]   10    4   12

$S
      [,1] [,2]
 [1,]    1    6
 [2,]    8    2
 [3,]   12    3
 [4,]    4   10
 [5,]    5    7
 [6,]    6    2
 [7,]    7    1
 [8,]    8    3
 [9,]   10    5
[10,]   12    4

$SB
      [,1]
 [1,]    1
 [2,]    1
 [3,]    1
 [4,]    1
 [5,]    1
 [6,]    1
 [7,]    1
 [8,]    1
 [9,]    1
[10,]    1

$E
      [,1] [,2]
 [1,]   11    3
 [2,]    3    7
 [3,]    7   11
 [4,]    9    3
 [5,]    3    6
 [6,]    6    9
 [7,]   11   10
 [8,]   10    3
 [9,]    9    7
[10,]    1    7
[11,]    9    1
[12,]    8    2
[13,]    2    6
[14,]    6    8
[15,]    6    1
[16,]    3    8
[17,]   10   12
[18,]   12    3
[19,]    5   10
[20,]   11    5
[21,]    7    5
[22,]   10    4
[23,]    4   12

$EB
      [,1]
 [1,]    0
 [2,]    0
 [3,]    0
 [4,]    0
 [5,]    0
 [6,]    0
 [7,]    0
 [8,]    0
 [9,]    0
[10,]    1
[11,]    0
[12,]    1
[13,]    1
[14,]    0
[15,]    1
[16,]    1
[17,]    0
[18,]    1
[19,]    1
[20,]    0
[21,]    1
[22,]    1
[23,]    1

$VP
            [,1]      [,2]
 [1,]  0.5000000 0.2500000
 [2,]  0.2500000 0.5000000
 [3,]  0.7500000 0.5000000
 [4,]  0.5000000 0.2500000
 [5,]  0.2500000 0.0000000
 [6,] -0.0732233 0.7500000
 [7,]  0.0000000 0.2500000
 [8,]  0.2500000 0.5732233
 [9,]  0.7500000 0.5732233
[10,]  1.0000000 0.2500000
[11,]  0.7500000 0.0000000
[12,]  1.0732233 0.7500000

$VE
      [,1] [,2]
 [1,]    1    3
 [2,]    1    4
 [3,]    1   11
 [4,]    2    4
 [5,]    2    8
 [6,]    2    7
 [7,]    3   10
 [8,]    3    9
 [9,]    4    5
[10,]    5   -1
[11,]    5    7
[12,]    6   -1
[13,]    6   -1
[14,]    6    8
[15,]    7   -1
[16,]    8   -1
[17,]    9   12
[18,]    9   -1
[19,]   10   -1
[20,]   10   11
[21,]   11   -1
[22,]   12   -1
[23,]   12   -1

$VN
           [,1]       [,2]
 [1,] 0.0000000  0.0000000
 [2,] 0.0000000  0.0000000
 [3,] 0.0000000  0.0000000
 [4,] 0.0000000  0.0000000
 [5,] 0.0000000  0.0000000
 [6,] 0.0000000  0.0000000
 [7,] 0.0000000  0.0000000
 [8,] 0.0000000  0.0000000
 [9,] 0.0000000  0.0000000
[10,] 0.0000000 -0.5000000
[11,] 0.0000000  0.0000000
[12,] 0.1767767  0.1767767

$VA
          [,1]     [,2]
 [1,] 5.000000 6.000000
 [2,] 3.500000 4.500000
 [3,] 6.500000 7.500000
 [4,] 5.000000 6.000000
 [5,] 3.000000 4.000000
 [6,] 2.060660 3.060660
 [7,] 1.500000 2.500000
 [8,] 3.646447 4.646447
 [9,] 6.353553 7.353553
[10,] 8.500000 9.500000
[11,] 7.000000 8.000000
[12,] 7.939340 8.939340

$NB
      [,1] [,2] [,3]
 [1,]    4   11    3
 [2,]    8    7    4
 [3,]   10    9    1
 [4,]    5    1    2
 [5,]    4    7   -1
 [6,]   -1    8   -1
 [7,]    5    2   -1
 [8,]   -1    6    2
 [9,]   -1    3   12
[10,]    3   11   -1
[11,]   10    1   -1
[12,]   -1    9   -1

attr(,"class")
[1] "triangulation"
> 
> proc.time()
   user  system elapsed 
   0.14    0.01    0.14