summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/eolang/eolang.dtx
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/eolang/eolang.dtx')
-rw-r--r--macros/latex/contrib/eolang/eolang.dtx28
1 files changed, 16 insertions, 12 deletions
diff --git a/macros/latex/contrib/eolang/eolang.dtx b/macros/latex/contrib/eolang/eolang.dtx
index 262c10f2ca..97d558ccaa 100644
--- a/macros/latex/contrib/eolang/eolang.dtx
+++ b/macros/latex/contrib/eolang/eolang.dtx
@@ -50,7 +50,7 @@
%<package>\NeedsTeXFormat{LaTeX2e}
%<package>\ProvidesPackage{eolang}
%<*package>
-[2024-01-11 0.18.0 Formulas and Graphs for EO Programming Language]
+[2024-02-14 0.18.1 Formulas and Graphs for EO Programming Language]
%</package>
%<*driver>
\documentclass{ltxdoc}
@@ -877,7 +877,7 @@
$macro = $ARGV[0];
open(my $fh, '<', $ARGV[1]);
my $tex; { local $/; $tex = <$fh>; }
-print "% This file is auto-generated by 0.18.0\n";
+print "% This file is auto-generated by 0.18.1\n";
print '% There are ', length($tex),
' chars in the input: ', $ARGV[1], "\n";
print '% ---', "\n";
@@ -1219,6 +1219,10 @@ sub fmt {
$tex =~ s/\|([^\|]+)\|/\\textnormal{\\texttt{\1}}/g;
return $tex;
}
+sub toem {
+ my ($cm) = @_;
+ return $cm * 2.8;
+}
sub vertex {
my ($v) = @_;
if (index($v, 'v0') == 0) {
@@ -1315,7 +1319,7 @@ for (my $c = 0; $c < 0+@cmds; $c++) {
$draw = $draw . " (<MF:${to}><B:break-v>)";
if (exists $opts{'break'}) {
print tailor($draw, 'F') . ";\n";
- print ' \node[outer sep=.1cm,inner sep=0cm] ' .
+ print ' \node[outer sep=' . toem(0.1) . 'em,inner sep=0em] ' .
'at (break) (break-v) {$' . vertex($to) .
'$};' . "\n";
print ' ' . tailor($draw, 'B');
@@ -1326,10 +1330,10 @@ for (my $c = 0; $c < 0+@cmds; $c++) {
my ($from, $to) = split (/=+>/, $head);
my $size = () = $head =~ /=/g;
if ($from eq '') {
- print '\node [phi-arrow, left=' . ($size * 0.6) . 'cm of ' .
+ print '\node [phi-arrow, left=' . toem($size * 0.6) . 'em of ' .
$to . '.center]';
} elsif ($to eq '') {
- print '\node [phi-arrow, right=' . ($size * 0.6) . 'cm of ' .
+ print '\node [phi-arrow, right=' . toem($size * 0.6) . 'em of ' .
$from . '.center]';
} else {
print '\node [phi-arrow] at ($(' .
@@ -1340,7 +1344,7 @@ for (my $c = 0; $c < 0+@cmds; $c++) {
my ($v, $marker) = split (/!+/, $head);
my $size = () = $head =~ /!/g;
print '\node [phi-marker, left=' .
- ($size * 0.6) . 'cm of ' .
+ toem($size * 0.6) . 'em of ' .
$v . '.center]{' . fmt($marker) . '}';
} elsif (index($head, '+') >= 0) {
my ($v, $suffix) = split (/\+/, $head);
@@ -1417,8 +1421,8 @@ for (my $c = 0; $c < 0+@cmds; $c++) {
$loc = $loc . 'left';
}
print ',' . $loc . '=';
- print abs(num($down)) . 'cm and ' .
- abs(num($right)) . 'cm of ' . $v . '.center';
+ print toem(abs(num($down))) . 'em and ' .
+ toem(abs(num($right))) . 'em of ' . $v . '.center';
}
if (exists $opts{'data'}) {
print ',phi-data';
@@ -1521,17 +1525,17 @@ print '\endinput';
% \begin{macrocode}
\newenvironment{phicture}%
{\noindent\begin{tikzpicture}[
- ->,>=stealth',node distance=0,thick,
+ ->,>=stealth',node distance=0,line width=.08em,
pics/parallel arrow/.style={
code={\draw[-latex,phi-rho] (##1) -- (-##1);}}]}%
{\end{tikzpicture}}
\tikzstyle{phi-arrow} = [fill=white!80!black, single arrow,
- minimum height=0.5cm, minimum width=0.5cm,
+ minimum height=0.05em, minimum width=0.05em,
single arrow head extend=2mm]
\tikzstyle{phi-marker} = [inner sep=0pt, minimum height=1.4em,
minimum width=1.4em, font={\small\color{white}\ttfamily},
fill=gray]
-\tikzstyle{phi-thing} = [thick,inner sep=0pt,minimum height=2.4em,
+\tikzstyle{phi-thing} = [inner sep=0pt,minimum height=2.4em,
draw,font={\small}]
\tikzstyle{phi-object} = [phi-thing,circle]
\tikzstyle{phi-data} = [phi-thing,regular polygon,
@@ -1593,7 +1597,7 @@ print '\endinput';
\tikzstyle{phi-pi} = [draw,dotted]
\tikzstyle{phi-atom} = [phi-object,double]
\tikzstyle{phi-box} = [xshift=-5pt,yshift=3pt,draw,fill=white,
- rectangle,thin,minimum width=1.2em,anchor=north west,
+ rectangle,line width=.04em,minimum width=1.2em,anchor=north west,
font={\scriptsize}]
\tikzstyle{phi-attr} = [midway,sloped,inner sep=0pt,
above=2pt,sloped/.append style={transform shape},