diff options
Diffstat (limited to 'modules/graphics/macros/setTitleLabelProperty.sci')
| -rwxr-xr-x | modules/graphics/macros/setTitleLabelProperty.sci | 251 |
1 files changed, 251 insertions, 0 deletions
diff --git a/modules/graphics/macros/setTitleLabelProperty.sci b/modules/graphics/macros/setTitleLabelProperty.sci new file mode 100755 index 000000000..b3cda3818 --- /dev/null +++ b/modules/graphics/macros/setTitleLabelProperty.sci @@ -0,0 +1,251 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2004-2006 - INRIA - Farid Belahcene +// Copyright (C) 2013 - Samuel GOUGEON +// 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 [fail] = setTitleLabelProperty(PropertyName,PropertyValue,titlelabel,current_figure,cur_draw_mode) + // SETTITLELABELPROPERTY function + // is used by the functions title, xlabel, ylabel, zlabel + // This function sets the title (or x_, y_, z_label) properties + + fail=0; + + //conversion to lower format + str = convstr(PropertyName); + + //Property = ['foreground' 'clipping']; + + [PName] = getTitleLabelPropertyNam(str, current_figure, cur_draw_mode) + + if (PName==[]) + ResetFigureDDM(current_figure, cur_draw_mode); + return; + end + + select PName + + ///////////////////////// + case "font_size" // <=> fontsize + ///////////////////////// + + if (type(PropertyValue)<>1 | size(PropertyValue,"*")<>1) + warning(msprintf(gettext("%s: Wrong type for input argument #%d: A real matrix expected.\n"),"setTitleLabelProperty",2)); + ResetFigureDDM(current_figure, cur_draw_mode); + return; + end + + titlelabel.font_size = PropertyValue + return + + + ///////////////////////// + case "font_angle" // <=> rotation + ///////////////////////// + if (type(PropertyValue)<>1 | size(PropertyValue,"*")<>1) + warning(msprintf(gettext("%s: Wrong type for input argument #%d: A real matrix expected.\n"),"setTitleLabelProperty",2)); + ResetFigureDDM(current_figure, cur_draw_mode); + return; + end + + titlelabel.auto_rotation = "off" + newPropertyValue = modulo(PropertyValue,360) + titlelabel.font_angle = 360 - newPropertyValue + return + + + ///////////////////////// + case "font_foreground" // <=> color or edgecolor + ///////////////////////// + + if (type(PropertyValue) == 10) + index = getColorIndex(PropertyValue); + + ColorVal = ["red" "green" "blue" "cyan" "magenta" "yellow" "black" "black" "white"] + + if index < 10 + titlelabel.font_foreground = color(ColorVal(index)); + elseif index == 10 // 'none' selected + titlelabel.color_mode = 0; // <=> - colormap(1) and not black at all!! + else + warning(msprintf(gettext("%s: Wrong type for input argument #%d: Vector or index in the colormap expected.\n"),"setTitleLabelProperty",2)); + ResetFigureDDM(current_figure, cur_draw_mode); + return; + end + elseif (type(PropertyValue) == 1) // we entered plot(x,y,'Color',[R,G,B]) + + if (size(PropertyValue,"*")==3) + titlelabel.font_foreground = addcolor(PropertyValue); + else + titlelabel.font_foreground = PropertyValue; + end + + else + warning(msprintf(gettext("%s: Wrong type for input argument #%d: Vector or index in the colormap expected.\n"),"setTitleLabelProperty",2)); + ResetFigureDDM(current_figure, cur_draw_mode); + return; + end + + + ///////////////////////// + case "foreground" // <=> foregroundcolor + ///////////////////////// + + if (type(PropertyValue) == 10) + index = getColorIndex(PropertyValue); + + ColorVal = ["red" "green" "blue" "cyan" "magenta" "yellow" "black" "black" "white"] + + if index < 10 + titlelabel.fill_mode = "on" + titlelabel.foreground = color(ColorVal(index)); + elseif index == 10 // 'none' selected + titlelabel.color_mode = 0; // <=> - colormap(1) and not black at all!! + else + warning(msprintf(gettext("%s: Wrong type for input argument #%d: Vector or index in the colormap expected.\n"),"setTitleLabelProperty",2)); + ResetFigureDDM(current_figure, cur_draw_mode); + return; + end + elseif (type(PropertyValue) == 1) // we entered plot(x,y,'Color',[R,G,B]) + + if (size(PropertyValue,"*")==3) + titlelabel.fill_mode = "on" + titlelabel.foreground = addcolor(PropertyValue); + else + titlelabel.fill_mode = "on" + titlelabel.foreground = PropertyValue; + end + else + warning(msprintf(gettext("%s: Wrong type for input argument #%d: Vector or index in the colormap expected.\n"),"setTitleLabelProperty",2)); + ResetFigureDDM(current_figure, cur_draw_mode); + return; + end + + + ///////////////////////// + case "background" // <=> backgroundcolor + ///////////////////////// + + if (type(PropertyValue) == 10) + + index = getColorIndex(PropertyValue); + + ColorVal = ["red" "green" "blue" "cyan" "magenta" "yellow" "black" "black" "white"] + + if index < 10 + titlelabel.fill_mode = "on" + titlelabel.background = color(ColorVal(index)); + elseif index == 10 // 'none' selected + titlelabel.color_mode = 0; // <=> - colormap(1) and not black at all!! + else + warning(msprintf(gettext("%s: Wrong type for input argument #%d: Vector or index in the colormap expected.\n"),"setTitleLabelProperty",2)); + ResetFigureDDM(current_figure, cur_draw_mode); + return; + end + elseif (type(PropertyValue) == 1) // we entered plot(x,y,'Color',[R,G,B]) + + if (size(PropertyValue,"*")==3) + titlelabel.fill_mode = "on" + titlelabel.background = addcolor(PropertyValue); + else + titlelabel.fill_mode = "on" + titlelabel.background = PropertyValue; + end + else + warning(msprintf(gettext("%s: Wrong type for input argument #%d: Vector or index in the colormap expected.\n"),"setTitleLabelProperty",2)); + ResetFigureDDM(current_figure, cur_draw_mode); + return; + end + + + ///////////////////////// + case "text" // <=> string + ///////////////////////// + if (type(PropertyValue) == 10) + titlelabel.text = PropertyValue; + return + else + warning(msprintf(_("%s: Wrong type for input argument #%d: A string expected.\n"),"setTitleLabelProperty",2)); + ResetFigureDDM(current_figure, cur_draw_mode); + return; + end + + + ///////////////////////// + case "position" // <=> position, à completer: la position par rapport à z n'est pas pris en compte, de plus le vecteur position doit contenir des coordonnées utilisateur (coordonnées selon l'axe) + ///////////////////////// + + if type(PropertyValue) == 1 & size(PropertyValue,"*")<=3 + titlelabel.auto_position = "off"; + titlelabel.position = PropertyValue ; + return + else + warning(msprintf(gettext("%s: Wrong size or type for input argument #%d: A real matrix expected.\n"),"setTitleLabelProperty",2)); + ResetFigureDDM(current_figure, cur_draw_mode); + return; + end + + + + ///////////////////////// + case "visible" // <=> visible + ///////////////////////// + + if type(PropertyValue) == 10 + if or(PropertyValue == ["off" "of"]) + titlelabel.visible = "off"; + return + elseif PropertyValue == "on" + titlelabel.visible = "on"; + return + else + warning(_("Incorrect input: ...")); + ResetFigureDDM(current_figure, cur_draw_mode); + return; + end + else + warning(msprintf(_("%s: Wrong type for input argument #%d: A string expected.\n"),"setTitleLabelProperty",2)); + ResetFigureDDM(current_figure, cur_draw_mode); + return; + end + + + ///////////////////////// + case "font_style" // <=> fontangle + ///////////////////////// + fonts = ["courrier" "symbol" "times" "times italic" "times bold" .. + "times bold italic" "helvetica" "helvetica italic" "helvetica bold".. + "helvetica bold italic" ] + if typeof(PropertyValue) == "string" + PropertyValue = convstr(PropertyValue,"l") + if or(PropertyValue == fonts) + titlelabel.font_style = find(fonts==PropertyValue)-1; + else + warning(msprintf(_("%s: Wrong value for input argument #%d: At least one ""%s"" expected.\n"),"setTitleLabelProperty",2, "font")); + ResetFigureDDM(current_figure, cur_draw_mode); + return; + end + elseif typeof(PropertyValue) == "constant" & or(PropertyValue==(0:9)) + titlelabel.font_style = PropertyValue; + else + warning(msprintf(_("%s: Wrong type for input argument #%d: A real matrix or a string matrix expected.\n"),"setTitleLabelProperty",2)); + ResetFigureDDM(current_figure, cur_draw_mode); + return; + end + + end + +endfunction + + +function k = getIndexInStringTable(pattern, table) + + str = convstr(pattern); + k = find(part(table,1:length(str))==str); + +endfunction + + |