11ab64890Smrg
21ab64890Smrg/*
31ab64890Smrg * Code and supporting documentation (c) Copyright 1990 1991 Tektronix, Inc.
41ab64890Smrg * 	All Rights Reserved
561b2299dSmrg *
61ab64890Smrg * This file is a component of an X Window System-specific implementation
71ab64890Smrg * of Xcms based on the TekColor Color Management System.  Permission is
81ab64890Smrg * hereby granted to use, copy, modify, sell, and otherwise distribute this
91ab64890Smrg * software and its documentation for any purpose and without fee, provided
101ab64890Smrg * that this copyright, permission, and disclaimer notice is reproduced in
111ab64890Smrg * all copies of this software and in supporting documentation.  TekColor
121ab64890Smrg * is a trademark of Tektronix, Inc.
1361b2299dSmrg *
141ab64890Smrg * Tektronix makes no representation about the suitability of this software
151ab64890Smrg * for any purpose.  It is provided "as is" and with all faults.
1661b2299dSmrg *
171ab64890Smrg * TEKTRONIX DISCLAIMS ALL WARRANTIES APPLICABLE TO THIS SOFTWARE,
181ab64890Smrg * INCLUDING THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
191ab64890Smrg * PARTICULAR PURPOSE.  IN NO EVENT SHALL TEKTRONIX BE LIABLE FOR ANY
201ab64890Smrg * SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER
211ab64890Smrg * RESULTING FROM LOSS OF USE, DATA, OR PROFITS, WHETHER IN AN ACTION OF
221ab64890Smrg * CONTRACT, NEGLIGENCE, OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
231ab64890Smrg * CONNECTION WITH THE USE OR THE PERFORMANCE OF THIS SOFTWARE.
241ab64890Smrg *
251ab64890Smrg *
261ab64890Smrg *	NAME
271ab64890Smrg *		XcmsStCol.c
281ab64890Smrg *
291ab64890Smrg *	DESCRIPTION
301ab64890Smrg *		Source for XcmsStoreColor
311ab64890Smrg *
321ab64890Smrg *
331ab64890Smrg */
341ab64890Smrg
351ab64890Smrg#ifdef HAVE_CONFIG_H
361ab64890Smrg#include <config.h>
371ab64890Smrg#endif
381ab64890Smrg#include "Xlibint.h"
391ab64890Smrg#include "Xcmsint.h"
401ab64890Smrg#include "Cv.h"
411ab64890Smrg
421ab64890Smrg
431ab64890Smrg/************************************************************************
441ab64890Smrg *									*
451ab64890Smrg *			PUBLIC ROUTINES					*
461ab64890Smrg *									*
471ab64890Smrg ************************************************************************/
481ab64890Smrg
491ab64890Smrg/*
501ab64890Smrg *	NAME
511ab64890Smrg *		XcmsStoreColor - Store Color
521ab64890Smrg *
531ab64890Smrg *	SYNOPSIS
541ab64890Smrg */
551ab64890SmrgStatus
561ab64890SmrgXcmsStoreColor(
571ab64890Smrg    Display *dpy,
581ab64890Smrg    Colormap colormap,
591ab64890Smrg    XcmsColor *pColor_in)
601ab64890Smrg/*
611ab64890Smrg *	DESCRIPTION
621ab64890Smrg *		Given a device-dependent or device-independent color
631ab64890Smrg *		specification, this routine will convert it to X RGB
641ab64890Smrg *		values then use it in a call to XStoreColor.
651ab64890Smrg *
661ab64890Smrg *	RETURNS
671ab64890Smrg *		XcmsFailure if failed;
681ab64890Smrg *		XcmsSuccess if it succeeded without gamut compression;
691ab64890Smrg *		XcmsSuccessWithCompression if it succeeded with gamut
701ab64890Smrg *			compression;
711ab64890Smrg *
721ab64890Smrg *		Since XStoreColor has no return value this routine
731ab64890Smrg *		does not return the color specification of the color actually
741ab64890Smrg *		stored.
751ab64890Smrg */
761ab64890Smrg{
771ab64890Smrg    XcmsColor tmpColor;
781ab64890Smrg
791ab64890Smrg    tmpColor = *pColor_in;
801ab64890Smrg    return(_XcmsSetGetColor(XStoreColor, dpy, colormap,
811ab64890Smrg			      &tmpColor, XcmsRGBFormat, (Bool *) NULL));
821ab64890Smrg}
83