<html><body style="font-family: 'Helvetica Neue',Helvetica,Arial,sans-serif; font-size: 12px;">Hi, <div><br /></div><div>I did an alternative ladder symbol like this for my own purposes, which I can post - tho not till Monday. It is a public Holiday and I am off for 4 days caving/surveying with no network connectivity. <br /><br /><blockquote><br />----- Original Message -----<br /><div style="width:100%;background:rgb(228,228,228);"><div style="font-weight:bold;">From:</div> "List for Therion users" <therion@speleo.sk></div><br /><div style="font-weight:bold;">To:</div>"List for Therion users" <therion@speleo.sk><br /><div style="font-weight:bold;">Cc:</div>"Benedikt Hallinger" <beni@hallinger.org><br /><div style="font-weight:bold;">Sent:</div>Wed, 25 Jan 2017 00:51:02 +0200<br /><div style="font-weight:bold;">Subject:</div>[Therion] Symbol for fixed ladder<br /><br /><br />
Hello,<br />
i get gray hair with metapost while i want to make a line symbol for <br />
ladders, so i can nicely draw them in my maps as the cave have alot of them.<br /><br />
The basic idea i had was, t define a symbol of one "rung" segment (rung and <br />
a little of either sides, like the letter "H") as a symbol picture. Then i <br />
wanted to apply this image seamlessly over the length of the given path <br />
(straight lines)<br />
What i have for now is the following, however it does not show at all (still <br />
shows a red line with symbol set AUT in effect), so i have no clue how to <br />
even debug this.<br /><br />
I tried to start with the example from thbook salted a little with peeks to <br />
the internal metapost codes.<br /><br />
Can someone assist please?<br /><br />
Thank you very much!<br /><br /><br />
# Symbol for fixed ladder<br />
def l_fixedladder_SKBB (expr P) =<br />
T:=identity;<br />
cas := 0;<br />
dlzka := arclength P;<br />
mojkrok:=adjust_step(dlzka, 1.0u);<br /><br />
pickup PenC;<br />
sideL := (-.20u,0)--(-.20u,0.20u);<br />
sideR := (.20u,0)--(.20u,0.20u);<br />
rung := (-.20u,0.10u)--(.20u,0.10u);<br /><br />
picture symbol,test_symbol;<br />
symbol:= image (<br />
thdraw sideL;<br />
thdraw sideR;<br />
thdraw rung;<br />
);<br /><br />
forever:<br />
t := arctime cas of P;<br />
thdraw symbol shifted (point t of P) withcolor black;<br />
cas := cas + mojkrok;<br />
exitif cas > dlzka + (mojkrok / 3); % for rounding errors<br />
endfor;<br /><br />
enddef;<br /><br />
_______________________________________________<br />
Therion mailing list<br />
Therion@speleo.sk<br />
https://mailman.speleo.sk/listinfo/therion<br /></blockquote></div></body></html>