maybe you should use thdraw only for the final picture, and draw/fill for the components. marco ________________________________ From: Jackson <jackson@fund-ev.de> To: therion@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@speleo.sk http://mailman.speleo.sk/mailman/listinfo/therion