(Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).
| ViewPort.pm (PDL-2.082) | : | ViewPort.pm (PDL-2.083) |
|---|
| | |
| skipping to change at line 21 | | skipping to change at line 21 |
|---|
| | |
| sub new { | | sub new { |
| my($type,$x0,$y0,$w,$h) = @_; | | my($type,$x0,$y0,$w,$h) = @_; |
| | |
| my $this= $type->SUPER::new(); | | my $this= $type->SUPER::new(); |
| | |
| $this->{X0} = $x0; | | $this->{X0} = $x0; |
| $this->{Y0} = $y0; | | $this->{Y0} = $y0; |
| $this->{W} = $w; | | $this->{W} = $w; |
| $this->{H} = $h; | | $this->{H} = $h; |
|
| $this->{DefMaterial} = new PDL::Graphics::TriD::Material; | | $this->{DefMaterial} = PDL::Graphics::TriD::Material->new; |
| | |
| return $this; | | return $this; |
| } | | } |
| | |
| sub graph { | | sub graph { |
| my($this,$graph) = @_; | | my($this,$graph) = @_; |
| if(defined($graph)){ | | if(defined($graph)){ |
| $this->add_object($graph); | | $this->add_object($graph); |
| push(@{$this->{Graphs}},$graph); | | push(@{$this->{Graphs}},$graph); |
| }elsif(defined $this->{Graphs}){ | | }elsif(defined $this->{Graphs}){ |
| | | |
| End of changes. 1 change blocks. |
|---|
| 1 lines changed or deleted | | 1 lines changed or added |
|---|
"Fossies" - the Fresh Open Source Software Archive 