Remove["Global`*"]; Remove["r2r2tools`*"];

<< R2R2tools.m

<< LiveGraphics3D.m

w[x_, y_]  =  
        ComplexExpand[{Re[Sin[x + I y]], Im[Sin[x + I y]], x, 
            y}];

gr4d = 
        genNet4D[
          w[x, y], {x, -5, 5, 1/5}, {y, -2, 2, 1/5}];

gr3d = genLiveGr3D[gr4d, sphercontrols, 5, 5];

Show[gr3d /. {f -> 2.5, t1 -> 1.5, t2 -> 1.6}, 
        PlotRange -> All];

WriteLiveForm["sin.grf", gr3d]