[Therion] Metapost point blocks problems

[Jackson]

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] 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 
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.html>