☰

与 ConTeXt 相关的 Metapost 错误

tag-icon • tag-icon context context-mkiv metapost
与 ConTeXt 相关的 Metapost 错误

我尝试重用 fpast 中的这段代码（在 tikz 中生成随机箭头)，但我发现与 freelabel() 函数相关的错误消息。如果我尝试使用 label() 函数或通过“绘制文本（）“方法我发现了同样的错误。我认为这个错误与上下文方面有关。

！声明的变量与先前的 vardef 冲突。

               ; <*> ...idate, random_vector[], bb_candidate, bb[];
                                               vardef bb(expr p) = save ...

! 不一致的方程 (偏差 -20)。 ; <*> ...enddef; pickup pencircle scaled 2bp; i = 1; forever: exitunless (i <=...

\starttext

\startMPcode
numeric u, nb_vectors, wd;
u := 1cm; % unit length
nb_vectors := 20; wd = .5; 
boolean intersect; pair random_origin; color random_color; path candidate, random_vector[], bb_candidate, bb[];
%
vardef bb(expr p) =
  save orig, extr; pair orig, extr; orig = point 0 of p; extr = point 1 of p;
  pair v,w; v = wd*unitvector(extr-orig)*u; w = v rotated 90;
  (orig - v + w) -- (extr + v + w) -- (extr + v - w) -- (orig - v - w) -- cycle
enddef;
%

  pickup pencircle scaled 2bp;
  i = 1; 
  forever: 
    exitunless (i <=  nb_vectors);
    intersect := false;
    random_length := u*(2+uniformdeviate(1));
    random_angle := uniformdeviate(359);
    random_origin := u*(uniformdeviate(wd*nb_vectors), uniformdeviate(wd*nb_vectors));
    random_color := (uniformdeviate(1), uniformdeviate(1), uniformdeviate(1));
    candidate := random_origin -- (random_origin + random_length*dir(random_angle));
    j := 1;
    forever:
      exitif (j = i) or (intersect = true);
      if bb(random_vector[j]) intersectiontimes bb(candidate) <>  (-1, -1):
        intersect := true;
      fi;
      j := j+1;
    endfor;
    if intersect = false: 
      random_vector[i] = candidate;
      drawarrow candidate withcolor random_color;
      freelabel(btex $v$ etex, point .5 of candidate, point .5 of candidate + dir (random_angle + 90));
      i := i+1;
    fi;
  endfor;
\stopMPcode


\stoptext

答案1

删除路径变量bb[]（无论如何，该变量在以下代码中未使用，这肯定是我第一次尝试此主题时留下的痕迹）可使其与 ConTeXt-MKIV 配合使用。也许是检测到与bb()之后定义的宏有冲突。但在这种情况下，我不知道为什么它与直接 MetaFun 配合使用，而与 ConTeXt 配合使用却不行。

替换如下

 path candidate, random_vector[], bb_candidate, bb[];

经过

path candidate, random_vector[] ;

（bb_candidate路径变量也没有用）。

结果：

在此处输入图片描述

编辑我刚刚检查过：虽然它现在与 ConTeXt-MKIV 配合得很好，但仍然无法与 ConTeXt-MKII 配合使用。我不知道为什么，因为我不是 ConTeXt 的常规用户。

編輯 (之二)看来它现在能工作（至少在 ConTeXt-MKIV 中）的真正原因是我i = 1用赋值替换了方程i := 1。请参阅下面的评论。我猜想变量i已经在 ConTeXt-Metafun 中的其他地方定义过了……但它仍然无法在 ConTeXt-MKII 中工作。（在这种情况下没有更多错误，但图片没有出现。）

相关内容