← Back to branch summary

~ubuntu-branches/ubuntu/karmic/scilab/karmic

« back to all changes in this revision

Viewing changes to demos/surface/bezier.dem

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2002-03-21 16:57:43 UTC
  • Revision ID: james.westby@ubuntu.com-20020321165743-e9mv12c1tb1plztg
Tags: upstream-2.6
Import upstream version 2.6

Show diffs side-by-side

added added

removed removed

Lines of Context:
demos/surface/bezier.dem
 
1
mode(-1)
 
2
// Copyright INRIA
 
3
getf('SCI/demos/surface/Macros.sci');
 
4
getf('SCI/demos/surface/bezier.sci','n');
 
5
oldln=lines()
 
6
lines(0)
 
7
deff('[]=demoex(num)',['select num,';
 
8
     'case 1 then xdemo1()';
 
9
     'case 2 then xdemo2()';
 
10
     'case 3 then xdemo3()';
 
11
     'case 4 then xdemo4()';'end']);
 
12
 
 
13
demolist=[
 
14
'Gammatest','xbasc();showinstr(gammatest);gammatest();';
 
15
'2D curve Bezier test','xbasc();showinstr(beziertest);beziertest();';
 
16
'3D curve Bezier test','xbasc();showinstr(bezier3dtest);bezier3dtest();';
 
17
'Bezier surface test','xbasc();showinstr(beziersurftest);beziersurftest();'
 
18
'Bezier surface test 2','xbasc();showinstr(c1test);c1test();']
 
19
 
 
20
while %t then
 
21
  num=x_choose(demolist(:,1),'Bezier demos (From Euler)');
 
22
  if num==0 then 
 
23
     lines(oldln(1))
 
24
     return
 
25
  else
 
26
     execstr(demolist(num,2));
 
27
  end,
 
28
end
 
29