code for figure

> AA:=[-4,-2]: BB:=[1,3]: OR:=[0,0]: A0:=[-4,0]:B0:=[1,0]:

> th1:=arctan(2.0): th2:=arctan(1/3.0):

> dotlines:=plot({[AA,A0],[BB,B0],[[0,-2],[0,3]]},
linestyle=3,color=black):

> L1:=labeledarrow(A0,OR,[.2,0,0],`x`,[0,.2],16,blue):
L2:=labeledarrow(B0,OR,[.2,0,0],`c - x`,[0,.2],16,blue):
L3:=labeledarrow(BB,OR,[.2,0,0],` `,[0,.2],16,blue):
L4:=labeledarrow(AA,OR,[.2,0,0],` `,[0,.2],16,blue):
Ar1:=circarrow(OR,[0,2.5],-th2,1.25,`theta2`,[1.5,0],12,
blue):
Ar2:=circarrow(OR,[0,-1.5],-th1,2,`theta1`,[1.1,0],12,blue)
txt:=plots[textplot]({[-3.8,-1,`a`],[1.2,1.5,`b`]},
font=[TIMES,BOLD,16]):

> plots[display]({txt,dotlines,L1,L2,L3,L4,Ar1,Ar2},
axes=none);