~ubuntu-branches/ubuntu/lucid/pdl/lucid

BEGIN { $PDL::Graphics::TriD::device = "VRML"; }

BEGIN{

  PDL::Graphics::VRMLNode->import();

  PDL::Graphics::VRMLProto->import();

}

use PDL::Graphics::TriD;

use PDL::LiteF;

use Carp;

 

$SIG{__DIE__} = sub {print Carp::longmess(@_); die;};

$set = tridsettings();

$set->browser_com('netscape/unix');

#$set->set(Compress => 1);

 

$nx = 20;

 

$t =  (xvals zeroes $nx+1,$nx+1)/$nx;

$u =  (yvals zeroes $nx+1,$nx+1)/$nx;

 

$x = sin($u*15 + $t * 3)/2+0.5 + 5*($t-0.5)**2;

$cx = PDL->zeroes(3,$nx+1,$nx+1);

random($cx->inplace);

$pdl = PDL->zeroes(3,20);

$pdl->inplace->random;

$cols = PDL->zeroes(3,20);

$cols->inplace->random;

 

$g = PDL::Graphics::TriD::get_new_graph;

$name = $g->add_dataseries(new PDL::Graphics::TriD::Points($pdl,$cols));

$g->bind_default($name);

$name = $g->add_dataseries(new PDL::Graphics::TriD::Lattice([SURF2D,$x]));

$g->bind_default($name);

$name = $g->add_dataseries(new PDL::Graphics::TriD::SLattice_S([SURF2D,$x+1],$cx,

                                                     {Smooth=>1,Lines=>0}));

$g->bind_default($name);

$g->scalethings();

$win = PDL::Graphics::TriD::get_current_window();

 

 

require PDL::Graphics::VRML::Protos;

PDL::Graphics::VRML::Protos->import();

 

 

#$win->{VRMLTop}->register_proto(PDL::Graphics::VRML::Protos::PDLBlockText10());

 

 

#$win->{VRMLTop}->uses('PDLBlockText10');

 

 

 

#$win->current_viewport()->add_object(new PDL::Graphics::TriD::VRMLObject(

#                                                                                                                                         vrn(Transform,

#                                                                                                                                                       translation => '0 0 -1',

#                                                                                                                                                       children =>

#                                                                                                                                                       [new PDL::Graphics::VRMLNode('PDLBlockText10')

#                                                                                                                                                       ]

#                                                                                                                                                 )

#                                                                                                                                        ));

 

 

 

 

$win->display('netscape');

exit;