E.g. (in version 2.12), I create a one-dimensional cone, which is pointed:
Code: Select all
$c = new Cone(INPUT_RAYS=>[[1]]);
print $c->POINTED;
1
Code: Select all
$c = new Cone(INPUT_RAYS=>[[1],[0]]);
print $c->POINTED;
0
Code: Select all
$c = new Cone(INPUT_RAYS=>[[1]]);
print $c->POINTED;
1
Code: Select all
$c = new Cone(INPUT_RAYS=>[[1],[0]]);
print $c->POINTED;
0