"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Graphics/TriD/TriD/Logo.pm" between
PDL-2.078.tar.gz and PDL-2.079.tar.gz

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

Logo.pm  (PDL-2.078):Logo.pm  (PDL-2.079)
package PDL::Graphics::TriD::Logo; package PDL::Graphics::TriD::Logo;
use strict; use strict;
use warnings; use warnings;
use PDL::Lite; use PDL::Lite;
our @ISA=qw/PDL::Graphics::TriD::Object/; our @ISA=qw/PDL::Graphics::TriD::Object/;
sub new { our $POINTS = PDL->pdl([
my ($type,$pos,$size) = @_;
my $this = bless {},$type;
$this->{Points} = PDL->pdl ([
[ 0.843, 0.852, 0], [ 0.843, 0.852, 0],
[ 0.843, 0.852, -1], [ 0.843, 0.852, -1],
[ 1.227, 0.891, 0], [ 1.227, 0.891, 0],
[ 1.227, 0.891, -1], [ 1.227, 0.891, -1],
[ 1.56, 1.071, 0], [ 1.56, 1.071, 0],
[ 1.56, 1.071, -1], [ 1.56, 1.071, -1],
[ 1.722, 1.488, 0], [ 1.722, 1.488, 0],
[ 1.722, 1.488, -1], [ 1.722, 1.488, -1],
[ 1.656, 1.776, 0], [ 1.656, 1.776, 0],
[ 1.656, 1.776, -1], [ 1.656, 1.776, -1],
skipping to change at line 164 skipping to change at line 161
[ 5.571, 0.174, 0], [ 5.571, 0.174, 0],
[ 5.571, 0.174, -1], [ 5.571, 0.174, -1],
[ 5.205, 0.105, 0], [ 5.205, 0.105, 0],
[ 5.205, 0.105, -1], [ 5.205, 0.105, -1],
[ 4.884, 0.135, 0], [ 4.884, 0.135, 0],
[ 4.884, 0.135, -1], [ 4.884, 0.135, -1],
[ 4.809, 0.36, 0], [ 4.809, 0.36, 0],
[ 4.809, 0.36, -1], [ 4.809, 0.36, -1],
[ 4.809, 1.797, 0], [ 4.809, 1.797, 0],
[ 4.809, 1.797, -1]]); [ 4.809, 1.797, -1]]);
$this->{Index} = PDL->pdl([ our $FACES = PDL->pdl([
[ 0, 1, 2], [ 0, 1, 2],
[ 3, 2, 1], [ 3, 2, 1],
[ 2, 3, 4], [ 2, 3, 4],
[ 5, 4, 3], [ 5, 4, 3],
[ 4, 5, 6], [ 4, 5, 6],
[ 7, 6, 5], [ 7, 6, 5],
[ 6, 7, 8], [ 6, 7, 8],
[ 9, 8, 7], [ 9, 8, 7],
[ 8, 9, 10], [ 8, 9, 10],
[ 11, 10, 9], [ 11, 10, 9],
skipping to change at line 465 skipping to change at line 462
[146,128,130], [146,128,130],
[146,130,136], [146,130,136],
[136,130,132], [136,130,132],
[136,132,134], [136,132,134],
[136,138,140], [136,138,140],
[136,140,142], [136,140,142],
[136,142,144], [136,142,144],
[136,144,146], [136,144,146],
[124,120,122], [124,120,122],
[114,126,150]]); [114,126,150]]);
$this->{Material} = new PDL::Graphics::TriD::Material(
Shine => 0.212766, sub new {
Specular =>[0.753217,0.934416,1], my ($type,$pos,$size) = @_;
Ambient =>[0,0,0], bless {
Diffuse =>[0.09855,0.153113,0.191489], Points => $POINTS->copy,
Emissive =>[0, 0, 0]); Index => $FACES->copy,
$this->{Pos} = defined($pos) ? $pos : [0,1.2,0]; Material => PDL::Graphics::TriD::Material->new(
$this->{Size} = defined($size) ? $size : 0.1; Shine => 0.212766,
return $this; Specular =>[0.753217,0.934416,1],
Ambient =>[0,0,0],
Diffuse =>[0.09855,0.153113,0.191489],
Emissive =>[0, 0, 0]),
Pos => $pos // [0,1.2,0],
Size => $size // 0.1,
}, $type;
} }
1; 1;
# ***add these lines to, e.g. tvrml2.pl # ***add these lines to, e.g. tvrml2.pl
# #
# use PDL::Graphics::TriD::Logo; # use PDL::Graphics::TriD::Logo;
# $win->add_object(new PDL::Graphics::TriD::Logo); # $win->add_object(new PDL::Graphics::TriD::Logo);
 End of changes. 3 change blocks. 
14 lines changed or deleted 17 lines changed or added

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