sh: src/shsrfp.c Source File

00001 
00006 /*
00007  *  PROGRAM NAME:  sh
00008  *
00009  *  (c) COPYRIGHT INTERNATIONAL BUSINESS MACHINES
00010  *  CORPORATION 12/1/2001.  ALL RIGHTS RESERVED.
00011  *
00012  *  Please refer to the LICENSE file in the top directory
00013  *
00014  *      author: Mike Henderson mhender@watson.ibm.com
00015  */
00016 
00017 static char *id="@(#) $Id: shsrfp.c,v 1.2 2006/08/17 19:28:17 mhender Exp $";
00018 
00019 #include <shInternal.h>
00020 
00029 void shsrfp(float *a,float *d,float *s,int *n)
00030  {
00031 
00032 /*    This Routine Sets the surface properties used for the Shading */
00033 
00034 /*          a ambient intensity.                                    */
00035 /*          d difuse intensity.                                     */
00036 /*          s specular intensity.                                   */
00037 /*          n specular exponent.                                    */
00038 
00039   sh_am=*a;
00040   sh_ad=*d;
00041   sh_as=*s;
00042   sh_nd=*n;
00043 
00044   return;
00045  }