       sDashed:            'dashed'
       sRed:               'red'
       sBlack:             'black'
-      sQuadgrid:          'sRed,sDotted,sThin'
-      sJoints:            'gray!30,sThick'
+      sDebugQuadgrid:     'sRed,sDotted,sThin'
+      sDebugJoints:       'gray!30,sThick'
     #.......................................................................................................
     default:
       gridwidth:  4

  yield return

#-----------------------------------------------------------------------------------------------------------
@_walk_quadgrid_events = ( me ) ->
  return null unless me.quadgrid
  #.........................................................................................................
  ### TAINT code duplication; use iterator ###

  yield return

#-----------------------------------------------------------------------------------------------------------
@_walk_debug_joints_events = ( me ) ->
  @_ensure_joint_coordinates  me
  #.........................................................................................................
  ### TAINT code duplication; use iterator ###
  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', "\\node[sDebugJoints] at ($(joint_#{joint})+(2mm,2mm)$) {{\\mktsStyleCode{}#{joint}}}; ", ]
      yield [ 'tex', "\\node[sDebugJoints, shape = circle, draw ] at (joint_#{joint}) {};%\n", ]
  #.........................................................................................................
  yield return

