JimboBimbo

Mathematica solution, large tip

Oct 10th, 2012
42
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.07 KB | None | 0 0
  1. angle = 35; lst = {{0.6,
  2. 0}, {0.35, .05}, {-.1, .15}, {-.4, .375}, {-.15, .1}, {-.15, -.1}, \
  3. {-.4, -.375}, {-.1, -.15}, {.35, -.05}, {.6, 0}}; tlst =
  4. Function[x, {Extract[x, 1] + .6, Extract[x, 2]}] /@
  5. Function[x, RotationMatrix[angle*Pi/180].x] /@
  6. Function[x, {Extract[x, 1] - .6, Extract[x, 2]}] /@
  7. lst; WriteString["stdout", \
  8. "\\pgfarrowsdeclare{anglelatex'}{anglelatex'}\n{\n \\newdimen\\len\n \
  9. \\len=\\pgfgetarrowoptions{anglelatex'}\n \
  10. \\pgfarrowsleftextend{-0.4\\len}\n \\pgfarrowsrightextend{0.6\\len}\n\
  11. }\n{\n \\newdimen\\len\n \\len=\\pgfgetarrowoptions{anglelatex'}\n \
  12. \\pgfpathmoveto{\n \\pgfqpoint{",
  13. ToString[Extract[Extract[tlst, 1], 1]] "\\len}{",
  14. ToString[Extract[Extract[tlst, 1],
  15. 2]] "\\len}}\n \\pgfpathcurveto\n {\\pgfqpoint{",
  16. ToString[Extract[Extract[tlst, 2], 1]] "\\len}{",
  17. ToString[Extract[Extract[tlst, 2], 2]] "\\len}}\n {\\pgfqpoint{",
  18. ToString[Extract[Extract[tlst, 3], 1]] "\\len}{",
  19. ToString[Extract[Extract[tlst, 3], 2]] "\\len}}\n {\\pgfqpoint{",
  20. ToString[Extract[Extract[tlst, 4], 1]] "\\len}{",
  21. ToString[Extract[Extract[tlst, 4],
  22. 2]] "\\len}}\n \\pgfpathcurveto\n {\\pgfqpoint{",
  23. ToString[Extract[Extract[tlst, 5], 1]] "\\len}{",
  24. ToString[Extract[Extract[tlst, 5], 2]] "\\len}}\n {\\pgfqpoint{",
  25. ToString[Extract[Extract[tlst, 6], 1]] "\\len}{",
  26. ToString[Extract[Extract[tlst, 6], 2]] "\\len}}\n {\\pgfqpoint{",
  27. ToString[Extract[Extract[tlst, 7], 1]] "\\len}{",
  28. ToString[Extract[Extract[tlst, 7],
  29. 2]] "\\len}}\n \\pgfpathcurveto\n {\\pgfqpoint{",
  30. ToString[Extract[Extract[tlst, 8], 1]] "\\len}{",
  31. ToString[Extract[Extract[tlst, 8], 2]] "\\len}}\n {\\pgfqpoint{",
  32. ToString[Extract[Extract[tlst, 9], 1]] "\\len}{",
  33. ToString[Extract[Extract[tlst, 9], 2]] "\\len}}\n {\\pgfqpoint{",
  34. ToString[Extract[Extract[tlst, 10], 1]] "\\len}{",
  35. ToString[Extract[Extract[tlst, 10],
  36. 2]] "\\len}}\n \\pgfusepathqfill\n}
  37. \\pgfsetarrowoptions{anglelatex'}{8pt}\n\
  38. \\pgfkeys{/tiplen/.default=8pt, \
  39. /tiplen/.code={\\pgfsetarrowoptions{anglelatex'}{#1}}}"]
Add Comment
Please, Sign In to add comment