I found a few bugs in the metapost definitions that could be usefully corrected in the next versions: In the subtype clay of wall, "Pickup PenA" is missing before drawing the wall line at the end, and the effect is that the line is drawn with PenC (thin). def l_wall_clay_SKBB (expr P) = T:=identity; cas := 0; dlzka := arclength P; mojkrok:=adjust_step(dlzka, .5u); pickup PenC; q := (-0.15u,0){up}..{down}origin..{up}(0.15u,0); forever: t := arctime (cas + mojkrok/2) of P; thdraw q shifted (point t of P + .25u * unitvector(thdir(P,t) rotated -90)); cas := cas + mojkrok; exitif cas > dlzka - (2*mojkrok/3); % for rounding errors endfor;
Pickup PenA thdraw P; enddef;
I also noticed that sometimes the margin around a text is changed by the presence (or absence) of a point label. After many trials, I finally identified that it comes from the value of bboxmargin which is reset in process_label. It seems to me that an interim is missing before resetting bboxmargin in order to keep this change localized. def process_label (expr cent, rot) = begingroup <<<< bboxmargin:=0.8bp;
interim bboxmargin:=2bp; q:=((bbox lab) smoothed 2) rotatedaround (cent, rot); draw lab rotatedaround (cent, rot); write_circ_bbox(q); % without corners smoothing it was enough to use % write_bbox(q); endgroup; enddef;
Xavier