fix online help examples
[scilab.git] / scilab / modules / graphics / demos / fec / fec.ex1
1 //
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) INRIA
4 // Copyright (C) ENPC
5 //
6 // This file is distributed under the same license as the Scilab package.
7 //
8
9 mode(0)
10 path=get_absolute_file_path('fec.ex1');
11 getf(path+'fec_demo.sci');
12 xbasc();
13 xset("colormap",jetcolormap(128));
14 new_style = get("figure_style")=="new";
15
16 N=20;
17 n=1:N;
18 x=cos(n*2*%pi/N);
19 y=sin(n*2*%pi/N);
20 noeuds=N;
21 noeul=[(1:(N))',x',y',0*ones(N,1)];
22 noeul=[noeul;(N+1),0,0,0];
23 trianl=[];
24 for i=1:(N-1),trianl=[trianl;i,i,i+1,N+1,0];end
25 trianl=[trianl;N,N,1,N+1,0];
26 triang=N;
27 rect=[-1.2,-1.2,1.2,1.2];
28 if new_style then, drawlater(), end
29 fec(noeul(:,2),noeul(:,3),trianl,(1:N+1)',"030"," ",rect);
30 meshvisu(3,rect);
31 if new_style then, drawnow(), end
32 xselect();
33
34 mode(-1)