\( \DeclareMathOperator{\abs}{abs} \newcommand{\ensuremath}[1]{\mbox{$#1$}} \)
(%i1) load(draw)$
(%i2) F(x, y) := sin(%pi*x)*cos(%pi*y)$
(%i3) F_d(x, y) := -diff(F(x, y), x, 1)$
(%i4) explObj: explicit(F(x, y), x, -1, 1, y, -1, 1)$
(%i5) with_slider_draw3d(
   f, [30, 60, 90, 120, 150, 180, 210, 240, 270, 300, 330, 360],
   view = [60, f],
   color=blue,
   surface_hide=false,
   explObj,
   enhanced3d=[F_d(x, y)*0.4 + 0.5, x, y, z],
   colorbox=false,
   palette=gray,
   wired_surface=true,
   explObj
)$
\[\tag{\%{}t5}\label{t5} \] Animated Diagram
Created with wxMaxima.