* getsymbol() tagged as obsolete. Will be removed for Scilab 5.5.0.
[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-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