X-Git-Url: https://git.distorted.org.uk/u/mdw/catacomb/blobdiff_plain/38b901110909d19388502b487f0529514cf853ff..3e248c3b5b309bc03eb5f70762d3f5671d51f996:/utils/ecentry-prettify.pl

diff --git a/utils/ecentry-prettify.pl b/utils/ecentry-prettify.pl
index 3b72053..ab9b3ed 100644
--- a/utils/ecentry-prettify.pl
+++ b/utils/ecentry-prettify.pl
@@ -23,6 +23,7 @@ my $name = shift;
 my $kind = shift;
 
 my $p = gather("p");
+my $beta = ($kind eq "binnorm") ? "0x".gather("beta") : "";
 my $a = gather("a");
 my $b = gather("b");
 my $r = gather("r");
@@ -31,4 +32,6 @@ my $g = gather("g");
 
 print "curve $name $kind\n";
 $p = "0x".$p if $kind =~ /bin/;
-system "./ecptd", "$kind $p $CTYPE{$kind} 0x$a 0x$b", "0x$r", $h, $g;
+my @l = ("./ecptd", "$kind $p $beta $CTYPE{$kind} 0x$a 0x$b", "0x$r", $h, $g);
+# print join(" ", @l), "\n";
+system @l;