home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_08_02 / 8n02037a < prev    next >
Encoding:
Text File  |  1990-03-02  |  683 b   |  33 lines
  1. *****Listing 3*****
  2.  
  3. Example 3. Example of Outputting a MEL descriptor:
  4.  
  5. Code Fragment:
  6.  
  7. double pipe_length = 100, diameter = 6;
  8.     
  9. union melo_param_data data;   /* see Example 5. */
  10. char length_units[] = "ft";
  11. char diameter_units[] = "in";
  12. int array_len = 0;
  13. int unknown_flag = 0;
  14.  
  15. melo_init("pipe");  /* initialize */
  16.  
  17. /* get data ready to output: */
  18. data.real = pipe_length;
  19. melo_data("length", &data, length_units, array_len, 
  20.     unknown_flag);
  21. data.real = diameter;
  22. melo_data("diameter", &data, diameter_units, 
  23.     array_len, unknown_flag);
  24.  
  25. melo();  /* translates data into string */
  26.  
  27. Descriptor:
  28.  
  29. pipe, 
  30.     length = 100 (ft), 
  31.     diameter = 6 (in);
  32.  
  33.