arc.pps

Revision 4, 1.4 kB (checked in by jms, 8 months ago)
Chargement de jps2ps dans le SVN.

Line
1	%% syntaxe : I A B arcp_ --> ajoute le chemin correspondant a l'arc de
2	%% cercle de centre I entre les points A et B. le rayon du cercle est
3	%% IA. Le trace est fait en tournant dans le sens trigonometrique
4	/arcp_ {
5	3 dict begin
6	/B defpoint
7	/A defpoint
8	/I defpoint
9	I A angle
10	I B angle
11	2 copy
12	ge {360 add} if
13	I
14	I A distance
15	Cercle_
16	end
17	} def
18
19	%% syntaxe : I A B arcp --> trace l'arc de cercle de centre I entre
20	%% les points A et B. le rayon du cercle est IA. Le trace est fait en
21	%% tournant dans le sens trigonometrique
22	/arcp {
23	3 dict begin
24	/B defpoint
25	/A defpoint
26	/I defpoint
27	gsave
28	newpath
29	A
30	smoveto
31	I A B arcp_
32	stroke
33	grestore
34	end
35	} def
36
37	%% syntaxe : I A B arcnp_ --> ajoute le chemin correspondant a l'arc
38	%% de cercle de centre I entre les points A et B. le rayon du cercle est
39	%% IA. Le trace est fait en tournant dans le sens inverse du sens
40	%% trigonometrique
41	/arcnp_ {
42	3 dict begin
43	/B defpoint
44	/A defpoint
45	/I defpoint
46	I A angle
47	I B angle
48	2 copy
49	le {360 sub} if
50	I
51	I A distance
52	Cercle_
53	end
54	} def
55
56	%% syntaxe : I A B arcnp --> trace l'arc de cercle de centre I entre
57	%% les points A et B. le rayon du cercle est IA. Le trace est fait en
58	%% tournant dans le sens inverse du sens trigonometrique
59	/arcnp {
60	3 dict begin
61	/B defpoint
62	/A defpoint
63	/I defpoint
64	gsave
65	newpath
66	A smoveto
67	I A B arcnp_
68	stroke
69	grestore
70	end
71	} def
72

Note: See TracBrowser for help on using the browser.