哪位高手帮我看看我这程序，我的这个怎么画不出图来呢

xiaohaha1985

#include <stdio.h>
* X8 Z) W# @: `& y#include <uf.h>
. P8 }2 A# R0 I#include <uf_defs.h>
$ m' l# m6 I- L+ U' d#include <uf_exit.h>
#include <uf_ui.h>
9 l6 q+ f% c* J4 d+ X#include <uf_styler.h>
0 A: a+ e1 v9 @1 H4 ]#include <uf_mb.h>
+ ]! T1 F. Y: U9 i8 v% x7 l. a& Q1 }#include <C:\Documents and Settings\Administrator\My Documents\bsurface\新建文件夹\bsurface\bsurface.h>

#include <stdlib.h>//后加
#include <uf_part.h>
5 Z7 b& b- k' _1 j( _$ W#include <uf_defs.h>
#include <uf_modl.h>
" ^1 }8 Q/ v7 ?2 {' A
#define UF_CALL
#define BSURFACE_CB_COUNT ( 4 + 1 ) /* Add 1 for the terminator */
( x" g+ @* v. X9 l8 r9 A" tstatic UF_STYLER_callback_info_t BSURFACE_cbs[BSURFACE_CB_COUNT] =
4 @/ `1 `0 Q  F  X9 s' f8 Z1 }$ }' e{
; M" K' X" C) L% l5 @ {UF_STYLER_DIALOG_INDEX, UF_STYLER_CONSTRUCTOR_CB  , 0, BSURFACE_constructor_cb},
) Y  k' M' Y  {7 b$ o {UF_STYLER_DIALOG_INDEX, UF_STYLER_DESTRUCTOR_CB   , 0, BSURFACE_destructor_cb},
4 L2 `3 {' j4 ~, E {UF_STYLER_DIALOG_INDEX, UF_STYLER_OK_CB           , 0, BSURFACE_ok_cb},
{UF_STYLER_DIALOG_INDEX, UF_STYLER_CANCEL_CB       , 0, BSURFACE_cancle_cb},
{UF_STYLER_NULL_OBJECT, UF_STYLER_NO_CB, 0, 0 }
};

static UF_MB_styler_actions_t actions[] = {
    { "bsurface.dlg",  NULL,   BSURFACE_cbs,  UF_MB_STYLER_IS_NOT_TOP },
% o/ Q" ?3 z% c4 @0 B    { NULL,  NULL,  NULL,  0 } /* This is a NULL terminated list */
/ B6 @4 N" F6 L+ m/ F};
2 c5 ?; U9 s- |* n8 r" w
static void do_ugopen_api(void)
{
  L  v1 C2 t4 D( }, d3 d
  char    *prtnam = "create_bsurf";

" i% N! n! w1 p" ]: j  /* Points for B-surface  */
  double points[16][3] = { X1, Y1, Z1,
1 G* m  `: c5 A4 J; ?+ E                                       X2, Y2, Z2,
( T& _1 F3 S6 ~/ ]& b' Q2 a0 s& J                                       X3, Y3, Z3,
7 F/ V( E+ i% \0 c" [2 u" Y                                       X4, Y4, Z4,
                                       X5, Y5, Z5,
6 m- J- A# t5 S, ]  w" U" u                                       X6, Y6, Z6,
/ H2 h$ u, g8 n  X  ?/ t                                       X7, Y7, Z7,
  e, l& F; `9 F                                       X8, Y8, Z8,
' l/ l5 p4 ]+ p5 M2 B: i                                       X9, Y9, Z9,
- V/ ^. l6 Y& X( Z                                       X10, Y10, Z10,
                                       X11, Y11, Z11,
, ~0 Y- p8 \2 X! e) V                                       X12, Y12, Z12,
                                       X13, Y13, Z13,
                                       X14, Y14, Z14,
5 u( F: x  o* M) T- I3 U# R6 T                                       X15, Y15, Z15,
                                       X16, Y16, Z16 };       
2 O; t0 M1 u" r
  int create_mode = 1;
  int u_closed_status = 0;
  int v_closed_status = 0;
; }* J; q( ?! {  int u_degree = 3;
3 T; a2 L2 w" q  int v_degree = 3;
0 x7 M9 B8 b$ Y3 h  int num_rows = 4;
) }' i/ D% }' G* s& N6 c0 j  Z2 B  int pts_per_row[4] = {4, 4, 4, 4};
; G/ A& X' q+ a8 z* @( {   
% \( t8 |1 Z! R! M0 A! F  int ii, jj, kk, indx;
$ L) s- ~% t9 Z        
  tag_t   part_tag;
  tag_t   bsurf_obj_id = NULL_TAG;
+ {( m) H7 X6 w( d8 V/ Y
  UF_MODL_bsurf_row_info_t *pts_info_per_row; /* pts info for each row */
  UF_MODL_bsurface_t   bsurf;


  B! b/ P3 J2 O5 ?% d/ }  /* Open a new part */
  UF_CALL( UF_PART_new(prtnam, METRIC, &part_tag) );
# `) ~: y  R5 M3 I
  pts_info_per_row = ( UF_MODL_bsurf_row_info_t *)malloc( num_rows *
& z4 H- w. P( \0 n$ R/ g5 E0 x0 w. N                       sizeof(UF_MODL_bsurf_row_info_t) );
4 z' C2 a& A7 U# A0 |2 K   
  /* allocate and load point and other information for each row of points */
* r% ~0 C9 ~& Y1 h  indx = 0;
) ~* Q; j* \. d  for (ii=0; ii<num_rows; ii++)
  {
1 E& f) o5 W( \- {    pts_info_per_row[ii].num_points = pts_per_row[ii];  /* can vary */
' G2 n. n+ K3 _+ m# `9 A    pts_info_per_row[ii].points = (double *)malloc( pts_per_row[ii] * 3 *
                                   sizeof(double) );
6 e/ v1 J* ?6 M2 o  F      
0 O8 z' |, m4 V! C5 k9 x9 Z    pts_info_per_row[ii].weight = (double *)malloc( pts_per_row[ii] *
6 _* k! n+ ^+ ]                                   sizeof(double) );
               
    /* load up point and weight info */
    for (jj=0, kk = 0; kk<pts_per_row[ii]; kk++, jj+=3, indx++)
    {
      pts_info_per_row[ii].points[jj] = points[indx][0];
9 z. K% q  i) l& `, l5 N$ d7 [# B      pts_info_per_row[ii].points[jj+1] = points[indx][1];
( Z, l, p* w. [4 G, d/ K6 d7 L      pts_info_per_row[ii].points[jj+2] = points[indx][2];
4 r9 S$ w, p6 y' T& p+ ^0 R      pts_info_per_row[ii].weight[kk] = 1.0;
   
    }
$ @" ?" S: p2 _, A) R8 H  }
9 H( R9 Y) v1 O6 v/ ~  
  /* create B-surface */
  UF_CALL(UF_MODL_create_bsurf_thru_pts( create_mode, u_closed_status,
                                         v_closed_status, u_degree,
                                         v_degree, num_rows, pts_info_per_row,
$ T- S) r9 G0 l9 @$ |% F- S6 ^+ _                                         &bsurf_obj_id));
                   
3 W9 d8 e9 J. _0 ~' c; V  if ( bsurf_obj_id == NULL_TAG )
. h) K0 {+ r4 P8 Z& R) x: C    printf("*** ERROR CREATING B-SURFACE ***\n");
6 j2 b  T$ C, i! {9 v* A
  /* free allocated memory */
  for (ii=0; ii<num_rows; ii++)
  {
; Y- P$ z3 s) Y3 O- P- p    free(pts_info_per_row[ii].points);
    free(pts_info_per_row[ii].weight);
! ~! U" q' B$ {: Z0 q  }
  
/ |6 a. }: D- J% ]8 P6 n  free(pts_info_per_row);
- r" ?# g* s7 @9 T, B, _   
' e7 n  b8 r0 x! \( g% t. F( r0 K   
  /* ask the B-surface information */
  UF_CALL(UF_MODL_ask_bsurf( bsurf_obj_id, &bsurf ));
  
$ A2 B* `$ I* |# w+ A& ]  /* validate the surface */
  if ( (bsurf.order_u != u_degree+1) || (bsurf.order_v != v_degree+1) )
    printf("*** ERROR ASKING B-SURFACE ***\n");
( R/ s  b2 X5 L* e3 @) D8 b6 A  
  UF_CALL(UF_MODL_free_bsurf_data(&bsurf));

# U/ g/ d' l- X+ J+ z+ A8 }+ L1 `& z
}
extern DllExport void ufsta (char *param, int *retcode, int rlen)
{
9 G/ f" }: z; m. u" x0 _    int  error_code;
# A+ r% j  ~: ]0 h6 @
    if ( (UF_initialize()) != 0)
        do_UGopen_api();  
                return;
                                                
$ P8 v) p0 |1 j" G/ O' L    if ( (error_code = UF_MB_add_styler_actions ( actions ) ) != 0 )
3 o1 C( Q9 W4 D/ u    {
          char fail_message[133];
  y' N0 b+ X: G/ T# O" w1 x         
          UF_get_fail_message(error_code, fail_message);
          printf ( "%s\n", fail_message );
    }
6 q) P, ]9 b$ Z                                                
    UF_terminate();                             
    return;
}
extern int LaunchBsurfaceDialog ( int *response )
6 K3 g6 I: J* u7 \4 T2 ^9 v: J{
    int  error_code = 0;
- F- T! f8 H/ U4 F. a
2 D$ j# k) I" s- Q5 G    if ( ( error_code = UF_initialize() ) != 0 )
           return (0) ;

2 v. E9 {" [0 K, K( m" B    if ( ( error_code = UF_STYLER_create_dialog ( "bsurface.dlg",
           BSURFACE_cbs,      /* Callbacks from dialog */
+ z2 t5 G) |2 r5 F" Y) I- w/ L" i6 j           BSURFACE_CB_COUNT, /* number of callbacks*/
$ a0 Y& w3 E( J  u# F           NULL,        /* This is your client data */
           response ) ) != 0 )
+ }% d: f3 w! [6 A2 B    {
          char fail_message[133];
2 V# }: w" ^' h, V
( y# r, M% V2 V4 H* d& U+ `          /* Get the user function fail message based on the fail code.*/
          UF_get_fail_message(error_code, fail_message);
          UF_UI_set_status (fail_message);
! s& y6 d. n) Q$ K1 l8 p          printf ( "%s\n", fail_message );
    }

$ O! ]' Q6 p0 z: y  q5 M5 g7 ]
    UF_terminate();                             
1 v7 a+ B6 N0 j+ {    return (error_code);
. x) X- j9 l/ f* x1 X# S! j( A}
( I1 t: n, H/ F! y5 V
+ J1 |/ b0 W% U! q+ lextern int ufusr_ask_unload (void)
{
     /* unload immediately after application exits*/
     return ( UF_UNLOAD_IMMEDIATELY );
}
& ?* k+ I$ X) \0 s6 ]extern void ufusr_cleanup (void)
{
    return;
3 n1 B, R% I3 v$ w4 R* Q, C}
#endif

xiaohaha1985

求高手帮忙看看那这程序急用啊

xiaohaha1985

int BSURFACE_ok_cb ( int dialog_id,
             void * client_data,
             UF_STYLER_item_value_type_p_t callback_data)
{
     /* Make sure User Function is available. */  
     if ( UF_initialize() != 0)
          return ( UF_UI_CB_CONTINUE_DIALOG );
, U3 Y7 q5 y. U3 g4 d
3 t# L6 v( X6 e1 M2 z     /*获取对话框数据*/
         
         UF_STYLER_item_value_type_t data;
         data.item_attr=UF_STYLER_VALUE;
# t6 q2 ^, y- ^4 s- B2 E         
         data.item_id=BSURFACE_REAL_X1;
; \: O. B2 a$ }         UF_STYLER_ask_value(dialog_id,&data);
         X1=data.value.real;
1 @% _' J, b- I6 U, D7 U         
5 o% s' J# ~& s3 s! U) \         data.item_id=BSURFACE_REAL_Y1;
         UF_STYLER_ask_value(dialog_id,&data);
         Y1=data.value.real;

/ x% ]; D6 y. u4 ]9 _3 \" ?- J     data.item_id=BSURFACE_REAL_Z1;
         UF_STYLER_ask_value(dialog_id,&data);
2 ^/ \3 X' Y: z: |         Z1=data.value.real;
5 i/ E8 J: |8 e' g         
) y. D5 T4 _  t6 s; H# h         data.item_id=BSURFACE_REAL_X2;
* Q" a" M1 c: n$ T+ G6 ]! m         UF_STYLER_ask_value(dialog_id,&data);
% ~- u8 W! B/ f! N; e0 h' |" T+ n         X2=data.value.real;
# B4 b1 O( e6 z5 s1 b) C. e! I  _9 j         
0 F$ I- s0 z$ Q/ G3 |2 f         data.item_id=BSURFACE_REAL_Y2;
/ {+ d" R% ~; b         UF_STYLER_ask_value(dialog_id,&data);
" M& O# ~$ K' j) \# ^8 ^3 w         Y2=data.value.real;
  x! w( b4 \2 t, x* T         
$ k' r" d/ C8 Y0 J4 _8 C         data.item_id=BSURFACE_REAL_Z2;
$ ^* P: R+ n+ m, r% q. O         UF_STYLER_ask_value(dialog_id,&data);
% |2 B& G) ]+ d5 U         Z2=data.value.real;
         
         data.item_id=BSURFACE_REAL_X3;
         UF_STYLER_ask_value(dialog_id,&data);
% A. X) O+ j) B" V! x0 L         X3=data.value.real;
         
         data.item_id=BSURFACE_REAL_Y3;
         UF_STYLER_ask_value(dialog_id,&data);
         Y3=data.value.real;
         
         data.item_id=BSURFACE_REAL_Z3;
         UF_STYLER_ask_value(dialog_id,&data);
' Z1 L7 L1 r* \/ E         Z3=data.value.real;
8 w) O' B7 W* W; j4 T4 b8 x         
         data.item_id=BSURFACE_REAL_X4;
' }1 G; `1 ^" D         UF_STYLER_ask_value(dialog_id,&data);
         X4=data.value.real;
6 n8 N! l) A" H! m
8 E6 g6 t+ H# O  Q' R7 k         data.item_id=BSURFACE_REAL_Y4;
         UF_STYLER_ask_value(dialog_id,&data);
         Y4=data.value.real;
0 H5 Z& }: G' ~3 h0 K3 w' B4 {         
         data.item_id=BSURFACE_REAL_Z4;
& ~- m8 h) n) A         UF_STYLER_ask_value(dialog_id,&data);
         Z4=data.value.real;
0 u0 U; ~: W+ d& K: {         
5 q& {$ A6 O) k3 Q5 D9 Z/ S         data.item_id=BSURFACE_REAL_X5;
         UF_STYLER_ask_value(dialog_id,&data);
         X5=data.value.real;

+ m1 b" c; `; C5 W+ ~7 O% E         data.item_id=BSURFACE_REAL_Y5;
% z% v2 q$ ~/ _' G( w  j         UF_STYLER_ask_value(dialog_id,&data);
8 D' \2 U9 L& j  F         Y5=data.value.real;
+ N: ~( ~2 O+ ?) H         
- W* c8 v4 Q& h4 H' x         data.item_id=BSURFACE_REAL_Z5;
         UF_STYLER_ask_value(dialog_id,&data);
         Z5=data.value.real;
7 R- x4 [% I" Q         
         data.item_id=BSURFACE_REAL_X6;
         UF_STYLER_ask_value(dialog_id,&data);
         X6=data.value.real;
5 A! K, y; y# [6 a5 f9 c
+ i3 J- y$ c3 d9 R) w, N- m         data.item_id=BSURFACE_REAL_Y6;
. Y! S0 N! }$ t$ X/ \3 d- ?         UF_STYLER_ask_value(dialog_id,&data);
         Y6=data.value.real;
         
& t% {6 ?( `: b. f7 Y5 j( A, n3 R* f         data.item_id=BSURFACE_REAL_Z6;
9 v) s$ {+ z1 {5 o' V         UF_STYLER_ask_value(dialog_id,&data);
         Z6=data.value.real;
# ]5 i1 U) I2 w$ T0 Y' p- ~2 j         
8 v" n+ y; f) A1 p4 Y- y         data.item_id=BSURFACE_REAL_X7;
         UF_STYLER_ask_value(dialog_id,&data);
         X7=data.value.real;
7 x8 o5 X- n9 `/ ?& K         
0 M  G8 L! D. n  W/ l* [( ~0 j         data.item_id=BSURFACE_REAL_Y7;
         UF_STYLER_ask_value(dialog_id,&data);
/ v& F9 j+ s9 d4 N8 G3 A         Y7=data.value.real;
0 {( N6 w0 F; K' s4 l* o9 m     
         data.item_id=BSURFACE_REAL_Z7;
% I! W) M5 _3 o* L! b         UF_STYLER_ask_value(dialog_id,&data);
         Z7=data.value.real;
2 ?& e0 Y* [: L$ A. A         
4 J" _, V# J+ K8 b7 p         data.item_id=BSURFACE_REAL_X8;
         UF_STYLER_ask_value(dialog_id,&data);
         X8=data.value.real;
         
         data.item_id=BSURFACE_REAL_Y8;
         UF_STYLER_ask_value(dialog_id,&data);
         Y8=data.value.real;
         
         data.item_id=BSURFACE_REAL_Z8;
         UF_STYLER_ask_value(dialog_id,&data);
         Z8=data.value.real;
         
4 ~0 W3 X, _/ O/ F9 o6 J         data.item_id=BSURFACE_REAL_X9;
1 q4 Z; b6 I1 N# U8 N% L9 W* u5 P         UF_STYLER_ask_value(dialog_id,&data);
         X9=data.value.real;
* l1 s5 `* D' p( r         
( D$ w3 l# O# c* J         data.item_id=BSURFACE_REAL_Y9;
* `% I9 o: z- y4 L& _' i         UF_STYLER_ask_value(dialog_id,&data);
7 N# G; i, g! }6 ^, ]2 G         Y9=data.value.real;
7 Y* i3 z- G7 Z' M8 I         
" |5 p' Y- {2 C/ n$ W         data.item_id=BSURFACE_REAL_Z9;
         UF_STYLER_ask_value(dialog_id,&data);
         Z9=data.value.real;
         
         data.item_id=BSURFACE_REAL_X10;
8 W3 N7 X& b% O& M& D" L$ \         UF_STYLER_ask_value(dialog_id,&data);
  a6 s" K$ r; n         X10=data.value.real;

         data.item_id=BSURFACE_REAL_Y10;
) w3 s3 D* D+ ]* D         UF_STYLER_ask_value(dialog_id,&data);
         Y10=data.value.real;
, j' Z$ G: T8 h5 @         
         data.item_id=BSURFACE_REAL_Z10;
4 b% p% {2 H- I' M# T- S  l' E         UF_STYLER_ask_value(dialog_id,&data);
         Z10=data.value.real;
6 D" L; @; K  [% z) p/ @         
         data.item_id=BSURFACE_REAL_X11;
) `) f2 X9 ]* U  R! l, M6 Z         UF_STYLER_ask_value(dialog_id,&data);
         X11=data.value.real;

         data.item_id=BSURFACE_REAL_Y11;
8 t7 `* ^0 a" I( O         UF_STYLER_ask_value(dialog_id,&data);
         Y11=data.value.real;
         
         data.item_id=BSURFACE_REAL_Z11;
         UF_STYLER_ask_value(dialog_id,&data);
, e4 u3 _) Q$ }" U2 b% ?* N3 y7 V         Z11=data.value.real;
         
$ ~6 V; l  R( S: f  Q+ ]         data.item_id=BSURFACE_REAL_X12;
         UF_STYLER_ask_value(dialog_id,&data);
5 [) y2 u9 Y! _4 i' D2 K         X12=data.value.real;

         data.item_id=BSURFACE_REAL_Y12;
         UF_STYLER_ask_value(dialog_id,&data);
         Y12=data.value.real;
& ^6 G% u+ O& u" \& I* l' v- R0 c4 u         
- ^/ q; p6 |- o% W& D5 F" ]4 ?! |         data.item_id=BSURFACE_REAL_Z12;
- {" ]3 l0 m- |' U" j  ^         UF_STYLER_ask_value(dialog_id,&data);
         Z12=data.value.real;
         
1 ~- b4 q) v& Q9 v* T& `$ l         data.item_id=BSURFACE_REAL_X13;
         UF_STYLER_ask_value(dialog_id,&data);
) a' L+ c0 n+ V- k         X13=data.value.real;
         
         data.item_id=BSURFACE_REAL_Y13;
         UF_STYLER_ask_value(dialog_id,&data);
% Q( p4 G! }' h* O         Y13=data.value.real;
& k' f3 n+ T0 l) E# Z* [
     data.item_id=BSURFACE_REAL_Z13;
- S& {8 O$ j1 I         UF_STYLER_ask_value(dialog_id,&data);
         Z13=data.value.real;
$ U4 @& B3 W5 V1 O8 Z3 h+ ?' B* t% S
         data.item_id=BSURFACE_REAL_X14;
2 y# v, [  T% }! f         UF_STYLER_ask_value(dialog_id,&data);
% s' w* F: m* u* }! _         X14=data.value.real;
) ?+ g6 Z9 n# `: B( Q$ R' h3 @         
1 r8 t$ V1 F4 }  U  ^8 s* r; J         data.item_id=BSURFACE_REAL_Y14;
' a8 z7 H; S- |         UF_STYLER_ask_value(dialog_id,&data);
         Y14=data.value.real;
1 T- l2 J3 t( r, W2 p1 S+ ?2 `
     data.item_id=BSURFACE_REAL_Z14;
$ n) k7 c5 Z  [2 J0 M         UF_STYLER_ask_value(dialog_id,&data);
/ F8 b; L. E2 w1 f# w) c: |         Z14=data.value.real;
- a% R# u: b/ s. X0 U9 m
         data.item_id=BSURFACE_REAL_X15;
         UF_STYLER_ask_value(dialog_id,&data);
3 G# t3 n- t! Q2 |- S. r# Z' V: O         X15=data.value.real;
         
+ S% g' W- u" a         data.item_id=BSURFACE_REAL_Y15;
         UF_STYLER_ask_value(dialog_id,&data);
, `+ _1 q) S7 f, L  V+ w* s         Y15=data.value.real;

: e$ }0 P( s' K% ^' s     data.item_id=BSURFACE_REAL_Z15;
6 k! _5 e6 g6 ~' ?! J         UF_STYLER_ask_value(dialog_id,&data);
         Z15=data.value.real;

9 }9 q5 ~- S) H8 z) o# m6 \. P, o9 S         data.item_id=BSURFACE_REAL_X16;
+ a* F- E* S8 y* `* P         UF_STYLER_ask_value(dialog_id,&data);
         X16=data.value.real;
. x8 R' h; n9 C: s. T& Q, l" X         
; t, D  z7 J" M* |         data.item_id=BSURFACE_REAL_Y16;
         UF_STYLER_ask_value(dialog_id,&data);
4 Y6 {" [  e* M" h) p# x( t4 A) T" g         Y16=data.value.real;
0 q. I7 F9 ~7 ?; F4 j' v
' X8 P* O- [% g; j7 s* M. G4 K; S     data.item_id=BSURFACE_REAL_Z16;
8 T7 [& h+ Y' B* d1 q( c4 D) Y! z         UF_STYLER_ask_value(dialog_id,&data);
         Z16=data.value.real;

4 l( m* X; L4 L) b, ^     UF_terminate ();

4 z7 U$ B2 `+ V2 M4 o# H    /* Callback acknowledged, terminate dialog             */
3 p9 N% _- h6 G* Z  Z    /* It is STRONGLY recommended that you exit your       */
0 a. b( d" r& Z- ~( S    /* callback with UF_UI_CB_EXIT_DIALOG in a ok callback.*/
( j( Y- G/ P: z) R, `    /* return ( UF_UI_CB_EXIT_DIALOG );                    */
- k: F/ S6 W( j8 j    return (UF_UI_CB_EXIT_DIALOG);                           

}
extern int LaunchBsurfaceDialog ( int *response )
{
    int  error_code = 0;

5 z8 X3 b3 D! t  m: W4 z9 D& U) C    if ( ( error_code = UF_initialize() ) != 0 )
           return (0) ;

    if ( ( error_code = UF_STYLER_create_dialog ( "bsurface.dlg",
           BSURFACE_cbs,      /* Callbacks from dialog */
           BSURFACE_CB_COUNT, /* number of callbacks*/
+ e. _. P3 @: k! I           NULL,        /* This is your client data */
           response ) ) != 0 )
% q+ b# o2 W$ t: y    {
* C) `7 m) b! Y$ g8 ]0 {! @& a! R          char fail_message[133];
& j  r$ c. z, S/ D& L
: e. j9 j2 v. O2 Q3 V          /* Get the user function fail message based on the fail code.*/
' l% v7 K: ]2 E$ O          UF_get_fail_message(error_code, fail_message);
          UF_UI_set_status (fail_message);
          printf ( "%s\n", fail_message );
* o0 [( \# ?+ ]4 ?    }


    UF_terminate();                             
    return (error_code);
}