This file is indexed.

/usr/share/perl5/LaTeXML/Package/pspicture.sty.ltxml is in latexml 0.8.0-1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 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
# -*- CPERL -*-
# /=====================================================================\ #
# |  pspicture                                                          | #
# | Actual implementation in LaTeXML.ltxml                              | #
# |=====================================================================| #
# | 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::Package::Pool;
use strict;
use warnings;
use LaTeXML::Package;

DefConstructor('\Line Pair',
  "<ltx:line points='#points' stroke-width='#thick'/>",
  properties => sub { picProperties(points => '0,0 ' . picScale($_[1])->ptValue()); });

DefConstructor('\Vector Pair',
  "<ltx:line points='#points' stroke-width='#thick' terminators='->' arrowlength='#arrowlength'/>",
  properties => sub { picProperties(points => '0,0 ' . picScale($_[1])->ptValue()); });

DefConstructor('\Curve Pair {Float}',
  "<ltx:bezier points='&ptValue(#pt)' stroke-width='#thick' />",
  properties => sub {
    picProperties(pt => PairList(Pair(Dimension(0), Dimension(0)), picScale($_[1]),
        Pair($_[1]->getX->multiply(0.5)->add($_[1]->getY->multiply($_[2]->valueOf / 10)),
          $_[1]->getY->multiply(0.5)->subtract($_[1]->getX->multiply($_[2]->valueOf / 10))))); });

1;