06cff3fd9c387cc0e1d88486e1c0e3682352dc21
[scilab.git] / scilab / modules / graphics / src / c / getHandleProperty / set_x_ticks_property.c
1 /*
2  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3  * Copyright (C) 2004-2006 - INRIA - Fabrice Leray
4  * Copyright (C) 2006 - INRIA - Allan Cornet
5  * Copyright (C) 2006 - INRIA - Jean-Baptiste Silvy
6  * Copyright (C) 2010 - DIGITEO - Manuel Juliachs
7  * Copyright (C) 2012 - Scilab Enterprises - Bruno JOFRET
8  *
9  * This file must be used under the terms of the CeCILL.
10  * This source file is licensed as described in the file COPYING, which
11  * you should have received as part of this distribution.  The terms
12  * are also available at
13  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
14  *
15  */
16
17 /*------------------------------------------------------------------------*/
18 /* file: set_x_ticks_property.c                                           */
19 /* desc : function to modify in Scilab the x_ticks field of               */
20 /*        a handle                                                        */
21 /*------------------------------------------------------------------------*/
22 #include "setHandleProperty.h"
23 #include "SetProperty.h"
24 #include "GetProperty.h"
25 #include "getPropertyAssignedValue.h"
26 #include "Scierror.h"
27 #include "localization.h"
28 #include "SetPropertyStatus.h"
29 #include "CheckTicksProperty.h"
30 #include "MALLOC.h"
31 #include "BasicAlgos.h"
32 #include "DrawObjects.h"
33 #include "freeArrayOfString.h"
34 #include "loadTextRenderingAPI.h"
35
36 #include "setGraphicObjectProperty.h"
37 #include "graphicObjectProperties.h"
38
39 /*------------------------------------------------------------------------*/
40 int set_x_ticks_property(void* _pvCtx, char* pobjUID, size_t stackPointer, int valueType, int nbRow, int nbCol )
41 {
42     BOOL autoTicks = FALSE;
43     BOOL status = FALSE;
44     AssignedList * tlist     = NULL ;
45     int            nbTicsRow = 0    ;
46     int            nbTicsCol = 0    ;
47
48     double* userGrads = NULL;
49     char** userLabels = NULL;
50
51     if ( !isParameterTlist( valueType ) )
52     {
53         Scierror(999, _("Wrong type for '%s' property: Typed list expected.\n"), "x_ticks");
54         return SET_PROPERTY_ERROR ;
55     }
56
57     tlist = createTlistForTicks();
58
59     if ( tlist == NULL )
60     {
61         return SET_PROPERTY_ERROR;
62     }
63
64     /* locations */
65     userGrads = createCopyDoubleMatrixFromList( tlist, &nbTicsRow, &nbTicsCol );
66
67     if ( userGrads == NULL && nbTicsRow == -1 )
68     {
69         Scierror(999, _("%s: No more memory.\n"),"set_x_ticks_property");
70         return SET_PROPERTY_ERROR ;
71     }
72
73     /* Automatic ticks must be first deactivated in order to set user ticks */
74     autoTicks = FALSE;
75
76     setGraphicObjectProperty(pobjUID, __GO_X_AXIS_AUTO_TICKS__, &autoTicks, jni_bool, 1);
77
78     status = setGraphicObjectProperty(pobjUID, __GO_X_AXIS_TICKS_LOCATIONS__, userGrads, jni_double_vector, nbTicsRow*nbTicsCol);
79
80     if (status == FALSE)
81     {
82         Scierror(999, _("'%s' property does not exist for this handle.\n"),"x_ticks");
83         FREE(userGrads);
84         return SET_PROPERTY_ERROR;
85     }
86
87     /*  labels */
88     // Here we check the size of "locations" instead of "labels", but they have the same size.
89     // We need to check the size to not be 0 because an empty matrix is a matrix of double
90     // and 'getCurrentStringMatrixFromList' expect a matrix of string (see bug 5148).
91     // P.Lando
92     if( nbTicsCol * nbTicsRow )
93     {
94         userLabels = getCurrentStringMatrixFromList( tlist, &nbTicsRow, &nbTicsCol );
95         /* Check if we should load LaTex / MathML Java libraries */
96         loadTextRenderingAPI(userLabels, nbTicsCol, nbTicsRow);
97
98         setGraphicObjectProperty(pobjUID, __GO_X_AXIS_TICKS_LABELS__, userLabels, jni_string_vector, nbTicsRow*nbTicsCol);
99     }
100     else
101     {
102         /* To be implemented */
103 #if 0
104         ppSubWin->axes.u_xlabels = NULL;
105 #endif
106     }
107
108     if (userGrads != NULL)
109     {
110         FREE(userGrads);
111     }
112
113     destroyAssignedList( tlist );
114
115     return SET_PROPERTY_SUCCEED;
116
117 }
118 /*------------------------------------------------------------------------*/