Clean-up (debug features)
[scilab.git] / scilab / modules / graphics / macros / getsymbol.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) INRIA
3 // This file must be used under the terms of the CeCILL.
4 // This source file is licensed as described in the file COPYING, which
5 // you should have received as part of this distribution.  The terms
6 // are also available at
7 // http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
8
9 function [rep] = getsymbol(Title)
10     [lhs,rhs] = argn(0)
11     if rhs<1 then
12         Title = "",
13     end;
14
15     warnobsolete("ged", "5.5.0");
16
17     marksIds = ["dot"
18     "plus"
19     "cross"
20     "star"
21     "filled diamond"
22     "diamond"
23     "triangle up"
24     "triangle down"
25     "diamond plus"
26     "circle"
27     "asterisk"
28     "square"
29     "triangle right"
30     "triangle left"
31     "pentagram"]'
32
33     fontsSiz = ["08","10","12","14","18","24"];
34     lmid = list("markId",1,marksIds);
35     lmsiz = list("marksize",1,fontsSiz);
36     xch_l = list(lmid,lmsiz);
37     entval = [lmid(2),lmsiz(2)];
38     rep = x_choices(Title,xch_l)-[1,1];
39
40 endfunction
41