Path: utzoo!attcan!uunet!cs.utexas.edu!rutgers!psuvax1!psuvm!cunyvm!uupsi!sunic!liuida!andwi
From: andwi@majestix.ida.liu.se (Andreas Wickberg)
Newsgroups: comp.lang.postscript
Subject: Re: path to calligraphy penstroke
Message-ID: <1896@majestix.ida.liu.se>
Date: 2 Jun 90 10:58:52 GMT
References: <12041@june.cs.washington.edu> <1990May30.020154.7416@athena.mit.edu> <.644234162@dutepp1>
Organization: CIS Dept, Univ of Linkoping, Sweden
Lines: 46


Whould this do the job?

%!  penstroke routine

/mx matrix def

/D {bind def} bind def

/penwidth {
	/pw exch def
} D

/penangle {
	/pa exch def
} D

/penstroke {
	mx currentmatrix pa rotate pw 0.01 scale stroke setmatrix
} D

% Here is some sample usage:
/inch { 72 mul } def

10 penwidth 30 penangle

1 inch 2 inch translate

0 0 moveto 0 1 inch lineto
.5 inch 0 lineto
.5 inch 1 inch lineto penstroke

1.5 inch 0 moveto
1.5 inch .5 inch .5 inch -90 270 arc
closepath penstroke

2 inch 0 moveto
2.6 inch 1 inch lineto
3.2 inch 0 lineto
closepath penstroke

1 inch 4 inch moveto
/Helvetica findfont 1 inch scalefont setfont
(TESTING) false charpath penstroke

showpage