% name of textfile: Mimbres Lizard(BL/Synergetics Feb 02 v1.0)


% =========

% 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

% ==========


% Draws the Mimbres Lizard


gutility begin                     % turn on the gonzo utilities
nuisance begin                     % turn on the nuisance commands
printerror                         % turn on the printing error trapper  
gonzo begin                        % turn on the gonzo justification 

/showthegrid false def             % show the layout grid?
30 20 10 setgrid                   % get on a layout grid
showthegrid {56 75 showgrid} if    % and maybe look at it

/mimbreslizard1 {save /snapliz exch def

/lizardbody {save /snaplb exch def
%lizard outline
%head
0.1 setlinewidth
29 37 mt          
-2 5.8 rl         
-7 1 rl           
1.5 -6.8 rl       
5.5 -2.4 rl       
-3.5 -3.75 rl        

%front left leg
[0 0 135          
19.9 33.75 145      
19.3 33 -70       
22 28 -65         

%body
26 30.5 45       
27 31.25 3        
28.65 30 -70      
28.8 14 -125      
11.1 12.6 135     

%rear left leg
11.1 12.6 -5      
17.1 13.35 105       
15 18 108         
15 18 30          
18 20.2 60        
18 20.2 -160      
14 19 -160        
14 19 -90         
14 14.8 -92       

%tail
14 14.8 -175      
7.25 22 80        
11.5 28 10         
19 25 -60
20 16.4 -120      
20 16.4 45        
20 27.25 125      
12.5 31.75 180    
3.75 20 -95        
5.5 12 -55         

%rear right leg
5.5 12 -90         
5.9 6 -80          
5.9 6 125          
2.8 8.9 135        
1.75 9 -85         
2.35 3 -80         
2.35 3 85          
2.75 6.8 85        
2.75 6.8 -45       
6.75 2 -45         
7.4 2.5 90         
7.25 7 90          
8 8 -45            

%lower body
21 0.5 -5          
37.2 10 60         
35 34 135          

%right front leg
35 34 -25          
38.35 33.5 -15     
39 34 115           
35 41 120           
34.2 41 -105       
34 40 -80          
35.8 36 -70        
35.8 36 175        
29 37 170       
] curvetrace  fill 

0.2 setlinewidth
%toes rt frt
35 41.1 mt 0.65 2 rl stroke
35 41.1 mt -0.25 2.2 rl stroke
34.9 41.1 mt -1.1 2 rl stroke
34.1 40.9 mt -1.5 1.5 rl stroke
34 40.5 mt -1.8 0.65 rl stroke

%lft frt
20 33.74 mt -0.1 2 rl stroke
19.5 33.73 mt -0.25 2.2 rl stroke
19.5 33.73 mt -1.75 1.5 rl stroke
19.25 33.15 mt -2.2 1 rl stroke
19.25 33.15 mt -1.5 -0.5 rl stroke


%lft rr
14.2 18.9 mt 0.1 1.1 rl stroke
15 19.25 mt 0.15 1 rl stroke
16 19.65 mt 0 1 rl stroke
17 19.9 mt 0.2 1.1 rl stroke
17.8 20.2 mt 0.4 1.2 rl stroke

%rt rr
1.9 8 mt -1 -0.3 rl stroke
2 7 mt -1 -0.45 rl stroke
2 6 mt -1.1 -1 rl stroke
2.15 4.25 mt -1.15 -1.5 rl stroke
2.3 3.3 mt  -1 -1.35 rl stroke

snaplb restore} def

/lizardin {save /snaplin exch def 
0.1 setlinewidth
%interior triangles


gsave white
%1
32 32.2 mt
33.6 34.75 lineto
34.5 26 lineto
28.5 32.2 lineto
closepath fill

%2
35.2 22.8 mt
38 24.7 lineto
35.1 14 lineto
32 24 lineto
closepath fill

%3
32 11 mt
36 10.65 lineto
24 4 lineto
30.7 14.25 lineto
closepath fill

%4
20.5 5 mt
22.8 1.65 lineto
12.2 7.2 lineto
24.85 8 lineto
closepath fill

%5
11.2 8.8 mt
11 6.65 lineto
8.2 11.9 lineto
13.25 9.25 lineto
closepath fill
black grestore


0.3 setlinewidth
%1 in
32.5 31.2 mt
33.25 33 lineto
34 27.25 lineto
30.6 31.15 lineto
closepath fill

%2 in
35.35 21.8 mt
37 23.1 lineto
35.1 16.2 lineto
33.5 22.4 lineto
closepath stroke

%3 in
31 10 mt
33.6 9.8 lineto
26.7 6.4 lineto
30.3 12.4 lineto
closepath stroke

%4 in
19 5.4 mt
20.5 3.5 lineto
14.2 6.75 lineto
20.8 7 lineto
closepath stroke

%5 in
10.85 9.25 mt
10.65 8.25 lineto
9.25 10.9 lineto
12.1 9.4 lineto
closepath stroke

%tail lines
gsave white
1.1 setlinewidth
5 12 mt 6 5 rl stroke
3 16 mt 6 2.5 rl stroke
3 22 mt 5 0 rl stroke
5 27 mt 4 -2.2 rl stroke
7.75 31 mt 3 -4 rl stroke

1 setlinewidth
13 33 mt -0.7 -6 rl stroke
15 27 mt 2 4.75 rl stroke
17.5 26 mt 2 4 rl stroke
19 24 mt 2.5 3 rl stroke
19.5 21.9 mt 3.5 1 rl stroke   


black grestore


%tail outline
0.5 setlinewidth
[14 14.8 -175       %10a
7.25 22 80         %11
11.5 28 10          %12
19 25 -60
20 16.4 -120       %13
20 16.4 45         %13a
20 27.25 125       %14
12.5 31.75 180     %15
3.75 20 -95        %16
5.5 12 -55         %17
] curvetrace stroke

5.5 12 mt 0.5 -0.5 rl stroke

0.2 setlinewidth
5.5 14 mt 1.5 -2 rl stroke
6 14.8 mt 2 -2.2 rl stroke
6.9 15.25 mt 2 -2.2 rl stroke
7.8 16 mt 1.35 -2 rl stroke
8.6 16.5 mt 1.4 -2 rl stroke

4.75 17.8 mt 0.5 -2.2 rl stroke
5.6 18 mt 0.6 -2 rl stroke
6.35 18.75 mt 0.8 -2 rl stroke

5.1 23 mt 2 d
6.1 23 mt 2 d

6 25.1 mt 1.1 2 rl stroke
6.9 24.35 mt 1.1 2.65 rl stroke

8 28.4 mt 2 1.5 rl stroke
8.8 27.8 mt 1.5 1.2 rl stroke

11 29.5 mt 3 r
11 30.75 mt 3 r

15 30.25 mt 2 -1.15 rl stroke
15 29 mt 2 -1 rl stroke

17 28.9 mt 2 -2 rl stroke

19.5 26 mt 1 -1.6 rl stroke 

% eyes
gsave white
0.1 setlinewidth
23.5 38.5 1 0 360 arc fill
25.4 41 1 0 360 arc fill
black grestore

23.5 38.5 0.3 0 360 arc fill
25.4 41 0.3 0 360 arc fill

snaplin restore} def


lizardbody
lizardin 
snapliz restore} def


gsave
10 10 translate 
mimbreslizard1
grestore


showpage  


% eof