Index: mttroot/mtt/bin/trans/awk/rbg_fig2m.awk
==================================================================
--- mttroot/mtt/bin/trans/awk/rbg_fig2m.awk
+++ mttroot/mtt/bin/trans/awk/rbg_fig2m.awk
@@ -1,6 +1,5 @@
-
 ###################################### 
 ##### Model Transformation Tools #####
 ######################################
 
 # gawk script: rbg_fig2m.awk
@@ -11,10 +10,16 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.34  1999/02/17 06:23:49  peterg
+## Bugs arising from Fig 3.2 fixed
+##
+## -- depth now zero modulo 10 (3.2 defaults to depth 100!!)
+## -- horrible bug using = in place of == fixed.
+##
 ## Revision 1.33  1998/08/10 15:51:06  peterg
 ## Comments may now be prefaced by # as well as %
 ##
 ## Revision 1.32  1998/07/27 20:30:03  peterg
 ## *** empty log message ***
@@ -491,10 +496,11 @@
 
 function process_fig() {
 # Test for the fig format first line and data line
   data_line = (match($1,data_symbol)>0);
   first_line = (data_line==0)&&(NF>min_line_length);
+
 #Process firstline
   if (first_line) {
     object = $1;
     sub_type = $2;
     style = $3;
@@ -505,11 +511,12 @@
     arg_count = 0;
   }
 
 #Process text
   if (object==text) {
-    process_text()
+    process_text();
+    object = 0; # Text on one line so reset object to zero- avoids compound problem
       }
 
 # Process bond
 isa_bond = (zero_depth &&\
        (object==polyline)&& \
@@ -564,10 +571,11 @@
   object = 0;
   polyline = 2;
   sub_polyline=1; 
   firm_style = 0;
   text = 4;
+  compound_object = 6;
   bond_coords = 3;
   stroke_coords = 2;
   arrow_coords = 2;
 
   i_bond = 0;