Article View: comp.lang.postscript
Article #2261Re: path to calligraphy penstroke
From: Andreas Wickberg
Date: Sat, 02 Jun 1990 10:58
Date: Sat, 02 Jun 1990 10:58
46 lines
1178 bytes
1178 bytes
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
Technical Details
Message-ID:
<1896@majestix.ida.liu.se>Path:
arc1-ca.pugleaf.net!utzoo!attcan!uunet!cs.utexas.edu!rutgers!psuvax1!psuvm!cunyvm!uupsi!sunic!liuida!andwiReferences:
<12041@june.cs.washington.edu> <1990May30.020154.7416@athena.mit.edu> <.644234162@dutepp1>Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!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