| Current Path : /lib64/perl5/vendor_perl/PDL/Graphics/TriD/ |
| Current File : //lib64/perl5/vendor_perl/PDL/Graphics/TriD/TextObjects.pm |
# These objects contain textual descriptions of the graph.
# Placed suitably in relation to origin to be used with a graph.
package PDL::Graphics::TriD::Description;
@ISA=qw/PDL::Graphics::TriD::Object/;
sub new {
my($type,$text) = @_;
local $_ = $text;
s/\\/\\\\/g;
s/"/\\"/g;
my $this = bless {
TText => "[".(join ',',map {"\"$_\""} split "\n",$_)."]"
},$type;
return $this;
}
1;