xset() obsolete: reduce its footprint in TESTS 06/18406/8
Samuel GOUGEON [Wed, 3 Aug 2016 20:05:52 +0000 (22:05 +0200)]
  http://bugzilla.scilab.org/5278
  All *.tst and *.dia.ref with "xset[^e]" have been visited
  171 references were in 43 files
  Now: 19 references remaining in 7 files ("fpf", "dashes", "pattern")
  Will be processed in other commits.

  xget() footprint will be adressed after merging this commit.

Change-Id: I260a77f9b2e3c02797a0cb78a353b0d395da914d

28 files changed:
scilab/modules/graphic_export/tests/nonreg_tests/bug_1248.dia.ref
scilab/modules/graphic_export/tests/nonreg_tests/bug_1248.tst
scilab/modules/graphics/tests/nonreg_tests/bug_10395.dia.ref [deleted file]
scilab/modules/graphics/tests/nonreg_tests/bug_10395.tst [deleted file]
scilab/modules/graphics/tests/nonreg_tests/bug_12769.dia.ref [deleted file]
scilab/modules/graphics/tests/nonreg_tests/bug_12769.tst [deleted file]
scilab/modules/graphics/tests/nonreg_tests/bug_1409.tst
scilab/modules/graphics/tests/nonreg_tests/bug_1479.dia.ref [deleted file]
scilab/modules/graphics/tests/nonreg_tests/bug_1479.tst [deleted file]
scilab/modules/graphics/tests/nonreg_tests/bug_1689.dia.ref [deleted file]
scilab/modules/graphics/tests/nonreg_tests/bug_1689.tst [deleted file]
scilab/modules/graphics/tests/nonreg_tests/bug_1981.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_1981.tst
scilab/modules/graphics/tests/nonreg_tests/bug_2171.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_2171.tst
scilab/modules/graphics/tests/nonreg_tests/bug_367.tst
scilab/modules/graphics/tests/nonreg_tests/bug_407.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_407.tst
scilab/modules/graphics/tests/nonreg_tests/bug_612.tst
scilab/modules/graphics/tests/nonreg_tests/bug_711.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_711.tst
scilab/modules/graphics/tests/unit_tests/sdf.tst
scilab/modules/graphics/tests/unit_tests/xset_xget.dia.ref
scilab/modules/graphics/tests/unit_tests/xset_xget.tst
scilab/modules/scicos/tests/unit_tests/sciblk2.dia.ref
scilab/modules/scicos/tests/unit_tests/sciblk2.tst
scilab/modules/umfpack/tests/unit_tests/taucs_chget.dia.ref
scilab/modules/umfpack/tests/unit_tests/taucs_chget.tst

index b8c0970..d3c85d2 100644 (file)
@@ -14,7 +14,7 @@
 // Postcript export export displayed text even if it is ouside the viewing area.
 x=1:.5:100;
 y=2:200;
-xset("window",0);
+scf(0);
 clf();
 // l,r,t,b
 xsetech(arect=[.01,.01,.01,.01]);
diff --git a/scilab/modules/graphics/tests/nonreg_tests/bug_10395.dia.ref b/scilab/modules/graphics/tests/nonreg_tests/bug_10395.dia.ref
deleted file mode 100644 (file)
index 5dea36d..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2012 - DIGITEO - Antoine ELIAS
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//
-// <-- TEST WITH GRAPHIC -->
-//
-// <-- Non-regression test for bug 10395 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=10395
-//
-// <-- Short Description -->
-//xset("clipping", [1, 2, 3, 4]) must be like xset("clipping", 1, 2, 3, 4)
-ref1 = [1,2,3,4];
-xset("clipping", ref1);
-val1 = xget("clipping");
-assert_checkequal(val1, ref1);
-ref2 = [1,2,3,4];
-xset("clipping", ref2(1), ref2(2), ref2(3), ref2(4));
-val2 = xget("clipping");
-assert_checkequal(val2, ref2);
diff --git a/scilab/modules/graphics/tests/nonreg_tests/bug_10395.tst b/scilab/modules/graphics/tests/nonreg_tests/bug_10395.tst
deleted file mode 100644 (file)
index 32a9b27..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2012 - DIGITEO - Antoine ELIAS
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//
-// <-- TEST WITH GRAPHIC -->
-//
-// <-- Non-regression test for bug 10395 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=10395
-//
-// <-- Short Description -->
-//xset("clipping", [1, 2, 3, 4]) must be like xset("clipping", 1, 2, 3, 4)
-
-ref1 = [1,2,3,4];
-xset("clipping", ref1);
-val1 = xget("clipping");
-assert_checkequal(val1, ref1);
-
-ref2 = [1,2,3,4];
-xset("clipping", ref2(1), ref2(2), ref2(3), ref2(4));
-val2 = xget("clipping");
-assert_checkequal(val2, ref2);
diff --git a/scilab/modules/graphics/tests/nonreg_tests/bug_12769.dia.ref b/scilab/modules/graphics/tests/nonreg_tests/bug_12769.dia.ref
deleted file mode 100644 (file)
index dc8300f..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Calixte DENIZET
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- TEST WITH GRAPHIC -->
-// <-- Non-regression test for bug 12769 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/12769
-//
-// <-- Short Description -->
-// xset("window", 1) did not set the current axes
-//
-xset("window", 1);
-plot2d("nn", 1);
-xset("window", 2);
-plot2d("ln", 1);
-xset("window", 1);
-a=gca();
-assert_checkequal(a.log_flags,"nnn");
-delete(gcf());
-delete(gcf());
diff --git a/scilab/modules/graphics/tests/nonreg_tests/bug_12769.tst b/scilab/modules/graphics/tests/nonreg_tests/bug_12769.tst
deleted file mode 100644 (file)
index 796ea48..0000000
+++ /dev/null
@@ -1,30 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2013 - Scilab Enterprises - Calixte DENIZET
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-
-// <-- TEST WITH GRAPHIC -->
-
-// <-- Non-regression test for bug 12769 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/12769
-//
-// <-- Short Description -->
-// xset("window", 1) did not set the current axes
-//
-
-xset("window", 1);
-plot2d("nn", 1);
-
-xset("window", 2);
-plot2d("ln", 1);
-
-xset("window", 1);
-a=gca();
-assert_checkequal(a.log_flags,"nnn");
-
-delete(gcf());
-delete(gcf());
\ No newline at end of file
index fce78ab..5d94132 100644 (file)
@@ -7,23 +7,21 @@
 
 // <-- INTERACTIVE TEST -->
 
-// <-- Non-regression test for bug 1342 -->
+// <-- Non-regression test for bug 1409 -->
 //
 // <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=1342
+// http://bugzilla.scilab.org/show_bug.cgi?id=1409
 //
 // <-- Short Description -->
 // Clipping does not work in 3D.
-// 
-
-lines(0);
+//
 
 M = 10;
 N = 10;
 //Define and Discretize Domain (ft)
-xmax=50;           
+xmax=50;
 xmin=-xmax;
-ymax=50;            
+ymax=50;
 ymin=-ymax;
 dx=(xmax-xmin)/N;
 dy=(ymax-ymin)/M;
@@ -31,18 +29,18 @@ x=xmin+(dx/2):dx:xmax-(dx/2);
 y=ymin+(dy/2):dy:ymax-(dy/2);
 [X,Y]=ndgrid(x,y);
 
-Z=zeros(M,N)
+Z=zeros(M,N);
 
 //Plot Topographic Result in 3D
 f0=scf(55);
-a=get("current_axes");//get the handle of the newly created axes
+a = gca(); //get the handle of the newly created axes
 a.data_bounds=[-10,10,-50,50,0,10]; //set the boundary values for the x, y and z coordinates.
-xset("line style", 4) //Make Contour Lines Dashed
-xset("fpf",string=" ")
+a.line_style = 4; //Make Contour Lines Dashed
 plot3d(x,y,Z,alpha=45,theta=45,flag=[5,3,4],ebox=[-10,10,-50,50,0,10]);
 
 // check that the surface is clipped within the axes box.
 
 // same with this:
 clf();
-t=-%pi:0.3:%pi;plot3d(t,t,sin(t)'*cos(t),75,45,'X@Y@Z',[2,1,4],ebox=[-2,2,-2,2,-1,1]);
+t = -%pi:0.3:%pi;
+plot3d(t,t,sin(t)'*cos(t),75,45,'X@Y@Z',[2,1,4],ebox=[-2,2,-2,2,-1,1]);
diff --git a/scilab/modules/graphics/tests/nonreg_tests/bug_1479.dia.ref b/scilab/modules/graphics/tests/nonreg_tests/bug_1479.dia.ref
deleted file mode 100644 (file)
index a8e5916..0000000
+++ /dev/null
@@ -1,40 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2008-2008 - INRIA - Jean-Baptiste Silvy
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- TEST WITH GRAPHIC -->
-// <-- Non-regression test for bug 1479 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=1479
-//
-// <-- Short Description -->
-// The procedure xset ("line mode") and the function xget ("line mode") do
-// not work correctly
-hf = scf ();
-ha = hf.children;
-ha.line_mode = "on";
-// should be on
-v = xget ("line mode"),
- v  =
-    1.  
-if (v <> 1) then bugmes();quit;end
-ha.line_mode = "off";
-// should be off
-v = xget ("line mode"),
- v  =
-    0.  
-if (v <> 0) then bugmes();quit;end;
-delete (hf);
-// second program
-hf = scf ();
-ha = hf.children;
-xset ("line mode", 1);
-if ( ha.line_mode <> "on") then bugmes();quit;end;
-xset ("line mode", 0);
-if (ha.line_mode <> "off") then bugmes();quit;end;
-delete (hf);
diff --git a/scilab/modules/graphics/tests/nonreg_tests/bug_1479.tst b/scilab/modules/graphics/tests/nonreg_tests/bug_1479.tst
deleted file mode 100644 (file)
index 1b2fec7..0000000
+++ /dev/null
@@ -1,44 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2008-2008 - INRIA - Jean-Baptiste Silvy
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-
-// <-- TEST WITH GRAPHIC -->
-
-// <-- Non-regression test for bug 1479 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=1479
-//
-// <-- Short Description -->
-// The procedure xset ("line mode") and the function xget ("line mode") do 
-// not work correctly
-
-hf = scf ();
-ha = hf.children;
-ha.line_mode = "on";
-
-// should be on
-v = xget ("line mode"),
-if (v <> 1) then pause; end
-
-ha.line_mode = "off";
-
-// should be off
-v = xget ("line mode"),
-if (v <> 0) then pause; end;
-delete (hf);
-
-// second program
-hf = scf ();
-ha = hf.children;
-xset ("line mode", 1);
-if ( ha.line_mode <> "on") then pause; end;
-xset ("line mode", 0);
-if (ha.line_mode <> "off") then pause; end;
-delete (hf);                  
-
-
-
diff --git a/scilab/modules/graphics/tests/nonreg_tests/bug_1689.dia.ref b/scilab/modules/graphics/tests/nonreg_tests/bug_1689.dia.ref
deleted file mode 100644 (file)
index a4af753..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2008-2008 - INRIA - Jean-Baptiste Silvy
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- TEST WITH GRAPHIC -->
-// <-- Non-regression test for bug 1689 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=1689
-//
-// <-- Short Description -->
-// Size of graphic window specify by user might no be correct depending
-// on plateform
-figureSize = [800, 600];
-// check that final figure size is the one specified
-hf = gcf();
-xset ("wpdim", figureSize(1), figureSize(2));
-if (hf.figure_size <> figureSize) then bugmes();quit;end;
-sleep(200);//Wait for MVC update
-figureSize = [640, 480];
-hf.figure_size = figureSize;
-if (hf.figure_size <> figureSize) then bugmes();quit;end;
diff --git a/scilab/modules/graphics/tests/nonreg_tests/bug_1689.tst b/scilab/modules/graphics/tests/nonreg_tests/bug_1689.tst
deleted file mode 100644 (file)
index ab5f0ac..0000000
+++ /dev/null
@@ -1,30 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2008-2008 - INRIA - Jean-Baptiste Silvy
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-
-// <-- TEST WITH GRAPHIC -->
-
-// <-- Non-regression test for bug 1689 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=1689
-//
-// <-- Short Description -->
-// Size of graphic window specify by user might no be correct depending
-// on plateform
-
-figureSize = [800, 600];
-
-// check that final figure size is the one specified
-hf = gcf();
-xset ("wpdim", figureSize(1), figureSize(2));
-if (hf.figure_size <> figureSize) then pause; end;
-
-sleep(200);//Wait for MVC update
-
-figureSize = [640, 480];
-hf.figure_size = figureSize;
-if (hf.figure_size <> figureSize) then pause; end;
index 9a45014..49160b1 100644 (file)
@@ -14,4 +14,6 @@
 // Print or export of an image that is created by Matplot does not
 // resemble the image shown on the screen.
 // check that the line is drawn plain
-clf();xset("thickness",1);plot2d(sin(5*(0:0.01:2*%pi)));
+clf();
+gca().thickness = 1;
+plot2d(sin(5*(0:0.01:2*%pi)));
index 65a5d88..e417e09 100644 (file)
@@ -17,5 +17,6 @@
 // resemble the image shown on the screen.
 
 // check that the line is drawn plain
-clf();xset("thickness",1);plot2d(sin(5*(0:0.01:2*%pi)));
-
+clf();
+gca().thickness = 1;
+plot2d(sin(5*(0:0.01:2*%pi)));
index 4dc176f..dc06f69 100644 (file)
@@ -12,7 +12,7 @@
 //
 // <-- Short Description -->
 // angled thickness 1 lines are transiently dash-dotted (X problem?)
-xset("colormap",graycolormap(256))
+gcf().color_map = graycolormap(256);
 load(SCI + "/modules/graphics/tests/nonreg_tests/bug_1981.dat");
 Matplot(Lenna,axesflag=0,frameflag=4);
 fig = gcf();
index fad78dc..a2ae99f 100644 (file)
@@ -15,7 +15,7 @@
 // <-- Short Description -->
 // angled thickness 1 lines are transiently dash-dotted (X problem?)
 
-xset("colormap",graycolormap(256))
+gcf().color_map = graycolormap(256);
 load(SCI + "/modules/graphics/tests/nonreg_tests/bug_1981.dat");
 Matplot(Lenna,axesflag=0,frameflag=4);
 
index ce26291..a2e823d 100644 (file)
@@ -46,7 +46,7 @@ for i=1:5:100
     if rep(3)~=-1 then 
           p=locate(2);
           v=round(p(1,:)); 
-          xset("window",2)
+          scf(2);
           xsetech([0,0,1,0.5]),
           plot(x(origen+v(1):origen+v(2)));
           xsetech([0,0.5,1,0.5]),
index e9c305a..f5448ac 100644 (file)
@@ -14,6 +14,6 @@
 // Polylines with thickness greater than 2 and with more than 1380
 // points are not displayed
 // should complain about strf (normally a strig of length 3).
-xset("thickness",2);
+gca().thickness = 2;
 // check if the curve is displayed
 plot(1:10000);
index 7dca3dc..0ba97e3 100644 (file)
@@ -17,7 +17,7 @@
 // points are not displayed
 
 // should complain about strf (normally a strig of length 3).
-xset("thickness",2);
+gca().thickness = 2;
 // check if the curve is displayed
 plot(1:10000);
 
index 0c4f69c..0e2632d 100644 (file)
 // http://bugzilla.scilab.org/show_bug.cgi?id=612
 //
 // <-- Short Description -->
-//    under unix the dimension of graphic window is limited to 
+//    under unix the dimension of graphic window is limited to
 //    2^16, if one set dimensions higher than this the effective
 //    dimension,  the value really assigned is modulo 2^16
 //
 //    The pb does not exist under windows
 
-xset("wresize",0);
-xset('wdim',2^16+3,5000);
+f = gcf();
+f.auto_resize = "off";
+f.figure_size = [2^16+3, 5000];
 
 if getos() <> 'Windows' then
-       resultLinux   = xget("wdim");
-       resultWindows = [ 65535.    5000.];
-       if or(resultLinux <> resultWindows) then pause,end
+    resultLinux   = f.figure_size;
+    resultWindows = [ 65539.    5000.];
+    assert_checkequal(resultLinux, resultWindows);
 end
index 809d5f7..349e4e7 100644 (file)
 // specify init position
 initPos = [100,100];
 pos = initPos;
+f = gcf();
 // window should not move
-for k=1:10,
-  xset('wpos', pos);
-  pos = xget('wpos');
-end
-if (pos <> initPos) then bugmes();quit;end;
-// also
-pos = initPos;
-f=gcf();
-for k=1:10,
-  f.figure_position=pos;
+for k = 1:10,
+  f.figure_position = pos;
   pos = f.figure_position;
 end
-if (pos <> initPos) then bugmes();quit;end;
+assert_checkequal(pos,initPos);
index 1e7cc4b..01b7ea0 100644 (file)
 // specify init position
 initPos = [100,100];
 pos = initPos;
+f = gcf();
 
 // window should not move
-for k=1:10,
-  xset('wpos', pos);
-  pos = xget('wpos');
-end
-if (pos <> initPos) then pause; end;
-
-// also
-pos = initPos;
-
-f=gcf();
-for k=1:10,
-  f.figure_position=pos;
+for k = 1:10,
+  f.figure_position = pos;
   pos = f.figure_position;
 end
-if (pos <> initPos) then pause; end;
-
-
-
-
+assert_checkequal(pos,initPos);
index a8bfb21..232e71a 100644 (file)
 
 // used to open window number 0
 // and crash scilab
-  
+
    x=[0:0.1:2*%pi]';
-   f=get("default_figure"); // get the handle of the model figure 
+   f=get("default_figure"); // get the handle of the model figure
      // setting its' properties
    f.background=4; // figure 0 was created here
-   for (i=1:6)
-     xset("window",i) // create a figure with the identifier i
+   for i = 1:6
+     scf(i); // create a figure with the identifier i
      plot2d(x,[sin(x) cos(x)],[i -i])
      xclick();
      if i == 4, sdf(); end // return to the  default values of the figure's model
     end
-    
-
-
-
index dfcdff9..6d00a55 100644 (file)
@@ -6,35 +6,12 @@
 // =============================================================================
 // <-- TEST WITH GRAPHIC -->
 // test xset and xget
-// colormap
-c_map = graycolormap(512);
-xset("colormap", c_map);
-out = xget("colormap");
-assert_checkequal(out, c_map);
-// mark size
-xset("mark size", 456);
-out = xget("mark size");
-assert_checkequal(out, 456);
-// mark
-xset("mark", 4, 5);
-out = xget("mark");
-assert_checkequal(out, [4 5]);
 // font
 out = xget("font");
 assert_checkequal(out, [6 1]);
-xset("font", 8, 2);
-out = xget("font");
-assert_checkequal(out, [8 2]);
-// line style
-xset("line style", 8);
-out = xget("line style");
-assert_checkequal(out, 8);
 // font size
 out = xget("font size");
-assert_checkequal(out, 2);
-xset("font size", 42);
-out = xget("font size");
-assert_checkequal(out, 42);
+assert_checkequal(out, 1);
 // fpf
 out = xget("fpf");
 assert_checkequal(out, "");
@@ -44,33 +21,21 @@ assert_checkequal(out, "%s.%s");
 // auto clear
 out = xget("auto clear");
 assert_checkequal(out, "off");
-xset("auto clear", "on")
-out = xget("auto clear");
-assert_checkequal(out, "on");
 // dashes
 out = xget("dashes");
-assert_checkequal(out, 8);
+assert_checkequal(out, 1);
 xset("dashes", 2);
 out = xget("dashes");
 assert_checkequal(out, 2);
 // hidden3d
 out = xget("hidden3d");
 assert_checkequal(out, 4);
-xset("hidden3d", 21);
-out = xget("hidden3d");
-assert_checkequal(out, 21);
 // window figure
 f = gcf();
 out = xget("window");
 assert_checkequal(out, f.figure_id);
 out = xget("figure");
 assert_checkequal(out, f.figure_id);
-// thickness
-out = xget("thickness");
-assert_checkequal(out, 1);
-xset("thickness", 5);
-out = xget("thickness");
-assert_checkequal(out, 5);
 // wdim wpdim
 out = xget("wdim");
 assert_checkequal(out, f.figure_size);
@@ -78,7 +43,7 @@ out = xget("wpdim");
 assert_checkequal(out, f.figure_size);
 // wpos
 out = xget("wpos");
-assert_checkequal(out, f.position([1, 2]));
+assert_checkequal(out, f.figure_position);
 // viewport
 out = xget("viewport");
 assert_checkequal(out, f.viewport);
@@ -94,13 +59,13 @@ out = xget("pattern");
 assert_checkequal(out, -1);
 // lastpattern
 out = xget("lastpattern");
-assert_checkequal(out, 512);
+assert_checkequal(out, 32);
 // line mode
 out = xget("line mode");
 assert_checkequal(out, 1);
 // white
 out = xget("white");
-assert_checkequal(out, 514);
+assert_checkequal(out, 34);
 // wresize
 out = xget("wresize");
 assert_checkequal(out, 1);
@@ -110,62 +75,12 @@ assert_checkequal(out, 0);
 // clipoff
 out = xget("clipoff");
 assert_checkequal(out, 1);
-// clipping => clip_box + clip_state
-xset("clipping", 1,2,3,4);
-out = xget("clipping");
-assert_checkequal(out, [1,2,3,4]);
 // XSET
-// wdim
-xset("wdim",1000,500)
-assert_checkequal(xget("wdim"), [1000,500]);
-xset("wdim",[1000,500]) // 500 is ignored here
-wdim=xget("wdim");
-assert_checkequal(wdim(1), 1000);
-ierr = execstr("xset(""colormap"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""mark size"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""mark"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""font size"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""line style"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""font size"");","errcatch");
-assert_checkequal(ierr, 77);
 ierr = execstr("xset(""fpf"");","errcatch");
 assert_checkequal(ierr, 77);
-ierr = execstr("xset(""auto clear"");","errcatch");
-assert_checkequal(ierr, 77);
 ierr = execstr("xset(""dashes"");","errcatch");
 assert_checkequal(ierr, 77);
-ierr = execstr("xset(""hidden3d"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""figure"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""window"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""thickness"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""wdim"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""wpdim"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""wpos"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""viewport"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""background"");","errcatch");
-assert_checkequal(ierr, 77);
 ierr = execstr("xset(""color"");","errcatch");
 assert_checkequal(ierr, 77);
-ierr = execstr("xset(""foreground"");","errcatch");
-assert_checkequal(ierr, 77);
 ierr = execstr("xset(""pattern"");","errcatch");
 assert_checkequal(ierr, 77);
-ierr = execstr("xset(""line mode"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""wresize"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""default"", ""test"");","errcatch");
-assert_checkequal(ierr, 77);
index d7c3127..47c83b3 100644 (file)
@@ -9,41 +9,13 @@
 
 // test xset and xget
 
-
-// colormap
-c_map = graycolormap(512);
-xset("colormap", c_map);
-out = xget("colormap");
-assert_checkequal(out, c_map);
-
-// mark size
-xset("mark size", 456);
-out = xget("mark size");
-assert_checkequal(out, 456);
-
-// mark
-xset("mark", 4, 5);
-out = xget("mark");
-assert_checkequal(out, [4 5]);
-
 // font
 out = xget("font");
 assert_checkequal(out, [6 1]);
-xset("font", 8, 2);
-out = xget("font");
-assert_checkequal(out, [8 2]);
-
-// line style
-xset("line style", 8);
-out = xget("line style");
-assert_checkequal(out, 8);
 
 // font size
 out = xget("font size");
-assert_checkequal(out, 2);
-xset("font size", 42);
-out = xget("font size");
-assert_checkequal(out, 42);
+assert_checkequal(out, 1);
 
 // fpf
 out = xget("fpf");
@@ -52,17 +24,13 @@ xset("fpf", "%s.%s");
 out = xget("fpf");
 assert_checkequal(out, "%s.%s");
 
-
 // auto clear
 out = xget("auto clear");
 assert_checkequal(out, "off");
-xset("auto clear", "on")
-out = xget("auto clear");
-assert_checkequal(out, "on");
 
 // dashes
 out = xget("dashes");
-assert_checkequal(out, 8);
+assert_checkequal(out, 1);
 xset("dashes", 2);
 out = xget("dashes");
 assert_checkequal(out, 2);
@@ -70,9 +38,6 @@ assert_checkequal(out, 2);
 // hidden3d
 out = xget("hidden3d");
 assert_checkequal(out, 4);
-xset("hidden3d", 21);
-out = xget("hidden3d");
-assert_checkequal(out, 21);
 
 // window figure
 f = gcf();
@@ -81,13 +46,6 @@ assert_checkequal(out, f.figure_id);
 out = xget("figure");
 assert_checkequal(out, f.figure_id);
 
-// thickness
-out = xget("thickness");
-assert_checkequal(out, 1);
-xset("thickness", 5);
-out = xget("thickness");
-assert_checkequal(out, 5);
-
 // wdim wpdim
 out = xget("wdim");
 assert_checkequal(out, f.figure_size);
@@ -96,7 +54,7 @@ assert_checkequal(out, f.figure_size);
 
 // wpos
 out = xget("wpos");
-assert_checkequal(out, f.position([1, 2]));
+assert_checkequal(out, f.figure_position);
 
 // viewport
 out = xget("viewport");
@@ -116,7 +74,7 @@ assert_checkequal(out, -1);
 
 // lastpattern
 out = xget("lastpattern");
-assert_checkequal(out, 512);
+assert_checkequal(out, 32);
 
 // line mode
 out = xget("line mode");
@@ -124,7 +82,7 @@ assert_checkequal(out, 1);
 
 // white
 out = xget("white");
-assert_checkequal(out, 514);
+assert_checkequal(out, 34);
 
 // wresize
 out = xget("wresize");
@@ -138,65 +96,12 @@ assert_checkequal(out, 0);
 out = xget("clipoff");
 assert_checkequal(out, 1);
 
-// clipping => clip_box + clip_state
-xset("clipping", 1,2,3,4);
-out = xget("clipping");
-assert_checkequal(out, [1,2,3,4]);
-
 // XSET
-
-// wdim
-xset("wdim",1000,500)
-assert_checkequal(xget("wdim"), [1000,500]);
-xset("wdim",[1000,500]) // 500 is ignored here
-wdim=xget("wdim");
-assert_checkequal(wdim(1), 1000);
-
-ierr = execstr("xset(""colormap"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""mark size"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""mark"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""font size"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""line style"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""font size"");","errcatch");
-assert_checkequal(ierr, 77);
 ierr = execstr("xset(""fpf"");","errcatch");
 assert_checkequal(ierr, 77);
-ierr = execstr("xset(""auto clear"");","errcatch");
-assert_checkequal(ierr, 77);
 ierr = execstr("xset(""dashes"");","errcatch");
 assert_checkequal(ierr, 77);
-ierr = execstr("xset(""hidden3d"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""figure"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""window"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""thickness"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""wdim"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""wpdim"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""wpos"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""viewport"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""background"");","errcatch");
-assert_checkequal(ierr, 77);
 ierr = execstr("xset(""color"");","errcatch");
 assert_checkequal(ierr, 77);
-ierr = execstr("xset(""foreground"");","errcatch");
-assert_checkequal(ierr, 77);
 ierr = execstr("xset(""pattern"");","errcatch");
 assert_checkequal(ierr, 77);
-ierr = execstr("xset(""line mode"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""wresize"");","errcatch");
-assert_checkequal(ierr, 77);
-ierr = execstr("xset(""default"", ""test"");","errcatch");
-assert_checkequal(ierr, 77);
index e208c13..472d6fc 100644 (file)
@@ -122,7 +122,7 @@ function [xd, tvec, z, x, outptr] = anim_pen(flag, nevprt, t, x, z, rpar, ipar,
     rcirc=csiz/3;
     if flag==4 then
         //** INIT
-        xset("window",win)
+        scf(win);
         set("figure_style","new")
         H=scf(win)
         clf(H)
@@ -131,7 +131,7 @@ function [xd, tvec, z, x, outptr] = anim_pen(flag, nevprt, t, x, z, rpar, ipar,
         Axe.isoview="on"
         S=[cos(phi),-sin(phi);sin(phi),cos(phi)]
         XY=S*[rpar(4),rpar(5);-csiz,-csiz]
-        xset("color",3)
+        gca().foreground = 3;
         xsegs(XY(1,:),XY(2,:)-rcirc)
         xTemp=0;
         theta=0;
@@ -140,13 +140,12 @@ function [xd, tvec, z, x, outptr] = anim_pen(flag, nevprt, t, x, z, rpar, ipar,
         y1=-csiz;
         y2=csiz
         XY=S*[x1 x2 x2 x1 x1;y1,y1,y2,y2,y1]
-        xset("color",5)
+        gca().foreground = 5;
         xfpoly(XY(1,:),XY(2,:))// cart
-        xset("color",2)
+        gca().foreground = 2;
         xfarc(XY(1,1),XY(2,1),rcirc,rcirc,0,360*64) //wheel
         xfarc(XY(1,2),XY(2,2),rcirc,rcirc,0,360*64) //wheel
         XY=S*[xTemp,xTemp+plen*sin(theta);0,0+plen*cos(theta)]//pendulum
-        xset("color",2)
         xsegs(XY(1,:),XY(2,:))
     elseif flag==2 then
         //** UPDATE
index adb1bda..ac2491b 100644 (file)
@@ -140,7 +140,7 @@ function [xd, tvec, z, x, outptr] = anim_pen(flag, nevprt, t, x, z, rpar, ipar,
     rcirc=csiz/3;
     if flag==4 then
         //** INIT
-        xset("window",win)
+        scf(win);
         set("figure_style","new")
         H=scf(win)
         clf(H)
@@ -150,7 +150,7 @@ function [xd, tvec, z, x, outptr] = anim_pen(flag, nevprt, t, x, z, rpar, ipar,
 
         S=[cos(phi),-sin(phi);sin(phi),cos(phi)]
         XY=S*[rpar(4),rpar(5);-csiz,-csiz]
-        xset("color",3)
+        gca().foreground = 3;
         xsegs(XY(1,:),XY(2,:)-rcirc)
 
         xTemp=0;
@@ -160,14 +160,13 @@ function [xd, tvec, z, x, outptr] = anim_pen(flag, nevprt, t, x, z, rpar, ipar,
         y1=-csiz;
         y2=csiz
         XY=S*[x1 x2 x2 x1 x1;y1,y1,y2,y2,y1]
-        xset("color",5)
+        gca().foreground = 5;
         xfpoly(XY(1,:),XY(2,:))// cart
-        xset("color",2)
+        gca().foreground = 2;
         xfarc(XY(1,1),XY(2,1),rcirc,rcirc,0,360*64) //wheel
         xfarc(XY(1,2),XY(2,2),rcirc,rcirc,0,360*64) //wheel
 
         XY=S*[xTemp,xTemp+plen*sin(theta);0,0+plen*cos(theta)]//pendulum
-        xset("color",2)
         xsegs(XY(1,:),XY(2,:))
 
     elseif flag==2 then
index ca9806a..b1bc69c 100644 (file)
@@ -23,14 +23,14 @@ Cptr = taucs_chfact(A);
 // retrieve the factor at scilab level
 [Ct, p] = taucs_chget(Cptr);
 // plot the initial matrix
-xset("window",0) ; clf();
+scf(0); clf();
 PlotSparse(A) ; xtitle("Initial matrix A (bcsstk24.rsa)");
 // plot the permuted matrix
 B = A(p,p);
-xset("window",1) ; clf();
+scf(1); clf();
 PlotSparse(B) ; xtitle("Permuted matrix B = A(p,p)");
 // plot the upper triangle Ct
-xset("window",2) ; clf();
+scf(2); clf();
 PlotSparse(Ct) ; xtitle("The pattern of Ct (A(p,p) = C*Ct)");
 // retrieve cnz
 [OK, n, cnz] = taucs_chinfo(Cptr);
index 3ffae2e..3be476e 100644 (file)
@@ -26,14 +26,14 @@ Cptr = taucs_chfact(A);
 // retrieve the factor at scilab level
 [Ct, p] = taucs_chget(Cptr);
 // plot the initial matrix
-xset("window",0) ; clf();
+scf(0); clf();
 PlotSparse(A) ; xtitle("Initial matrix A (bcsstk24.rsa)");
 // plot the permuted matrix
 B = A(p,p);
-xset("window",1) ; clf();
+scf(1); clf();
 PlotSparse(B) ; xtitle("Permuted matrix B = A(p,p)");
 // plot the upper triangle Ct
-xset("window",2) ; clf();
+scf(2); clf();
 PlotSparse(Ct) ; xtitle("The pattern of Ct (A(p,p) = C*Ct)");
 // retrieve cnz
 [OK, n, cnz] = taucs_chinfo(Cptr);