[Therion] New symbols

[Xavier Pennec]

here are a few ideas for other new symbols.

I am extensively using a few additional symbols while drawing 
projections: dashed contours for contours thare are on the back-side of 
the projection, dashed areas for the connection of two galleries or for 
a void / gallery orthogonal to the projection.

I am also using an additional line symbol (which should be actually 
clipped off automatically) for the direction of fractures visible on the 
walls, and I am often missing a point symbol "dip" for the inclination  
of the strata

Xavier




## To draw contours which are on the back-side of the projection
   def l_u_backcontour (expr Path) =
     T:=identity;
     pickup PenD;
     draw Path dashed evenly scaled (0.25 * optical_zoom);
   enddef;

## Area of connection of two galleries, orthogonal to the projection and 
on the front-size
def a_u_connection(expr Path) =
   #% density
   numeric  dx; dx := 0.25u;
   T:=identity;
   path q; q := bbox Path;
   numeric lq; lq :=   xpart urcorner q - xpart llcorner q;
   numeric hq; hq :=   ypart urcorner q - ypart llcorner q;
   numeric dq;  dq :=  lq+hq;
   picture tmp_pic;
   tmp_pic := image(
     for i = xpart llcorner q - hq step dx until  xpart urcorner q:
       numeric j; j := ypart llcorner q;
       thdraw (i,j)--(i+hq,j+hq) withpen pensquare scaled (0.01u);
     endfor;
   );
   clip tmp_pic to Path;
   clip tmp_pic to Path shifted (-dq/40,-dq/40);
   draw tmp_pic;
enddef;
# initsymbol("a_u_connection");


## same for connections on the back-side of the projection
def a_u_backconnection(expr Path) =
   #% density
   numeric  dx; dx := 0.25u;
   T:=identity;
   path q; q := bbox Path;
   numeric lq; lq :=   xpart urcorner q - xpart llcorner q;
   numeric hq; hq :=   ypart urcorner q - ypart llcorner q;
   numeric dq;  dq :=  lq+hq;
   picture tmp_pic;
   tmp_pic := image(
     for i = xpart llcorner q - hq step dx until  xpart urcorner q:
       numeric j; j := ypart llcorner q;
       draw (i,j)--(i+hq,j+hq) dashed evenly scaled (0.5 * optical_zoom) ;
     endfor;
   );
   clip tmp_pic to Path;
   clip tmp_pic to Path shifted (-dq/40,-dq/40);
   draw tmp_pic;
enddef;
   endcode



   def l_u_fracture (expr P) =
     T:=identity;
     cas := 0;
     dlzka := arclength P;
     mojkrok:=adjust_step(dlzka, 0.8u);
     pickup PenC;
     k := 90;
     forever:
       t1 := arctime (cas + mojkrok*1/5) of P;
       t  := arctime (cas + mojkrok/2) of P;
       t2 := arctime (cas + mojkrok*4/5) of P;
       thdraw (subpath (t1,t2) of P);
       mark_alt (P,t,0.2u, k);
       cas := cas + mojkrok;
       k := (k + 180) mod 360;
       exitif cas > dlzka - (2*mojkrok/3); % for rounding errors
     endfor;
   enddef;
   initsymbol("l_fracture_XAV");



Le 11/11/2011 20:48, Stacho Mudrak a écrit :
> Hello everybody,
>
> after drawing a complex map of one show cave, I would like to add new 
> standard symbols to therion. These should include:
>
> line edge - should be used to draw other then rock edges, e.g. wall 
> structures in elevation. There is already rock-border -- rock-edge 
> pair, there is general border symbol but no general edge symbol.
>
> line rope - already discussed here, just line point option anchor 
> on|off should work also
>
> line handrail - this symbol already exists in some cave symbol sets. A 
> line with dots in plan, in elevation some standard 1m tall handrail 
> would be drawn.
>
> point handrail - used to draw handrail in cross-sections
>
> line steps - should be used in both, plan / elevation projections. In 
> plan, this line would surround steps area and steps would be drawn 
> parallel to the first line segment. In elevation, 20cm steps would be 
> drawn.
>
> line path - used to draw concrete or other path in caves, where it was 
> built. If it will be closed curve, it will be filled with "area path". 
> See below.
>
> area path - fill for path areas. It would be automatically applied for 
> closed line steps/path in plan projection.
>
> Also should be added:
> line rope-ladder
> line fixed-ladder
> line via-ferrata
> point via-ferrata
>
> Do these symbols make sense? Any comments? Any other symbols, that 
> should exist in the standard therion library?
>
> Thanks a lot for the feedback, S.
>
>
> _______________________________________________
> Therion mailing list
> Therion at speleo.sk
> http://mailman.speleo.sk/mailman/listinfo/therion

-- 
>  -------------------------
>  Xavier Pennec
>  Senior Research Scientist / Directeur de recherche
>  Asclepios project-team, INRIA Sophia-Antipolis
>  2004 Route des Lucioles, BP93
>  F-06902 Sophia-Antipolis Cedex, France
>  +33 4 92 38 76 64
>  +33 6 78 35 16 90
>  http://www-sop.inria.fr/asclepios/
>  -------------------------------

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mailman.speleo.sk/pipermail/therion/attachments/20111114/4bfe7b86/attachment.html>