Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- angle = 30
- plst = [[0.6,0],[0.35,.05],[-.1,.15], [-.4,.375],[-.15,.1],[-.15,-.1],[-.4,-.375],[-.1,-.15],[.35,-.05],[.6,0]]
- tipx = 0.6
- nlst = []
- for i in map(lambda x: [x[0]-tipx,x[1]],plst):
- 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)])
- nlst = map(lambda x: [x[0]+tipx,x[1]],nlst)
- 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])
Add Comment
Please, Sign In to add comment