home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 2 / FreeSoftwareCollection2pd199x-jp.img / fbasic / ps / ps.out < prev    next >
Encoding:
Text File  |  1990-06-14  |  959 b   |  67 lines
  1. /Times-BoldItalic findfont
  2. 15 scalefont
  3. setfont
  4. /inc { 1 index load add def } def
  5. /pletter { moveto show } def
  6. /mesh {
  7. setlinewidth
  8. /y ystart def
  9. ylength yinte div floor cvi 1 add
  10. {
  11. xstart y moveto
  12. xlength 0 rlineto
  13. /y yinte inc
  14. } repeat
  15. /x xstart def
  16. xlength xinte div floor cvi 1 add
  17. {
  18. x ystart moveto
  19. 0 ylength rlineto
  20. /x xinte inc
  21. } repeat
  22. stroke
  23. } def
  24. /axis {
  25. setlinewidth
  26. xstart 0 moveto
  27. xlength 0 rlineto
  28. 0 ystart moveto
  29. 0 ylength rlineto
  30. stroke
  31. } def
  32. /unitscale {
  33. /yscale exch yinte mul def
  34. /xscale exch xinte mul def
  35. } def
  36. /scalexy {
  37. /xx x xscale mul def
  38. /yy y yscale mul def
  39. } def
  40. /check {
  41. xx xstart ge
  42. xx xstart xlength add le
  43. and
  44. yy ystart ge
  45. yy ystart ylength add le
  46. and and
  47. } def
  48. /exe {
  49. {
  50. cx cy
  51. scalexy
  52. check
  53. { exit } if
  54. /t tinte inc
  55. } loop
  56. xx yy moveto
  57. tend tstart sub tinte div abs floor cvi
  58. {
  59. /t tinte inc
  60. cx cy
  61. scalexy
  62. check
  63. { xx yy lineto } if
  64. } repeat
  65. } def
  66. /e 2.71828 def
  67.