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 -------------- next part -------------- A non-text attachment was scrubbed... Name: Xavier_Pennec.vcf Type: text/x-vcard Size: 166 bytes Desc: not available URL: <http://mailman.speleo.sk/pipermail/therion/attachments/20081206/d9b7a67d/attachment.vcf>