"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Graphics/TriD/VRML/VRML.pm" between
PDL-2.074.tar.gz and PDL-2.075.tar.gz

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

VRML.pm  (PDL-2.074):VRML.pm  (PDL-2.075)
skipping to change at line 241 skipping to change at line 241
"color [\n" if $type eq 'color'; "color [\n" if $type eq 'color';
return tabs($level) . "coordIndex [\n" if $type eq 'index'; return tabs($level) . "coordIndex [\n" if $type eq 'index';
} }
sub vpostfix { sub vpostfix {
my ($type,$level) = @_; my ($type,$level) = @_;
return tabs($level+1)."]\n".tabs($level)."}\n" unless $type eq 'index'; return tabs($level+1)."]\n".tabs($level)."}\n" unless $type eq 'index';
return tabs($level)."]\n"; return tabs($level)."]\n";
} }
PDL::thread_define 'coords(vertices(n=3); colors(n)) NOtherPars => 3', PDL::broadcast_define 'coords(vertices(n=3); colors(n)) NOtherPars => 3',
PDL::over { PDL::over {
${$_[2]} .= $_[4] . sprintf("%.3f %.3f %.3f,\n",$_[0]->list); ${$_[2]} .= $_[4] . sprintf("%.3f %.3f %.3f,\n",$_[0]->list);
${$_[3]} .= $_[4] . sprintf("%.3f %.3f %.3f,\n",$_[1]->list); ${$_[3]} .= $_[4] . sprintf("%.3f %.3f %.3f,\n",$_[1]->list);
}; };
PDL::thread_define 'v3array(vecs(n=3)) NOtherPars => 2', PDL::broadcast_define 'v3array(vecs(n=3)) NOtherPars => 2',
PDL::over { PDL::over {
${$_[1]} .= $_[2] . sprintf("%.3f %.3f %.3f,\n",$_[0]->list); ${$_[1]} .= $_[2] . sprintf("%.3f %.3f %.3f,\n",$_[0]->list);
}; };
PDL::thread_define 'lines(vertices(n=3,m); colors(n,m); index(m))'. PDL::broadcast_define 'lines(vertices(n=3,m); colors(n,m); index(m))'.
'NOtherPars => 4', 'NOtherPars => 4',
PDL::over { PDL::over {
my ($lines,$cols,$index,$vt,$ct,$it,$sp) = @_; my ($lines,$cols,$index,$vt,$ct,$it,$sp) = @_;
v3array($lines,$vt,$sp."\t") if defined $vt; v3array($lines,$vt,$sp."\t") if defined $vt;
v3array($cols,$ct,$sp."\t") if defined $ct; v3array($cols,$ct,$sp."\t") if defined $ct;
$$it .= $sp.join(',',$index->list).",-1,\n" if defined $it; $$it .= $sp.join(',',$index->list).",-1,\n" if defined $it;
}; };
PDL::thread_define 'triangles(inda();indb();indc()), NOtherPars => 2', PDL::broadcast_define 'triangles(inda();indb();indc()), NOtherPars => 2',
PDL::over { PDL::over {
${$_[3]} .= $_[4].join(',',map {$_->at} @_[0..2]).",-1,\n"; ${$_[3]} .= $_[4].join(',',map {$_->at} @_[0..2]).",-1,\n";
}; };
##################### #####################
# #
# VRML # VRML
package PDL::Graphics::VRML; package PDL::Graphics::VRML;
use PDL::Core ''; use PDL::Core '';
 End of changes. 4 change blocks. 
4 lines changed or deleted 4 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)