/* score.cpp
 * functions dealing with the whole score

 * for Denemo, a gtk+ frontend to GNU Lilypond
 * (c) 2000-2005 Matthew Hiller, Adam Tee*/

#include <denemo/denemo.h>
#include <stdio.h>
#include <string.h>
#include "config.h"
#include "command/staff.h"
#include "command/score.h"
#include "core/prefops.h"
#include "command/select.h"
#include "command/object.h"
#include "command/lyric.h"
#include "audio/audiointerface.h"
#include "source/sourceaudio.h"
#include "core/cache.h"
#include "core/utils.h"
#include "core/view.h"
#include "command/commandfuncs.h"
#include "ui/moveviewport.h"
#include "command/contexts.h"
#include "audio/midi.h"
#include "audio/midirecord.h"
#include "display/displayanimation.h"
#include "command/lilydirectives.h"
#include "export/exportmidi.h"
#include "display/calculatepositions.h"
#include "command/measure.h"

#define MOVEMENT_WIDTH (10)


/**
 * Create new DenemoMovement with no staff
 * set it as gui->movement but do not add it to the movements list.
 */
void
point_to_empty_movement (DenemoProject * gui)
{
  DenemoMovement *newscore = (DenemoMovement *) g_malloc0 (sizeof (DenemoMovement));
  init_score (newscore, gui);
  if (!Denemo.non_interactive && gui->movement && gui->movement->buttonbox)
        gtk_widget_hide (gui->movement->buttonbox);

  if (!Denemo.non_interactive && (gui->movement) && gui->movement->lyricsbox)
        gtk_widget_hide (gui->movement->lyricsbox);
  g_mutex_lock (&smfmutex);
  gui->movement = newscore;
  g_mutex_unlock (&smfmutex);
  if(!Denemo.non_interactive)
    gtk_widget_show (gui->movement->buttonbox);
  if (gui->midi_recording)
	{
		gui->midi_recording = FALSE;
		Denemo.project->midi_destination ^= MIDIRECORD;
		set_midi_in_status ();
	}
}

/**
 * Create new DenemoMovement with one empty staff
 * set it as gui->movement but do not add it to the movements list.
 */
void
point_to_new_movement (DenemoProject * gui)
{
  point_to_empty_movement (gui);
  staff_new (gui, INITIAL, DENEMO_NONE);
  cache_all ();
  gui->movement->undo_guard = Denemo.prefs.disable_undo;
}

static void select_movement (gint movementnum) {
   gboolean ok = goto_movement_staff_obj (NULL, movementnum, -1, -1, -1, 0);
   set_movement_selector (Denemo.project);
   displayhelper (Denemo.project);
   write_status (Denemo.project);
}

#define NUM_MOVEMENTS_TO_SHOW (2*5)
void set_movement_selector (DenemoProject *gui)
{
  GtkWidget *button;
  GList *g;
  gint i;

  if(Denemo.non_interactive)
    return;


  reset_movement_numbers (gui);
  if(gui->movements_selector)
      gtk_widget_destroy (gui->movements_selector);
  gui->movements_selector = (GtkWidget*)gtk_hbox_new(FALSE,1);
  gtk_box_pack_start(GTK_BOX(gui->buttonbox), gui->movements_selector,  FALSE, TRUE, 0);
  gtk_widget_show (gui->movements_selector);
  if (Denemo.prefs.visible_directive_buttons) gtk_widget_show (gui->buttonbox);
  gint num_movements = 1;
  gint last = 1;
  gint first = 1;
  if(gui->movements) {
      gint current = g_list_index (gui->movements, gui->movement) + 1;
      num_movements = g_list_length(gui->movements);
      first = current - NUM_MOVEMENTS_TO_SHOW/2;
      if(first<1) first = 1;
      last = first + NUM_MOVEMENTS_TO_SHOW -1;

      if(last>num_movements)
      {
          last = num_movements;
          first = num_movements - NUM_MOVEMENTS_TO_SHOW;
          if(first<1) first = 1;
        }
  }
  for (g=gui->movements, i=1;g;g=g->next, i++)
    {
      if(i<first)
          continue;
      if(i>last)
          continue;
      button = gtk_button_new_with_label("");
      if (g->data == gui->movement)
        {
            gchar *text = g_strdup_printf("<span foreground=\"%s\"><i><b>%d</b></i></span>", gui->movement->sketch?"red":"blue", i);
            GtkWidget *label_widget = gtk_bin_get_child(GTK_BIN(button));
            gtk_label_set_use_markup (GTK_LABEL(label_widget), TRUE);
            gtk_label_set_markup (GTK_LABEL (label_widget), text);
            g_free(text);
            text = g_strdup_printf(_("This is the current movement number %d\nClick on another button to change movements"), i);
            gtk_widget_set_tooltip_text (button, text);
            g_free(text);
        }
      else
        {
            gchar *more = "";
            if((last<num_movements) && (i==last))
                more = "+...";
            gchar *text = g_strdup_printf("<span foreground=\"%s\"><b>%d</b></span>", ((DenemoMovement*)g->data)->sketch?"pink":"black", i);
			GtkWidget *label_widget = gtk_bin_get_child(GTK_BIN(button));
			gtk_label_set_use_markup (GTK_LABEL(label_widget), TRUE);
            gtk_label_set_markup (GTK_LABEL (label_widget), text);
            g_free(text);
            text = g_strdup_printf(_("Click to switch to movement number %d"), i);
            gtk_widget_set_tooltip_text (GTK_WIDGET (button), text);
            g_free(text);
        }


        gtk_widget_set_can_focus (button, FALSE);
        gtk_widget_show(button);
        g_signal_connect_swapped (G_OBJECT(button), "clicked", G_CALLBACK (select_movement), GINT_TO_POINTER(i));
        gtk_box_pack_start (GTK_BOX(gui->movements_selector), button,  FALSE, TRUE, 0);
    }
    if(i==2)
        gtk_widget_hide (gui->movements_selector);
    if(gui->movement)
        set_movement_tempo (gui->movement->tempo);


    if ((gui->movement) && gui->movement->lyricsbox /*&& Denemo.prefs.lyrics_pane*/)
      gtk_widget_show (gui->movement->lyricsbox), show_lyrics ();


}

static void
new_movement (DenemoAction * action, DenemoScriptParam * param, gboolean before)
{
  DenemoProject *gui = Denemo.project;
  gint pos = g_list_index (gui->movements, gui->movement);
  append_new_movement (action, param);
  DenemoMovement *newsi = g_list_last (gui->movements)->data;
  gui->movements = g_list_delete_link (gui->movements, g_list_last (gui->movements));
  gui->movements = g_list_insert (gui->movements, newsi, before ? pos : pos + 1);
  //newsi->currentmovementnum = 1 + g_list_index (gui->movements, newsi); done in set_movement_selector()
  staff_set_current_primary (gui->movement);
  //gui->movements_selector = NULL;
  set_movement_selector (gui);
  goto_movement_staff_obj (NULL, -1, 1, 0, 0, 0);
#ifdef DISABLE_AUBIO
#else
  rewind_audio ();
#endif
  write_status (gui);
}


static void
append_movement (DenemoAction * action, gpointer param, gboolean populate)
{
  DenemoProject *gui = Denemo.project;
  DenemoMovement *source_movement = gui->movement;
  if (gui->midi_recording)
	{
		gui->midi_recording = FALSE;
		Denemo.project->midi_destination ^= MIDIRECORD;
		set_midi_in_status ();
	}
  GList *g;
  g = midi_track_present ()?source_movement->thescore->next : source_movement->thescore;
  (void) signal_structural_change (gui);

  if (gui->movement->lyricsbox)
    gtk_widget_hide (gui->movement->lyricsbox);
  point_to_empty_movement (gui);
  if (g==NULL)
	staff_new (gui, LAST, DENEMO_NONE);
  else
	  for (;g; g = g->next)
		{
		  DenemoStaff *source_staff = g->data;
		  staff_new (gui, LAST, DENEMO_NONE);
		  if (!populate)
			break;
		  GList *dest = g_list_last (gui->movement->thescore);
		  DenemoStaff *dest_staff = dest->data;
		  staff_copy (source_staff, dest_staff, TRUE);
		}
  gui->movements = g_list_append (gui->movements, gui->movement);
  if (populate)
	gui->movement->staffspace = source_movement->staffspace;
  //gui->movement->currentmovementnum = 1 + g_list_index (gui->movements, gui->movement);
  set_movement_selector (gui);
  gui->movement->undo_guard = Denemo.prefs.disable_undo;
  //call_out_to_guile ("(if (or (d-Directive-scoreheader? \"ScoreTitles\")(d-Directive-paper? \"PrintAllHeaders\")) (DenemoSetTitles \"MovementTitles\" 'initialize #f))");
  set_width_to_work_with (gui); 
  //FIXME duplicate code
  set_rightmeasurenum (gui->movement);
  find_leftmost_allcontexts (gui->movement);
  set_bottom_staff (gui);
  if(!Denemo.non_interactive){
    update_hscrollbar (gui);
    update_vscrollbar (gui);
    draw_score_area();
    g_signal_emit_by_name (G_OBJECT (Denemo.hadjustment), "changed");
    g_signal_emit_by_name (G_OBJECT (Denemo.vadjustment), "changed");
  }
  displayhelper (gui);
  score_status (gui, TRUE);
}

//copies staff structure to new movement
void
append_new_movement (DenemoAction * action, DenemoScriptParam * param)
{
  append_movement (action, param, TRUE);
}

//does not copy staff structure to new movement
void
append_blank_movement (void)
{
  append_movement (NULL, NULL, FALSE);
}




void
insert_movement_before (DenemoAction * action, DenemoScriptParam * param)
{
  new_movement (action, param, TRUE);
}

void
insert_movement_after (DenemoAction * action, DenemoScriptParam * param)
{
  new_movement (action, param, FALSE);
}

static void
terminate_playback (void)
{
  if (is_playing ())
    midi_stop ();
  g_thread_yield ();            //FIXME find a better way of ensuring playing is finished - in principle the user could start playing again
  if (is_playing ())
    terminate_playback ();
  //g_debug("Terminated %d\n", is_playing());
}

void
reset_movement_numbers (DenemoProject * gui)
{
  GList *g;
  gint i;
  for (i = 1, g = gui->movements; g; g = g->next, i++)
    {
      DenemoMovement *si = g->data;
      si->currentmovementnum = i;
    }
}

void
delete_movement (DenemoAction * action, DenemoScriptParam* param)
{
  DenemoProject *gui = Denemo.project;
  terminate_playback ();
  (void) signal_structural_change (gui);

  GString *primary = g_string_new (""), *secondary = g_string_new ("");
  if (gui->movements == NULL || (g_list_length (gui->movements) == 1))
    {
      g_string_assign (primary, _("This is the only movement"));
      g_string_assign (secondary, _("Delete it and start over?"));
      if (param || confirm (primary->str, secondary->str))
        {
          gchar *name = g_strdup (gui->filename->str);
          gui->movement->undo_guard = 1;  //no undo as that is per movement
          deletescore (NULL, gui);
          g_string_assign (gui->filename, name);
          g_free (name);
        }
    }
  else
    {                           // more than one movement
      gint num = g_list_index (gui->movements, gui->movement);
      g_string_printf (primary, _("This is movement #%d"), num + 1);
      g_string_assign (secondary, _("Delete entire movement?"));
      if (param || gui->movement->sketch || confirm (primary->str, secondary->str))
        {
          gui->movement->undo_guard = 1;  //no undo as that is per movement
          free_movement (gui);
          DenemoMovement *si = gui->movement;
          GList *g = g_list_find (gui->movements, si)->next;
          if (g == NULL)
            g = g_list_find (gui->movements, si)->prev;
          gui->movement = g->data;
          gui->movements = g_list_remove (gui->movements, (gpointer) si);
        }
    }
  reset_movement_numbers (gui);
  g_string_free (primary, TRUE);
  g_string_free (secondary, TRUE);
  set_movement_selector (gui);
  set_movement_transition (-MOVEMENT_WIDTH);
  displayhelper (gui);
  score_status (gui, TRUE);
}

/* go to the movement voice measure staff and object numbers (starting from 1)
 movementnum<=0 means current movement
 * objnum 0 finds first object if any
possible_gui is really a flag interactive or not
*/
gboolean
goto_movement_staff_obj (DenemoProject * possible_gui, gint movementnum, gint staffnum, gint measurenum, gint objnum, gint leftmeasurenum)
{
  DenemoProject *gui;
  terminate_playback ();
  if (possible_gui == NULL)
    gui = Denemo.project;
  else
    gui = possible_gui;
  if (movementnum > 0 && (movementnum != gui->movement->currentmovementnum))
    {
      GList *this = g_list_nth (gui->movements, movementnum - 1);
      if (this == NULL)
        {
          if (possible_gui)
            warningdialog (_("No such movement"));
          return FALSE;
        }
      if (possible_gui)
        panic_all (); //g_print ("Reset synth\n");
      if(!Denemo.non_interactive)
        {
        gtk_widget_hide (gui->movement->buttonbox);
        if ((gui->movement) && gui->movement->lyricsbox /*&& Denemo.prefs.lyrics_pane*/)
            gtk_widget_hide (gui->movement->lyricsbox);
        }
      gui->movement = this->data;
      if(!Denemo.non_interactive)
        gtk_widget_show (gui->movement->buttonbox);
    set_movement_selector (gui);
   }

  if (staffnum>0 && !moveto_currentstaffnum (gui, staffnum))
    {
      if (possible_gui)
            warningdialog (_("No such voice"));
        else
            moveto_currentstaffnum (gui, 1);
      return FALSE;
    }
  if (measurenum>0 && !moveto_currentmeasurenum (gui, measurenum, leftmeasurenum))
    {
      if (possible_gui)
        warningdialog (_("No such measure"));
      else
        moveto_currentmeasurenum (gui, 1, leftmeasurenum);
      return FALSE;
    }
  //cursor_x is zero and we are on the first, if any, object
  if (gui->movement->currentobject == NULL && objnum)
    return FALSE;               //asking for an object in an empty measure

  while (--objnum > 0 && gui->movement->currentobject && gui->movement->currentobject->next)
    {
      gui->movement->currentobject = gui->movement->currentobject->next;
      gui->movement->cursor_x++;
    }
  //g_debug("objnum %d\n",objnum);
  if (objnum > 0)
    {
      gui->movement->cursor_x++;      // objnum;
      if (!gui->movement->currentobject)
        return FALSE;
      gui->movement->cursor_appending = TRUE;
    }
  if(leftmeasurenum)
    {
      gui->movement->leftmeasurenum = leftmeasurenum;
      set_rightmeasurenum (gui->movement);
    }
  write_status (gui);
  move_viewport_up (gui);
  move_viewport_down (gui);
  draw_score_area();
  return TRUE;
}


/* get the object specified or NULL if there is none.
*/
DenemoObject *
get_object_by_position (gint movementnum, gint staffnum, gint measurenum, gint objnum)
{
  DenemoProject *gui = Denemo.project;
  GList *this = g_list_nth (gui->movements, movementnum - 1);
  if (this == NULL) return NULL;
  DenemoMovement *movement = this->data;
  this = g_list_nth (movement->thescore, staffnum - 1);
  if (this == NULL) return NULL;
  DenemoStaff *thestaff = (DenemoStaff*)this->data;
  this = g_list_nth (thestaff->themeasures, measurenum -1);
  if (this==NULL) return NULL;
  this = g_list_nth (((DenemoMeasure*)this->data)->objects, objnum-1);
  if (this==NULL) return NULL;
   return this->data;
}

void
PopPosition (DenemoAction * action, DenemoScriptParam * param)
{
  DenemoPosition *pos = pop_position ();
  DenemoScriptParam dummy;
  if (action || !param)
    param = &dummy;
  if (pos == NULL)
    {
      param->status = FALSE;
      return;
    }
  param->status = goto_movement_staff_obj (NULL, pos->movement, pos->staff, pos->measure, pos->object, pos->leftmeasurenum);
  if (param->status)
    {
      Denemo.project->movement->cursor_appending = pos->appending;
      Denemo.project->movement->cursoroffend = pos->offend;
    }
  g_free (pos);
}

void
PushPosition (DenemoAction * action, DenemoScriptParam * param)
{
  push_position ();
}

void
PopPushPosition (DenemoAction * action, DenemoScriptParam * param)
{
  DenemoPosition *pos = pop_position ();
  DenemoScriptParam dummy;
  if (action || !param)
    param = &dummy;
  if (pos)
    {
      push_position ();
      param->status = goto_movement_staff_obj (NULL, pos->movement, pos->staff, pos->measure, pos->object, pos->leftmeasurenum);
      if (param->status)
        {
          Denemo.project->movement->cursor_appending = pos->appending;
          Denemo.project->movement->cursoroffend = pos->offend;
        }
    }
  else
    param->status = FALSE;
}


/**
 * Move to the next movement
 * @param action - Gtk Action event
 * @param gui - pointer to the DenemoProject structure
 * @return none
*/
void
next_movement (DenemoAction * action, DenemoScriptParam * param)
{
  DenemoProject *gui = Denemo.project;
  terminate_playback ();
  GList *this = g_list_find (gui->movements, gui->movement);
  this = this->next;
  if (param)
    param->status = TRUE;
  if (this == NULL)
    {
      if (param)
        param->status = FALSE;
      else
        warningmessage (_("This is the last movement"));
      return;
    }

  if(!Denemo.non_interactive){
    gtk_widget_hide (gui->movement->buttonbox);
    if (gui->movement->lyricsbox)
      gtk_widget_hide (gui->movement->lyricsbox);
  }
  gui->movement = this->data;

  if(!Denemo.non_interactive){
    if (gui->movement->lyricsbox /*&& Denemo.prefs.lyrics_pane*/)
      gtk_widget_show (gui->movement->lyricsbox);       
    gtk_widget_show (gui->movement->buttonbox);
  }
  set_movement_selector (gui);
  //!!!!!!!!updatescoreinfo (gui);
  //FIXME duplicate code
  set_rightmeasurenum (gui->movement);
  find_leftmost_allcontexts (gui->movement);
  set_bottom_staff (gui);

  if(!Denemo.non_interactive){
    update_hscrollbar (gui);
    update_vscrollbar (gui);
    g_signal_emit_by_name (G_OBJECT (Denemo.hadjustment), "changed");
    g_signal_emit_by_name (G_OBJECT (Denemo.vadjustment), "changed");
    write_status (gui);
    //gtk_widget_draw (Denemo.scorearea, NULL);//KLUDGE FIXME see staffup/down
    set_movement_transition (-MOVEMENT_WIDTH);
    draw_score_area();
  }
}

/**
 * Move to the previous movement
 * @param action - Gtk Action event
 * @param gui - pointer to the DenemoProject structure
 * @return none
*/
void
prev_movement (DenemoAction * action, DenemoScriptParam * param)
{
  DenemoProject *gui = Denemo.project;
  terminate_playback ();
  GList *this = g_list_find (gui->movements, gui->movement);
  this = this->prev;
  if (param)
    param->status = TRUE;
  if (this == NULL)
    {
      if (param)
        param->status = FALSE;
      else
        warningmessage (_("This is the first movement"));
      return;
    }
  if(!Denemo.non_interactive){
    gtk_widget_hide (gui->movement->buttonbox);
    if (gui->movement->lyricsbox)
      gtk_widget_hide (gui->movement->lyricsbox);
  }

  gui->movement = this->data;

  if(!Denemo.non_interactive){
    gtk_widget_show (gui->movement->buttonbox);
  }
  set_movement_selector (gui);
  //!!!!!!!!!!!!!updatescoreinfo (gui);
  //FIXME duplicate code
  set_rightmeasurenum (gui->movement);
  set_bottom_staff (gui);

  if(!Denemo.non_interactive){
    update_hscrollbar (gui);
    update_vscrollbar (gui);
    draw_score_area();
    g_signal_emit_by_name (G_OBJECT (Denemo.hadjustment), "changed");
    g_signal_emit_by_name (G_OBJECT (Denemo.vadjustment), "changed");
  }
  write_status (gui);
  //gtk_widget_draw (Denemo.scorearea, NULL);//KLUDGE FIXME see staffup/down
  set_movement_transition (MOVEMENT_WIDTH);

  if(!Denemo.non_interactive){
    draw_score_area();
  }
}

/**
 * Initialise scoreinfo structure
 *
 * @param si pointer to the scoreinfo structure to initialise
 */
void
init_score (DenemoMovement * si, DenemoProject * gui)
{
  gchar *dir = (gchar *) get_user_data_dir (TRUE);

  si->readonly = 0;
  si->leftmeasurenum = si->rightmeasurenum = 1;
  si->top_staff = si->bottom_staff = 1;
  si->measurewidth = DENEMO_INITIAL_MEASURE_WIDTH;
  si->measurewidths = NULL;
  si->staffspace = DENEMO_INITIAL_STAFF_HEIGHT;
  si->thescore = NULL;
  si->currentstaffnum = 1;
  si->currentmeasurenum = 1;
  si->currentobject = NULL;
  si->cursor_x = 0;
  si->cursor_y = 0;
  si->staffletter_y = 0;
  si->cursor_appending = TRUE;
  si->zoom = Denemo.prefs.zoom > 0 ? Denemo.prefs.zoom / 100.0 : 1.0;
  si->preview_zoom = 1.0;
  si->system_height = Denemo.prefs.system_height > 0 ? Denemo.prefs.system_height / 100.0 : 1.0;

  si->cursoroffend = FALSE;
  //si->cursortime1 = si->cursortime2 = 4;
  si->markstaffnum = 0;
  si->markmeasurenum = 0;
  si->markcursor_x = 0;
  si->maxkeywidth = 0;
  si->has_figures = FALSE;
  si->has_fakechords = FALSE;
  /*playback purposes */
  si->tempo = 120;
  si->start = 0;
  si->end = 0;
  si->stafftoplay = 0;
  si->start_time = 0;
  si->end_time = -1.0;          //ie unset
  if (Denemo.project->movement)
    set_master_volume (si, 1.0);
  else
    si->master_volume = 1.0;


  
  if (Denemo.project->movement)
    set_movement_tempo (Denemo.project->movement->tempo);

  si->smfsync = G_MAXINT;
  if (gui->filename == NULL)
      gui->filename = g_string_new ("");
  gui->autosavename = g_string_new (g_build_filename (dir, "autosave.denemo", NULL));
  if (gui->tabname == NULL)
    gui->tabname = g_string_new ("");

  /* Undo/redo initialisation */
  si->undodata = g_queue_new ();
  si->redodata = g_queue_new ();
  si->undo_guard = 1;           //do not collect undo information until file is loaded

  if(!Denemo.non_interactive){
    si->buttonbox = gtk_hbox_new (FALSE, 1);
    set_movement_selector (gui);
    gtk_widget_set_tooltip_text (si->buttonbox, _("A button bar that can be populated by Movement titles and other user generated buttons.\nGenerally by clicking the button you can edit the title or value or execute the action of the button"));
    gtk_box_pack_end (GTK_BOX (gui->buttonboxes), si->buttonbox, FALSE, TRUE, 0);
    gtk_widget_show (si->buttonbox);
    gtk_widget_set_can_focus (si->buttonbox, FALSE);
    //GTK_WIDGET_UNSET_FLAGS(si->buttonbox, GTK_CAN_FOCUS);
  }
}

static gboolean
delete_all_staffs (DenemoProject * gui)
{
  DenemoMovement *si = gui->movement;
  gint i;
  for (i = g_list_length (si->thescore); i > 0; i--)
    {
      si->currentstaffnum = i;
      si->currentstaff = g_list_nth (si->thescore, i - 1);
      staff_delete (gui, FALSE);
    }
  return TRUE;
}




/**
 * 
 * frees the data in a movement
 *
 * @param gui pointer to the DenemoProject structure whose current movement to free
 */
void
free_movement (DenemoProject * gui)
{
  delete_all_staffs (gui);
  delete_directives (&gui->movement->layout.directives);
  delete_directives (&gui->movement->header.directives);
  delete_directives (&gui->movement->movementcontrol.directives);
  free_midi_data (gui->movement);
  if (gui->movement->buttonbox)
    {
      gtk_widget_destroy (gui->movement->buttonbox);
      gui->movement->buttonbox = NULL;
    }
  if (gui->movement->lyricsbox)
    {
      gtk_widget_destroy (gui->movement->lyricsbox);
      gui->movement->lyricsbox = NULL;
    }
  reset_lyrics (NULL, 0);
  g_queue_free (gui->movement->undodata);
  g_queue_free (gui->movement->redodata);
}

static GList *
extract_verses (GList * verses)
{
  //g_warning("extract_verses not tested!!!!!!!");
  GList *ret = NULL;
  GList *g;
  for (g = verses; g; g = g->next)
    {
      GtkTextView *srcVerse = g->data;
      ret = g_list_append (ret, get_text_from_view (GTK_WIDGET (srcVerse)));
    }
  return ret;
}

static void clone_staff (DenemoStaff *srcStaff, DenemoStaff *thestaff)
{
 //   There are things like
 //   measurenode *measures; /**< This is a pointer to each measure in the staff */ actually a GList * of measures.
// and nummeasures which must be fixed by the caller.
    memcpy (thestaff, srcStaff, sizeof (DenemoStaff));
    thestaff->staffmenu = thestaff->voicemenu = NULL;
    thestaff->sources = NULL;
    thestaff->denemo_name = g_string_new (srcStaff->denemo_name->str);
    thestaff->lily_name = g_string_new (srcStaff->lily_name->str);
    thestaff->midi_instrument = g_string_new (srcStaff->midi_instrument->str);
    thestaff->device_port= g_string_new (srcStaff->device_port->str);


    thestaff->clef.directives = clone_directives (srcStaff->clef.directives);
    thestaff->keysig.directives = clone_directives (srcStaff->keysig.directives);
    thestaff->timesig.directives = clone_directives (srcStaff->timesig.directives);

    if (srcStaff->leftmost_clefcontext == &srcStaff->clef)
    thestaff->leftmost_clefcontext = &thestaff->clef;
    else{
    // has to be fixed up after the measures are done..., so do the whole thing after???
    //                                                         likewise keysig timesig
    g_warning ("Not doing clef context yet...");
    thestaff->leftmost_clefcontext = &thestaff->clef;
    }

    if (srcStaff->leftmost_timesig == &srcStaff->timesig)
    thestaff->leftmost_timesig = &thestaff->timesig;
    else{
    // has to be fixed up after the measures are done..., so do the whole thing after???
    //                                                         likewise keysig timesig
    g_warning ("Not doing timesig context yet...");
    thestaff->leftmost_timesig = &thestaff->timesig;
    }

    if (srcStaff->leftmost_keysig == &srcStaff->keysig)
    thestaff->leftmost_keysig = &thestaff->keysig;
    else{
    // has to be fixed up after the measures are done..., so do the whole thing after???
    //                                                         likewise keysig timesig
    g_warning ("Not doing keysig context yet...");
    thestaff->leftmost_keysig = &thestaff->keysig;
    }


    thestaff->denemo_name = g_string_new (srcStaff->denemo_name->str);
    thestaff->lily_name = g_string_new (srcStaff->lily_name->str);

    thestaff->staff_directives = clone_directives (srcStaff->staff_directives);
    {
    GList *direc;
    for (direc = thestaff->staff_directives; direc; direc = direc->next)
      {
        DenemoDirective *directive = direc->data;
        directive->widget = NULL;
        //      widget_for_staff_directive(directive);
      }
    }
    thestaff->voice_directives = clone_directives (srcStaff->voice_directives);
    {
    GList *direc;
    for (direc = thestaff->voice_directives; direc; direc = direc->next)
      {
        DenemoDirective *directive = direc->data;
        directive->widget = NULL;
        //      widget_for_voice_directive(directive);
      }
    }


//this rather horrible: it is for the snapshot() routine
//the verses not the verse_views are extracted, and then select.c expects that!
//the reason is there is nowhere on the DenemoStaff structure to store the index of the current view,
//so the current_verse_view is set to the index'th element of staff->verse_views.
//so the only other way, other than creating a special field for a snapshotted staff would be to store a pointer into staff->verses in the current_verse_view field
//which select.c would have to know about. Not much better.
    thestaff->verse_views = extract_verses (srcStaff->verse_views);
    gint pos = verse_get_current (srcStaff);
    if (pos>=0)
     thestaff->current_verse_view = g_list_nth (thestaff->verse_views, pos);
}


DenemoMovement *
clone_movement (DenemoMovement * si)
{
  DenemoMovement *newscore = (DenemoMovement *) g_malloc0 (sizeof (DenemoMovement));
  memcpy (newscore, si, sizeof (DenemoMovement));

  GList *g;
  newscore->measurewidths = NULL;
  for (g = si->measurewidths; g; g = g->next)
    newscore->measurewidths = g_list_append (newscore->measurewidths, g->data);
  newscore->playingnow = NULL;

  for (newscore->thescore = NULL, g = si->thescore; g; g = g->next)
    {

      DenemoStaff *srcStaff = (DenemoStaff *) g->data;
      // staff_copy(srcStaff, thestaff);!!!!!! does not copy e.g. no of lines ... need proper clone code.
      DenemoStaff *thestaff = (DenemoStaff *)g_malloc(sizeof(DenemoStaff));
      clone_staff (srcStaff, thestaff);
      newscore->lyricsbox = NULL;
      newscore->thescore = g_list_append (newscore->thescore, thestaff);
      if (g == si->currentprimarystaff)
        newscore->currentprimarystaff = newscore->thescore;
      if (g == si->currentstaff)
        newscore->currentstaff = newscore->thescore;
      newscore->currentmeasure = newscore->currentobject = thestaff->themeasures = NULL;
      GList *h;
      for (h = srcStaff->themeasures; h; h = h->next)
        {
          objnode *theobjs = ((DenemoMeasure*)h->data)->objects;
          DenemoMeasure *newmeasure = (DenemoMeasure*)g_malloc0(sizeof (DenemoMeasure));
          GList *i;
          for (i = theobjs; i; i = i->next)
            {
              DenemoObject *theobj = (DenemoObject *) i->data;
              DenemoObject *newobj = dnm_clone_object (theobj);
              newmeasure->objects = g_list_append (newmeasure->objects, newobj);
              if (i == si->currentobject)
                    /*g_print("current object %x\n", g_list_last(newmeasure)), */
                newscore->currentobject = g_list_last(newmeasure->objects);
            }
          thestaff->themeasures = g_list_append (thestaff->themeasures, newmeasure);
          if (h == si->currentmeasure)
                    /*g_print("current measure %x\n", g_list_last(thestaff->measures)), */
            newscore->currentmeasure = g_list_last (thestaff->themeasures);
                    //???
            }
    }



  newscore->movementcontrol.directives = clone_directives (si->movementcontrol.directives);
  newscore->layout.directives = clone_directives (si->layout.directives);
  newscore->header.directives = clone_directives (si->header.directives);





     newscore->smfsync = G_MAXINT;
 /*

     savebuffer
     Instruments


   */
  newscore->markstaffnum = 0;   //Do not clone the selection


  return newscore;
}




/**
 * Recalculates the stored information about a movement
 * either gui->movement or if that does exist yet, gui->movements->data, the first movement.(FIXME)
 *
 * @param gui pointer to the gui structure
 */
void
updatescoreinfo (DenemoProject * gui)
{
  staffnode *curstaff;
  DenemoMovement *si;
  GList *g = gui->movements;
  if (g)
    si = g->data;
  else
    si = gui->movement;
  do
    {
      for (curstaff = si->thescore; curstaff; curstaff = curstaff->next)
        {
          staff_beams_and_stems_dirs ((DenemoStaff *) curstaff->data);
          staff_show_which_accidentals ((DenemoStaff *) curstaff->data);
        }
      find_xes_in_all_measures (si);
      find_leftmost_allcontexts (si);

      si->currentstaff = si->thescore;
      si->currentmeasure = staff_first_measure_node (si->currentstaff);
      si->currentobject = measure_first_obj_node (si->currentmeasure);
      if (!si->currentobject)
        si->cursor_appending = TRUE;
      else
        si->cursor_appending = FALSE;
      si->leftmeasurenum = si->currentstaffnum = si->currentmeasurenum = 1;
    }
  while (g && (g = g->next) && (si = g->data));
  score_status (gui, FALSE);
}

/**
 * Delete the movements of the given score and create a new one
 * with one movement and empty music data, no title
 * This is the action for the d-New command
 */
void
deletescore (GtkWidget * widget, DenemoProject * gui)
{

  free_movements (gui);
  score_status (gui, FALSE);
  if (gui->filename)
    {
      g_string_free (gui->filename, TRUE);
      g_string_free (gui->autosavename, TRUE);
      gui->filename = NULL;
      set_title_bar (gui);
    }
  if (gui->tabname)
    {
      g_string_free (gui->tabname, TRUE);
      gui->tabname = NULL;
    }
  g_string_assign (gui->printhistory,"");
  gui->total_edit_time = 0;
  reset_editing_timer();
  point_to_new_movement (gui);
  gui->movements = g_list_append (gui->movements, gui->movement);
  reset_movement_numbers (gui);
  set_width_to_work_with (gui);
  set_rightmeasurenum (gui->movement);
  //call_out_to_guile ("(if (or (d-Directive-scoreheader? \"ScoreTitles\")(d-Directive-paper? \"PrintAllHeaders\")) (DenemoSetTitles \"MovementTitles\" 'initialize #f))");
  if(!Denemo.non_interactive){
    update_hscrollbar (gui);
    update_vscrollbar (gui);
    draw_score_area();
    g_signal_emit_by_name (G_OBJECT (Denemo.hadjustment), "changed");
    g_signal_emit_by_name (G_OBJECT (Denemo.vadjustment), "changed");
    force_lily_refresh (gui);
  }
  if(!Denemo.non_interactive)
    panic_all (); //g_print ("Reset synth after deletescore()\n");
}