home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilsm / moledraw / !MoleDraw / prolog < prev    next >
Encoding:
Text File  |  1994-02-19  |  912 b   |  28 lines
  1. %%BeginResource: procset MoleDrawDict 1.0 0
  2. %%Title: MoleDraw Postscript Dictionary
  3. %%Version: 1.0 0
  4. %%CreationDate: 19/2/94
  5. %%Copyright: (c) Simon Kilvington, 1994
  6. userdict /MoleDrawDict 14 dict dup begin put
  7. /initialise { MoleDrawDict begin } def
  8. /drawinit {                    % set up styles
  9.     0 setlinecap        % butt
  10.     0 setlinejoin        % mitre
  11.     10 setmiterlimit
  12.     newpath
  13. } def
  14. /m { moveto } bind def                % general shortcuts
  15. /l { lineto } bind def
  16. /c { curveto } bind def
  17. /s { stroke } bind def
  18. /f { fill } bind def
  19. /fg { setrgbcolor } bind def
  20. /ls { 0 setdash setlinewidth } bind def        % line style: width [dash spc]
  21. /b { moveto lineto stroke } bind def        % bond: x1 y1 x2 y2
  22. /rf { findfont def } bind def            % reference font: /ref /font
  23. /sf { scalefont setfont } bind def        % select font: ref size
  24. /t { moveto show } bind def            % text: text x y
  25. /terminate { currentdict MoleDrawDict eq { end } if } def
  26. currentdict end
  27. %%EndResource
  28.