[occt.git] / src / Xw / Xw_open_image.cxx

// Copyright (c) 1999-2012 OPEN CASCADE SAS
//
// The content of this file is subject to the Open CASCADE Technology Public
// License Version 6.5 (the "License"). You may not use the content of this file
// except in compliance with the License. Please obtain a copy of the License
// at http://www.opencascade.org and read it completely before using this file.
//
// The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
// main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
//
// The Original Code and all software distributed under the License is
// distributed on an "AS IS" basis, without warranty of any kind, and the
// Initial Developer hereby disclaims all such warranties, including without
// limitation, any warranties of merchantability, fitness for a particular
// purpose or non-infringement. Please see the License for the specific terms
// and conditions governing the rights and limitations under the License.


#include <Xw_Extension.h>

/* ifdef then trace on */
#ifdef TRACE
#define TRACE_OPEN_IMAGE
#endif

/*
   XW_EXT_IMAGEDATA Xw_open_image (awindow,aimageinfo,width,height):
   XW_EXT_WINDOW *awindow ;
   XW_USERDATA *aimageinfo ;		Image identifier
   int width,height		Image size in pixels

	Open an Image in the same Window visual as defined
	NOTE than this image can be filled with Xw_put_pixel 

	Returns The image extension address if Successful      
	returns  NULL if BadAllocation

   XW_STATUS Xw_close_image (aimage):
   XW_EXT_IMAGEDATA *aimage     Extended Image address

        Close an Image

        returns  SUCCESS always

   XW_EXT_IMAGEDATA* Xw_get_image_handle (awindow,aimageinfo):
   XW_EXT_WINDOW *awindow ;
   XW_USERDATA	aimageinfo     Image identifier

	returns the Image handle associated to the image ID
		or NULL if no image exist.

*/

#ifdef XW_PROTOTYPE
void* Xw_open_image (void *awindow,void *aimageinfo,int width,int height)
#else
void* Xw_open_image (awindow,aimageinfo,width,height)
void *awindow ;
void *aimageinfo ;
int width,height ;
#endif /*XW_PROTOTYPE*/
{
XW_EXT_WINDOW *pwindow = (XW_EXT_WINDOW*)awindow;
XW_EXT_IMAGEDATA *pimage ;
XW_EXT_COLORMAP *pcolormap ;
//int i,pad ;
int pad ;
char *cdata ;

    if( !Xw_isdefine_window(pwindow) ) {
        /*ERROR*Bad EXT_WINDOW Address*/
        Xw_set_error(24,"Xw_open_image",pwindow) ;
        return (NULL) ;
    }

    switch (_DEPTH) {
    	case 8 :
	    pad = 1 ;
	    break ;
	case 12 :
	case 16 :
	    pad = 2 ;
	    break ;
	case 24 :
	    pad = 4 ;
	    break ;
	case 48 :
	case 64 :
	    pad = 8 ;
	    break ;
	default :
	    /*ERROR*Unimplemented Image Visual depth*/
	    Xw_set_error(64,"Xw_open_image",&_DEPTH) ;
	    return (NULL) ;
    }

    if( !(cdata = (char*) Xw_calloc(width*height,pad)) ) {
	/*ERROR*XImage Allocation failed*/
	Xw_set_error(60,"Xw_open_image",0) ;
        return (NULL) ;
    }

    if( !(pimage = Xw_add_imagedata_structure(sizeof(XW_EXT_IMAGEDATA))) ) 
								return (NULL) ;

    pimage->pimageinfo = aimageinfo ;
    pimage->pcolormap = pcolormap = _COLORMAP ;
    _IIMAGE = XCreateImage(_CDISPLAY,_CVISUAL,_DEPTH,
			ZPixmap,0,cdata,width,height,pad*8,width*pad) ;
    if( !_IIMAGE ) {
	/*ERROR*XImage Creation failed*/
	Xw_set_error(62,"Xw_open_image",0) ;
	Xw_del_imagedata_structure(pimage) ;
    }

#ifdef  TRACE_OPEN_IMAGE
if( Xw_get_trace() ) {
    printf (" %lx = Xw_open_image(%lx,%lx,%d,%d)\n",(long ) pimage,(long ) pwindow,(long ) aimageinfo,
							width,height);
}
#endif

    return (pimage);
}

static XW_EXT_IMAGEDATA *PimageList =NULL ;

#ifdef XW_PROTOTYPE
XW_EXT_IMAGEDATA* Xw_add_imagedata_structure(int size)
#else
XW_EXT_IMAGEDATA* Xw_add_imagedata_structure(size)
int size ;
#endif /*XW_PROTOTYPE*/
/*
        Create and Insert one Extended image structure in the
        EXtended image List

        returns Extended image address if successful
                or NULL if Bad Allocation
*/
{
XW_EXT_IMAGEDATA *pimage ;
//int i ;

	pimage = (XW_EXT_IMAGEDATA*) Xw_malloc(size) ;

        if( pimage ) {
	    pimage->type = IMAGE_TYPE ;
	    pimage->link = PimageList ;
	    PimageList = pimage ;
	    pimage->pcolormap = NULL ;
	    pimage->zoom = 1.;
            pimage->pximage = NULL ;
            pimage->zximage = NULL ;
	    pimage->maxwindow = 0 ;
        } else {
	    /*ERROR*EXT_IMAGE allocation failed*/
	    Xw_set_error(27,"Xw_open_image",0) ;
        }

        return (pimage) ;
}

#ifdef XW_PROTOTYPE
XW_STATUS Xw_close_image (void* aimage)
#else
XW_STATUS Xw_close_image (aimage)
void *aimage;
#endif /*XW_PROTOTYPE*/
{
XW_EXT_IMAGEDATA *pimage = (XW_EXT_IMAGEDATA*) aimage ;

        Xw_del_imagedata_structure(pimage) ;

#ifdef  TRACE_CLOSE_IMAGE
if( Xw_get_trace() ) {
        printf (" Xw_close_image(%x)\n",pimage);
}
#endif

        return (XW_SUCCESS);
}

#ifdef XW_PROTOTYPE
void* Xw_get_image_handle (void* awindow,void *aimageinfo)
#else
void* Xw_get_image_handle (awindow,aimageinfo)
void *awindow ;
void *aimageinfo ;
#endif /*XW_PROTOTYPE*/
{
#ifdef  TRACE_OPEN_IMAGE
XW_EXT_WINDOW *pwindow = (XW_EXT_WINDOW*)awindow ;
#endif
XW_EXT_IMAGEDATA *pimage ;

	for( pimage = PimageList ; pimage ; 
			pimage = (XW_EXT_IMAGEDATA*) pimage->link ) {
            if( pimage->pimageinfo == aimageinfo ) break ; 
        }

#ifdef  TRACE_OPEN_IMAGE
if( Xw_get_trace() ) {
    printf (" %lx = Xw_get_image_handle(%lx,%lx)\n",(long ) pimage,(long ) pwindow,(long ) aimageinfo);
}
#endif

	return (pimage) ;
}

#ifdef XW_PROTOTYPE
XW_STATUS Xw_del_imagedata_structure(XW_EXT_IMAGEDATA *aimage)
#else
XW_STATUS Xw_del_imagedata_structure(aimage)
XW_EXT_IMAGEDATA *aimage;
#endif /*XW_PROTOTYPE*/
/*
        Remove the Extended image address from the Extended List and
        Free the Extended Image

        returns ERROR if the image address is not Found in the list
        returns XW_SUCCESS if successful
*/
{
XW_EXT_IMAGEDATA *pimage = aimage ;
//int i ;

    if( !pimage ) return (XW_ERROR) ;

    if( pimage->maxwindow ) --pimage->maxwindow ;

    if( pimage->maxwindow ) {
	return (XW_ERROR) ;
    } else {
	if( _IIMAGE ) XDestroyImage(_IIMAGE) ;
	if( _ZIMAGE ) XDestroyImage(_ZIMAGE) ;
        if( pimage == PimageList ) {
            PimageList = (XW_EXT_IMAGEDATA*) pimage->link ;
        } else {
            for( pimage = PimageList ; pimage ; 
			pimage = (XW_EXT_IMAGEDATA*) pimage->link ) {
                if( pimage->link == aimage ) {
                    pimage->link = aimage->link ;
                    break ;
                }
            }
        }
        Xw_free(aimage) ;
    }
    return (XW_SUCCESS) ;
}
Commit	Line	Data
b311480e	1	// Copyright (c) 1999-2012 OPEN CASCADE SAS
	2	//
	3	// The content of this file is subject to the Open CASCADE Technology Public
	4	// License Version 6.5 (the "License"). You may not use the content of this file
	5	// except in compliance with the License. Please obtain a copy of the License
	6	// at http://www.opencascade.org and read it completely before using this file.
	7	//
	8	// The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
	9	// main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
	10	//
	11	// The Original Code and all software distributed under the License is
	12	// distributed on an "AS IS" basis, without warranty of any kind, and the
	13	// Initial Developer hereby disclaims all such warranties, including without
	14	// limitation, any warranties of merchantability, fitness for a particular
	15	// purpose or non-infringement. Please see the License for the specific terms
	16	// and conditions governing the rights and limitations under the License.
	17
7fd59977	18
	19	#include <Xw_Extension.h>
	20
b311480e	21	/* ifdef then trace on */
7fd59977	22	#ifdef TRACE
	23	#define TRACE_OPEN_IMAGE
	24	#endif
	25
	26	/*
	27	XW_EXT_IMAGEDATA Xw_open_image (awindow,aimageinfo,width,height):
	28	XW_EXT_WINDOW *awindow ;
	29	XW_USERDATA *aimageinfo ; Image identifier
	30	int width,height Image size in pixels
	31
	32	Open an Image in the same Window visual as defined
	33	NOTE than this image can be filled with Xw_put_pixel
	34
	35	Returns The image extension address if Successful
	36	returns NULL if BadAllocation
	37
	38	XW_STATUS Xw_close_image (aimage):
	39	XW_EXT_IMAGEDATA *aimage Extended Image address
	40
	41	Close an Image
	42
	43	returns SUCCESS always
	44
	45	XW_EXT_IMAGEDATA* Xw_get_image_handle (awindow,aimageinfo):
	46	XW_EXT_WINDOW *awindow ;
	47	XW_USERDATA aimageinfo Image identifier
	48
	49	returns the Image handle associated to the image ID
	50	or NULL if no image exist.
	51
	52	*/
	53
	54	#ifdef XW_PROTOTYPE
	55	void* Xw_open_image (void awindow,void aimageinfo,int width,int height)
	56	#else
	57	void* Xw_open_image (awindow,aimageinfo,width,height)
	58	void *awindow ;
	59	void *aimageinfo ;
	60	int width,height ;
	61	#endif /XW_PROTOTYPE/
	62	{
	63	XW_EXT_WINDOW pwindow = (XW_EXT_WINDOW)awindow;
	64	XW_EXT_IMAGEDATA *pimage ;
	65	XW_EXT_COLORMAP *pcolormap ;
	66	//int i,pad ;
	67	int pad ;
	68	char *cdata ;
	69
	70	if( !Xw_isdefine_window(pwindow) ) {
	71	/ERRORBad EXT_WINDOW Address*/
	72	Xw_set_error(24,"Xw_open_image",pwindow) ;
	73	return (NULL) ;
	74	}
	75
	76	switch (_DEPTH) {
	77	case 8 :
	78	pad = 1 ;
	79	break ;
	80	case 12 :
	81	case 16 :
	82	pad = 2 ;
	83	break ;
	84	case 24 :
	85	pad = 4 ;
86	break ;
87	case 48 :
88	case 64 :
89	pad = 8 ;
90	break ;
91	default :
92	/ERRORUnimplemented Image Visual depth*/
93	Xw_set_error(64,"Xw_open_image",&_DEPTH) ;
94	return (NULL) ;
95	}
96
97	if( !(cdata = (char) Xw_calloc(widthheight,pad)) ) {
98	/ERRORXImage Allocation failed*/
99	Xw_set_error(60,"Xw_open_image",0) ;
100	return (NULL) ;
101	}
102
103	if( !(pimage = Xw_add_imagedata_structure(sizeof(XW_EXT_IMAGEDATA))) )
104	return (NULL) ;
105
106	pimage->pimageinfo = aimageinfo ;
107	pimage->pcolormap = pcolormap = _COLORMAP ;
108	_IIMAGE = XCreateImage(_CDISPLAY,_CVISUAL,_DEPTH,
109	ZPixmap,0,cdata,width,height,pad8,widthpad) ;
110	if( !_IIMAGE ) {
111	/ERRORXImage Creation failed*/
112	Xw_set_error(62,"Xw_open_image",0) ;
113	Xw_del_imagedata_structure(pimage) ;
114	}
115
116	#ifdef TRACE_OPEN_IMAGE
117	if( Xw_get_trace() ) {
118	printf (" %lx = Xw_open_image(%lx,%lx,%d,%d)\n",(long ) pimage,(long ) pwindow,(long ) aimageinfo,
119	width,height);
120	}
121	#endif
122
123	return (pimage);
124	}
125
126	static XW_EXT_IMAGEDATA *PimageList =NULL ;
127
128	#ifdef XW_PROTOTYPE
129	XW_EXT_IMAGEDATA* Xw_add_imagedata_structure(int size)
130	#else
131	XW_EXT_IMAGEDATA* Xw_add_imagedata_structure(size)
132	int size ;
133	#endif /XW_PROTOTYPE/
134	/*
135	Create and Insert one Extended image structure in the
136	EXtended image List
137
138	returns Extended image address if successful
139	or NULL if Bad Allocation
140	*/
141	{
142	XW_EXT_IMAGEDATA *pimage ;
143	//int i ;
144
145	pimage = (XW_EXT_IMAGEDATA*) Xw_malloc(size) ;
146
147	if( pimage ) {
148	pimage->type = IMAGE_TYPE ;
149	pimage->link = PimageList ;
150	PimageList = pimage ;
151	pimage->pcolormap = NULL ;
152	pimage->zoom = 1.;
153	pimage->pximage = NULL ;
154	pimage->zximage = NULL ;
155	pimage->maxwindow = 0 ;
156	} else {
157	/ERROREXT_IMAGE allocation failed*/
158	Xw_set_error(27,"Xw_open_image",0) ;
159	}
160
161	return (pimage) ;
162	}
163
164	#ifdef XW_PROTOTYPE
165	XW_STATUS Xw_close_image (void* aimage)
166	#else
167	XW_STATUS Xw_close_image (aimage)
168	void *aimage;
169	#endif /XW_PROTOTYPE/
170	{
171	XW_EXT_IMAGEDATA pimage = (XW_EXT_IMAGEDATA) aimage ;
172
173	Xw_del_imagedata_structure(pimage) ;
174
175	#ifdef TRACE_CLOSE_IMAGE
176	if( Xw_get_trace() ) {
177	printf (" Xw_close_image(%x)\n",pimage);
178	}
179	#endif
180
181	return (XW_SUCCESS);
182	}
183
184	#ifdef XW_PROTOTYPE
185	void* Xw_get_image_handle (void* awindow,void *aimageinfo)
186	#else
187	void* Xw_get_image_handle (awindow,aimageinfo)
188	void *awindow ;
189	void *aimageinfo ;
190	#endif /XW_PROTOTYPE/
191	{
192	#ifdef TRACE_OPEN_IMAGE
193	XW_EXT_WINDOW pwindow = (XW_EXT_WINDOW)awindow ;
194	#endif
195	XW_EXT_IMAGEDATA *pimage ;
196
197	for( pimage = PimageList ; pimage ;
198	pimage = (XW_EXT_IMAGEDATA*) pimage->link ) {
199	if( pimage->pimageinfo == aimageinfo ) break ;
200	}
201
202	#ifdef TRACE_OPEN_IMAGE
203	if( Xw_get_trace() ) {
204	printf (" %lx = Xw_get_image_handle(%lx,%lx)\n",(long ) pimage,(long ) pwindow,(long ) aimageinfo);
205	}
206	#endif
207
208	return (pimage) ;
209	}
210
211	#ifdef XW_PROTOTYPE
212	XW_STATUS Xw_del_imagedata_structure(XW_EXT_IMAGEDATA *aimage)
213	#else
214	XW_STATUS Xw_del_imagedata_structure(aimage)
215	XW_EXT_IMAGEDATA *aimage;
216	#endif /XW_PROTOTYPE/
217	/*
218	Remove the Extended image address from the Extended List and
219	Free the Extended Image
220
221	returns ERROR if the image address is not Found in the list
222	returns XW_SUCCESS if successful
223	*/
224	{
225	XW_EXT_IMAGEDATA *pimage = aimage ;
226	//int i ;
227
228	if( !pimage ) return (XW_ERROR) ;
229
230	if( pimage->maxwindow ) --pimage->maxwindow ;
231
232	if( pimage->maxwindow ) {
233	return (XW_ERROR) ;
234	} else {
235	if( _IIMAGE ) XDestroyImage(_IIMAGE) ;
236	if( _ZIMAGE ) XDestroyImage(_ZIMAGE) ;
237	if( pimage == PimageList ) {
238	PimageList = (XW_EXT_IMAGEDATA*) pimage->link ;
239	} else {
240	for( pimage = PimageList ; pimage ;
241	pimage = (XW_EXT_IMAGEDATA*) pimage->link ) {
242	if( pimage->link == aimage ) {
243	pimage->link = aimage->link ;
244	break ;
245	}
246	}
247	}
248	Xw_free(aimage) ;
249	}
250	return (XW_SUCCESS) ;
251	}