Graphics macros & demos: replace gcf with scf
[scilab.git] / scilab / modules / graphics / macros / fgrayplot.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) INRIA
3 // This file must be used under the terms of the CeCILL.
4 // This source file is licensed as described in the file COPYING, which
5 // you should have received as part of this distribution.  The terms
6 // are also available at
7 // http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
8
9 function []=fgrayplot(x,y,f,strf,rect,nax,void)
10     //[]=fgrayplot(x,y,f)
11     // Trace en niveau de gris une surface
12     // z=f(x,y) d\'efinie par un external f ( ex macro [y]=f(x))
13     // on calcule d'abord f sur la grille definie par x.y
14     // x et y sont des vecteurs implicites donnant les
15     // abscisses et les ordonn\'ees des points de la grille
16     // le niveau de gris choisi sur chaque maillage depend de la valeur
17     //    moyenne de z dans le maillage.
18     // Exemple : taper fgrayplot() pour voir un exemple .
19     //    deff('[z]=Surf(x,y)','z=x**2+y**2');
20     //    fgrayplot(-1:0.1:1,-1:0.1:1,Surf);
21     //!
22
23     [lhs,rhs]=argn(0);
24
25     if rhs <= 0 then   // demo
26         f = scf(100001);
27         my_plot_desc  = "fgrayplot";
28         f.figure_name = my_plot_desc;
29         xtitle(my_plot_desc," "," "," ");
30         f.color_map = coolcolormap(100);
31         deff("[z]=Surf(x,y)","z=cos(x).^2+sin(y).^2");
32         fgrayplot(-%pi:0.1:%pi,-%pi:0.1:%pi, Surf);
33         return
34     end
35
36
37     if rhs<3,
38         error(msprintf(gettext("%s: Wrong number of input argument(s): At least %d expected.\n"), "fgrayplot", 3));
39     end
40
41
42     opts=[]
43     if exists("style","local")==1 then opts=[opts,"style=style"],end
44     if exists("strf","local")==1 then opts=[opts,"strf=strf"],end
45     if exists("rect","local")==1 then opts=[opts,"rect=rect"],end
46     if exists("nax","local")==1 then opts=[opts,"nax=nax"],end
47     if exists("frameflag","local")==1 then opts=[opts,"frameflag=frameflag"],end
48     if exists("axesflag","local")==1 then opts=[opts,"axesflag=axesflag"],end
49
50     if type(f)==11 then comp(f),end;
51     execstr("grayplot(x,y,feval(x,y,f),"+strcat(opts,",")+")")
52 endfunction