vrmlout_sol()

void vrmlout_sol

(

)

Produces the VRML files for visualization and handling of sources, radiant panels, and impedent panels. Uses VRML 2.0 format (http://www.web3d.org)

                  {
  int i;
  FILE *f;
  char fname[MAX_PATH];

  logger(LOG_DEBUG,"About to produce VRML SOL files \n");
  
  if (0 != rank) return; // Does the job only on master process
  
  if(0 != modsolinfo->nsourc){  
          get_filename(fname,"%s-sources.wrl",rundetails->title);  // Domain Boundary
          f = fopen(fname,"w");
          fprintf(f,"#VRML V2.0 utf8 \n");     
          fprintf(f,"Transform { \n translation 0.0 0.0 0.0 \n children[ \n Shape { \n");
          fprintf(f,"appearance Appearance{ \n material Material{ \n diffuseColor 0.0 1.0 0.4 \n");
          fprintf(f,"emissiveColor 0.0 1.0 0.4 \n shininess 0.8 }} \n");
          fprintf(f,"geometry PointSet { \n coord Coordinate { point [ \n");
          for(i=0;i<modsolinfo->nsourc;i++){
            fprintf(f,"  %f   %f   %f \n",(double)solution->sources[i].pos.x,(double)solution->sources[i].pos.y,(double)solution->sources[i].pos.z);
          }
          fprintf(f,"] } \n");
          fprintf(f,"} } ] }\n");
          fclose(f);
  } 
  

  logger(LOG_DEBUG,"VRML files produced\n");
}