SHOW:
|
|
- or go back to the newest paste.
| 1 | - | \pgfarrowsdeclare{anglelatex'}{anglelatex'}
|
| 1 | + | angle = 30 |
| 2 | - | {
|
| 2 | + | plst = [[0.6,0],[0.35,.05],[-.1,.15], [-.4,.375],[-.15,.1],[-.15,-.1],[-.4,-.375],[-.1,-.15],[.35,-.05],[.6,0]] |
| 3 | - | \newdimen\len |
| 3 | + | tipx = 0.6 |
| 4 | - | \len=\pgfgetarrowoptions{anglelatex'}
|
| 4 | + | nlst = [] |
| 5 | - | \pgfarrowsleftextend{-0.136122\len}
|
| 5 | + | for i in map(lambda x: [x[0]-tipx,x[1]],plst): |
| 6 | - | \pgfarrowsrightextend{0.6\len}
|
| 6 | + | nlst.append([i[0]*cos(angle*pi/180)-i[1]*cos(angle*pi/180),i[0]*sin(angle*pi/180)+i[1]*cos(angle*pi/180)]) |
| 7 | - | } |
| 7 | + | nlst = map(lambda x: [x[0]+tipx,x[1]],nlst) |
| 8 | - | {
|
| 8 | + | print "\\pgfarrowsdeclare{anglelatex\'}{anglelatex\'}\n{\n \\newdimen\\len\n \\len=\\pgfgetarrowoptions{anglelatex\'}\n \\pgfarrowsleftextend{%g\\len}\n \\pgfarrowsrightextend{0.6\\len}\n}\n{\n \\newdimen\\len\n \\len=\\pgfgetarrowoptions{anglelatex\'}\n \\pgfpathmoveto{\\pgfqpoint{%g\\len}{%g\\len}}\n \\pgfpathcurveto\n {\\pgfqpoint{%g\\len}{%g\\len}}\n {\\pgfqpoint{%g\\len}{%g\\len}}\n {\\pgfqpoint{%g\\len}{%g\\len}}\n \\pgfpathcurveto\n {\\pgfqpoint{%g\\len}{%g\\len}}\n {\\pgfqpoint{%g\\len}{%g\\len}}\n {\\pgfqpoint{%g\\len}{%g\\len}}\n \\pgfpathcurveto\n {\\pgfqpoint{%g\\len}{%g\\len}}\n {\\pgfqpoint{%g\\len}{%g\\len}}\n {\\pgfqpoint{%g\\len}{%g\\len}}\n \\pgfusepathqfill\n}\n\\pgfsetarrowoptions{anglelatex\'}{8pt}\n\\pgfkeys{/tiplen/.default=8pt, /tiplen/.code={\\pgfsetarrowoptions{anglelatex\'}{#1}}}"%(min(nlst[4][0],nlst[7][0]),nlst[0][0],nlst[0][1],nlst[1][0],nlst[1][1],nlst[2][0],nlst[2][1],nlst[3][0],nlst[3][1],nlst[4][0],nlst[4][1],nlst[5][0],nlst[5][1],nlst[6][0],nlst[6][1],nlst[7][0],nlst[7][1],nlst[8][0],nlst[8][1],nlst[9][0],nlst[9][1]) |
