00001
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017 static char *id="@(#) $Id: shtri.c,v 1.2 2006/08/17 19:28:17 mhender Exp $";
00018
00019 #include <shInternal.h>
00020
00034 void shtri(float *xt1,float *yt1,float *zt1,float *xt2,float *yt2,float *zt2,float *xt3,float *yt3,float *zt3)
00035 {
00036
00037
00038
00039 float x[3]={0.,0.,0.};
00040 float y[3]={0.,0.,0.};
00041 float z[3]={0.,0.,0.};
00042 int n;
00043
00044 x[0]=*xt1;
00045 x[1]=*xt2;
00046 x[2]=*xt3;
00047 y[0]=*yt1;
00048 y[1]=*yt2;
00049 y[2]=*yt3;
00050 z[0]=*zt1;
00051 z[1]=*zt2;
00052 z[2]=*zt3;
00053 n=3;
00054 shpg(&n,x,y,z);
00055
00056 return;
00057 }