root/trunk/jps2ps/pps/arcarrow.pps

Revision 4, 2.5 kB (checked in by jms, 8 months ago)

Chargement de jps2ps dans le SVN.

Line 
1 %% OBSOLETE
2 %% TO DESTROY
3 %% /arcsep 1 def
4 %%
5 %% %% syntaxe : x0 y0 r ang1 ang2 echelle larcarrow --> trace un arc de cercle avec fleche
6 %% /larcarrow {
7 %% 4 dict begin
8 %%    /echelle exch def
9 %%    /ang2 exch def
10 %%    /ang1 exch def
11 %%    /r exch def
12 %%    gsave
13 %%       r ang2 cos mul
14 %%       r ang2 sin mul
15 %%       addv
16 %%       stranslate
17 %%       90 ang2 add rotate
18 %%       echelle dup scale
19 %%       arrow
20 %%    grestore
21 %% end
22 %% } def
23 %%
24 %% /rarcarrow {
25 %% 4 dict begin
26 %%    /echelle exch def
27 %%    /ang2 exch def
28 %%    /ang1 exch def
29 %%    /r exch def
30 %%    gsave
31 %%       r ang1 cos mul
32 %%       r ang1 sin mul
33 %%       addv
34 %%       stranslate
35 %%       -90 ang1 add rotate
36 %%       echelle dup scale
37 %%       arrow
38 %%    grestore
39 %% end
40 %% } def
41 %%
42 %% %% syntaxe : x0 y0 r ang1 ang2 (<-) arcarrow  --> trace un arc de cercle avec fleche
43 %% /arcarrow {
44 %% 6 dict begin
45 %%    /option exch def
46 %%    /ang2 exch def
47 %%    /ang1 exch def
48 %%    /r exch def
49 %%    /y0 exch def
50 %%    /x0 exch def
51 %%    option (-) eq
52 %%       {
53 %%          x0 y0 r ang1 ang2 tracearc
54 %%       }
55 %%    if
56 %%    option (<-) eq
57 %%       {
58 %%          x0 y0 r ang1 ang2 tracearc
59 %%          x0 y0 r ang1 ang2 .4 larcarrow
60 %%       }
61 %%    if
62 %%    option (->) eq
63 %%       {
64 %%          x0 y0 r ang1 ang2 tracearc
65 %%          x0 y0 r ang1 ang2 .4 rarcarrow
66 %%       }
67 %%    if
68 %%    option (<->) eq
69 %%       {
70 %%          x0 y0 r ang1 ang2 tracearc
71 %%          x0 y0 r ang1 ang2 .4 rarcarrow
72 %%          x0 y0 r ang1 ang2 .4 larcarrow
73 %%       }
74 %%    if
75 %%    option (=) eq
76 %%       {
77 %%          1 dict begin
78 %%             /dr arcsep dup ptojpoint pop def
79 %%             x0 y0 r dr add ang1 ang2 tracearc
80 %%             x0 y0 r dr sub ang1 ang2 tracearc
81 %%          end
82 %%       }
83 %%    if
84 %%    option (<=>) eq
85 %%       {
86 %%          2 dict begin
87 %%             /dr arcsep dup ptojpoint pop def
88 %%             /dt 4 def
89 %%             x0 y0 r dr add ang1 dt add ang2 dt sub tracearc
90 %%             x0 y0 r dr 2 div sub ang1 dt add ang2 dt sub tracearc
91 %%             x0 y0 r ang1 ang2 .6 larcarrow
92 %%             x0 y0 r ang1 ang2 .6 rarcarrow
93 %%          end
94 %%       }
95 %%    if
96 %%    option (<=) eq
97 %%       {
98 %%          2 dict begin
99 %%             /dr arcsep dup ptojpoint pop def
100 %%             /dt 4 def
101 %%             x0 y0 r dr add ang1 ang2 dt sub tracearc
102 %%             x0 y0 r dr 2 div sub ang1 ang2 dt sub tracearc
103 %%             x0 y0 r ang1 ang2 .6 larcarrow
104 %%          end
105 %%       }
106 %%    if
107 %%    option (=>) eq
108 %%       {
109 %%          2 dict begin
110 %%             /dr arcsep dup ptojpoint pop def
111 %%             /dt 4 def
112 %%             x0 y0 r dr add ang1 dt add ang2 tracearc
113 %%             x0 y0 r dr 2 div sub ang1 dt add ang2 tracearc
114 %%             x0 y0 r ang1 ang2 .6 rarcarrow
115 %%          end
116 %%       }
117 %%    if
118 %% end
119 %% } def
120
Note: See TracBrowser for help on using the browser.