Re: [Therion] Help with a flowstone symbol for ASF.

25 Feb 2007

      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@speleo.sk
http://www.speleo.sk/mailman/listinfo/therion
-- 

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