/*
  script.cc -- implement Script

  source file of the GNU LilyPond music typesetter

  (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
*/
#include "script-def.hh"
#include "musical-request.hh"
#include "paper-def.hh"
#include "script.hh"
#include "stem.hh"
#include "molecule.hh"
#include "lookup.hh"

void
Script::do_print() const
{
#ifndef NPRINT
  specs_l_->print();
#endif
}

void
Script::do_substitute_dependency (Score_elem*o,Score_elem*n)
{
  Staff_side::do_substitute_dependency (o,n);
  if (o == stem_l_)
    {
      stem_l_ = n ? (Stem*)n->item() : 0;
    }
}

void
Script::set_stem (Stem*st_l)
{
  stem_l_ = st_l;
  add_support (st_l);
}


Script::Script()
{
  specs_l_ = 0;
  inside_staff_b_ = false;
  stem_l_ = 0;
  dir_ =  CENTER;
}

void
Script::set_default_dir()
{
  int s_i=specs_l_->rel_stem_dir();
  if (s_i)
    {
      if (stem_l_)
	dir_ = stem_l_->dir_ * s_i;
      else
	{
	  specs_l_->warning (_("Script needs stem direction"));
	  dir_ = DOWN;
	}
    }
  else
    {
      dir_ =specs_l_->staff_dir();
    }
  assert (dir_);
}


Interval
Script::do_width() const
{
  return specs_l_->get_atom (paper(), dir_).extent ().x ();
}

void
Script::do_pre_processing()
{
  if  (breakable_b_ && break_status_i() != 1)
    {
      transparent_b_ = true;
      set_empty (true);
    }

  if (!dir_)
    set_default_dir();
}

Interval
Script::symbol_height() const
{
  return specs_l_->get_atom (paper(), dir_).extent ().y ();
}

Molecule*
Script::brew_molecule_p() const
{
  Real dx = paper()->note_width()/2;

  Molecule*out = new Molecule (specs_l_->get_atom (paper(), dir_));
  out->translate_axis (y_, Y_AXIS);
  out->translate_axis (dx, X_AXIS);	// FIXME! ugh
  return out;
}


IMPLEMENT_IS_TYPE_B2(Script,Item,Staff_side);

int
Script::compare (Script  *const&l1, Script *const&l2)
{
  return l1->specs_l_->priority_i() - l2->specs_l_->priority_i ();
}
