Another solution is to leave "thclean qq" on its original position and change
clip tmp_pic to p; draw tmp_pic; to clip tmp_pic to p; drawoptions(); draw tmp_pic; at the end of the macro definition. This approach preserves filling the blocks with a background colour. I think all built-in symbols should be updated in this way. Martin On Mon, Nov 5, 2012 at 2:20 PM, Stacho Mudrak <lists at group-s.sk> wrote: > You just need to remove filling from symbol definition. > > In your layout, try to use for example this code: > > code metapost > def a_blocks (expr p) = > T:=identity; > pickup PenC; > path q, qq; q = bbox p; > picture tmp_pic; > uu := max(u, (xpart urcorner q - xpart llcorner q)/100, (ypart urcorner q > - ypart llcorner q)/100); > tmp_pic := image( > for i = xpart llcorner q step 2uu until xpart urcorner q: > for j = ypart llcorner q step 2uu until ypart urcorner q: > qq := punked > (((-.5uu,-.5uu)--(.5uu,-.5uu)--(.5uu,.5uu)--(-.5uu,.5uu)--cycle) > randomized (uu/2)) > rotated uniformdeviate(360) > shifted ((i,j) randomized 1.6uu); > if xpart (p intersectiontimes qq) < 0: > thdraw qq; > fi; > endfor; > endfor; > ); > clip tmp_pic to p; > draw tmp_pic; > enddef; > > This is modified a_blocks_SKBB definition with "thclean qq;" statement > removed. > > S. > > > On 4 November 2012 19:37, Bruce <bruce at tomo.co.nz> wrote: >> >> > How can I get use "area blocks" to behave like other sediments when I >> want colors (and no filling)? >> >> Torstein >> >> You will need to either choose a predefined 'area blocks' that does not >> have >> a solid fill from the standards available - currently AUT and SKBB are the >> only unique ones I think - and quite possibly they are both filled. >> >> Or you will need to modify the existing definitions. >> >> I have no time to check just now, but you might like to have a look at >> what >> I did here http://therion.speleo.sk/wiki/doku.php/examples (Sample dataset >> at the top of the page) and modify it a bit to see how it behaves with >> colour assignments. >> >> Bruce >> >> >> >> _______________________________________________ >> Therion mailing list >> Therion at speleo.sk >> http://mailman.speleo.sk/mailman/listinfo/therion > > > > _______________________________________________ > Therion mailing list > Therion at speleo.sk > http://mailman.speleo.sk/mailman/listinfo/therion >
