home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Graphics / PostScript / Pencil / ExampleDocuments / CustomPSExample.pencil (.txt) < prev    next >
Encoding:
NeXT TypedStream Data  |  1995-06-12  |  1.2 KB  |  34 lines
  1. streamtyped
  2. /drawP {
  3. cl pop pop pop setrgbcolor
  4. cp cst
  5. (Helvetica) findfont 8 scalefont setfont
  6. 0 1 nctrl 1 sub { /i exch 2 mul def
  7. /x ctrl i get def
  8. /y ctrl i 1 add get def
  9. 0 .4 1 setrgbcolor
  10. x 4 sub y 4 sub 8 8 rectfill
  11. .7 0 0 setrgbcolor
  12. x y moveto -2 7 rmoveto i 2 div cvi (     ) cvs show
  13. 1 setlinewidth
  14. 0 1 1 setrgbcolor
  15. x 4 sub y 4 sub moveto 0 8 rlineto 8 0 rlineto stroke
  16. 0 setgray
  17. x 4 sub y 4 sub moveto 8 0 rlineto 0 8 rlineto stroke
  18. x 5 sub y 5 sub 10 10 rectstroke
  19. } for
  20. } def
  21. /drawPBB { fbb -5 -5 5 15 enlbb } def
  22. /drawPSel { /linw 8 def gstsel } def
  23. PencilGraphic
  24. Object
  25. *****ffffffffffffcccci
  26. drawF
  27. stroke
  28. verlaufHORDOUBFV
  29. polygonO
  30. drawS
  31. dashed
  32. [26f]
  33. drawP
  34.