home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Graphics / PostScript / Pencil / ExampleDocuments / FunnyText.pencil (.txt) < prev    next >
Encoding:
NeXT TypedStream Data  |  1995-06-12  |  1.8 KB  |  50 lines
  1. streamtyped
  2. % trf takes x and y coords and
  3. % transforms them
  4. % this will be used by pathforall
  5. % to transform all coords of the
  6. % charpath (see below)
  7. % you can use the pathforall
  8. % given below for other
  9. % paths as well
  10. /trf { /y exch def /x exch def 
  11. x y y 150 sub x 200 sub 2 exp .0002 mul mul add } def
  12. /curvedTXT {
  13.     nctrl 1 ge {
  14.     ctrl 0 get ctrl 1 get moveto
  15.     font findfont fontsize scalefont setfont
  16.     text false charpath
  17. /anf true def
  18. { anf { /anf false def newpath } if trf moveto } { trf lineto } { /y3 exch def /x3 exch def /y2 exch def /x2 exch def /y1 exch def /x1 exch def
  19. x1 y1 trf
  20. x2 y2 trf
  21. x3 y3 trf curveto } { closepath } pathforall
  22.     } if
  23.     /font (Helvetica) def
  24.     /fontsize 24 def
  25.     /text () def
  26. } def
  27. /curvedTXTcontrol { gencontrol } def
  28. PencilGraphic
  29. Object
  30. *****ffffffffffffcccci
  31.     curvedTXT
  32. drawFS
  33. stroke
  34. ;/text (Move me!) def /fontsize 32 def /font (Helvetica) def
  35. PencilText
  36. {\rtf0\ansi{\fonttbl\f0\fswiss Helvetica;}
  37. \margl40
  38. \margr40
  39. \pard\tx520\tx1060\tx1600\tx2120\tx2660\tx3200\tx3720\tx4260\tx4800\tx5320\f0\b\i\ulnone\fs24\fc0\cf0 Select the text "Move me" \
  40. and move it by dragging\
  41. its controlpoint!
  42. {\rtf0\ansi{\fonttbl\f0\fswiss Helvetica;}
  43. \margl40
  44. \margr40
  45. \pard\tx520\tx1060\tx1600\tx2120\tx2660\tx3200\tx3720\tx4260\tx4800\tx5320\f0\b0\i0\ulnone\fs18\fc0\cf0 (Select Document>Custom PS...\
  46. to have a look at the PostScript code)
  47. draw3DShadow
  48. verlaufHOR
  49. =/text (pathforall) def /fontsize 32 def /font (Helvetica) def
  50.