<html><body><div style="color:#000; background-color:#fff; font-family:bookman old style, new york, times, serif;font-size:10pt"><div><span>maybe you should use thdraw only for the final picture, and draw/fill for the</span></div><div style="color: rgb(0, 0, 0); font-size: 13px; font-family: 'bookman old style', 'new york', times, serif; background-color: transparent; font-style: normal; "><span>components.</span></div><div style="color: rgb(0, 0, 0); font-size: 13px; font-family: 'bookman old style', 'new york', times, serif; background-color: transparent; font-style: normal; "><span><br></span></div><div style="color: rgb(0, 0, 0); font-size: 13px; font-family: 'bookman old style', 'new york', times, serif; background-color: transparent; font-style: normal; "><span>marco</span></div><div><br></div> <div style="font-size: 10pt; font-family: 'bookman old style', 'new york', times, serif; "> <div style="font-size: 12pt; font-family: 'times new roman',
'new york', times, serif; "> <div dir="ltr"> <font size="2" face="Arial"> <hr size="1"> <b><span style="font-weight:bold;">From:</span></b> Jackson <jackson@fund-ev.de><br> <b><span style="font-weight: bold;">To:</span></b> therion@speleo.sk <br> <b><span style="font-weight: bold;">Sent:</span></b> Friday, February 15, 2013 6:53 PM<br> <b><span style="font-weight: bold;">Subject:</span></b> [Therion] Metapost point blocks problems<br> </font> </div> <br>
Hi all,<br><br>i have made a new definition for point blocks with metapost.<br>It only does what I want when the point is nearby the<br>center of the scrap/drawing. The further the point is away<br>from the center of the scrap the more random the stones are<br>set.<br>Whats wrong with the definition of my "point blocks" ?<br><br>--------------------------------<br>def p_blocks_FUND (expr pos,theta,sc,al)=<br> U:=(.45u,.35u);<br> T:=identity aligned al rotated theta scaled sc shifted pos;<br> pickup PenC;<br> picture pic, henge;<br> path stone, edge;<br> 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);<br> edge := ((-0.5u,-0.4u)--(-0.3u,-0.55u)--(0.2u,-0.2u)--(0.3u,0.4u));<br> pic := image(<br> thfill stone withcolor 0.90;<br> thdraw stone;<br>
pickup PenD;<br> thdraw edge;<br> );<br> henge := image(<br> for i=0 step 1 until 2 :<br> thdraw pic<br> rotated (uniformdeviate(360))<br> scaled ((0.05u) randomized 0.1u)<br> slanted 0.01u<br> shifted ((0.01u,0.01u) randomized 0.5u);<br> endfor;<br> );<br> thdraw henge;<br>enddef;<br>--------------------------------<br><br><br>Best regards<br>Christian (jackson)<br>_______________________________________________<br>Therion mailing list<br><a ymailto="mailto:Therion@speleo.sk" href="mailto:Therion@speleo.sk">Therion@speleo.sk</a><br>http://mailman.speleo.sk/mailman/listinfo/therion<br><br><br> </div> </div> </div></body></html>