From 0345245e860375a32c9a437c4a9d9cae807134e9 Mon Sep 17 00:00:00 2001
From: Shashank
Date: Mon, 29 May 2017 12:40:26 +0530
Subject: CMSCOPE changed

---
 modules/graphics/macros/sca.sci | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 modules/graphics/macros/sca.sci

(limited to 'modules/graphics/macros/sca.sci')

diff --git a/modules/graphics/macros/sca.sci b/modules/graphics/macros/sca.sci
new file mode 100755
index 000000000..f1ec0d495
--- /dev/null
+++ b/modules/graphics/macros/sca.sci
@@ -0,0 +1,32 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at
+// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
+
+function [a]=sca(h)
+    //set default axes, h must be a handle
+
+    [lhs,rhs] = argn(0);
+
+    if rhs <> 1 then
+        error(msprintf(gettext("%s: Wrong number of input arguments: %d expected.\n"), "sca",1));
+        return;
+    end
+
+    if (type(h) <> 9) | (h.type <> "Axes") then
+        error(msprintf(gettext("%s: Wrong type for input argument #%d: An ''%s'' handle expected.\n"), "sca",1, "Axes"));
+        return;
+    end
+
+    if (size(h) <> [1,1]) then
+        error(msprintf(gettext("%s: Wrong size for input argument #%d: An ''%s'' handle expected.\n"), "sca",1, "Axes"));
+        return;
+    end
+
+    set("current_axes", h);
+    a=get("current_axes");
+
+endfunction
-- 
cgit