/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;
|