/*
 *  This file is part of jcabc2ps,
 *  Copyright (C) 1996,1997,1998  Michael Methfessel
 *  See file jcabc2ps.c for details.
 */

#include "jcabc2ps.h"
#include "style.h"

/*   Global style parameters for the note spacing and Knuthian glue. */

/*   Parameters here are used to set spaces around notes.
	   Names ending in p: prefered natural spacings
	   Names ending in x: expanded spacings
	   Units: everything is based on a staff which is 24 points high
	   (ie. 6 pt between two staff lines). */

/* ----- set_style_pars: set the parameters which control note spacing ---- */
void set_style_pars(float strictness)
{	char* F="set_style_pars";
	float y;

	f0p=0.10;     f0x=0.15;
	f5p=0.60;     f5x=0.7;
	f1p=1.0;      f1x=1.0;

	lnnp=40;      lnnx=90;
	bnnp=1.0;     bnnx=1.0;
	fnnp=1.0;     fnnx=1.0;

	lbnp=30;      lbnx=50;
	bbnp=0.2;     bbnx=0.2;
	rbnp=0.12;    rbnx=0.10;

	lnbp=30;      lnbx=55;
	bnbp=0.9;     bnbx=0.9;
	rnbp=0.10;    rnbx=0.1;

	/* set parameters f0p,f1p according to strictness */
	/* the y*y makes the scale a bit more intuitive .. */
	y=1-strictness;
	f0p=y*y*0.40;
	f0x=y*y*0.60;
	V3 "%s: Set style parameters, strictness %.2f (f0p=%.3f, f0x=%.3f)\n",F,strictness,f0p,f0x V; 
}


/* ----- Function of the spacing parameters ----- */

/* Parameters for the length-to-width mapping:
	 f0p, f5p, f1p are the return values for notes of zero duration,
	 half notes, and whole notes. A parabolic interpolation is
	 used for other note durations. The purpose is to allow a non-linear
	 relation between the note duration and the spacing on the paper.

	 Parameters for the note-note spacing:
	 (the internote spacing between two notes that follow
	 each other without a bar in between.)

	 - lnn is an overall multiplier, i.e. the final note width in points
	   is the return value of function nwid times lnn.
	 - bnn determines how strongly the first note enters into the spacing.
	   For bnn=1, the spacing is calculated using the first note.
	   For bnn=0, the spacing is the average for the two notes.
	 - fnn multiplies the spacing under a beam, to compress the notes a bit

	 Parameters for the bar-note spacing:
	 (the spacing between a bar and note at the measure start.)

	 - lbn is the overall multiplier for the return values from nwid.
	 - rbn is the note duration which defines the default spacing.
	 - bbn determines how strongly the note duration enters into the spacing.
	   For bbn=1, the spacing is lbn times the return value of nwid.
	   For bbn=0, the spacing is lbn times the width of rbn times timesig.

	   Parameters for the note-bar spacing:
	   (the spacing between a note at the measure end and the bar.)

	 - lnb is the overall multiplier for the return values from nwid.
	 - rnb is the note duration which defines the default spacing.
	 - bnb determines how strongly the note duration enters into the spacing.
	   For bnb=1, the spacing is lnb times the return value of nwid.
	   For bnb=0, the spacing is lnb times the width of rbn times timesig. */