]> git.mxchange.org Git - flightgear.git/blob - Cockpit/hud.cxx
Tweaks for sgi building.
[flightgear.git] / Cockpit / hud.cxx
1 /**************************************************************************
2  * hud.cxx -- hud defines and prototypes
3  *
4  * Written by Michele America, started September 1997.
5  *
6  * Copyright (C) 1997  Michele F. America  - micheleamerica@geocities.com
7  *
8  * This program is free software; you can redistribute it and/or
9  * modify it under the terms of the GNU General Public License as
10  * published by the Free Software Foundation; either version 2 of the
11  * License, or (at your option) any later version.
12  *
13  * This program is distributed in the hope that it will be useful, but
14  * WITHOUT ANY WARRANTY; without even the implied warranty of
15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16  * General Public License for more details.
17  *
18  * You should have received a copy of the GNU General Public License
19  * along with this program; if not, write to the Free Software
20  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
21  *
22  * $Id$
23  * (Log is kept at end of this file)
24  **************************************************************************/
25
26
27 #ifdef HAVE_CONFIG_H
28 #  include <config.h>
29 #endif
30
31 #ifdef HAVE_WINDOWS_H
32 #  include <windows.h>
33 #endif
34
35 #include <GL/glut.h>
36 #include <stdlib.h>
37 #include <string.h>
38
39 #ifdef HAVE_VALUES_H
40 #  include <values.h>  // for MAXINT
41 #endif
42
43 #include <Aircraft/aircraft.h>
44 #include <Debug/fg_debug.h>
45 #include <Include/fg_constants.h>
46 #include <Main/options.hxx>
47 #include <Math/fg_random.h>
48 #include <Math/mat3.h>
49 #include <Math/polar3d.hxx>
50 #include <Scenery/scenery.hxx>
51 #include <Time/fg_timer.hxx>
52 #include <Weather/weather.h>
53
54 #if defined ( __sun__ ) || defined ( __sgi )
55 extern "C" {
56   extern void *memmove(void *, const void *, size_t);
57 }
58 #endif
59
60 #include "hud.hxx"
61
62
63
64 // The following routines obtain information concerntin the aircraft's
65 // current state and return it to calling instrument display routines.
66 // They should eventually be member functions of the aircraft.
67 //
68
69 deque< instr_item * > HUD_deque;
70
71 class locRECT {
72   public:
73     RECT rect;
74
75     locRECT( UINT left, UINT top, UINT right, UINT bottom);
76     RECT get_rect(void) { return rect;}
77 };
78
79 locRECT :: locRECT( UINT left, UINT top, UINT right, UINT bottom)
80 {
81   rect.left   =  left;
82   rect.top    =  top;
83   rect.right  =  right;
84   rect.bottom =  bottom;
85
86 }
87 // #define DEBUG
88
89 void drawOneLine( UINT x1, UINT y1, UINT x2, UINT y2)
90 {
91   glBegin(GL_LINES);
92   glVertex2f(x1, y1);
93   glVertex2f(x2, y2);
94   glEnd();
95 }
96
97 void drawOneLine( RECT &rect)
98 {
99   glBegin(GL_LINES);
100   glVertex2f(rect.left, rect.top);
101   glVertex2f(rect.right, rect.bottom);
102   glEnd();
103 }
104
105 //
106 // The following code deals with painting the "instrument" on the display
107 //
108    /* textString - Bitmap font string */
109
110 void textString( int x, int y, char *msg, void *font ){
111         glRasterPos2f(x, y);
112         while (*msg) {
113                 glutBitmapCharacter(font, *msg);
114                 msg++;
115     }
116 }
117
118 /* strokeString - Stroke font string */
119
120 void strokeString(int x, int y, char *msg, void *font, float theta)
121 {
122 int xx;
123 int yy;
124
125         glPushMatrix();
126   glRotatef(theta * RAD_TO_DEG, 0.0, 0.0, 1.0);
127   xx = x * cos(theta) + y * sin( theta );
128   yy = y * cos(theta) - x * sin( theta );
129         glTranslatef( xx, yy, 0);
130         glScalef(.1, .1, 0.0);
131         while (*msg) {
132                 glutStrokeCharacter(font, *msg);
133                 msg++;
134         }
135         glPopMatrix();
136 }
137
138 //========================= End of Class Implementations===================
139 // fgHUDInit
140 //
141 // Constructs a HUD object and then adds in instruments. At the present
142 // the instruments are hard coded into the routine. Ultimately these need
143 // to be defined by the aircraft's instrumentation records so that the
144 // display for a Piper Cub doesn't show the speed range of a North American
145 // mustange and the engine readouts of a B36!
146 //
147
148 #define INSTRDEFS 21
149
150 int fgHUDInit( fgAIRCRAFT * /* current_aircraft */ )
151 {
152   instr_item *HIptr;
153   int index;
154
155   fgPrintf( FG_COCKPIT, FG_INFO, "Initializing current aircraft HUD\n" );
156
157   HUD_deque.erase( HUD_deque.begin(), HUD_deque.end());  // empty the HUD deque
158
159 //  hud->code = 1;
160 //  hud->status = 0;
161
162   // For now lets just hardcode the hud here.
163   // In the future, hud information has to come from the same place
164   // aircraft information came from.
165
166 //  fgHUDSetTimeMode( hud, NIGHT );
167 //  fgHUDSetBrightness( hud, BRT_LIGHT );
168
169   index = 0;
170
171   do {
172     switch ( index ) {
173       case 0:     // TBI
174         HIptr = (instr_item *) new fgTBI_instr( 270, 100, 60, 10 );
175         break;
176
177       case 1:     // Artificial Horizon
178         HIptr = (instr_item *) new HudLadder( 240, 195, 120, 180 );
179         break;
180
181       case 2:    // KIAS
182         HIptr = (instr_item *) new hud_card( 130,
183                                              170,
184                                               28,
185                                              200,
186                                              get_speed,
187                                              HUDS_LEFT | HUDS_VERT,
188                                              200.0, 0.0,
189                                              1.0,
190                                              10,  5,
191                                              0,
192                                              0,
193                                              50.0,
194                                              true);
195
196         break;
197
198       case 3:    // Radio Altimeter
199         HIptr = (instr_item *) new hud_card( 420,
200                                              195,
201                                               25,
202                                              150,
203                                              get_agl,
204                                              HUDS_LEFT | HUDS_VERT,
205                                              1000, 0,
206                                              1.0,
207                                              25,    5,
208                                              0,
209                                              0,
210                                              200.0,
211                                              true);
212         break;
213
214       case 4:    // GYRO COMPASS
215         HIptr = (instr_item *) new hud_card( 200,
216                                              375,
217                                              200,
218                                               28,
219                                              get_heading,
220                                              HUDS_TOP,
221                                              360, 0,
222                                                1.0,
223                                                5,   1,
224                                              360,
225                                                0,
226                                               25,
227                                              true);
228         break;
229
230       case 5:    // AMSL
231         HIptr = (instr_item *) new hud_card( 460,
232                                              170,
233                                               35,
234                                              200,
235                                              get_altitude,
236                                              HUDS_RIGHT | HUDS_VERT,
237                                              15000, 0,
238                                              1.0,
239                                              100,  25,
240                                              0,
241                                              0,
242                                              250,
243                                              true);
244         break;
245
246       case 6:
247         HIptr = (instr_item *) new  guage_instr( 250,            // x
248                                                  350,            // y
249                                                  100,            // width
250                                                   20,            // height
251                                                  get_aileronval, // data source
252                                                  HUDS_BOTTOM | HUDS_NOTEXT,
253                                                  100.0,
254                                                  +1.0,
255                                                  -1.0);
256         break;
257
258       case 7:
259         HIptr = (instr_item *) new  guage_instr( 170,             // x
260                                                  225,             // y
261                                                   20,             // width
262                                                  100,             // height
263                                                  get_elevatorval, // data source
264                                                  HUDS_RIGHT | HUDS_VERT | HUDS_NOTEXT,
265                                                 -100.0,           // Scale data
266                                                   +1.0,           // Data Range
267                                                   -1.0);
268         break;
269
270       case 8:
271         HIptr = (instr_item *) new  guage_instr( 250,             // x
272                                                  200,             // y
273                                                  100,             // width
274                                                   20,             // height
275                                                  get_rudderval,   // data source
276                                                  HUDS_TOP | HUDS_NOTEXT,
277                                                  100.0,
278                                                  +1.0,
279                                                  -1.0);
280         break;
281
282       case 9:
283         HIptr = (instr_item *) new  guage_instr( 100,             // x
284                                                  190,
285                                                   20,
286                                                  160,             // height
287                                                  get_throttleval, // data source
288                                                  HUDS_VERT | HUDS_RIGHT | HUDS_NOTEXT,
289                                                  100.0,
290                                                    1.0,
291                                                    0.0);
292         break;
293
294       case 10:    // Digital KIAS
295         HIptr = (instr_item *) new instr_label ( 110,
296                                                  150,
297                                                   40,
298                                                   30,
299                                                  get_speed,
300                                                  "%5.0f",
301                                                  NULL,
302                                                  " Kts",
303                                                  1.0,
304                                                  HUDS_TOP,
305                                                  RIGHT_JUST,
306                                                  SMALL,
307                                                  0,
308                                                  TRUE );
309         break;
310
311       case 11:    // Digital Altimeter
312         HIptr = (instr_item *) new instr_label ( 110,
313                                                  135,
314                                                   40,
315                                                   10,
316                                                  get_altitude,
317                                                  "MSL  %5.0f",
318                                                  NULL,
319                                                  " m",
320                                                  1.0,
321                                                  HUDS_TOP,
322                                                  LEFT_JUST,
323                                                  SMALL,
324                                                  0,
325                                                  TRUE );
326         break;
327
328       case 12:    // Roll indication diagnostic
329         HIptr = (instr_item *) new instr_label ( 110,
330                                                  120,
331                                                   40,
332                                                   10,
333                                                  get_roll,
334                                                  "%5.2f",
335                                                  " Roll",
336                                                  " Deg",
337                                                  1.0,
338                                                  HUDS_TOP,
339                                                  RIGHT_JUST,
340                                                  SMALL,
341                                                  0,
342                                                  TRUE );
343         break;
344
345       case 13:    // Angle of attack diagnostic
346         HIptr = (instr_item *) new instr_label ( 440,
347                                                  150,
348                                                   60,
349                                                   10,
350                                                  get_aoa,
351                                                  "      %5.2f",
352                                                  "AOA",
353                                                  " Deg",
354                                                  1.0,
355                                                  HUDS_TOP,
356                                                  RIGHT_JUST,
357                                                  SMALL,
358                                                  0,
359                                                  TRUE );
360         break;
361
362       case 14:
363         HIptr = (instr_item *) new instr_label ( 440,
364                                                  135,
365                                                   60,
366                                                   10,
367                                                  get_heading,
368                                                  " %5.1f",
369                                                  "Heading ",
370                                                  " Deg",
371                                                  1.0,
372                                                  HUDS_TOP,
373                                                  RIGHT_JUST,
374                                                  SMALL,
375                                                  0,
376                                                  TRUE );
377         break;
378
379       case 15:
380         HIptr = (instr_item *) new instr_label ( 440,
381                                                  120,
382                                                   60,
383                                                   10,
384                                                  get_sideslip,
385                                                  "%5.2f",
386                                                  "Sideslip ",
387                                                  NULL,
388                                                  1.0,
389                                                  HUDS_TOP,
390                                                  RIGHT_JUST,
391                                                  SMALL,
392                                                  0,
393                                                  TRUE );
394         break;
395
396       case 16:
397         HIptr = (instr_item *) new instr_label( 440,
398                                                 100,
399                                                  60,
400                                                  10,
401                                                 get_throttleval,
402                                                 "%5.2f",
403                                                 "Throttle ",
404                                                 NULL,
405                                                  1.0,
406                                                 HUDS_TOP,
407                                                 RIGHT_JUST,
408                                                 SMALL,
409                                                 0,
410                                                 TRUE );
411         break;
412
413       case 17:
414         HIptr = (instr_item *) new instr_label( 440,
415                                                  85,
416                                                  60,
417                                                  10,
418                                                 get_elevatorval,
419                                                 "%5.2f",
420                                                 "Elevator ",
421                                                 NULL,
422                                                  1.0,
423                                                 HUDS_TOP,
424                                                 RIGHT_JUST,
425                                                 SMALL,
426                                                 0,
427                                                 TRUE );
428         break;
429
430       case 18:
431         HIptr = (instr_item *) new instr_label( 440,
432                                                  60,
433                                                  60,
434                                                  10,
435                                                 get_aileronval,
436                                                 "%5.2f",
437                                                 "Aileron  ",
438                                                 NULL,
439                                                  1.0,
440                                                 HUDS_TOP,
441                                                 RIGHT_JUST,
442                                                 SMALL,
443                                                 0,
444                                                 TRUE );
445         break;
446
447
448       case 19:
449         HIptr = (instr_item *) new instr_label( 10,
450                                                 10,
451                                                 60,
452                                                 10,
453                                                  get_frame_rate,
454                                                 "%.1f",
455                                                 "Frame rate = ",
456                                                 NULL,
457                                                  1.0,
458                                                 HUDS_TOP,
459                                                 RIGHT_JUST,
460                                                 SMALL,
461                                                 0,
462                                                 TRUE );
463         break;
464
465       case 20:
466         HIptr = (instr_item *) new instr_label( 10,
467                                                 25,
468                                                 90,
469                                                 10,
470                                                  get_vfc_ratio,
471                                                 "%.2f",
472                                                 "VFC Ratio = ",
473                                                 NULL,
474                                                  1.0,
475                                                 HUDS_TOP,
476                                                 RIGHT_JUST,
477                                                 SMALL,
478                                                 0,
479                                                 TRUE );
480         break;
481
482       case 21:
483         HIptr = (instr_item *) new instr_label( 10,
484                                                 40,
485                                                 90,
486                                                 10,
487                                                 get_fov,
488                                                 "%.1f",
489                                                 "FOV = ",
490                                                 NULL,
491                                                  1.0,
492                                                 HUDS_TOP,
493                                                 RIGHT_JUST,
494                                                 SMALL,
495                                                 0,
496                                                 TRUE );
497         break;
498
499       default:
500         HIptr = 0;;
501       }
502     if( HIptr ) {                   // Anything to install?
503       HUD_deque.insert( HUD_deque.begin(), HIptr);
504       }
505     index++;
506     }
507   while( HIptr );
508
509   return 0;  // For now. Later we may use this for an error code.
510 }
511
512 int global_day_night_switch = DAY;
513
514 void HUD_brightkey( bool incr_bright )
515 {
516 instr_item *pHUDInstr = HUD_deque[0];
517 int brightness        = pHUDInstr->get_brightness();
518
519   if( current_options.get_hud_status() ) {
520     if( incr_bright ) {
521       switch (brightness) {
522         case BRT_LIGHT:
523               current_options.set_hud_status(0);
524           break;
525
526         case BRT_MEDIUM:
527           brightness = BRT_LIGHT;
528           break;
529
530         case BRT_DARK:
531           brightness = BRT_MEDIUM;
532           break;
533
534         case BRT_BLACK:
535           brightness = BRT_DARK;
536           break;
537
538         default:
539           brightness = BRT_BLACK;
540         }
541       }
542     else {
543       switch (brightness) {
544         case BRT_LIGHT:
545           brightness = BRT_MEDIUM;
546           break;
547
548         case BRT_MEDIUM:
549           brightness = BRT_DARK;
550           break;
551
552         case BRT_DARK:
553           brightness = BRT_BLACK;
554           break;
555
556         case BRT_BLACK:
557         default:
558               current_options.set_hud_status(0);
559         }
560       }
561     }
562   else {
563     current_options.set_hud_status(1);
564     if( incr_bright ) {
565       if( DAY == global_day_night_switch ) {
566         brightness = BRT_BLACK;
567         }
568       else {
569         brightness = BRT_DARK;
570         global_day_night_switch = DAY;
571         }
572       }
573     else {
574       if( NIGHT == global_day_night_switch ) {
575         brightness = BRT_DARK;
576         }
577       else {
578         brightness = BRT_MEDIUM;
579         global_day_night_switch = NIGHT;
580         }
581       }
582     }
583   pHUDInstr->SetBrightness( brightness );
584 }
585
586 // fgUpdateHUD
587 //
588 // Performs a once around the list of calls to instruments installed in
589 // the HUD object with requests for redraw. Kinda. It will when this is
590 // all C++.
591 //
592 void fgUpdateHUD( void ) {
593   int i;
594   int brightness;
595 //  int day_night_sw = current_aircraft.controls->day_night_switch;
596   int day_night_sw = global_day_night_switch;
597   int hud_displays = HUD_deque.size();
598   instr_item *pHUDInstr;
599
600   if( !hud_displays ) {  // Trust everyone, but ALWAYS cut the cards!
601     return;
602     }
603
604   pHUDInstr = HUD_deque[0];
605   brightness = pHUDInstr->get_brightness();
606 //  brightness = HUD_deque.at(0)->get_brightness();
607
608   glMatrixMode(GL_PROJECTION);
609   glPushMatrix();
610
611   glLoadIdentity();
612   gluOrtho2D(0, 640, 0, 480);
613   glMatrixMode(GL_MODELVIEW);
614   glPushMatrix();
615   glLoadIdentity();
616
617   glColor3f(1.0, 1.0, 1.0);
618   glIndexi(7);
619
620   glDisable(GL_DEPTH_TEST);
621   glDisable(GL_LIGHTING);
622
623   glLineWidth(1);
624
625   deque < instr_item * > :: iterator current;
626   deque < instr_item * > :: iterator last;
627
628   current = HUD_deque.begin();
629   last = HUD_deque.end();
630   while ( current != last ) {
631     pHUDInstr = *current;
632     current++;
633
634     // for( i = hud_displays; i; --i) { // Draw everything
635     // if( HUD_deque.at(i)->enabled()) {
636     // pHUDInstr = HUD_deque[i - 1];
637     if( pHUDInstr->enabled()) {
638                                    // We should to respond to a dial instead
639                                    // or as well to the of time of day. Of
640                                    // course, we have no dial!
641       if( day_night_sw == DAY) {
642         switch (brightness) {
643           case BRT_LIGHT:
644             glColor3f (0.1, 0.9, 0.1);
645             break;
646
647           case BRT_MEDIUM:
648             glColor3f (0.1, 0.7, 0.0);
649             break;
650
651           case BRT_DARK:
652             glColor3f (0.0, 0.5, 0.0);
653             break;
654
655           case BRT_BLACK:
656             glColor3f( 0.0, 0.0, 0.0);
657             break;
658
659           default:;
660             }
661           }
662         else {
663           if( day_night_sw == NIGHT) {
664             switch (brightness) {
665               case BRT_LIGHT:
666                 glColor3f (0.9, 0.1, 0.1);
667                 break;
668
669               case BRT_MEDIUM:
670                 glColor3f (0.7, 0.0, 0.1);
671                 break;
672
673               case BRT_DARK:
674               default:
675                 glColor3f (0.5, 0.0, 0.0);
676               }
677             }
678           else {     // Just in case default
679             glColor3f (0.1, 0.9, 0.1);
680             }
681           }
682     //  fgPrintf( FG_COCKPIT, FG_DEBUG, "HUD Code %d  Status %d\n",
683     //            hud->code, hud->status );
684       pHUDInstr->draw();
685 //      HUD_deque.at(i)->draw(); // Responsible for broken or fixed variants.
686                               // No broken displays honored just now.
687       }
688     }
689
690   glEnable(GL_DEPTH_TEST);
691   glEnable(GL_LIGHTING);
692   glMatrixMode(GL_PROJECTION);
693   glPopMatrix();
694   glMatrixMode(GL_MODELVIEW);
695   glPopMatrix();
696 }
697
698 /* $Log$
699 /* Revision 1.19  1998/07/30 23:44:05  curt
700 /* Tweaks for sgi building.
701 /*
702  * Revision 1.18  1998/07/20 12:47:55  curt
703  * Replace the hud rendering for loop (which linearly searches the the hud
704  * list to find the entry with the proper position) with a simple linear
705  * traversal using an "iterator."
706  *
707  * Revision 1.17  1998/07/13 21:28:02  curt
708  * Converted the aoa scale to a radio altimeter.
709  *
710  * Revision 1.16  1998/07/13 21:00:47  curt
711  * Integrated Charlies latest HUD updates.
712  * Wrote access functions for current fgOPTIONS.
713  *
714  * Revision 1.15  1998/07/08 14:41:08  curt
715  * Renamed polar3d.h to polar3d.hxx
716  *
717  * Revision 1.14  1998/07/06 21:31:20  curt
718  * Removed an extraneous ^M.
719  *
720  * Revision 1.13  1998/07/03 13:16:28  curt
721  * Added Charlie Hotchkiss's HUD updates and improvementes.
722  *
723  * Revision 1.11  1998/06/05 18:17:10  curt
724  * Added the declaration of memmove needed by the stl which apparently
725  * solaris only defines for cc compilations and not for c++ (__STDC__)
726  *
727  * Revision 1.10  1998/05/17 16:58:12  curt
728  * Added a View Frustum Culling ratio display to the hud.
729  *
730  * Revision 1.9  1998/05/16 13:04:14  curt
731  * New updates from Charlie Hotchkiss.
732  *
733  * Revision 1.8  1998/05/13 18:27:54  curt
734  * Added an fov to hud display.
735  *
736  * Revision 1.7  1998/05/11 18:13:11  curt
737  * Complete C++ rewrite of all cockpit code by Charlie Hotchkiss.
738  *
739  * Revision 1.22  1998/04/18 04:14:02  curt
740  * Moved fg_debug.c to it's own library.
741  *
742  * Revision 1.21  1998/04/03 21:55:28  curt
743  * Converting to Gnu autoconf system.
744  * Tweaks to hud.c
745  *
746  * Revision 1.20  1998/03/09 22:48:40  curt
747  * Minor "formatting" tweaks.
748  *
749  * Revision 1.19  1998/02/23 20:18:28  curt
750  * Incorporated Michele America's hud changes.
751  *
752  * Revision 1.18  1998/02/21 14:53:10  curt
753  * Added Charlie's HUD changes.
754  *
755  * Revision 1.17  1998/02/20 00:16:21  curt
756  * Thursday's tweaks.
757  *
758  * Revision 1.16  1998/02/19 13:05:49  curt
759  * Incorporated some HUD tweaks from Michelle America.
760  * Tweaked the sky's sunset/rise colors.
761  * Other misc. tweaks.
762  *
763  * Revision 1.15  1998/02/16 13:38:39  curt
764  * Integrated changes from Charlie Hotchkiss.
765  *
766  * Revision 1.14  1998/02/12 21:59:41  curt
767  * Incorporated code changes contributed by Charlie Hotchkiss
768  * <chotchkiss@namg.us.anritsu.com>
769  *
770  * Revision 1.12  1998/02/09 15:07:48  curt
771  * Minor tweaks.
772  *
773  * Revision 1.11  1998/02/07 15:29:34  curt
774  * Incorporated HUD changes and struct/typedef changes from Charlie Hotchkiss
775  * <chotchkiss@namg.us.anritsu.com>
776  *
777  * Revision 1.10  1998/02/03 23:20:14  curt
778  * Lots of little tweaks to fix various consistency problems discovered by
779  * Solaris' CC.  Fixed a bug in fg_debug.c with how the fgPrintf() wrapper
780  * passed arguments along to the real printf().  Also incorporated HUD changes
781  * by Michele America.
782  *
783  * Revision 1.9  1998/01/31 00:43:04  curt
784  * Added MetroWorks patches from Carmen Volpe.
785  *
786  * Revision 1.8  1998/01/27 00:47:51  curt
787  * Incorporated Paul Bleisch's <bleisch@chromatic.com> new debug message
788  * system and commandline/config file processing code.
789  *
790  * Revision 1.7  1998/01/19 18:40:20  curt
791  * Tons of little changes to clean up the code and to remove fatal errors
792  * when building with the c++ compiler.
793  *
794  * Revision 1.6  1997/12/15 23:54:34  curt
795  * Add xgl wrappers for debugging.
796  * Generate terrain normals on the fly.
797  *
798  * Revision 1.5  1997/12/10 22:37:39  curt
799  * Prepended "fg" on the name of all global structures that didn't have it yet.
800  * i.e. "struct WEATHER {}" became "struct fgWEATHER {}"
801  *
802  * Revision 1.4  1997/09/23 00:29:32  curt
803  * Tweaks to get things to compile with gcc-win32.
804  *
805  * Revision 1.3  1997/09/05 14:17:26  curt
806  * More tweaking with stars.
807  *
808  * Revision 1.2  1997/09/04 02:17:30  curt
809  * Shufflin' stuff.
810  *
811  * Revision 1.1  1997/08/29 18:03:22  curt
812  * Initial revision.
813  *
814  */