/usr/share/perl5/LaTeXML/Package/pspicture.sty.ltxml is in latexml 0.7.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 -*-
# /=====================================================================\ #
# | Dummy package for 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 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)->substract($_[1]->getX->multiply($_[2]->valueOf/10))))); });
1;
|