def l_u_hang_danko (expr P) = T:=identity; cas := 0; dlzka := arclength P; mojkrok:=adjust_step(dlzka, 0.3u); pickup PenC; t1:=0; forever: t := arctime (cas + mojkrok/2) of P; t2 := arctime (cas + mojkrok) of P; thfill (subpath (t1,t2) of P) -- ((point t of P) + .3u * unitvector(thdir(P,t) rotated 90)) -- cycle; cas := cas + mojkrok; exitif cas > dlzka - (2*mojkrok/3); % for rounding errors t1:=t2; endfor; thdraw P; enddef;
def l_u_hang_danko_legend = l_u_hang_danko(((.2,.2) -- (.8,.8)) inscale) enddef; text sk "line u:hang_danko" "skalný rad" No snÃ¡Ä to bude takto fungovaÅ¥ m. On 25.10.2011, at 13:04, Michal Danko wrote: > skoda, > na znacenie brala som pouzil overhang, teraz uz len by som > potreboval zmenit v legende vyraz previs na skalny rad. > > mozte mi niekto poslat metapost code do layoutu? > > v thbooku a wiki som nasiel par prikladov ale moc mudry z toho niesom > > S pozdravom > > Ing. Michal Danko > > > > > > 2011/10/25 martinsluka <martinsluka na mac.com> > To asi zatiaľ nie > > m. > > > On 25 Oct, 2011,at 11:33 AM, Michal Danko <michal.danko na gmail.com> > wrote: > >> ano na povrchu, medzi dvoma jaskynami... >> >> S pozdravom >> >> Ing Michal Danko >> >> >> >> >> >> >> 2011/10/25 Martin Sluka <martinsluka na mac.com> >> >> On 25.10.2011, at 10:26, Michal Danko wrote: >> >> snazim sa najst ciaru pre skalny rad / bralo >> >> Na povrchu? >> >> m. >> _______________________________________________ >> Therion-cs mailing list >> Therion-cs na speleo.sk >> http://mailman.speleo.sk/mailman/listinfo/therion-cs >> >> _______________________________________________ >> Therion-cs mailing list >> Therion-cs na speleo.sk >> http://mailman.speleo.sk/mailman/listinfo/therion-cs > > _______________________________________________ > Therion-cs mailing list > Therion-cs na speleo.sk > http://mailman.speleo.sk/mailman/listinfo/therion-cs > > > _______________________________________________ > Therion-cs mailing list > Therion-cs na speleo.sk > http://mailman.speleo.sk/mailman/listinfo/therion-cs