00001
00002
00003
00004 #include "cddefines.h"
00005 #include "geometry.h"
00006 #include "opacity.h"
00007 #include "parser.h"
00008
00009 void ParseSphere(Parser &p )
00010 {
00011 double fac;
00012
00013 DEBUG_ENTRY( "ParseSphere()" );
00014
00015
00016 geometry.lgSphere = true;
00017
00018
00019 opac.lgScatON = false;
00020
00021
00022 if( p.nMatch("STAT") )
00023 {
00024 geometry.lgStatic = true;
00025 opac.tlamin = 1e5;
00026
00027 if( p.nMatch("(OK)") )
00028 {
00029 geometry.lgStaticNoIt = true;
00030 }
00031 }
00032
00033
00034 geometry.covgeo = 1.;
00035 geometry.covrt = 1.;
00036
00037
00038 fac = p.FFmtRead();
00039
00040 if( !p.lgEOL() )
00041 {
00042
00043 fprintf(ioQQQ," The number %g appeared on the SPHERE command.\n", fac);
00044 fprintf(ioQQQ," The covering factor can no longer be set with the SPHERE command.\n");
00045 fprintf(ioQQQ," The number has been ignored.\n");
00046 }
00047
00048
00049
00050
00051
00052
00053
00054 if( p.nMatch("SLIT") || p.nMatch("BEAM") )
00055 {
00056
00057 fprintf(ioQQQ," The SLIT and BEAM options are now part of the APERTURE command.\n");
00058 fprintf(ioQQQ," The syntax is the same.\n");
00059 fprintf(ioQQQ," This option has been ignored.\n");
00060 }
00061 return;
00062 }