The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

BRMILLER / LaTeXML-0.8.2_3 / lib / LaTeXML / Core / Pair.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
—
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126

              
# /=====================================================================\ #
# |  LaTeXML::Core::Pair                                                | #
# | Representation of pairs of numbers or dimensions                    | #
# |=====================================================================| #
# | Part of LaTeXML:                                                    | #
# |  Public domain software, produced as part of work done by the       | #
# |  United States Government & not subject to copyright in the US.     | #
# |---------------------------------------------------------------------| #
# | Bruce Miller <bruce.miller@nist.gov>                        #_#     | #
# | http://dlmf.nist.gov/LaTeXML/                              (o o)    | #
# \=========================================================ooo==U==ooo=/ #
package LaTeXML::Core::Pair;
use strict;
use warnings;
use LaTeXML::Global;
use LaTeXML::Common::Object;
use LaTeXML::Core::Token;
use base qw(LaTeXML::Common::Object);
use base qw(Exporter);
our @EXPORT = (qw(&Pair));
#======================================================================
# Exported constructor.
sub Pair {
  my ($x, $y) = @_;
  return LaTeXML::Core::Pair->new($x, $y); }
#======================================================================
# NOTE: This is candiate to be absorbed into Array (perhaps)
sub new {
  my ($class, $x, $y) = @_;
  return bless [$x, $y], $class; }
sub getX {
  my ($self) = @_;
  return $$self[0]; }
sub getY {
  my ($self) = @_;
  return $$self[1]; }
# multiply by anything; this keeps the same type of elements in the pair
sub multiplyN {
  my ($self, $other, $other2) = @_;
  return (ref $self)->new($$self[0]->multiply($other), $$self[1]->multiply($other2 || $other)); }
# multiply by a dimension or such; this upgrades the elements in the pair to
# the type used in multiplication
sub multiply {
  my ($self, $other, $other2) = @_;
  return $self->multiplyN($other, $other2) if !(ref $other) || ($other2 && !ref $other2);
  return (ref $self)->new($other->multiply($$self[0]), ($other2 || $other)->multiply($$self[1])); }
sub swap {
  my ($self) = @_;
  return (ref $self)->new($$self[1], $$self[0]); }
sub ptValue {
  my ($self, $prec) = @_;
  return $$self[0]->ptValue($prec) . ',' . $$self[1]->ptValue($prec); }
sub pxValue {
  my ($self, $prec) = @_;
  return $$self[0]->pxValue($prec) . ',' . $$self[1]->pxValue($prec); }
sub toString {
  my ($self) = @_;
  return $$self[0]->toString() . ',' . $$self[1]->toString(); }
sub toAttribute {
  my ($self) = @_;
  return $$self[0]->toAttribute() . ',' . $$self[1]->toAttribute(); }
sub stringify {
  my ($self) = @_;
  return "Pair[" . join(',', map { $_->stringify } @$self) . "]"; }
sub revert {
  my ($self) = @_;
  return (T_OTHER('('), Revert($$self[0]), T_OTHER(','), Revert($$self[1]), T_OTHER(')')); }
sub negate {
  my ($self) = @_;
  return $self->multiply(-1); }
#======================================================================
1;
__END__
=pod 
=head1 NAME
C<LaTeXML::Core::Pair> - representation of pairs of numerical things
=head1 DESCRIPTION
represents pairs of numerical things, coordinates or such.
Candidate for removal!
=head2 Exported functions
=over 4
=item C<< $pair = Pair($num1,$num2); >>
Creates an object representing a pair of numbers;
Not a part of TeX, but useful for graphical objects.
The two components can be any numerical object.
=back
=head1 AUTHOR
Bruce Miller <bruce.miller@nist.gov>
=head1 COPYRIGHT
Public domain software, produced as part of work done by the
United States Government & not subject to copyright in the US.
=cut