Karl
是使用RPN中的参数点随机生成的节点列表\curvepnodes
(我不知道如何rand
在代数表达式中使用)。列表元素的数量为\Karlnodecount + 1
或plotpoints
。
在文档中,我只看到\psnline
用两个连续节点之间的直线段连接列表。为了关闭路径,我调用了\closepath
inside \pscustom
。
- 不幸的是,结束的线段看起来并不平滑。
- 我想使用曲线段而不是直线段。使用
\psparametricplot[plotstyle=curve]
确实有点帮助,但闭合线段仍然有问题。
\documentclass[pstricks]{standalone}
\usepackage{pst-plot,pst-node}
\psset
{
fillstyle=solid,
fillcolor=gray,
linearc=2pt,
}
\begin{document}
\begin{pspicture}(-3,-3)(3,3)
\curvepnodes[plotpoints=40]{0}{360}{/R rand 1001 mod 1000 div 1.5 add def R t cos mul R t sin mul}{Karl}
\pscustom
{
\psnline(0,\Karlnodecount){Karl}
\closepath
}
\end{pspicture}
\end{document}
我也尝试使用\multido
,\curveto
但\curveto
每次调用需要 3 个点(其中两个是贝塞尔曲线的控制点)。
如何从节点列表绘制封闭的平滑曲线?
答案1
\documentclass{article}
\usepackage{pst-node,multido}
\SpecialCoor
\pstVerb{1234 srand}
\def\PlotImage#1{% #1: no of points
\pstVerb{ /Step 360 #1 div def } \def\randompath{}
\multido{\i=0+1}{#1}{%
\xdef\randompath{\randompath(! Rand 2 mul 1 sub 2.5 add \i\space Step mul PtoC )}}%
\begin{pspicture}[showgrid=false](-3,-3)(3,3)
\psset{fillstyle=solid,fillcolor=black!20}
\expandafter\psccurve\randompath
\psset{linecolor=red,opacity=0.4,fillcolor=blue!40}
\expandafter\psccurve\randompath
\end{pspicture}}
\begin{document}
\PlotImage{36} \PlotImage{142}
\end{document}
答案2
抱歉,我不知道 PSTricks,但为了进行比较,这是 Jake 的 TikZ 解决方案的 Metapost 等效版本:
\starttext
\startMPpage[offset=3mm]
path p;
p := for i = 0 step 10 until 350 : (1 randomized 1)*dir(i) .. endfor cycle;
draw p scaled 1cm;
\stopMPpage
\stoptext
答案3
\documentclass{article}
\usepackage{tikz}
\usetikzlibrary{hobby}
\begin{document}
\pgfmathsetseed{2}
\edef\randompath{}
\foreach \theta in {0,10,...,350} {
\pgfmathsetmacro\r{rnd+1}
\xdef\randompath{\randompath (\theta:\r) ..}
}
\begin{tikzpicture}[use Hobby shortcut]
\expandafter\draw\randompath cycle;
\end{tikzpicture}
\end{document}
答案4
防弹解决方案。
\documentclass[pstricks]{standalone}
\usepackage{pst-node,pst-plot}
\psset{fillstyle=solid,fillcolor=gray}
\def\points{}
\pstVerb{realtime srand}
\def\N{25}
\begin{document}
\begin{pspicture}(-3,-3)(3,3)
\curvepnodes[plotpoints=\N]{0}{360}{rand 16 mod 15 div 1.5 add t PtoC}{P}
\multido{\i=0+1}{\Pnodecount}{\xdef\points{\points (P\i)}}
\expandafter\psccurve\points
\end{pspicture}
\end{document}