with(plots): Cs := plot({[cos(t),1+sin(t),t=0..2*Pi], [Pi+cos(t),1+sin(t),t=0..2*Pi], [2*Pi+cos(t),1+sin(t),t=0..2*Pi]},color=red): Cyc := plot([t-sin(t),1-cos(t),t=0..3*Pi],color=black): a2 := plots[arrow](,shape=arrow, head_length=[0.075,relative],color=green): d2 := plots[arrow](,,difference,shape=arrow, head_length=[0.075,relative],color=blue): d1 := plots[arrow](<0,1>,<0,0>,difference,shape=arrow, head_length=[0.075,relative],color=blue): d3 := plots[arrow](<2*Pi,1>,<2*Pi,0>,difference,shape=arrow, head_length=[0.075,relative],color=blue): fig1 := {Cs,Cyc,a2,d1,d2,d3},scaling=CONSTRAINED: # display(fig1); X := t->t-sin(t): Y:= t->1-cos(t): Hl := t -> plottools[line]([X(t),Y(t)],[Pi,Y(t)],color=red): V1 := plottools[line]([Pi,0], [Pi,2], color=black, linestyle=3): arch := plot([X(t),Y(t),t=0..2*Pi],color=black): fig2 := {arch,V1,Hl(1.5),Hl(1.55)},scaling=CONSTRAINED: # display(fig2);