1 /***********************************************************************
2 *
3 * ***** *** ***
4 * * * * * *
5 * * *** ***
6 * * * * * *
7 * ***** *** ***
8 *
9 * A FREE Finite Elements Analysis Program in ANSI C for the Windows OS.
10 *
11 * Composed and edited and copyright by
12 * Professor Dr.-Ing. Frank Rieg, University of Bayreuth, Germany
13 *
14 * eMail:
15 * frank.rieg@uni-bayreuth.de
16 * dr.frank.rieg@t-online.de
17 *
18 * V15.0 November 18 2015
19 *
20 * This program is free software; you can redistribute it and/or modify
21 * it under the terms of the GNU General Public License as published by
22 * the Free Software Foundation; either version 2, or (at your option)
23 * any later version.
24 *
25 * This program is distributed in the hope that it will be useful,
26 * but WITHOUT ANY WARRANTY; without even the implied warranty of
27 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
28 * GNU General Public License for more details.
29 *
30 * You should have received a copy of the GNU General Public License
31 * along with this program; see the file COPYING. If not, write to
32 * the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
33 ***********************************************************************/
34 /***********************************************************************
35 * Function wrim88n gibt Texte aus
36 * 31.7.2011 Rieg
37 ***********************************************************************/
38
39 /***********************************************************************
40 * Fuer Windows
41 ***********************************************************************/
42 #ifdef FR_WIN
43 #include <z88n.h>
44 #include <windows.h>
45 #include <string.h> /* strlen */
46 #include <stdio.h> /* sprintf */
47 #endif
48
49 /***********************************************************************
50 * Formate
51 ***********************************************************************/
52 #ifdef FR_XINT
53 #define PD "%d"
54 #endif
55
56 #ifdef FR_XLONG
57 #define PD "%ld"
58 #endif
59
60 #ifdef FR_XLOLO
61 #define PD "%lld"
62 #endif
63
64 /***********************************************************************
65 * hier beginnt Function wrim88n
66 ***********************************************************************/
wrim88n(FR_INT4 i,int iatx)67 int wrim88n(FR_INT4 i,int iatx)
68 {
69 extern HDC hDC;
70 extern FR_INT4 LANG;
71
72 size_t laenge;
73
74 char cline[80];
75
76 switch(iatx)
77 {
78 case TX_SUPERELE:
79 if(LANG == 1) sprintf(cline,"Superelement " PD,i);
80 if(LANG == 2) sprintf(cline,"super element " PD,i);
81 laenge= strlen(cline);
82 TextOut(hDC,250,110,cline,laenge);
83 break;
84
85 case TX_REANI:
86 if(LANG == 1) TextOut(hDC,10,50,"Z88NI.TXT einlesen :",20);
87 if(LANG == 2) TextOut(hDC,10,50,"reading Z88NI.TXT :",19);
88 break;
89
90 case TX_BERJOIN:
91 if(LANG == 1) TextOut(hDC,10,70,"Vektor JOIN berechnen",21);
92 if(LANG == 2) TextOut(hDC,10,70,"computing vector JOIN",21);
93 break;
94
95 case TX_BERKOOR:
96 if(LANG == 1) TextOut(hDC,10,90,"Koordinaten berechnen",21);
97 if(LANG == 2) TextOut(hDC,10,90,"computing coordinates",21);
98 break;
99
100 case TX_BERKOIN:
101 if(LANG == 1) TextOut(hDC,10,110,"Koinzidenz berechnen",20);
102 if(LANG == 2) TextOut(hDC,10,110,"computing element infos",23);
103 break;
104
105 case TX_WRII1:
106 if(LANG == 1) TextOut(hDC,10,130,"Z88I1.TXT beschreiben, Ende Z88N",32);
107 if(LANG == 2) TextOut(hDC,10,130,"writing Z88I1.TXT, Z88N done",28);
108 break;
109
110 }
111 return(0);
112 }
113
114