> C1:=plot([4*cos(t),4*sin(t),t=0..2*Pi],thickness=3,
color=blue)
C2:=plot([ cos(t),
sin(t)-4,t=0..2*Pi],thickness=3,color=blue):
A1:=labeledarrow([1.5,-6],[0,-5],[.2,2,3],
`Position at t=0`,[-2,1],14,red):
circ1:=circarrow([0,0], [4.3,0], Pi/3, 2,
`Motion of Wheel`,[-1/2,-1/2],16,green):
circ2:=circarrow([0,-4], [0,-5.8], -Pi/3, 4,
`Motion of Chair`,[ 2, 1],14,green):

> plots[display]([C1,C2,A1,circ1,circ2],
xtickmarks=[],ytickmarks=[],scaling=constrained);