[Therion] Metapost point blocks problems

[Marco Corvi]

maybe you should use thdraw only for the final picture, and draw/fill for the
components.

marco


________________________________
 From: Jackson <jackson at fund-ev.de>
To: therion at speleo.sk 
Sent: Friday, February 15, 2013 6:53 PM
Subject: [Therion] Metapost point blocks problems
 
Hi all,

i have made a new definition for point blocks with metapost.
It only does what I want when the point is nearby the
center of the scrap/drawing. The further the point is away
from the center of the scrap the more random the stones are
set.
Whats wrong with the definition of my "point blocks" ?

--------------------------------
def p_blocks_FUND (expr pos,theta,sc,al)=
    U:=(.45u,.35u);
    T:=identity aligned al rotated theta scaled sc shifted pos;
    pickup PenC;
    picture pic, henge;
    path stone, edge;
    stone := ((-0.6u,-0.5u)--(-0.3u,-0.7u)--(0.3u,-0.3u)--(0.5u,0.5u)--(0u,0.7u)--(-0.2u,0.5u)--(-0.5u,0.3u)--cycle);
    edge := ((-0.5u,-0.4u)--(-0.3u,-0.55u)--(0.2u,-0.2u)--(0.3u,0.4u));
    pic := image(
      thfill stone withcolor 0.90;
      thdraw stone;
      pickup PenD;
      thdraw edge;
    );
    henge := image(
    for i=0 step 1 until 2 :
    thdraw pic
        rotated (uniformdeviate(360))
        scaled ((0.05u) randomized 0.1u)
        slanted 0.01u
        shifted ((0.01u,0.01u) randomized 0.5u);
    endfor;
    );
    thdraw henge;
enddef;
--------------------------------


Best regards
Christian (jackson)
_______________________________________________
Therion mailing list
Therion at speleo.sk
http://mailman.speleo.sk/mailman/listinfo/therion
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mailman.speleo.sk/pipermail/therion/attachments/20130215/42edab8e/attachment.htm>