diff --git a/contrib/900_gregorio.xml b/contrib/900_gregorio.xml
new file mode 100644
index 000000000..e6d5b2f8d
--- /dev/null
+++ b/contrib/900_gregorio.xml
@@ -0,0 +1,58 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+\begin{document}
+\setspaceafterinitial{1mm plus 0em minus 0em}
+\setspacebeforeinitial{1mm plus 0em minus 0em}
+\def\greinitialformat#1{{\fontsize{33}{33}\selectfont #1}}
+\def\grebiginitialformat#1{{\fontsize{73}{73}\selectfont #1}}
+\redlines
+%%
+(c3) Pó(eh/hi)pu(h)lus(h) Si(hi)on,(hgh.)
+
+
+\documentclass[a4paper,$scribus_fontsize$]{extarticle}
+\usepackage[utf8]{inputenc}
+\usepackage[T1]{fontenc}
+\usepackage[left=0cm,top=0cm,right=0cm,bottom=0cm,nohead,nofoot]{geometry}
+\usepackage{gregoriotex}
+\usepackage{gregoriosyms}
+\usepackage{color}
+\title{Scribus-Latex-gregorio-File}
+$scribus_font$
+$scribus_additionalheaders$
+\author{Scribus}
+\pagestyle{empty}
+\setlength{\textwidth}{$scribus_realwidth$ pt}
+
+
+
+
diff --git a/contrib/Makefile.am b/contrib/Makefile.am
index 98274789b..3846dac04 100644
--- a/contrib/Makefile.am
+++ b/contrib/Makefile.am
@@ -1 +1 @@
-EXTRA_DIST = gprocess gabc.lang gabc.xml gabc.vim README
+EXTRA_DIST = gprocess gabc.lang gabc.xml gabc.vim 900_gregorio.xml gregorio-scribus.pl gregorio.png gregorio.scpt pdfLuaLaTeX.engine lamed-dvipdfm.engine README
diff --git a/contrib/README b/contrib/README
index 2eb69cf3d..3a3cf8c36 100644
--- a/contrib/README
+++ b/contrib/README
@@ -37,3 +37,12 @@ output format. To set it up, open the Macro Editor in TeXShop. Select New Item,
and call it gregorio (or whatvever you wish). Copy and paste all the text of
gregorio.scpt into the Content window, and click save. To use it, type and save
a gabc file and then just choose the gregorio macro from the menu.
+
+gregorio-scribus.pl, gregorio.png and 900_gregorio.xml are files to use Gregorio
+in scribus. In order to use it, copy the .pl file somewhere it can be executed
+(like /usr/bin under Unix or or C:\Program Files\Scribus under windows) and the
+two other files in the editorconfig folder of scribus
+(/usr/share/scribus-ng/editorconfig under debian for example,
+or C:\Program Files\Scribus\share\editorconfig under Windows).
+After that you can use them by inserting a render frame and using the program
+gregorio.
diff --git a/contrib/gregorio-scribus.pl b/contrib/gregorio-scribus.pl
new file mode 100755
index 000000000..e941520b7
--- /dev/null
+++ b/contrib/gregorio-scribus.pl
@@ -0,0 +1,63 @@
+#!/usr/bin/perl -w
+#
+# gregorio-scribus, a script to use gregorio inside scribus.
+# Copyright (C) 2009 Pierre Couderc .
+#
+# 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 .
+
+use strict;
+
+my $dir = $ARGV[0];
+my $file = $ARGV[1];
+open(INPUTFILE,"<","$file") || die("Cannot open file $file");
+my @raw_data=;
+open(TEX,">gregorio-scribus-tmp.tex") || die("Cannot open file gregorio-scribus-tmp.tex");
+open(GABC,">gregorio-scribus-tmp-score.gabc") || die("Cannot open file gregorio-scribus-tmp-score.gabc");
+foreach my $lineo (@raw_data)
+{
+ if(defined($lineo))
+ {
+ my $line = $lineo;
+ if(substr($lineo,0,1) eq "\\")
+ {
+ print TEX $line;
+ }
+ else
+ {
+ print GABC $line;
+ }
+ }
+}
+print TEX <