[graphics] datatipGetStruct() datatipSetStruct() removal + cleaning
[scilab.git] / scilab / modules / graphics / demos / datatips / datatip2.sce
index f450c6d..d8aca25 100644 (file)
@@ -18,36 +18,28 @@ function datatip2
 
     title(_("datatips on 3D curves"),"fontsize",3);
 
-
-    r=1;
-    k=tan(%pi/27);
-    t=linspace(-40,40,1000);
-    x=r*cos(t)./cosh(k*t);
-    y=r*sin(t)./cosh(k*t);
-    z=r*tanh(k*t);
-    param3d(x,y,z);c=gce();c.thickness=2;C.foreground=color("blue")
-
-    ax=gca();ax.rotation_angles=[70 50];ax.axes_visible="off";
+    r = 1;
+    k = tan(%pi/27);
+    t = linspace(-40,40,1000);
+    x = r * cos(t) ./ cosh(k*t);
+    y = r * sin(t) ./ cosh(k*t);
+    z = r * tanh(k*t);
+    param3d(x,y,z);
+    c = gce();
+    c.thickness = 2;
+    c.foreground = color("blue")
+
+    ax = gca();
+    ax.rotation_angles = [70 50];
+    ax.axes_visible = "off";
     drawnow()
 
     c.display_function_data = t;
     datatipSetStyle(c,2,%f) //directional arrow no box
 
-    function s=mydisp(curve,pt,index),
-        ud=datatipGetStruct(curve);
-        if index<>[] then
-            t=ud.t(index);
-        else //interpolated
-            [d,ptp,i,c]=orthProj(curve.data,pt);
-            t=ud.t(i)+(ud.t(i+1)-ud.t(i))*c;
-        end
-        s=msprintf("%.2g", t);
-    endfunction
-
-    for k=[350 400 450 500 520  550 600]
+    for k = [350 400 450 500 520  550 600]
         dt=datatipCreate(c,k);
     end
-    //datatipSetDisplay(c,mydisp) // Change the default datatip label
 
     datatipManagerMode(fig,"on") //activate the interactive editor