   for [ col_letter, col_nr, ] from @_walk_column_letters_and_numbers me, 'long'
     for row_nr from @_walk_row_numbers me, 'long'
       joint = "#{col_letter}#{row_nr}"
-      yield [ 'tex', "\\coordinate (joint #{joint}) at ($ (c#{col_letter}) + (r#{row_nr}) $);%\n", ]
-  #.........................................................................................................
-  return null
+      yield [ 'tex', "\\coordinate (joint_#{joint}) at ($ (col_#{col_letter}) + (row_#{row_nr}) $);%\n", ]
+  #.........................................................................................................
+  yield return
 
 #-----------------------------------------------------------------------------------------------------------
 @_walk_quad_sides_events = ( me ) ->
   @_ensure_joint_coordinates  me
   #.........................................................................................................
   for [ col_letter, col_nr, ] from @_walk_column_letters_and_numbers me, 'long'
-    yield [ 'tex', "\\coordinate (c#{col_letter} W) at ($ (c#{col_letter}) - (horizontal spacing) $);%\n", ]
-    yield [ 'tex', "\\coordinate (c#{col_letter} E) at ($ (c#{col_letter}) + (horizontal spacing) $);%\n", ]
+    yield [ 'tex', "\\coordinate (col_#{col_letter} W) at ($ (col_#{col_letter}) - (horizontal spacing) $);%\n", ]
+    yield [ 'tex', "\\coordinate (col_#{col_letter} E) at ($ (col_#{col_letter}) + (horizontal spacing) $);%\n", ]
   #.........................................................................................................
   for row_nr from @_walk_row_numbers me, 'long'
-    yield [ 'tex', "\\coordinate (r#{row_nr} N) at ($ (r#{row_nr}) - (vertical spacing) $);%\n", ]
-    yield [ 'tex', "\\coordinate (r#{row_nr} S) at ($ (r#{row_nr}) + (vertical spacing) $);%\n", ]
-  #.........................................................................................................
-  return null
+    yield [ 'tex', "\\coordinate (row_#{row_nr} N) at ($ (row_#{row_nr}) - (vertical spacing) $);%\n", ]
+    yield [ 'tex', "\\coordinate (row_#{row_nr} S) at ($ (row_#{row_nr}) + (vertical spacing) $);%\n", ]
+  #.........................................................................................................
+  yield return
 
 #-----------------------------------------------------------------------------------------------------------
 @_walk_quad_coordinates_events = ( me ) ->

    for row_nr_1 from @_walk_row_numbers me, 'short'
      row_nr_2  = row_nr_1 + 1
      quad = "#{col_letter_1}#{row_nr_1}"
      yield [ 'tex', "\\coordinate (quad #{quad} top left)      at ($ (r#{row_nr_1} S) + (c#{col_letter_1} E) $);%\n", ]
      yield [ 'tex', "\\coordinate (quad #{quad} top right)     at ($ (r#{row_nr_1} S) + (c#{col_letter_2} W) $);%\n", ]
      yield [ 'tex', "\\coordinate (quad #{quad} bottom left)   at ($ (r#{row_nr_2} N) + (c#{col_letter_1} E) $);%\n", ]
      yield [ 'tex', "\\coordinate (quad #{quad} bottom right)  at ($ (r#{row_nr_2} N) + (c#{col_letter_2} W) $);%\n", ]
  #.........................................................................................................
  return null

#-----------------------------------------------------------------------------------------------------------
@_walk_cellgrid_events = ( me ) ->
  return null unless me.cellgrid
  #.........................................................................................................
  ### TAINT code duplication; use iterator ###
  for [ col_letter_1, col_nr_1, ] from @_walk_column_letters_and_numbers me, 'short'

@_new_description = ( S ) ->
  R =
    '~isa':     'MKTS/TABLE/description'
    cellquads:          {}
    cellborders:        {}
    quadwidths:         null
    quadheights:        null
    joint_coordinates:  null
    quadgrid:           false
    #.......................................................................................................
    styles:
      sThin:              'thin'
      sThick:             'thick'
      sDotted:            'dotted'
      sDashed:            'dashed'
      sRed:               'red'
      sBlack:             'black'
      sQuadgrid:          'sRed,sDotted,sThin'
    #.......................................................................................................
    default:
      gridwidth:  4
      gridheight: 4
