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