Select Code to Download

use PDL::Graphics::TriD;
use PDL::Graphics::TriD::Logo;
...
# 2: flatten indices, slice points with those, restore 4-tuples shape
$tri = $p->slice(':',$i->clump(-1))->splitdim(1,$i->dim(0));
line3d($tri); # visualise