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