更多摆姿势

Question 1

概念证明

初步版本：概念证明

{Fanfare} 当我写下这些话的时候，我激动得甚至无法呼吸（我感觉很好，医生，我真的很好）。:-) 嗯，对我来说这是一个重要的 TeX 时刻，你是其中的一部分！

我在读通过 PSTricks 或 Tikz 实现凸版印刷效果我注意到安德鲁·史黛西转换了一些星火字体以某种方式转换为 TikZ 路径/曲线 - 我不确定源代码是 OTF/PFB 文件还是其他一些源文件（PL、VPL、WFF、EOT，也许？）。也许svgtopgf.pl脚本来自http://bazaar.launchpad.net/~tex-sx/tex-sx/development/files/170已经使用过（我尝试过一些随机的 SVG 图片，但效果不佳）。如果不做进一步研究，很难猜测，但它确实有效！

与此同时，我读了这个问题在 TikZ 中使用文本勾勒（填充）字形轮廓所有主流图形引擎（Metapost、PSTricks、Asymptote）都应该能够在曲线级别加载字形。我不确定 TikZ 是否能加载 SVG 路径，这可能会有所帮助。

让我们回到我们的最小工作示例。

步骤 1：下载转换为路径的字体

我下载了两个文件，pgflibraryshapes.letters.dtx 和 stikz-正常路径.tex，到我的工作目录。

第 2 步：安装 dtx 文件（它包含支持 TeX 文件）

我已经通过运行此行一次来处理/安装了第一个文件：

tex pgflibraryshapes.letters.dtx

步骤 3：运行示例并使用它

我们可以运行任何主要的 LaTeX 引擎，例如

lualatex mal-letters.tex

这是 TeX 文件的内容：

% run: any major LaTeX engine mal-letters.tex
% Based on and inspired by:
% https://tex.stackexchange.com/q/62570/86
\documentclass{article}
\pagestyle{empty}
\usepackage{tikz}
\usetikzlibrary{shapes.letters} 
\addtolength{\textheight}{2in}
%\usetikzlibrary{fadings} % I am cutting down the example to bare minimum...
%\usetikzlibrary{shadows.blur}
\usetikzlibrary{intersections}
\pgfkeys{
  /pgf/letter/.cd,
  load font={stikz}{normal},
  size=4,
  load encoding=char,
  every letter/.append style={
    fill, draw=red, line width=1pt,
  },
  }% End of \pgfkeys...
\makeatletter
\tikzset{
  use letter path/.code={%
    \pgfscope
    \pgftransformscale{\letter@size}%
    \letter@path{\letter@encode{#1}}%
    \endpgfscope
  }% end of use letter...
}% end of \tikzset...
\makeatother

\begin{document}
%\newcount\malrotate
%\malrotate=-10
%\loop
%\advance\malrotate by 10
\foreach \malrotate in {0,10,...,180} {% 45    0,10,...,180
\begin{tikzpicture}
\begin{scope}[xshift=20mm, yshift=-7mm, rotate=\malrotate]
\path[name path global=first, use letter path=T, fill=red];
% draw=green, line width=1pt,
\end{scope}
\begin{scope}[yshift=6mm, xshift=2mm, rotate=-\malrotate]
\path[name path global=second, use letter path=B, fill=blue, opacity=0.4]; 
% draw=green, line width=1pt,
\end{scope}
\fill[name intersections={of=first and second, name=i, total=\t}] [black]
  \ifnum\t>0%
node{%
  %\pgfmathparse{\t}%
  %\global\let\mtotal=\pgfmathresult
  \typeout{Number of intersection points: \t}%
  }%
\foreach \s in {1,...,\t} {%
  (i-\s) circle (1pt) node[above]{\footnotesize\s}%
  }%
\else
node{\typeout{There are no intersection points!}}%
  \fi;
  %\typeout{Number of intersection points: \t};
\end{tikzpicture} %
}% End of \foreach...
%\ifnum\malrotate<180\repeat
\end{document}

好消息是它能正常工作，坏消息是我们在循环内（\foreach或\loop... \repeat）绘制图片时得到的交叉点数量不正确，因此可能存在错误（使用时name path global？或者支持文件中存在问题？我目前不知道。）。第一条和最后一条消息肯定是正确的。

Number of intersection points: 4
Number of intersection points: 9
Number of intersection points: 20
Number of intersection points: 32
Number of intersection points: 19
Number of intersection points: 17
Number of intersection points: 23
Number of intersection points: 15
Number of intersection points: 13
Number of intersection points: 10
Number of intersection points: 16
Number of intersection points: 19
Number of intersection points: 17
Number of intersection points: 26
Number of intersection points: 19
Number of intersection points: 24
Number of intersection points: 19
Number of intersection points: 7
There are no intersection points!

此示例加载两个字形并命名它们。它在范围环境的帮助下对它们进行转换，因为\path据我所知，它不能直接在命令中完成（尽管我cm还没有测试过该参数）。然后我们找到交点并使用它们（请参阅TikZ 手册，搜索intersections库）。如果我们一次画一张图，那么点的数量是正确的。

好吧，前面还有很多工作要做（转换一些其他字体，在真实的例子上使用不同的参数进行设置和测试优化），但这是核心。

我知道我很快就会需要它的实际任务：

即将发布的会议论文集封面由接触字形组成的背景图片，它应该是此示例的改进版本如何（半）自动区分不同脚本的字形？，
一个字形位于另一个字形内的字形中……例如，字母 T 位于字母 A 内，字母 T 和字母 B 都位于字母 B 内，并且，
将一些单词放在箭头内，并在术语周围保留一些特定的空白（这是词云的常见情况），作为当地戏剧的广告。

我附上了该页面的预览和带有一些附加设置的特写镜头。

mwe，整页

mwe，特写镜头

Answer

概念证明

初步版本：概念证明

{Fanfare} 当我写下这些话的时候，我激动得甚至无法呼吸（我感觉很好，医生，我真的很好）。:-) 嗯，对我来说这是一个重要的 TeX 时刻，你是其中的一部分！

我在读通过 PSTricks 或 Tikz 实现凸版印刷效果我注意到安德鲁·史黛西转换了一些星火字体以某种方式转换为 TikZ 路径/曲线 - 我不确定源代码是 OTF/PFB 文件还是其他一些源文件（PL、VPL、WFF、EOT，也许？）。也许svgtopgf.pl脚本来自http://bazaar.launchpad.net/~tex-sx/tex-sx/development/files/170已经使用过（我尝试过一些随机的 SVG 图片，但效果不佳）。如果不做进一步研究，很难猜测，但它确实有效！

与此同时，我读了这个问题在 TikZ 中使用文本勾勒（填充）字形轮廓所有主流图形引擎（Metapost、PSTricks、Asymptote）都应该能够在曲线级别加载字形。我不确定 TikZ 是否能加载 SVG 路径，这可能会有所帮助。

让我们回到我们的最小工作示例。

步骤 1：下载转换为路径的字体

我下载了两个文件，pgflibraryshapes.letters.dtx 和 stikz-正常路径.tex，到我的工作目录。

第 2 步：安装 dtx 文件（它包含支持 TeX 文件）

我已经通过运行此行一次来处理/安装了第一个文件：

tex pgflibraryshapes.letters.dtx

步骤 3：运行示例并使用它

我们可以运行任何主要的 LaTeX 引擎，例如

lualatex mal-letters.tex

这是 TeX 文件的内容：

% run: any major LaTeX engine mal-letters.tex
% Based on and inspired by:
% https://tex.stackexchange.com/q/62570/86
\documentclass{article}
\pagestyle{empty}
\usepackage{tikz}
\usetikzlibrary{shapes.letters} 
\addtolength{\textheight}{2in}
%\usetikzlibrary{fadings} % I am cutting down the example to bare minimum...
%\usetikzlibrary{shadows.blur}
\usetikzlibrary{intersections}
\pgfkeys{
  /pgf/letter/.cd,
  load font={stikz}{normal},
  size=4,
  load encoding=char,
  every letter/.append style={
    fill, draw=red, line width=1pt,
  },
  }% End of \pgfkeys...
\makeatletter
\tikzset{
  use letter path/.code={%
    \pgfscope
    \pgftransformscale{\letter@size}%
    \letter@path{\letter@encode{#1}}%
    \endpgfscope
  }% end of use letter...
}% end of \tikzset...
\makeatother

\begin{document}
%\newcount\malrotate
%\malrotate=-10
%\loop
%\advance\malrotate by 10
\foreach \malrotate in {0,10,...,180} {% 45    0,10,...,180
\begin{tikzpicture}
\begin{scope}[xshift=20mm, yshift=-7mm, rotate=\malrotate]
\path[name path global=first, use letter path=T, fill=red];
% draw=green, line width=1pt,
\end{scope}
\begin{scope}[yshift=6mm, xshift=2mm, rotate=-\malrotate]
\path[name path global=second, use letter path=B, fill=blue, opacity=0.4]; 
% draw=green, line width=1pt,
\end{scope}
\fill[name intersections={of=first and second, name=i, total=\t}] [black]
  \ifnum\t>0%
node{%
  %\pgfmathparse{\t}%
  %\global\let\mtotal=\pgfmathresult
  \typeout{Number of intersection points: \t}%
  }%
\foreach \s in {1,...,\t} {%
  (i-\s) circle (1pt) node[above]{\footnotesize\s}%
  }%
\else
node{\typeout{There are no intersection points!}}%
  \fi;
  %\typeout{Number of intersection points: \t};
\end{tikzpicture} %
}% End of \foreach...
%\ifnum\malrotate<180\repeat
\end{document}

好消息是它能正常工作，坏消息是我们在循环内（\foreach或\loop... \repeat）绘制图片时得到的交叉点数量不正确，因此可能存在错误（使用时name path global？或者支持文件中存在问题？我目前不知道。）。第一条和最后一条消息肯定是正确的。

Number of intersection points: 4
Number of intersection points: 9
Number of intersection points: 20
Number of intersection points: 32
Number of intersection points: 19
Number of intersection points: 17
Number of intersection points: 23
Number of intersection points: 15
Number of intersection points: 13
Number of intersection points: 10
Number of intersection points: 16
Number of intersection points: 19
Number of intersection points: 17
Number of intersection points: 26
Number of intersection points: 19
Number of intersection points: 24
Number of intersection points: 19
Number of intersection points: 7
There are no intersection points!

此示例加载两个字形并命名它们。它在范围环境的帮助下对它们进行转换，因为\path据我所知，它不能直接在命令中完成（尽管我cm还没有测试过该参数）。然后我们找到交点并使用它们（请参阅TikZ 手册，搜索intersections库）。如果我们一次画一张图，那么点的数量是正确的。

好吧，前面还有很多工作要做（转换一些其他字体，在真实的例子上使用不同的参数进行设置和测试优化），但这是核心。

我知道我很快就会需要它的实际任务：

即将发布的会议论文集封面由接触字形组成的背景图片，它应该是此示例的改进版本如何（半）自动区分不同脚本的字形？，
一个字形位于另一个字形内的字形中……例如，字母 T 位于字母 A 内，字母 T 和字母 B 都位于字母 B 内，并且，
将一些单词放在箭头内，并在术语周围保留一些特定的空白（这是词云的常见情况），作为当地戏剧的广告。

我附上了该页面的预览和带有一些附加设置的特写镜头。

mwe，整页

mwe，特写镜头

Question 2

下面给出的代码有一些缺陷，但我把它发布在了 ConTeXt 邮件列表中，结果为这个问题提供了多个出色的解决方案。如果你觉得我下面的尝试很有趣，你一定要看看：

https://mailman.ntg.nl/pipermail/ntg-context/2018/092723.html

最近我开始对 MetaPost 和宏包 MetaFun 感兴趣。你可以用它做很多很棒的事情，例如绘制字体轮廓。

将字体轮廓获取为 MetaPost 路径实际上是在 ConTeXt 中实现的，所以我接受了挑战并使用 LuaTeX 和 MetaFun 解决了这个问题。

因为我是一个装裱师，所以这也是与字体无关的，也就是说，你可以即时更换字体，而不必从外部描摹轮廓等。不幸的是，我还不知道为什么，一些交叉点不见了。我使用了这里描述的技术：获取MetaPost中的所有交点

这是一个文件，但我将其分成几个部分来处理不同的语法突出显示。

\documentclass{article}

\usepackage{fontspec}
\setmainfont{Crimson}

\usepackage{luacode}
\begin{luacode*}

-- We need some utilities from ConTeXt
callbacks = callbacks or {}
callbacks.supported = callbacks.supported or {}
dofile(kpse.find_file("util-fmt.lua"))
dofile(kpse.find_file("node-ini.lua"))
dofile(kpse.find_file("font-mps.lua"))
dofile(kpse.find_file("font-shp.lua"))

-- That's a simple reimplemetation of ConTeXt's \showshape macro
function outlinepaths(character)
    local fontid      = font.current()
    local shapedata   = fonts.hashes.shapes[fontid] -- by index
    local chardata    = fonts.hashes.characters[fontid] -- by unicode
    local shapeglyphs = shapedata.glyphs or { }

    character = utf.byte(character)
    local c = chardata[character]
    if c then
        if not c.index then
            return {}
        end
        local glyph = shapeglyphs[c.index]
        if glyph and (glyph.segments or glyph.sequence) then
            local units  = shapedata.units or 1000
            local factor = 100/units
            local paths  = fonts.metapost.paths(glyph,factor)
            return paths
        end
    end
end

\end{luacode*}

\usepackage{luamplib}
\mplibsetformat{metafun}
\everymplib{beginfig(0);}
\everyendmplib{endfig;}

\edef\letterhash{\string#}
\def\mpdefineoutlines#1{\directlua{

    local char = "\luaescapestring{#1}"
    local outlines = outlinepaths("#1")
    local len = \letterhash outlines
    tex.print("path " .. char .. "[];")
    tex.print(char .. "n := " .. len .. ";")
    for i, path in ipairs(outlines) do
        tex.print(char .. "[" .. i .. "] := " .. path .. ";")
    end

  }}

\begin{document} 

\begin{mplibcode}

  pair shift; shift := (1cm,-1cm);
  numeric angle; angle := 5;

  \mpdefineoutlines{B}
  \mpdefineoutlines{T}

  nofill B2;
  nofill B3;
  eofill B1 withcolor .5[blue,white];

  fill T1 shifted (shift) rotated (angle) withcolor .5[red,white];

  path r;
  numeric n; n := 0;
  for i = 1 upto Bn:
      for j = 1 upto Tn:
          r := B[i];
          forever:
              pair q;
              r := r cutbefore (T[j] shifted (shift) rotated (angle));
              exitif length cuttings = 0;
              r := subpath(epsilon, length r) of r;
              q = point 0 of r;
              n := n + 1;
              dotlabel.urt(textext("\tiny" & decimal n), q);
          endfor;
      endfor ;
  endfor ;

\end{mplibcode}

\end{document}

更多摆姿势

答案1

答案2

更多摆姿势

相关内容