File: pstexample.euk

package info (click to toggle)
eukleides 1.0.3-1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 488 kB
  • ctags: 287
  • sloc: ansic: 2,168; yacc: 881; lex: 540; makefile: 96; sh: 16
file content (38 lines) | stat: -rw-r--r-- 543 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
% An example of embedded PSTricks code
% Copyright (c) David Bremner 2002
frame(0,0,3.2,8)

i1=point(2.2,6)
i2=point(2.2,2)

c1=circle(i1,1)
c2=circle(i2,1)

draw(i1)
draw(i2)

draw(c1)
draw(c2)

p1=point(c1,150:)
p2=point(c1,210:)
q2=point(c2,120:)
q1=point(c2,230:)

draw(p1)
draw(p2)


draw(q1)
draw(q2)
draw("$p_1$",p1,90:)
draw("$p_2$",p2,20:)
draw("$q_1$",q1,20:)
draw("$q_2$",q2,90:)


\pswedge[fillstyle="solid",fillcolor="blue"](i1,radius(c2),20,60)

\pccurve[angle=angle(i1,p1,p2)/2+180]("->",p1,q1)
\pccurve[angle=180]("->",p2,q2)