[therion] scale / base-scale question

[Jenny Black]

Hello again,

Thanks for replying so quickly again.  I tried adding this to my layout
and I'm afraid it didn't make any difference, the water-flow arrow heads
are still all wiggly.  Do you have any other ideas?

Thanks agian,
Jenny

>>To fix the water-flow arrow bug, add following metapost code to your layout.
>>
>>  code metapost
>>  def p_waterflow_permanent (expr pos,theta,sc,al)=
>>     U:=(.15u,.5u);
>>     T:=identity aligned al rotated theta scaled sc shifted pos;
>>     pickup PenC;
>>     p:=(0,.5u){down}..(.12u,.3u)..(-.15u,.15u)..(.13u,0)..
>>         (-.08u,-.2u)..{down}(0,-.5u);
>>     p:=p rotated 180;
>>     thdraw p;
>>     oldahlength:=ahlength; ahlength:=2.5pt * optical_zoom;
>>     thdraw arrowhead p;
>>     thfill arrowhead p;
>>     ahlength:=oldahlength;
>>  enddef;