From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 29 Jun 2012 10:56:03 +0000 (+0100)
Subject: add mupcolour
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=80455468d1256e44ae39cb20359f579e2a5eef28;p=music.git

add mupcolour
---

diff --git a/mupcolour b/mupcolour
new file mode 100755
index 0000000..35793c4
--- /dev/null
+++ b/mupcolour
@@ -0,0 +1,97 @@
+#!/usr/bin/perl
+# 
+# A state machine that post processes a mup postscript file to alter
+# the colour of various things 
+#
+# Copyright (c) 2004 Dirk Koopman
+#
+# $Id: mupcolour,v 1.2 2004/06/02 13:35:29 djk Exp $
+#
+
+use strict;
+use warnings;
+
+my %staff = ();					# contains the actions for each staff
+
+# arguments are of the form: -l1=#275643 -s2=#324524
+# ie '-', a letter, a staff no, '=', an RGB triple
+while ($ARGV[0] =~ /^-/) {
+	my $arg = shift;
+	if (my ($let, $staffno, $r, $g, $b) = $arg =~ /^-([a-zA-Z])(\d+)=#([0-9a-fA-F]{2})([0-9a-fA-F]{2})([0-9a-fA-F]{2})$/) {
+		my $staff = $staff{$staffno} || {};
+		$staff->{$let} = [hex($r)/256, hex($g)/256, hex($b)/256];
+		$staff{$staffno} = $staff;
+	} else {
+		usage("Don't recognise '$arg'");
+		exit(1);
+	}
+}
+
+if (@ARGV == 0) {
+	usage("Need an input filename");
+	exit(1);
+}
+
+while (@ARGV) {
+	process(shift);
+}
+
+sub process
+{
+	my $fn = shift;
+	rename($fn, "$fn.bak") || usage("cannot rename $fn -> $fn.bak") || exit(1);
+	open IN, "$fn.bak" || usage("cannot open $fn.bak ($!)") || exit(1);
+	open OUT, ">$fn" || usage("cannot open $fn ($!)") || exit(1);
+
+	my $state = '';
+	my $staffno = 0;
+	my $store = '';
+	my $dostore = 0;
+	
+	while (<IN>) {
+		
+		if (/^%\s+S_STAFF/) {
+			print OUT $store if $store;
+			$state = "waitstaff";
+			$dostore = $staffno = 0;
+			$store = '';
+		} elsif (/^%\s+staff\s(\d+)/ && $state eq 'waitstaff') {
+			$staffno = $1;
+			$state = 'waitfont';
+		} elsif (/findfont$/ && $state eq 'waitfont') {
+			$state = 'waitshow';
+			$dostore = 1;
+		} elsif (/\)\s+show$/ && $state eq 'waitshow') {
+			if (!/setrgbcolor/) {
+				my $st = $staff{$staffno};
+				if ($st) {
+					my $rgb = $st->{l};
+					chomp;
+					print OUT "$rgb->[0] $rgb->[1] $rgb->[2] setrgbcolor\n$store$_\n0 0 0 setrgbcolor\n";
+					$state = 'waitfont';
+					$store = '';
+					$dostore = 0;
+					next;
+				}
+			}
+		}
+		if ($dostore) {
+			$store .= $_;
+		} else {
+			print OUT $_;
+		}
+	}
+}
+
+sub usage
+{
+	my $mess = shift;
+	print "mupcolour: A program to add colour to mup output\n\n";
+	print "$mess\n\n" if $mess;
+	print "usage: mupcolour -l1=#324532 -l2=#453232 file.ps\n";
+	print "arguments are of the form: -,letter,staffno,=#,rgb triple\n";
+	print "the letters available are:\n";
+	print "    'l' - lyric colour\n";
+	print "\n";
+	return 0;
+}