code foe diagram

> aa:=[0,0]:dd:=[3,0]: ff:=[3,3]:
bb:=[2,3]: cc:=[2,0]: ee:=[3,1.5]:
basefigure:=plot({[[0,0],[3,0]],[[3,0],[3,3]],[[3,3],
[2,3]],[[2,3],[0,0]],[[0,0],[3,1.5]],[[3,1.5],[2,3]]},
thickness=3,scaling=constrained,axes=none):
dotline:=plot([bb,cc], linestyle=3, thickness=3):
circ1:=plot([1.5*cos(t),1.5*sin(t), t=0.. (.9*Pi/6)]):
circ1hd:=plot( [[1.5*cos(Pi/6.0*.9),1.5*sin(Pi/6.0*.9)],[1.5*cos(Pi/6.0*.9),
1.5*sin(Pi/6.0*.9)-.3]]):
circ2:=plot([cos(t),.9*sin(t), t = Pi/6 ..Pi/3]):
circ2hd:=plot( [[cos(Pi/3.0),.9*sin(Pi/3.0)],[cos(Pi/3.0),
.9*sin(Pi/3.0)-.2]]):
txt:=plots[textplot]({[1,.2,`alpha`],[1,.8,`beta`],
[-.1,-.1,`A`],[1,2,`1`],[2.6,2.7,`alpha`]},
font=[TIMES,BOLD,14]):
labls:=plots[textplot]({[2,-.1, `C`],[3,3+.2,`F`],[3,-.1,`D`],[3.1,1.5,`E`],[2,3.2,`B`] },font=[TIMES,BOLD,14]):
circ3:= plot([3+cos(t+Pi/2.),1.5+sin(t+Pi/2.),
t=0.. (.9*Pi/6)]):
circ3hd:=plot(
[[3+cos(Pi/6.0*.9+Pi/2),1.5+sin(Pi/6.0*.9+Pi/2)],
[3+cos(Pi/6.0*.9+Pi/2)+.2,1.5+sin(Pi/6.0*.9+Pi/2)]]):
plots[display]({circ3,circ3hd,dotline,labls,txt,circ2,
circ2hd,circ1,circ1hd,basefigure});