home *** CD-ROM | disk | FTP | other *** search
/ AAHA! Denver 2007 - It's Different Here! / AAHA-Sci1.iso / pc / xtras / Libraries / DL6PDFL.dll / PSPROCSET / 20 < prev    next >
Text File  |  2004-12-17  |  2KB  |  67 lines
  1. %%BeginResource: procset spots 6.0 1
  2. %%Copyright: Copyright 1987-2001 Adobe Systems Incorporated. All Rights Reserved.
  3. %%Title: Predefined (named) spot functions for PDF
  4. 21 dict dup begin
  5. /CosineDot
  6. { 180 mul cos exch 180 mul cos add 2 div } bd
  7. /Cross
  8. { abs exch abs 2 copy gt { exch } if pop neg } bd
  9. /Diamond
  10. { abs exch abs 2 copy add .75 le
  11. { dup mul exch dup mul add 1 exch sub }
  12. { 2 copy add 1.23 le
  13. { .85 mul add 1 exch sub }
  14. { 1 sub dup mul exch 1 sub dup mul add 1 sub }
  15. ifelse }
  16. ifelse } bd
  17. /Double
  18. { exch 2 div exch 2 { 360 mul sin 2 div exch } repeat add } bd
  19. /DoubleDot
  20. { 2 { 360 mul sin 2 div exch } repeat add } bd
  21. /Ellipse
  22. { abs exch abs 2 copy 3 mul exch 4 mul add 3 sub dup 0 lt
  23. { pop dup mul exch .75 div dup mul add 4 div
  24. 1 exch sub }
  25. { dup 1 gt
  26. {pop 1 exch sub dup mul exch 1 exch sub
  27. .75 div dup mul add 4 div 1 sub }
  28. { .5 exch sub exch pop exch pop }
  29. ifelse }
  30. ifelse } bd
  31. /EllipseA
  32. { dup mul .9 mul exch dup mul add 1 exch sub } bd
  33. /EllipseB
  34. { dup 5 mul 8 div mul exch dup mul exch add sqrt 1 exch sub } bd
  35. /EllipseC
  36. { dup mul exch dup mul .9 mul add 1 exch sub } bd
  37. /InvertedDouble
  38. { exch 2 div exch 2 { 360 mul sin 2 div exch } repeat add neg } bd
  39. /InvertedDoubleDot
  40. { 2 { 360 mul sin 2 div exch } repeat add neg } bd
  41. /InvertedEllipseA
  42. { dup mul .9 mul exch dup mul add 1 sub } bd
  43. /InvertedEllipseC
  44. { dup mul exch dup mul .9 mul add 1 sub } bd
  45. /InvertedSimpleDot
  46. { dup mul exch dup mul add 1 sub } bd
  47. /Line
  48. { exch pop abs neg } bd
  49. /LineX
  50. { pop } bd
  51. /LineY
  52. { exch pop } bd
  53. /Rhomboid
  54. { abs exch abs 0.9 mul add 2 div } bd
  55. /Round
  56. { abs exch abs 2 copy add 1 le
  57. { dup mul exch dup mul add 1 exch sub }
  58. { 1 sub dup mul exch 1 sub dup mul add 1 sub }
  59. ifelse } bd
  60. /SimpleDot
  61. { dup mul exch dup mul add 1 exch sub } bd
  62. /Square
  63. { abs exch abs 2 copy lt { exch } if pop neg } bd
  64. end
  65. { /Function defineRes pop } forall
  66. %%EndResource
  67.