use blib;
use Carp;
$SIG{__DIE__} = sub {die Carp::longmess(@_);};
use PDL;
use PDL::Graphics::TriD;
use PDL::Graphics::TriD::Image;
use PDL::IO::Pic;
$s = 10;
$k = zeroes($s,$s);
$x = $k->xvals();
random($k->inplace); $x += $k;
$y = $k->yvals();
random($k->inplace); $y += $k;
random($k->inplace);
$z = $k;
$x /= $s; $y /= $s; $z /= $s;
$a = new PDL::Graphics::TriD::Lattice([$x,$y,$z]);
$b = new PDL::Graphics::TriD::Points([$x,$y,$z+1]);
$win = PDL::Graphics::TriD::get_current_window();
$win->clear_objects();
$win->add_object($a);
$win->add_object($b);
#$PDL::Graphics::TriD::verbose=1;
#$win->twiddle();
#exit;
$nx = zeroes(3,20);
$nc = zeroes(3,20);
random($nx->inplace);
random($nc->inplace);
print "NX: $nx, NC: $nc\n";
use PDL::Graphics::OpenGL;
# glShadeModel (&GL_FLAT);
glShadeModel (&GL_SMOOTH);
$lb = $win->glpRasterFont("5x8",0,255);
print "LIST: $lb\n";
$win->add_object(new TOBJ());
$win->twiddle();
package TOBJ;
BEGIN{@TOBJ::ISA = qw/PDL::Graphics::TriD::Object/;}
use PDL::Graphics::OpenGLQ;
use PDL::Graphics::OpenGL;
sub new {
bless {},$_[0];
}
sub togl {
glDisable(&GL_LIGHTING);
line_3x_3c(
# $::x->slice("0:2"),$::y->slice("0:2")
$::nx,$::nc
);
glColor3f(1,0,1);
glRasterPos3f(0,0,0.5);
PDL::Graphics::OpenGL::glpPrintString($::lb,"HELLO HELLO HELLO GLWORLD!!!");
glEnable(&GL_LIGHTING);
}