File: bezier.dem

package info (click to toggle)
scilab 2.6-4
  • links: PTS
  • area: non-free
  • in suites: woody
  • size: 54,632 kB
  • ctags: 40,267
  • sloc: ansic: 267,851; fortran: 166,549; sh: 10,005; makefile: 4,119; tcl: 1,070; cpp: 233; csh: 143; asm: 135; perl: 130; java: 39
file content (29 lines) | stat: -rw-r--r-- 820 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
mode(-1)
// Copyright INRIA
getf('SCI/demos/surface/Macros.sci');
getf('SCI/demos/surface/bezier.sci','n');
oldln=lines()
lines(0)
deff('[]=demoex(num)',['select num,';
     'case 1 then xdemo1()';
     'case 2 then xdemo2()';
     'case 3 then xdemo3()';
     'case 4 then xdemo4()';'end']);

demolist=[
'Gammatest','xbasc();showinstr(gammatest);gammatest();';
'2D curve Bezier test','xbasc();showinstr(beziertest);beziertest();';
'3D curve Bezier test','xbasc();showinstr(bezier3dtest);bezier3dtest();';
'Bezier surface test','xbasc();showinstr(beziersurftest);beziersurftest();'
'Bezier surface test 2','xbasc();showinstr(c1test);c1test();']

while %t then
  num=x_choose(demolist(:,1),'Bezier demos (From Euler)');
  if num==0 then 
     lines(oldln(1))
     return
  else
     execstr(demolist(num,2));
  end,
end