The routine returns the endpoints (for segment and directed segment), and vertices (for triangle and square) of obj.

The command with(geometry,DefinedAs) allows the use of the abbreviated form of this command.

$\mathrm{with}\left(\mathrm{geometry}\right)\:$

$\mathrm{point}\left(A\,0\,0\right),\mathrm{point}\left(B\,1\,1\right)\:$

$\mathrm{segment}\left(\mathrm{seg}\,\left[A\,B\right]\right)\:$

$\mathrm{DefinedAs}\left(\mathrm{seg}\right)$

$\left[A\,B\right]$

$\mathrm{map}\left(\mathrm{coordinates}\,\right)$

$\left[\left[0\,0\right]\,\left[1\,1\right]\right]$

$\mathrm{point}\left(C\,1\,0\right)\:$

$\mathrm{triangle}\left(T\,\left[A\,B\,C\right]\right)\:$

$\mathrm{DefinedAs}\left(T\right)$

$\left[A\,B\,C\right]$

$\mathrm{map}\left(\mathrm{coordinates}\,\right)$

$\left[\left[0\,0\right]\,\left[1\,1\right]\,\left[1\,0\right]\right]$