* Bug 6155 fixed: param3d() & param3d1() pages merged & rewritten
[scilab.git] / scilab / modules / graphics / macros / %_param3d.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 param3d
15 // used when calling param3d without any parameter.
16
17 function [] = %_param3d()
18     t = (0:0.1:5*%pi)';
19     r = (max(t)-t)/10;
20     clf
21     param3d1(r.*sin(t), r.*cos(t), list(t/10, -10), 28, 61,"axis X@axis Y@axis Z",[4,4])
22     gce().mark_foreground = color("magenta")
23     gce().line_mode = "on";
24
25     gca().foreground = color("grey60");
26     gca().sub_ticks = [4 4 4];
27     xgrid(color("grey80"),[1 1 1],[8 8 8]);
28 endfunction