ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/REPOS_ERICCA/magic/lib/diamesh/src/m3d_wm2d.cpp
Revision: 283
Committed: Tue Sep 13 21:11:20 2011 UTC (13 years, 8 months ago) by francois
File size: 1396 byte(s)
Log Message:
structure de l'écriture

File Contents

# User Rev Content
1 francois 283 /* lecture des fichiers */
2     #include <stdio.h>
3     #include <string.h>
4     #include "m3d_const.h"
5     #include "m3d_hotes.h"
6     #include "m3d_struct.h"
7     #define EXT_TIT "_SAVE.TIT"
8     #include "prototype.h"
9     extern int format ;
10     extern GEST_MEM *gest ;
11     extern int debug ;
12     extern int out ;
13     extern int nb_max_noe ;
14     void m3d_wm2d(void)
15     {
16     FILE *output ;
17     char *ext ;
18     char temp[MAX_LINE] ;
19     int i ;
20    
21     ext = (char*)EXT_TIT ;
22     temp[0] = 0 ;
23     strcpy(temp,gest->buffer) ;
24     strncat(temp,ext,9) ;
25     if ( (output = fopen(temp,"w")) == NULL)
26     {
27     if (debug) printf(" Erreur ouverture du fichier \n") ;
28     return ;
29     }
30     fprintf(output,"%s\n",gest->buffer) ;
31     fprintf(output,"%5d%5d%5d 6 6 0 0 0 0\n",3,gest->nb_init,gest->nb_2d) ;
32     fprintf(output,"%5d%5d 4 0 0 0\n",-1,gest->nb_init) ;
33     for (i=0;i<gest->nb_init;i++)
34     fprintf(output,"%5d%16f%16f%16f\n",i+1,gest->vcorg[x(i)],gest->vcorg[y(i)],gest->vcorg[z(i)]) ;
35     fprintf(output,"%5d%5d 7 0 0 0\n",-2,gest->nb_2d) ;
36     for (i=0;i<gest->nb_2d;i++)
37     fprintf(output,"%5d%5d%5d%5d%5d%5d%5d\n",i+1,2003,0,3,
38     gest->tabele[3*i] + 1,gest->tabele[3*i+1] + 1,gest->tabele[3*i+2] +1) ;
39     fprintf(output," 0 0 0 0 0 0\n") ;
40     fclose(output) ;
41     // aff_text("CREATION D'UN FICHIER AU FORMAT SYSTUS\n") ;
42     return ;
43     }