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)