home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / X / mit / lib / X / XcmsQBlue.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-06-06  |  2.4 KB  |  83 lines
  1. /* $XConsortium: XcmsQBlue.c,v 1.2 91/06/07 09:56:44 rws Exp $ */
  2.  
  3. /*
  4.  * Code and supporting documentation (c) Copyright 1990 1991 Tektronix, Inc.
  5.  *     All Rights Reserved
  6.  * 
  7.  * This file is a component of an X Window System-specific implementation
  8.  * of Xcms based on the TekColor Color Management System.  Permission is
  9.  * hereby granted to use, copy, modify, sell, and otherwise distribute this
  10.  * software and its documentation for any purpose and without fee, provided
  11.  * that this copyright, permission, and disclaimer notice is reproduced in
  12.  * all copies of this software and in supporting documentation.  TekColor
  13.  * is a trademark of Tektronix, Inc.
  14.  * 
  15.  * Tektronix makes no representation about the suitability of this software
  16.  * for any purpose.  It is provided "as is" and with all faults.
  17.  * 
  18.  * TEKTRONIX DISCLAIMS ALL WARRANTIES APPLICABLE TO THIS SOFTWARE,
  19.  * INCLUDING THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
  20.  * PARTICULAR PURPOSE.  IN NO EVENT SHALL TEKTRONIX BE LIABLE FOR ANY
  21.  * SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER
  22.  * RESULTING FROM LOSS OF USE, DATA, OR PROFITS, WHETHER IN AN ACTION OF
  23.  * CONTRACT, NEGLIGENCE, OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
  24.  * CONNECTION WITH THE USE OR THE PERFORMANCE OF THIS SOFTWARE.
  25.  *
  26.  *
  27.  *    NAME
  28.  *        XcmsQBlue.c - Query Blue
  29.  *
  30.  *    DESCRIPTION
  31.  *        Routine to obtain a color specification for full
  32.  *        blue intensity and zero red and green intensities.
  33.  *
  34.  *
  35.  */
  36.  
  37. #include "Xlibint.h"
  38. #include "Xcms.h"
  39.  
  40.  
  41.  
  42. /************************************************************************
  43.  *                                    *
  44.  *            PUBLIC INTERFACES                *
  45.  *                                    *
  46.  ************************************************************************/
  47.  
  48. /*
  49.  *    NAME
  50.  *        XcmsQueryBlue
  51.  *
  52.  *    SYNOPSIS
  53.  */
  54.  
  55. Status
  56. XcmsQueryBlue(ccc, target_format, pColor_ret)
  57.     XcmsCCC ccc;
  58.     XcmsColorFormat target_format;
  59.     XcmsColor *pColor_ret;
  60. /*
  61.  *    DESCRIPTION
  62.  *        Returns the color specification in the target format for
  63.  *        full intensity blue and zero intensity red and green.
  64.  *
  65.  *    RETURNS
  66.  *        Returns XcmsSuccess, if failed; otherwise XcmsFailure
  67.  *
  68.  */
  69. {
  70.     XcmsColor tmp;
  71.  
  72.     tmp.format = XcmsRGBiFormat;
  73.     tmp.pixel = 0;
  74.     tmp.spec.RGBi.red = 0.0;
  75.     tmp.spec.RGBi.green = 0.0;
  76.     tmp.spec.RGBi.blue = 1.0;
  77.     if (XcmsConvertColors(ccc, &tmp, 1, target_format, NULL) != XcmsSuccess) {
  78.     return(XcmsFailure);
  79.     }
  80.     bcopy((char *)&tmp, (char *)pColor_ret, sizeof(XcmsColor));
  81.     return(XcmsSuccess);
  82. }
  83.