MetaPost 的问题

herberteuler

下面的 macro dcircle 我希望当它的第二个参数为 1 时画一个带叉的圆，否则只画一个圆。圆的位置在 P。这段代码编译不过去，请问哪里错了？谢谢。

1. 
   
2. def dcircle(expr P, del) =
   
3.   fill fullcircle scaled 7bp shifted P withcolor white;
   
4.   draw fullcircle scaled 7bp shifted P
   
5.   if del>0 :
   
6.     begingroup
   
7.       save x, y;
   
8.       x := xpart P;
   
9.       y := ypart P;
   
10.       draw (x + 7bp, y + 7bp)--(x - 7bp, y - 7bp)
    
11.       draw (x - 7bp, y + 7bp)--(x + 7bp, y - 7bp)
    
12.     endgroup
    
13.   fi;
    
14. enddef;
    
15. 
    
16. beginfig(1)
    
17.   pair A;
    
18.   A:=(0,0);
    
19.   dcircle(A, 1);
    
20. endfig;
    
21. 
    
22. beginfig(2)
    
23.   pair A,B;
    
24.   A:=(0,0);
    
25.   B:=(-0.65cm,-1cm);
    
26.   draw A--B;
    
27.   dcircle(A, 0);
    
28.   dcircle(B, 0);
    
29. endfig;
    
30. end;

复制代码

DoDo

draw fullcircle scaled 7bp shifted P
这后面我加了一个分号(;),变成
draw fullcircle scaled 7bp shifted P;
可以通过,但是似乎还有一些警告.不过图案已经出来了

herberteuler

太感谢了！
我真笨，竟忘了这个问题 :p