From 8172a7f70e35942cf102fb07963687d9ddace818 Mon Sep 17 00:00:00 2001
From: Charles <sircharlesaze@gmail.com>
Date: Sat, 27 Jul 2019 08:35:04 +0200
Subject: adding bsq generator, remove rush01 6x6 try

---
 bsq/gen.pl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 bsq/gen.pl

(limited to 'bsq/gen.pl')

diff --git a/bsq/gen.pl b/bsq/gen.pl
new file mode 100755
index 0000000..bac7219
--- /dev/null
+++ b/bsq/gen.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+my ($x, $y, $density) = @ARGV;
+
+print "$y.ox\n";
+for (my $i = 0; $i < $y; $i++) {
+    for (my $j = 0; $j < $x; $j++) {
+        if (int(rand($y) * 2) < $density) {
+            print "o";
+        }
+        else {
+            print ".";
+        }
+    }
+    print "\n";
+}
+
+
-- 
cgit