Update to gregorio 5.2 + add SVG
This commit is contained in:
Olivier Berten
parent
f7e1c460c5
commit
81ee61d675
|
|
@ -50,20 +50,21 @@ function gregorio($s,$i=1) {
|
|||
chdir(dirname($f[1]));
|
||||
exec('gregorio '.basename($f[1]));
|
||||
unlink($f[1]);
|
||||
$gf = substr($f[1],0,-5).'.tex';
|
||||
$gf = substr($f[1],0,-5).'.gtex';
|
||||
$g = fopen($gf,'r');
|
||||
$tex = fread($g,filesize($gf));
|
||||
fclose($g);
|
||||
unlink($gf);
|
||||
$tex = substr($tex,0,-12)."\n\\relax\n";
|
||||
|
||||
$tex .= "\\gresetinitiallines{$i}\n";
|
||||
if($i > 0) {
|
||||
$tex = '\setspaceafterinitial{2.2mm plus 0em minus 0em}
|
||||
\setspacebeforeinitial{2.2mm plus 0em minus 0em}
|
||||
$tex = '\grechangedim{beforeinitialshift}{2.2mm}{scalable}
|
||||
\grechangedim{afterinitialshift}{2.2mm}{scalable}
|
||||
'.$tex;
|
||||
} else {
|
||||
$tex = '\setspaceafterinitial{0pt plus 0em minus 0em}%
|
||||
\setspacebeforeinitial{0pt plus 0em minus 0em}%
|
||||
$tex = '\grechangedim{beforeinitialshift}{0mm}{scalable}
|
||||
\grechangedim{afterinitialshift}{0mm}{scalable}
|
||||
'.$tex;
|
||||
}
|
||||
|
||||
|
|
@ -101,6 +102,10 @@ function mgabc2tex($c, $firstverse = False) {
|
|||
\usepackage{gregoriotex}
|
||||
\usepackage{fullpage}
|
||||
\usepackage{Tabbing}
|
||||
\usepackage{longtable}
|
||||
|
||||
\let\grelocalleftbox\localleftbox
|
||||
\let\grelocalrightbox\localrightbox
|
||||
|
||||
\usepackage[latin]{babel}
|
||||
|
||||
|
|
@ -114,23 +119,12 @@ function mgabc2tex($c, $firstverse = False) {
|
|||
\newcommand{\black}[1]{\textcolor{black}{#1}}
|
||||
\setlength{\parindent}{0pt}
|
||||
|
||||
\def\greinitialformat#1{
|
||||
{\fontsize{38}{38}\selectfont #1}
|
||||
}
|
||||
|
||||
\def\grebiginitialformat#1{
|
||||
{\fontsize{144}{144}\selectfont #1}
|
||||
}
|
||||
|
||||
\grechangestyle{initial}{\fontsize{38}{38}\selectfont}{}
|
||||
\tolerance=9999
|
||||
\pretolerance=500
|
||||
';
|
||||
if($c['commentary']) {
|
||||
$tex .= '\commentary{{\small \emph{'.$c['commentary']."}}}\n";
|
||||
$tex .= '\nolinebreak[4]'."\n";
|
||||
}
|
||||
if($ann[$c['office-part']]) {
|
||||
$tex .= '\gresetfirstannotation{\small \textbf{'.$ann[$c['office-part']].".}}\n";
|
||||
$tex .= '\greannotation{\small \textbf{'.$ann[$c['office-part']].".}}\n";
|
||||
}
|
||||
if($c['mode'] || $c['mode_var']) {
|
||||
if($c['mode'] == 'p') {
|
||||
|
|
@ -140,7 +134,11 @@ function mgabc2tex($c, $firstverse = False) {
|
|||
} else {
|
||||
$mode = $c['mode'].($c['mode_var']?' '.$c['mode_var']:'');
|
||||
}
|
||||
$tex .= '\gresetsecondannotation{\small \textbf{'.$mode.".}}\n";
|
||||
$tex .= '\greannotation{\small \textbf{'.$mode.".}}\n";
|
||||
}
|
||||
if($c['commentary']) {
|
||||
$tex .= '\commentary{{\small \emph{'.$c['commentary']."}}}\n";
|
||||
$tex .= '\nolinebreak[4]'."\n";
|
||||
}
|
||||
#
|
||||
# Parsing gabc
|
||||
|
|
@ -180,13 +178,16 @@ function makeimgfiles($id, $tex, $suffix = '') {
|
|||
fclose($f[0]);
|
||||
chdir(dirname($f[1]));
|
||||
exec('lualatex --interaction=nonstopmode '.basename($f[1]));
|
||||
exec('lualatex --interaction=nonstopmode '.basename($f[1])); # for variable line height
|
||||
exec('convert -density 300 '.substr($f[1],0,-4).'.pdf -flatten -trim '.$path.'png/'.$id.$suffix.'.png');
|
||||
chmod($path.'png/'.$id.$suffix.'.png', 0666);
|
||||
exec('convert -resize 33.333333% '.$path.'png/'.$id.$suffix.'.png '.$path.$id.$suffix.'.png');
|
||||
chmod($path.$id.$suffix.'.png', 0666);
|
||||
exec('pdfcrop '.substr($f[1],0,-4).'.pdf '.$path.'pdf/'.$id.$suffix.'.pdf');
|
||||
chmod($path.'pdf/'.$id.$suffix.'.pdf', 0666);
|
||||
exec('gs -q -dNOPAUSE -dBATCH -dSAFER -sDEVICE=epswrite -dCompatibilityLevel=1.3 -dEmbedAllFonts=true -dSubsetFonts=true -sOutputFile='.$path.'eps/'.$id.$suffix.'.eps '.$path.'pdf/'.$id.$suffix.'.pdf');
|
||||
exec('mutool draw -F svg -o '.$path.'svg/'.$id.$suffix.'.svg '.$path.'pdf/'.$id.$suffix.'.pdf');
|
||||
chmod($path.'svg/'.$id.$suffix.'.svg', 0666);
|
||||
exec('gs -q -dNOPAUSE -dBATCH -dSAFER -sDEVICE=eps2write -dCompatibilityLevel=1.3 -dEmbedAllFonts=true -dSubsetFonts=true -sOutputFile='.$path.'eps/'.$id.$suffix.'.eps '.$path.'pdf/'.$id.$suffix.'.pdf');
|
||||
chmod($path.'eps/'.$id.$suffix.'.eps', 0666);
|
||||
unlink($f[1]);
|
||||
unlink(substr($f[1],0,-4).'.log');
|
||||
|
|
|
|||
|
|
@ -32,7 +32,7 @@ function cleanString($string) {
|
|||
return $string;
|
||||
}
|
||||
|
||||
$formats = array('png' => 'image/png', 'pdf' => 'application/pdf', 'eps' => 'image/x-eps');
|
||||
$formats = array('png' => 'image/png', 'pdf' => 'application/pdf', 'svg' => 'image/svg+xml', 'eps' => 'image/x-eps');
|
||||
|
||||
if(array_key_exists('format', $_GET)) {
|
||||
$f = $_GET['format'];
|
||||
|
|
|
|||
|
|
@ -1,135 +0,0 @@
|
|||
%GregorioTeX file.
|
||||
%Copyright (C) 2007-2010 Elie Roux <elie.roux@telecom-bretagne.eu>
|
||||
%
|
||||
%This program is free software: you can redistribute it and/or modify
|
||||
%it under the terms of the GNU General Public License as published by
|
||||
%the Free Software Foundation, either version 3 of the License, or
|
||||
%(at your option) any later version.
|
||||
%
|
||||
%This program is distributed in the hope that it will be useful,
|
||||
%but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
%MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
%GNU General Public License for more details.
|
||||
%
|
||||
%You should have received a copy of the GNU General Public License
|
||||
%along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
% this file contains definitions of spaces
|
||||
|
||||
% the additional width of the additional lines (compared to the width of the glyph they're associated with)
|
||||
\greadditionallineswidth = 16000sp
|
||||
% null space
|
||||
\grezerowidthspace=0pt plus 0pt minus 0pt
|
||||
% space between glyphs in the same element
|
||||
\greinterglyphspace = 7600 sp plus 400 sp minus 400 sp
|
||||
% space between an alteration (flat or natural) and the next glyph
|
||||
\grealterationspace = 8500 sp plus 1400 sp minus 500 sp
|
||||
% space between a clef and a flat (for clefs with flat)
|
||||
\greclefflatspace = 6000 sp plus 700 sp minus 700 sp
|
||||
% space before a choral sign
|
||||
\grebeforechoralsignspace = 5000 sp plus 700 sp minus 700 sp
|
||||
% negative space, difference between the normal space between two notes and the space between a note and a flat
|
||||
\grebeforealterationspace = -36000 sp plus 1200 sp minus 1200 sp
|
||||
% space between elements
|
||||
\greinterelementspace = 7600 sp plus 200 sp minus 400 sp
|
||||
% larger space between elements
|
||||
\grelargerspace = 12000 sp plus 2000 sp minus 1000 sp
|
||||
% space between elements which has the size of a note
|
||||
\greglyphspace = 24000 sp plus 2000 sp minus 2000 sp
|
||||
% minimum space between two notes of different syllables
|
||||
\greintersyllablespace= 28000 sp plus 35000 sp minus 0 sp
|
||||
% space before custo
|
||||
\grespacebeforecusto = 20000 sp plus 35000 sp minus 7000 sp
|
||||
% space before punctum mora and augmentum duplex
|
||||
\grespacebeforesigns= 6000 sp plus 500 sp minus 500 sp
|
||||
% space after punctum mora and augmentum duplex
|
||||
\grespaceaftersigns= 9000 sp plus 900 sp minus 900 sp
|
||||
% space after a clef at the beginning of a line
|
||||
\grespaceafterlineclef = 30000 sp plus 16000 sp minus 1500 sp
|
||||
% space after at the end of a word when the last written symbol is a note and the first is a note
|
||||
\greinterwordspacenotes = 32000 sp plus 9600 sp minus 6000 sp
|
||||
% space after at the end of a word when the last written symbol is a note and the first is text
|
||||
\greinterwordspacenotestext = 30000 sp plus 30000 sp minus 8000 sp
|
||||
% space after at the end of a word when the last written symbol is text and the first is a note
|
||||
\greinterwordspacetextnotes = 30000 sp plus 30000 sp minus 8000 sp
|
||||
% space after at the end of a word when the last written symbol is text and the first is text
|
||||
\greinterwordspacetext = 25000 sp plus 45000 sp minus 8000 sp
|
||||
% space between notes of a bivirga or trivirga
|
||||
\grebitrivirspace = 7600 sp plus 200 sp minus 600 sp
|
||||
% space between notes of a bistropha or tristrophae
|
||||
\grebitristrospace = 7600 sp plus 200 sp minus 600 sp
|
||||
% space between two punctum inclinatum
|
||||
\grepunctuminclinatumshift= -4300 sp plus 100 sp minus 100 sp
|
||||
% space before puncta inclinata
|
||||
\grebeforepunctainclinatashift= 5800 sp plus 800 sp minus 500 sp
|
||||
% space between a punctum inclinatum and a punctum inclinatum deminutus
|
||||
\grepunctuminclinatumanddebilisshift= -2500 sp plus 100 sp minus 100 sp
|
||||
% space between two punctum inclinatum deminutus
|
||||
\grepunctuminclinatumdebilisshift= -800 sp plus 100 sp minus 100 sp
|
||||
% space between puncta inclinata, larger ambitus (range=3rd)
|
||||
\grepunctuminclinatumbigshift= 8300 sp plus 100 sp minus 100 sp
|
||||
% space between puncta inclinata, larger ambitus (range=4th -or more?-)
|
||||
\grepunctuminclinatummaxshift= 19600 sp plus 100 sp minus 100 sp
|
||||
% space for the bars (inside syllables)
|
||||
%first for virgula and divisio minima
|
||||
\grespacearoundsmallbar = 20000 sp plus 25000 sp minus 6000 sp
|
||||
%then divisio minor
|
||||
\grespacearoundminor = 20000 sp plus 25000 sp minus 6000 sp
|
||||
%divisio major
|
||||
\grespacearoundmaior = 20000 sp plus 25000 sp minus 6000 sp
|
||||
%divisio finalis
|
||||
\grespacearoundfinalis = 20000 sp plus 20000 sp minus 6000 sp
|
||||
%a special space for finalis, for when it is the last glyph
|
||||
\grespacebeforefinalfinalis= 32000 sp plus 8000 sp minus 30000 sp
|
||||
% the space that will appear around bars that are preceded by a custo and followed by a key.
|
||||
% well... actually it's the difference between the normal space around bars and the space described previously.
|
||||
\grespacearoundclefbars= 4000 sp plus 500 sp minus 100 sp
|
||||
% space between the text and the text of the bar
|
||||
\gretextbartextspace = 27000 sp plus 15000 sp minus 5400 sp
|
||||
% minimal space between a note and a bar
|
||||
\grenotebarspace = 35000 sp plus 30000 sp minus 3100 sp
|
||||
% maximal space between two syllables for which we consider a dash is not needed
|
||||
\gremaximumspacewithoutdash = 2200 sp
|
||||
% an extensible space for the beginning of lines
|
||||
\greafterclefnospace = 0 pt plus 30000 sp minus 0 pt
|
||||
% width of the additional lines, used only for the custos (maybe should depend on the width of the custo...)
|
||||
% the width is the one for the custos at end of lines, the line for custos in the middle of a score is the same
|
||||
% multiplied by 2.
|
||||
\greadditionallineswidth = 10000 sp
|
||||
% space between the initial and the beginning of the score
|
||||
\greafterinitialshift=0.6 em plus 0em minus 0em
|
||||
% space before the initial and the beginning of the score
|
||||
\greminimalspaceatlinebeginning=1mm
|
||||
% this space is the one between the bottom of the first anotation line and the top
|
||||
% of the second anotation line (above the initial)
|
||||
\greaboveinitialseparation = 0.5mm
|
||||
% space at the beginning of the lines if there is no clef
|
||||
\grenoclefspace = 1mm
|
||||
|
||||
%%%%%%%%%%%%%%%%%
|
||||
% vertical spaces
|
||||
%%%%%%%%%%%%%%%%%
|
||||
|
||||
% first, we have two spaces for the chironomic signs
|
||||
\greabovesignsspace = 8mm
|
||||
\grebelowsignsspace = 0mm
|
||||
% the shift for the low choral sign and the high choral signs on totally free interlines
|
||||
\grelowchoralsignshift = 1000sp
|
||||
% the shift for the high choral sign
|
||||
\grehighchoralsignshift = -5000sp
|
||||
% the space for the translation
|
||||
\gretranslationheight = 0.5cm
|
||||
%the space above the lines
|
||||
\grespaceabovelines = 50000 sp plus 40000 sp minus 10000 sp
|
||||
%the space between the lines and the bottom of the text
|
||||
\grespacelinestext = 66500 sp plus 0 sp minus 0 sp
|
||||
%the space beneath the text
|
||||
\global\grespacebeneathtext = 0 sp plus 0 sp minus 0 sp
|
||||
% height of the text above the note line
|
||||
\global\greabovelinestextraise=-0.365mm%
|
||||
% height that is added at the top of the lines if there is text above the lines (it must be bigger than the text for it to be taken into consideration)
|
||||
\global\greabovelinestextheight=3mm%
|
||||
% an additional shift you can give to the brace above the bars if you don't like it
|
||||
\global\grebraceshift = 0pt
|
||||
% a shift you can give to the accentus above the curly brace
|
||||
\global\grecurlybraceaccentusshift = -0.5mm
|
||||
|
|
@ -1,134 +0,0 @@
|
|||
%GregorioTeX file.
|
||||
%Copyright (C) 2007-2010 Elie Roux <elie.roux@telecom-bretagne.eu>
|
||||
%
|
||||
%This program is free software: you can redistribute it and/or modify
|
||||
%it under the terms of the GNU General Public License as published by
|
||||
%the Free Software Foundation, either version 3 of the License, or
|
||||
%(at your option) any later version.
|
||||
%
|
||||
%This program is distributed in the hope that it will be useful,
|
||||
%but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
%MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
%GNU General Public License for more details.
|
||||
%
|
||||
%You should have received a copy of the GNU General Public License
|
||||
%along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
% this file contains definitions of spaces
|
||||
|
||||
% the additional width of the additional lines (compared to the width of the glyph they're associated with)
|
||||
\greadditionallineswidth = 16000sp
|
||||
% null space
|
||||
\grezerowidthspace=0pt plus 0pt minus 0pt
|
||||
% space between glyphs in the same element
|
||||
\greinterglyphspace = 7600 sp plus 400 sp minus 400 sp
|
||||
% space between an alteration (flat or natural) and the next glyph
|
||||
\grealterationspace = 8500 sp plus 1400 sp minus 500 sp
|
||||
% space between a clef and a flat (for clefs with flat)
|
||||
\greclefflatspace = 6000 sp plus 700 sp minus 700 sp
|
||||
% space before a choral sign
|
||||
\grebeforechoralsignspace = 5000 sp plus 700 sp minus 700 sp
|
||||
% negative space, difference between the normal space between two notes and the space between a note and a flat
|
||||
\grebeforealterationspace = -36000 sp plus 1200 sp minus 1200 sp
|
||||
% space between elements
|
||||
\greinterelementspace = 7600 sp plus 200 sp minus 400 sp
|
||||
% larger space between elements
|
||||
\grelargerspace = 12000 sp plus 2000 sp minus 1000 sp
|
||||
% space between elements which has the size of a note
|
||||
\greglyphspace = 24000 sp plus 2000 sp minus 2000 sp
|
||||
% minimum space between two notes of different syllables
|
||||
\greintersyllablespace= 28000 sp plus 35000 sp minus 0 sp
|
||||
% space before custo
|
||||
\grespacebeforecusto = 20000 sp plus 35000 sp minus 7000 sp
|
||||
% space before punctum mora and augmentum duplex
|
||||
\grespacebeforesigns= 6000 sp plus 500 sp minus 500 sp
|
||||
% space after punctum mora and augmentum duplex
|
||||
\grespaceaftersigns= 9000 sp plus 900 sp minus 900 sp
|
||||
% space after a clef at the beginning of a line
|
||||
\grespaceafterlineclef = 30000 sp plus 16000 sp minus 1500 sp
|
||||
% space after at the end of a word when the last written symbol is a note and the first is a note
|
||||
\greinterwordspacenotes = 15000 sp plus 21000 sp minus 5000 sp
|
||||
% space after at the end of a word when the last written symbol is a note and the first is text
|
||||
\greinterwordspacenotestext = 15000 sp plus 21000 sp minus 5000 sp
|
||||
% space after at the end of a word when the last written symbol is text and the first is a note
|
||||
\greinterwordspacetextnotes = 15000 sp plus 21000 sp minus 5000 sp
|
||||
% space after at the end of a word when the last written symbol is text and the first is text
|
||||
\greinterwordspacetext = 15000 sp plus 21000 sp minus 5000 sp
|
||||
% space between notes of a bivirga or trivirga
|
||||
\grebitrivirspace = 7600 sp plus 200 sp minus 600 sp
|
||||
% space between notes of a bistropha or tristrophae
|
||||
\grebitristrospace = 7600 sp plus 200 sp minus 600 sp
|
||||
% space between two punctum inclinatum
|
||||
\grepunctuminclinatumshift= -4300 sp plus 100 sp minus 100 sp
|
||||
% space before puncta inclinata
|
||||
\grebeforepunctainclinatashift= 5800 sp plus 800 sp minus 500 sp
|
||||
% space between a punctum inclinatum and a punctum inclinatum deminutus
|
||||
\grepunctuminclinatumanddebilisshift= -2500 sp plus 100 sp minus 100 sp
|
||||
% space between two punctum inclinatum deminutus
|
||||
\grepunctuminclinatumdebilisshift= -800 sp plus 100 sp minus 100 sp
|
||||
% space between puncta inclinata, larger ambitus (range=3rd)
|
||||
\grepunctuminclinatumbigshift= 8300 sp plus 100 sp minus 100 sp
|
||||
% space between puncta inclinata, larger ambitus (range=4th -or more?-)
|
||||
\grepunctuminclinatummaxshift= 19600 sp plus 100 sp minus 100 sp
|
||||
% space for the bars (inside syllables)
|
||||
\grespacearoundsmallbar = 25000 sp plus 10000 sp minus 1000 sp
|
||||
%then divisio minor
|
||||
\grespacearoundminor = 20000 sp plus 10000 sp minus 6000 sp
|
||||
%divisio major
|
||||
\grespacearoundmaior = 20000 sp plus 10000 sp minus 6000 sp
|
||||
%divisio finalis
|
||||
\grespacearoundfinalis = 20000 sp plus 10000 sp minus 6000 sp
|
||||
%a special space for finalis, for when it is the last glyph
|
||||
\grespacebeforefinalfinalis= 0 sp plus 0 sp minus 0 sp
|
||||
% the space that will appear around bars that are preceded by a custo and followed by a key.
|
||||
% well... actually it's the difference between the normal space around bars and the space described previously.
|
||||
\grespacearoundclefbars= 4000 sp plus 500 sp minus 100 sp
|
||||
% space between the text and the text of the bar
|
||||
\gretextbartextspace = 25000 sp plus 15000 sp minus 5400 sp
|
||||
% minimal space between a note and a bar
|
||||
\grenotebarspace = 25000 sp plus 30000 sp minus 3100 sp
|
||||
% maximal space between two syllables for which we consider a dash is not needed
|
||||
\gremaximumspacewithoutdash = 2200 sp
|
||||
% an extensible space for the beginning of lines
|
||||
\greafterclefnospace = 0 pt plus 30000 sp minus 0 pt
|
||||
% width of the additional lines, used only for the custos (maybe should depend on the width of the custo...)
|
||||
% the width is the one for the custos at end of lines, the line for custos in the middle of a score is the same
|
||||
% multiplied by 2.
|
||||
\greadditionallineswidth = 10000 sp
|
||||
% space between the initial and the beginning of the score
|
||||
\greafterinitialshift=0.6 em plus 0em minus 0em
|
||||
% space before the initial and the beginning of the score
|
||||
\greminimalspaceatlinebeginning=1mm
|
||||
% this space is the one between the bottom of the first annotation line and the top
|
||||
% of the second annotation line (above the initial)
|
||||
\greaboveinitialseparation = 0.5mm
|
||||
% space at the beginning of the lines if there is no clef
|
||||
\grenoclefspace = 1mm
|
||||
|
||||
%%%%%%%%%%%%%%%%%
|
||||
% vertical spaces
|
||||
%%%%%%%%%%%%%%%%%
|
||||
|
||||
% first, we have two spaces for the chironomic signs
|
||||
\greabovesignsspace = 8mm
|
||||
\grebelowsignsspace = 0mm
|
||||
% the shift for the low choral sign and the high choral signs on totally free interlines
|
||||
\grelowchoralsignshift = 1000sp
|
||||
% the shift for the high choral sign
|
||||
\grehighchoralsignshift = -5000sp
|
||||
% the space for the translation
|
||||
\gretranslationheight = 0.5cm
|
||||
%the space above the lines
|
||||
\grespaceabovelines = 50000 sp plus 40000 sp minus 10000 sp
|
||||
%the space between the lines and the bottom of the text
|
||||
\grespacelinestext = 66500 sp plus 0 sp minus 0 sp
|
||||
%the space beneath the text
|
||||
\global\grespacebeneathtext = 0 sp plus 0 sp minus 0 sp
|
||||
% height of the text above the note line
|
||||
\global\greabovelinestextraise=-0.365mm%
|
||||
% height that is added at the top of the lines if there is text above the lines (it must be bigger than the text for it to be taken into consideration)
|
||||
\global\greabovelinestextheight=3mm%
|
||||
% an additional shift you can give to the brace above the bars if you don't like it
|
||||
\global\grebraceshift = 0pt
|
||||
% a shift you can give to the accentus above the curly brace
|
||||
\global\grecurlybraceaccentusshift = -0.5mm
|
||||
|
|
@ -1,135 +0,0 @@
|
|||
%GregorioTeX file.
|
||||
%Copyright (C) 2007-2010 Elie Roux <elie.roux@telecom-bretagne.eu>
|
||||
%
|
||||
%This program is free software: you can redistribute it and/or modify
|
||||
%it under the terms of the GNU General Public License as published by
|
||||
%the Free Software Foundation, either version 3 of the License, or
|
||||
%(at your option) any later version.
|
||||
%
|
||||
%This program is distributed in the hope that it will be useful,
|
||||
%but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
%MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
%GNU General Public License for more details.
|
||||
%
|
||||
%You should have received a copy of the GNU General Public License
|
||||
%along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
% this file contains definitions of spaces
|
||||
|
||||
% the additional width of the additional lines (compared to the width of the glyph they're associated with) [originale 16000]
|
||||
\greadditionallineswidth = 16000sp
|
||||
% null space
|
||||
\grezerowidthspace=0pt plus 0pt minus 0pt
|
||||
% space between glyphs in the same element [originale 7600+400-400]. spazio relativo alle note intra-sillaba
|
||||
\greinterglyphspace = 7600 sp plus 400 sp minus 400 sp
|
||||
% space between an alteration (flat or natural) and the next glyph [originale 8500+1400-500]
|
||||
\grealterationspace = 8500 sp plus 1400 sp minus 500 sp
|
||||
% space between a clef and a flat (for clefs with flat) [originale 6000+700-700]
|
||||
\greclefflatspace = 6000 sp plus 700 sp minus 700 sp
|
||||
% space before a choral sign [originale 5000+700-700]
|
||||
\grebeforechoralsignspace = 5000 sp plus 700 sp minus 700 sp
|
||||
% negative space, difference between the normal space between two notes and the space between a note and a flat [originale -36000+1200-1200]
|
||||
\grebeforealterationspace = -36000 sp plus 1200 sp minus 1200 sp
|
||||
% space between elements [originale 7600+200-400]
|
||||
\greinterelementspace = 7600 sp plus 200 sp minus 400 sp
|
||||
% larger space between elements [originale 12000+2000-1000]
|
||||
\grelargerspace = 12000 sp plus 2000 sp minus 1000 sp
|
||||
% space between elements which has the size of a note [originale 24000+2000-2000]
|
||||
\greglyphspace = 24000 sp plus 2000 sp minus 2000 sp
|
||||
% minimum space between two notes of different syllables [originale 28000+35000-0]
|
||||
\greintersyllablespace= 20000 sp plus 30000 sp minus 0 sp
|
||||
% space before custo [originale 20000+35000-7000]
|
||||
\grespacebeforecusto = 20000 sp plus 35000 sp minus 7000 sp
|
||||
% space before punctum mora and augmentum duplex [originale 6000+500-500]
|
||||
\grespacebeforesigns= 6000 sp plus 500 sp minus 500 sp
|
||||
% space after punctum mora and augmentum duplex [originale 9000+900-900]
|
||||
\grespaceaftersigns= 9000 sp plus 900 sp minus 900 sp
|
||||
% space after a clef at the beginning of a line [originale 30000+16000-1500]
|
||||
\grespaceafterlineclef = 30000 sp plus 16000 sp minus 1500 sp
|
||||
% space after at the end of a word when the last written symbol is a note and the first is a note [originale 32000+9600-6000]
|
||||
\greinterwordspacenotes = 30000 sp plus 6000 sp minus 6000 sp
|
||||
% space after at the end of a word when the last written symbol is a note and the first is text [originale 30000+30000-8000]
|
||||
\greinterwordspacenotestext = 20000 sp plus 8000 sp minus 8000 sp
|
||||
% space after at the end of a word when the last written symbol is text and the first is a note [originale 30000+30000-8000]
|
||||
\greinterwordspacetextnotes = 20000 sp plus 8000 sp minus 8000 sp
|
||||
% space after at the end of a word when the last written symbol is text and the first is text [originale: 25000+45000-8000]
|
||||
\greinterwordspacetext = 22000 sp plus 8000 sp minus 8000 sp
|
||||
% space between notes of a bivirga or trivirga [originale 7600+200-600]
|
||||
\grebitrivirspace = 7600 sp plus 200 sp minus 600 sp
|
||||
% space between notes of a bistropha or tristrophae [originale 7600+200-600]
|
||||
\grebitristrospace = 7600 sp plus 200 sp minus 600 sp
|
||||
% space between two punctum inclinatum [originale -4300+100-100]
|
||||
\grepunctuminclinatumshift= -4300 sp plus 100 sp minus 100 sp
|
||||
% space before puncta inclinata [originale 5800+800-500]
|
||||
\grebeforepunctainclinatashift= 5800 sp plus 800 sp minus 500 sp
|
||||
% space between a punctum inclinatum and a punctum inclinatum deminutus [originale -2500+100-100]
|
||||
\grepunctuminclinatumanddebilisshift= -2500 sp plus 100 sp minus 100 sp
|
||||
% space between two punctum inclinatum deminutus [originale -800+100-100]
|
||||
\grepunctuminclinatumdebilisshift= -800 sp plus 100 sp minus 100 sp
|
||||
% space between puncta inclinata, larger ambitus (range=3rd) [originale 8300+100-100]
|
||||
\grepunctuminclinatumbigshift= 8300 sp plus 100 sp minus 100 sp
|
||||
% space between puncta inclinata, larger ambitus (range=4th -or more?-) [originale 19600+100-100]
|
||||
\grepunctuminclinatummaxshift= 19600 sp plus 100 sp minus 100 sp
|
||||
% space for the bars (inside syllables)
|
||||
% first for virgula and divisio minima [originale per tutti 20000+25000-6000]
|
||||
\grespacearoundsmallbar = 14000 sp plus 6000 sp minus 6000 sp
|
||||
%then divisio minor
|
||||
\grespacearoundminor = 14000 sp plus 6000 sp minus 6000 sp
|
||||
%divisio major
|
||||
\grespacearoundmaior = 14000 sp plus 6000 sp minus 6000 sp
|
||||
%divisio finalis [originale 20000+20000-6000]
|
||||
\grespacearoundfinalis = 14000 sp plus 6000 sp minus 6000 sp
|
||||
%a special space for finalis, for when it is the last glyph [originale: 32000+8000-30000]
|
||||
\grespacebeforefinalfinalis= 0 sp plus 0 sp minus 0 sp
|
||||
% the space that will appear around bars that are preceded by a custo and followed by a key.
|
||||
% well... actually it's the difference between the normal space around bars and the space described previously. [originale 4000+500-100]
|
||||
\grespacearoundclefbars= 4000 sp plus 500 sp minus 100 sp
|
||||
% space between the text and the text of the bar [originale 27000+15000-5400]
|
||||
\gretextbartextspace = 20000 sp plus 5400 sp minus 5400 sp
|
||||
% minimal space between a note and a bar [originale 35000+30000-3100]
|
||||
\grenotebarspace = 28000 sp plus 3100 sp minus 3100 sp
|
||||
% maximal space between two syllables for which we consider a dash is not needed [originale 2200]
|
||||
\gremaximumspacewithoutdash = 0 sp
|
||||
% an extensible space for the beginning of lines [originale 0+30000-0]
|
||||
\greafterclefnospace = 0 pt plus 30000 sp minus 0 pt
|
||||
% width of the additional lines, used only for the custos (maybe should depend on the width of the custo...)
|
||||
% the width is the one for the custos at end of lines, the line for custos in the middle of a score is the same
|
||||
% multiplied by 2. [originale 10000]
|
||||
\greadditionallineswidth = 10000 sp
|
||||
% space between the initial and the beginning of the score [originale 0.6em +0 em-0 em]
|
||||
\greafterinitialshift=0.6 em plus 0em minus 0em
|
||||
% space before the initial and the beginning of the score [originale 1mm]
|
||||
\greminimalspaceatlinebeginning=1mm
|
||||
% this space is the one between the bottom of the first anotation line and the top
|
||||
% of the second anotation line (above the initial) [originale 0.5mm]
|
||||
\greaboveinitialseparation = 0.5mm
|
||||
% space at the beginning of the lines if there is no clef [originale 1mm]
|
||||
\grenoclefspace = 1mm
|
||||
|
||||
%%%%%%%%%%%%%%%%%
|
||||
% vertical spaces
|
||||
%%%%%%%%%%%%%%%%%
|
||||
|
||||
% first, we have two spaces for the chironomic signs
|
||||
\greabovesignsspace = 8mm
|
||||
\grebelowsignsspace = 0mm
|
||||
% the shift for the low choral sign and the high choral signs on totally free interlines
|
||||
\grelowchoralsignshift = 1000sp
|
||||
% the shift for the high choral sign
|
||||
\grehighchoralsignshift = -5000sp
|
||||
% the space for the translation
|
||||
\gretranslationheight = 0.5cm
|
||||
%the space above the lines
|
||||
\grespaceabovelines = 50000 sp plus 40000 sp minus 10000 sp
|
||||
%the space between the lines and the bottom of the text
|
||||
\grespacelinestext = 66500 sp plus 0 sp minus 0 sp
|
||||
%the space beneath the text
|
||||
\global\grespacebeneathtext = 0 sp plus 0 sp minus 0 sp
|
||||
% height of the text above the note line
|
||||
\global\greabovelinestextraise=-0.365mm%
|
||||
% height that is added at the top of the lines if there is text above the lines (it must be bigger than the text for it to be taken into consideration)
|
||||
\global\greabovelinestextheight=3mm%
|
||||
% an additional shift you can give to the brace above the bars if you don't like it
|
||||
\global\grebraceshift = 0pt
|
||||
% a shift you can give to the accentus above the curly brace
|
||||
\global\grecurlybraceaccentusshift = -0.5mm
|
||||
Loading…
Reference in New Issue