Thanks for pointing it out. I am not sure whether thin pen in some wall subtypes was intentional or not -- perhaps it is better to make it consistent. BTW, there is a special page for submitting bugs and patches http://savannah.nongnu.org/projects/therion/ -- in the mailing list they might sometimes be overlooked or forgotten among all the mail. Martin 2008/12/6 Xavier Pennec <Xavier.Pennec@sophia.inria.fr>:
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
_______________________________________________ Therion mailing list Therion@speleo.sk http://mailman.speleo.sk/mailman/listinfo/therion