summaryrefslogtreecommitdiff
path: root/info/drawing-with-metapost/src/torn-edge.mp
blob: 5d0afface042781689316c30647e54f2bc98ae4e (plain)
1
2
3
4
5
6
7
vardef signr suffix $ = 
   if $<0: - else: + fi uniformdeviate 1 
   enddef;
vardef walkr suffix $ = 
   $ := $ if uniformdeviate 1 < (2**-abs($)): + else: - fi signr $; 
   $ 
   enddef;