[Therion-cs] znacka pre skalny rad

[Martin Sluka]

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