wxplot_size:[1024,768]$

with_slider(
   h,
   makelist(h,h,-2.0001,2,0.05),
   [sin(x),(sin(2+h)-sin(2))/h*(x-2)+sin(2)],[x,-0.7,5.2],[y,-2.2,2.2],[box,false],
   [axes,solid],[ytics,-2,1,2],[xtics,-1,1,5],[same_xy,true],[legend,"",""]
)$

with_slider_draw(
   h,
   makelist(h,h,-1.99999+0.1,1.1,0.05),
   xaxis=true,xaxis_type=solid,xtics_axis=true,ytics_axis=true,yaxis=true,yaxis_type=solid,proportional_axes=xy,
   axis_left=false,axis_top=false,axis_bottom=false,axis_right=false,yrange=[-2.2,2.2],font="Courier-Oblique",font_size=20,
   explicit(sin(x),x,-0.7,5.2),color=green,title=concat("h=",float(round(h*1000)/1000)),explicit((sin(2+h)-sin(2))/h*(x-2)+sin(2),x,-0.7,5.2),
   color=black,line_type=dots,parametric(2,t,t,0,sin(2)),parametric(2+h,t,t,0,sin(2+h))
)$