graphics: bug 9270 fixed - The contour function was broken.
[scilab.git] / scilab / modules / graphics / tests / unit_tests / contour.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2011 - DIGITEO - Michael Baudin
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- TEST WITH GRAPHIC -->
9
10 //
11 // Test #1
12 h = scf();
13 contour2d(1:10,1:10,rand(10,10),5,rect=[0,0,11,11]);
14 // changing the format of the printing of the levels
15 xset("fpf","%.2f")
16 clf()
17 contour2d(1:10,1:10,rand(10,10),5,rect=[0,0,11,11])
18 close(h);
19 //
20 // Test #2
21 // now an example with level numbers drawn in a legend
22 // Caution there are a number of tricks...
23 x = linspace(0,4*%pi,80);
24 z = cos(x')*cos(x);
25 h = scf();
26 f=gcf();
27 xset("fpf"," ")  // trick 1: this implies that the level numbers are not
28                  //          drawn on the level curves
29 f.color_map=jetcolormap(7);
30 // trick 2: to be able to put the legend on the right without
31 //          interfering with the level curves use rect with a xmax
32 //          value large enough 
33 contour2d(x,x,z,-0.75:0.25:0.75,frameflag=3,rect=[0,0,5*%pi,4*%pi]);
34 // trick 3: use legends (note that the more practical legend function
35 //          will not work as soon as one of the level is formed by 2 curves)  
36 legends(string(-0.75:0.25:0.75),1:7,"lr");
37 xtitle("Some level curves of the function cos(x)cos(y)");
38 close(h);