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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
// <-- Non-regression test for bug 1682 -->
//
// <-- Bugzilla URL -->
// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=1682
//
// <-- Short Description -->
// Scilab 4.0 RC1 under Windows XP
// The field Figure.rotation_style="multiple" does not work correctly.
//
// The rotation of the axes of the first system by the change of the field
// Axes.rotation_angles does not force the rotation of the second one.
//
// When making a manual rotation, it works.
//
// Jacques-Deric
// Copyright INRIA
// Scilab Project - Jean-Baptiste Silvy
// Copyright INRIA 2006
// Date : 11 janvier 2006
// Program Spas42151A
// Designed for Scilab 3.1 & 4.0
// Copyright Jacques-Deric Rouault, CNRS, INRIA
disp ("4.21.51A");
hf = scf (1);
hf.figure_name = "4.21.51A";
hf.background = 32;
hf.rotation_style = "multiple";
subplot (1, 2, 1);
xfrect (0, 1, 1, 1);
hr1 = gce ();
hr1.background = 2;
hr1.fill_mode = "on";
ha1 = hr1.parent; // get the axes
subplot (1, 2, 2);
xfrect (0, 1, 1, 1);
hr2 = gce ();
hr2.background = 3;
hr2.fill_mode = "on";
ha2=hr2.parent; // get the axes
newAngles = [60,200] ;
ha1.rotation_angles = newAngles ;
// check if both axes are turned
if ( (ha1.rotation_angles == newAngles) & (ha2.rotation_angles == newAngles) ) then
affich_result(%T,1682);
else
affich_result(%F,1682);
end
|