~ubuntu-branches/ubuntu/lucid/pdl/lucid

« back to all changes in this revision

Viewing changes to Graphics/TriD/TriD/TextObjects.pm

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

Graphics/TriD/TriD/TextObjects.pm

 

1

# These objects contain textual descriptions of the graph.

 

2

# Placed suitably in relation to origin to be used with a graph.

 

3

 

 

4

package PDL::Graphics::TriD::Description;

 

5

 

 

6

@ISA=qw/PDL::Graphics::TriD::Object/;

 

7

 

 

8

sub new {

 

9

        my($type,$text) = @_;

 

10

        local $_ = $text;

 

11

        s/\\/\\\\/g;

 

12

        s/"/\\"/g;

 

13

        my $this = bless {

 

14

                TText => "[".(join ',',map {"\"$_\""} split "\n",$_)."]"

 

15

        },$type;

 

16

        return $this;

 

17

}

 

18

 

 

19

1;

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1