% name of textfile: P16 Clipping in a Curvetrace

% To place a simple pattern inside a portion of curvetraced
% art draw your path then clip it. Note the path and the clip ALWAYS come before the pattern.
 
% =========

% This file requires the previous download of gonzo.psl
% available from https://www.tinaja.com/pssamp1.shtml

% Make sure the following line agrees with your own gonzo.psl location

(C:/Users/don/Desktop/gonzo/gonzo.psl) run  % use internal gonzo

% ==========


gonzo begin
gutility begin
printerror
nuisance begin

20 20 10 setgrid  50 50 showgrid

/hatching {gsave
0.1 setlinewidth
%blackwing outline
[34.4 25.8 -150    %a
22 25 150          %b
17.75 32 90        %c
22.1 42.6 45
22.1 42.6 15       %d
30 43.9 0          %e
36.6 43.4 -15
36.6 43.4 -45      %f
34.4 25.8 -150     %a
] closepath curvetrace clip

% the actual pattern area
/vhatching {34.4 25.8 mt 0 18 rl stroke} def
[{0 0 mt vhatching} 0.8 7] xrpt
/hhatching{34.35 26.8 mt 6 -0.3 rl stroke} def
[{0 0 mt hhatching} 0.8 24] yrpt
grestore} def

hatching

showpage 

% eof