* Bug 6155 fixed: param3d() & param3d1() pages merged & rewritten
[scilab.git] / scilab / modules / graphics / macros / %_param3d1.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2018 - Samuel GOUGEON
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
14 // This is the demonstration script of param3d1
15 // used when calling param3d1 without any parameter.
16
17 function [] = %_param3d1()
18     [X, Y] = ndgrid(-11:0.5:9);
19     R = sqrt(X.*X + Y.*Y) + %eps;
20     Z = sin(R)./R;
21     
22     clf
23     drawlater
24     subplot(1,3,1)
25     param3d1(X, Y, Z, 150, 85, flag=[2,4])
26     
27     subplot(1,3,2)
28     param3d1(X, Y, Z, 150, 85, flag=[2,4])
29     gce().children.foreground = color("green");
30     
31     subplot(1,3,3)
32     param3d1(X, Y, Z, 150, 85, flag=[2,4])
33     curves = gce().children;
34     curves(1:2:$).foreground = color("orange");
35     gca().box = "back_half";
36     
37     gcf().children.foreground = color("grey70"); // box & ticks color for the 3 figures
38     gcf().children.sub_ticks = [4 4 4];
39     gcf().axes_size = [1000 370];
40     drawnow
41 endfunction