Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
%
2 
% Version 3.3.2 drawing procedures for dpost. Automatically pulled in when
3 
% needed.
4 
%
5 
 
6 
/inpath false def
7 
/savematrix matrix def
8 
 
9 
/Dl {
10 
	inpath
11 
		{neg lineto pop pop}
12 
		{newpath neg moveto neg lineto stroke}
13 
	ifelse
14 
} bind def
15 
 
16 
/De {
17 
	/y1 exch 2 div def
18 
	/x1 exch 2 div def
19 
	/savematrix savematrix currentmatrix def
20 
	neg exch x1 add exch translate
21 
	x1 y1 scale
22 
 
23 
	inpath
24 
		{1 0 moveto arc savematrix setmatrix}
25 
		{newpath arc savematrix setmatrix stroke}
26 
	ifelse
27 
} bind def
28 
 
29 
/Da {
30 
	/dy2 exch def
31 
	/dx2 exch def
32 
	/dy1 exch def
33 
	/dx1 exch def
34 
	dy1 add neg exch dx1 add exch
35 
	dx1 dx1 mul dy1 dy1 mul add sqrt
36 
	dy1 dx1 neg atan
37 
	dy2 neg dx2 atan
38 
	inpath
39 
		{arc}
40 
		{newpath arc stroke}
41 
	ifelse
42 
} bind def
43 
 
44 
/DA {
45 
	/dy2 exch def
46 
	/dx2 exch def
47 
	/dy1 exch def
48 
	/dx1 exch def
49 
	dy1 add neg exch dx1 add exch
50 
	dx1 dx1 mul dy1 dy1 mul add sqrt
51 
	dy1 dx1 neg atan
52 
	dy2 neg dx2 atan
53 
	inpath
54 
		{arcn}
55 
		{newpath arcn stroke}
56 
	ifelse
57 
} bind def
58 
 
59 
/Ds {
60 
	/y2 exch def
61 
	/x2 exch def
62 
	/y1 exch def
63 
	/x1 exch def
64 
	/y0 exch def
65 
	/x0 exch def
66 
	x0 5 x1 mul add 6 div
67 
	y0 5 y1 mul add -6 div
68 
	x2 5 x1 mul add 6 div
69 
	y2 5 y1 mul add -6 div
70 
	x1 x2 add 2 div
71 
	y1 y2 add -2 div
72 
	inpath
73 
		{curveto}
74 
		{newpath x0 x1 add 2 div y0 y1 add -2 div moveto curveto stroke}
75 
	ifelse
76 
} bind def