* Bug 6973 fixed: missing stable demo figure
[scilab.git] / scilab / modules / graphics / demos / basic_functions / basic_functions_xarrows.dem.sce
1 //
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2014 Scilab Enterprises - Pierre-Aime Agnel
4 //
5 // This file is distributed under the same license as the Scilab package.
6
7 // = =========================================================================== =
8 // xarrows
9 // = =========================================================================== =
10
11 fp_old = funcprot();
12 w_old  = warning("query");
13 funcprot(0);
14 warning("off");
15
16 function demo_basic_function_xarrows()
17     f = scf(100001);
18     clf(f, "reset");
19     f.backgroundcolor = [1, 1, 1];
20     f.figure_name = "xarrows in 3D";
21
22     N = 100;
23     zi = linspace(-1, 2, N);
24     zf = zi;
25     theta = (zi - min(zi)) / (max(zi)-min(zi)) * 720;
26     xi = zeros(1, N);  xf = cosd(theta);
27     yi = zeros(1, N);  yf = sind(theta);
28
29     plot3d([-1 1 1 1], [-1 -1 -1 1], [-1 -1 2 2])
30     xarrows([xi; xf], [yi; yf], [zi; zf], 0.7, 32*rand(1, N))
31
32     demo_viewCode("basic_functions_xarrows.dem.sce")
33     f.visible = "on"
34 endfunction
35
36 demo_basic_function_xarrows();
37 clear demo_basic_function_xarrows;
38
39 funcprot(fp_old);
40 warning(w_old);
41 clear fp_old w_old;