#!/usr/bin/perl

use strict;

use PDL;
use PDL::Graphics::TriD;


my $coordinates = pdl [[10,10,0],
                        [0,10,0],
                        [1,1,1],
                        [-10,-10,-10]];

my $colors = pdl [[50,50,50],
                  [50,0,50],
                  [50,50,0],
                  [0,0,50]];

points3d $coordinates, $colors, {PointSize=>2};