X-Git-Url: http://source.jalview.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=websoft%2Fbin%2Fblc2ps;fp=websoft%2Fbin%2Fblc2ps;h=e466ac9a1e8796ec6fd0f5329de66acff7899a39;hb=443c228bf0712d71e7fa34b5a2dc4b2b2e79f13f;hp=0000000000000000000000000000000000000000;hpb=9aa768067094f24f46f273077f867348e6143711;p=jpred.git

diff --git a/websoft/bin/blc2ps b/websoft/bin/blc2ps
new file mode 100755
index 0000000..e466ac9
--- /dev/null
+++ b/websoft/bin/blc2ps
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+# Generates PS from a blc file (generally made by concise2blc)
+
+use strict;
+use warnings;
+use Getopt::Long;
+
+use Jpred;
+
+my ($in, $out, $ps);
+GetOptions(
+	"in=s" => \$in,
+	"out=s" => \$out,
+	"postscript=s" => \$ps
+);
+
+die "No input BLC file given\n" unless defined $in;
+die "No output path given\n" unless defined $out;
+die "No PostScript output path given\n" unless defined $ps;
+
+#xsystem("$BINDIR/prettify -f $in -prefix $out -ignore 2");
+xsystem("$BINDIR/prettify.pl --blc $in --alscript $out --postscript $ps");
+xsystem("$BINDIR/alscript -f $out");