[Therion] Help with a flowstone symbol for ASF.

[Mike Lake]

Hi 

Earlier I was wrote that I was tring to get a flowstone symbol. I have
one working but it's not quite what I want and its not under the correct
name. Its under clay instead of flowstone. 
I have this in thconfig and I based it on the a_clay_SKBB code:

layout mypage
    symbol-set ASF

    code metapost
    def a_clay_ASF (expr p) =
    T:=identity;
    pickup PenC;
    path q, qq; q = bbox p;
    picture tmp_pic; 
    tmp_pic := image(
      for i = xpart llcorner q step 0.7u until xpart urcorner q:
        for j = ypart llcorner q step 0.3u until ypart urcorner q:
          qq := ((-.25u,0){dir -70} .. (0.25u,0){dir 70}) shifted ((i,j) );
          thdraw qq;
        endfor;  
      endfor;
    );
    clip tmp_pic to p;
    draw tmp_pic;
    enddef;
    initsymbol("a_clay_ASF");

    endcode

In my cave map th2 I have:
area clay
  l13-304--54
  l9-319--65
  l14-306--77
  l10-296--65
endarea


If I replace all instances of the word clay with flowstone in thconfig 
.th2 file so I have def a_flowstone_ASF (expr p) and 
 initsymbol("a_flowstone_ASF"); and in .th2 file "area flowstone"

Get the error: therion: error -- maps/rectangle.th2 [68] -- unknown area type --
                flowstone_ASF


Oi Sun 25 Feb 2007, Mike Lake wrote:
> Hi all
> 
> I am trying to do a flowstone symbol for the ASF.
> In thconfig I have this:
> 
> layout mypage
>   scale 1 200
>   base-scale 1 100
>   symbol-set ASF
>   
>   code metapost
> 
>     beginpattern(pattern_flowstone_ASF);
>       pickup PenC;
>       draw (-.5u,.5u){dir -70} .. {dir 70}(.5u,.5u);
>       patternxstep(1.0u);
>       patternystep(0.5u);
>     endpattern;
>     
>     def a_flowstone_ASF (expr Path) =
>     T:=identity;
>     thclean Path;
>     thfill Path withpattern
>     pattern_flowstone_ASF; 
>     enddef;
>   
>   endcode
>   symbol-assign area flowstone ASF
> 
> endlayout
> 
> Im getting this errori when I run therion:
>   therion: error -- thconfig [76] -- thconfig [76] -- unknown symbol
>      specification -- area flowstone
> 
> 
> The pattern Im wanting is based on this 
>   draw (-.5u,.5u){dir -70} .. {dir 70}(.5u,.5u);
> which looks like this \__/
> 
> and what I would like to have is this:
> 
> \__/\__/\__/\__/\__/\__/\__/\__/
>   \__/\__/\__/\__/\__/\__/\__/\__/
> \__/\__/\__/\__/\__/\__/\__/\__/
>   \__/\__/\__/\__/\__/\__/\__/\__/
> 
> I see in the thArea.mp that some patterns are done using the mpattern
> package and use a beginpattern (e.g. pattern_water_UIS) while others seem to just use a for loop 
> (e.g. a_sand_UIS) and dont use the mpattern package.
> Should one use the mpattern macro over more complex mpost code if its
> suitable?
> 
> 
> Mike
> 
> -- 
> Mike Lake
> Caver, Linux enthusiast and interested in anything technical.
> _______________________________________________
> Therion mailing list
> Therion at speleo.sk
> http://www.speleo.sk/mailman/listinfo/therion

-- 


-- 
Mike Lake
Caver, Linux enthusiast and interested in anything technical.