% 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)