[graphics] datatipGetStruct() datatipSetStruct() removal + cleaning
[scilab.git] / scilab / modules / graphics / demos / datatips / datatip2.sce
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2011 - INRIA - Serge Steer <serge.steer@inria.fr>
3 //
4 // Copyright (C) 2012 - 2016 - Scilab Enterprises
5 //
6 // This file is hereby licensed under the terms of the GNU GPL v2.0,
7 // pursuant to article 5.3.4 of the CeCILL v.2.1.
8 // This file was originally licensed under the terms of the CeCILL v2.1,
9 // and continues to be available under such terms.
10 // For more information, see the COPYING file which you should have received
11 // along with this program.
12
13 function datatip2
14
15     my_handle = scf(100001);
16     clf(my_handle,"reset");
17     fig=gcf();
18
19     title(_("datatips on 3D curves"),"fontsize",3);
20
21     r = 1;
22     k = tan(%pi/27);
23     t = linspace(-40,40,1000);
24     x = r * cos(t) ./ cosh(k*t);
25     y = r * sin(t) ./ cosh(k*t);
26     z = r * tanh(k*t);
27     param3d(x,y,z);
28     c = gce();
29     c.thickness = 2;
30     c.foreground = color("blue")
31
32     ax = gca();
33     ax.rotation_angles = [70 50];
34     ax.axes_visible = "off";
35     drawnow()
36
37     c.display_function_data = t;
38     datatipSetStyle(c,2,%f) //directional arrow no box
39
40     for k = [350 400 450 500 520  550 600]
41         dt=datatipCreate(c,k);
42     end
43
44     datatipManagerMode(fig,"on") //activate the interactive editor
45
46     demo_viewCode("datatip2.sce");
47
48 endfunction
49
50 datatip2();
51 clear datatip2;