"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Demos/TriD/tvrml2.p" between
PDL-2.082.tar.gz and PDL-2.083.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

tvrml2.p  (PDL-2.082)	:	tvrml2.p  (PDL-2.083)
skipping to change at line 36		skipping to change at line 36
$x = sin($u*15 + $t * 3)/2+0.5 + 5*($t-0.5)**2;		$x = sin($u*15 + $t * 3)/2+0.5 + 5*($t-0.5)**2;
$cx = PDL->zeroes(3,$nx+1,$nx+1);		$cx = PDL->zeroes(3,$nx+1,$nx+1);
random($cx->inplace);		random($cx->inplace);
$pdl = PDL->zeroes(3,20);		$pdl = PDL->zeroes(3,20);
$pdl->inplace->random;		$pdl->inplace->random;
$cols = PDL->zeroes(3,20);		$cols = PDL->zeroes(3,20);
$cols->inplace->random;		$cols->inplace->random;
$g = PDL::Graphics::TriD::get_new_graph;		$g = PDL::Graphics::TriD::get_new_graph;
$name = $g->add_dataseries(new PDL::Graphics::TriD::Points($pdl,$cols));		$name = $g->add_dataseries(PDL::Graphics::TriD::Points->new($pdl,$cols));
$g->bind_default($name);		$g->bind_default($name);
$name = $g->add_dataseries(new PDL::Graphics::TriD::Lattice([SURF2D,$x]));		$name = $g->add_dataseries(PDL::Graphics::TriD::Lattice->new([SURF2D,$x]));
$g->bind_default($name);		$g->bind_default($name);
$name = $g->add_dataseries(new PDL::Graphics::TriD::SLattice_S([SURF2D,$x+1],$cx ,		$name = $g->add_dataseries(PDL::Graphics::TriD::SLattice_S->new([SURF2D,$x+1],$c x,
{Smooth=>1,Lines=>0}));		{Smooth=>1,Lines=>0}));
$g->bind_default($name);		$g->bind_default($name);
$g->scalethings();		$g->scalethings();
$win = PDL::Graphics::TriD::get_current_window();		$win = PDL::Graphics::TriD::get_current_window();
require PDL::Graphics::VRML::Protos;		require PDL::Graphics::VRML::Protos;
PDL::Graphics::VRML::Protos->import();		PDL::Graphics::VRML::Protos->import();
#$win->{VRMLTop}->register_proto(PDL::Graphics::VRML::Protos::PDLBlockText10());		#$win->{VRMLTop}->register_proto(PDL::Graphics::VRML::Protos::PDLBlockText10());
#$win->{VRMLTop}->uses('PDLBlockText10');		#$win->{VRMLTop}->uses('PDLBlockText10');
#$win->current_viewport()->add_object(new PDL::Graphics::TriD::VRMLObject(		#$win->current_viewport()->add_object(PDL::Graphics::TriD::VRMLObject->new(
# vrn(Transform,		# vrn(Transform,
# translati on => '0 0 -1',		# translati on => '0 0 -1',
# children =>		# children =>
# [new PDL: :Graphics::VRMLNode('PDLBlockText10')		# [new PDL: :Graphics::VRMLNode('PDLBlockText10')
# ]		# ]
# )		# )
# ));		# ));
$win->display('netscape');		$win->display('netscape');
exit;		exit;
End of changes. 4 change blocks.
4 lines changed or deleted		4 lines changed or added

---