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>