c1c7d36651741a144647bc2f7e9214ec725ff3d0
[scilab.git] / scilab / modules / graphics / src / c / getHandleProperty / set_z_shift_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  *
8  * This file must be used under the terms of the CeCILL.
9  * This source file is licensed as described in the file COPYING, which
10  * you should have received as part of this distribution.  The terms
11  * are also available at
12  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
13  *
14  */
15
16 /*------------------------------------------------------------------------*/
17 /* file: set_z_shift_property.c                                           */
18 /* desc : function to modify in Scilab the z_shift field of               */
19 /*        a handle                                                        */
20 /*------------------------------------------------------------------------*/
21
22 #include "setHandleProperty.h"
23 #include "SetProperty.h"
24 #include "getPropertyAssignedValue.h"
25 #include "Scierror.h"
26 #include "localization.h"
27 #include "GetProperty.h"
28 #include "MALLOC.h"
29 #include "SetPropertyStatus.h"
30
31 #include "getGraphicObjectProperty.h"
32 #include "setGraphicObjectProperty.h"
33 #include "graphicObjectProperties.h"
34
35 /*------------------------------------------------------------------------*/
36 int set_z_shift_property(void* _pvCtx, char * pobjUID, size_t stackPointer, int valueType, int nbRow, int nbCol )
37 {
38     BOOL result = FALSE;
39     double* shiftCoordinates = NULL;
40     int nbElement = nbRow * nbCol;
41     int iNumElements = 0;
42     int* piNumElements = &iNumElements;
43
44     if ( !isParameterDoubleMatrix( valueType ) )
45     {
46         Scierror(999, _("Wrong type for '%s' property: Real matrix expected.\n"), "z_shift");
47         return SET_PROPERTY_ERROR;
48     }
49
50     if ( nbRow > 1 && nbCol > 1 )
51     {
52         Scierror(999, _("Wrong size for '%s' property: Must be in the set {%s}.\n"), "z_shift", "0x0, 1xn, nx1");
53         return SET_PROPERTY_ERROR;
54     }
55
56     getGraphicObjectProperty(pobjUID, __GO_DATA_MODEL_NUM_ELEMENTS__, jni_int, (void**)&piNumElements);
57
58     if (piNumElements == NULL)
59     {
60         Scierror(999, _("'%s' property does not exist for this handle.\n"),"z_shift");
61         return SET_PROPERTY_ERROR;
62     }
63
64     if ( nbElement != 0 && nbElement != iNumElements) /* we can specify [] (null vector) to reset to default */
65     {
66         Scierror(999, _("Wrong size for '%s' property: %d or %d elements expected.\n"), "z_shift", 0, iNumElements);
67         return SET_PROPERTY_ERROR;
68     }
69
70     if( nbElement != 0 )
71     {
72         shiftCoordinates = (double*) getDoubleMatrixFromStack(stackPointer);
73
74         result = setGraphicObjectProperty(pobjUID, __GO_DATA_MODEL_Z_COORDINATES_SHIFT__, shiftCoordinates, jni_double_vector, iNumElements);
75
76         /* The FALSE value is used for now to identify a failed memory allocation */
77         if (result == FALSE)
78         {
79             Scierror(999, _("%s: No more memory.\n"),"set_z_shift_property");
80             return SET_PROPERTY_ERROR;
81         }
82     }
83     else
84     {
85         /*
86          * Setting the shift flag to 0 directly in the model
87          * when filling the shift coordinates array (0-element case)
88          * would probably be better.
89          */
90         int shiftSet = 0;
91         setGraphicObjectProperty(pobjUID, __GO_DATA_MODEL_Z_COORDINATES_SHIFT_SET__, &shiftSet, jni_double_vector, 1);
92     }
93
94     return SET_PROPERTY_SUCCEED;
95 }
96 /*------------------------------------------------------------------------*/