From 3c9443294d30367ada4180f23438ba0cd9acfbcc Mon Sep 17 00:00:00 2001
From: Werner Almesberger <werner@almesberger.net>
Date: Tue, 15 Jan 2013 16:14:48 -0300
Subject: [PATCH] ubb-patgen/table/: generate a PNG with a table of MMC bus
 clock frequencies

---
 ubb-patgen/table/FREQ  | 142 +++++++++++++++++++++++++++++++++++++++++
 ubb-patgen/table/mktab |  40 ++++++++++++
 2 files changed, 182 insertions(+)
 create mode 100644 ubb-patgen/table/FREQ
 create mode 100755 ubb-patgen/table/mktab

diff --git a/ubb-patgen/table/FREQ b/ubb-patgen/table/FREQ
new file mode 100644
index 0000000..43a4e1d
--- /dev/null
+++ b/ubb-patgen/table/FREQ
@@ -0,0 +1,142 @@
+41015.625000
+42338.709677
+43750.000000
+45258.620690
+46875.000000
+48611.111111
+50480.769231
+52500.000000
+54687.500000
+57065.217391
+59659.090909
+62500.000000
+65625.000000
+69078.947368
+72916.666667
+77205.882353
+82031.250000
+84677.419355
+87500.000000
+90517.241379
+93750.000000
+97222.222222
+100961.538462
+105000.000000
+109375.000000
+114130.434783
+119318.181818
+125000.000000
+131250.000000
+138157.894737
+145833.333333
+154411.764706
+164062.500000
+169354.838710
+175000.000000
+181034.482759
+187500.000000
+194444.444444
+201923.076923
+210000.000000
+218750.000000
+228260.869565
+238636.363636
+250000.000000
+262500.000000
+276315.789474
+291666.666667
+308823.529412
+328125.000000
+338709.677419
+350000.000000
+362068.965517
+375000.000000
+388888.888889
+403846.153846
+420000.000000
+437500.000000
+456521.739130
+477272.727273
+500000.000000
+525000.000000
+552631.578947
+583333.333333
+617647.058824
+656250.000000
+677419.354839
+700000.000000
+724137.931034
+750000.000000
+777777.777778
+807692.307692
+840000.000000
+875000.000000
+913043.478261
+954545.454545
+1000000.000000
+1050000.000000
+1105263.157895
+1166666.666667
+1235294.117647
+1312500.000000
+1354838.709677
+1400000.000000
+1448275.862069
+1500000.000000
+1555555.555556
+1615384.615385
+1680000.000000
+1750000.000000
+1826086.956522
+1909090.909091
+2000000.000000
+2100000.000000
+2210526.315789
+2333333.333333
+2470588.235294
+2625000.000000
+2709677.419355
+2800000.000000
+2896551.724138
+3000000.000000
+3111111.111111
+3230769.230769
+3360000.000000
+3500000.000000
+3652173.913043
+3818181.818182
+4000000.000000
+4200000.000000
+4421052.631579
+4666666.666667
+4941176.470588
+5250000.000000
+5419354.838710
+5600000.000000
+5793103.448276
+6000000.000000
+6222222.222222
+6461538.461538
+6720000.000000
+7000000.000000
+7304347.826087
+7636363.636364
+8000000.000000
+8400000.000000
+8842105.263158
+9333333.333333
+9882352.941176
+10500000.000000
+11200000.000000
+12000000.000000
+12923076.923077
+14000000.000000
+15272727.272727
+16800000.000000
+18666666.666667
+21000000.000000
+24000000.000000
+28000000.000000
+33600000.000000
+42000000.000000
+56000000.000000
diff --git a/ubb-patgen/table/mktab b/ubb-patgen/table/mktab
new file mode 100755
index 0000000..d513fda
--- /dev/null
+++ b/ubb-patgen/table/mktab
@@ -0,0 +1,40 @@
+#!/usr/bin/perl
+while (<>) {
+	chop;
+	push @a, $_;
+}
+#print "set term x11 size 500, 1000\n";
+print "set term png lw 2 font \"Sans, 8\" size 500, 1000\n";
+#print "set size 0.5, 1\n";
+print "set logscale y\n";
+print "set xrange [-0.5:4]\n";
+print "set yrange [0.95:11]\n";
+print "set ytics (1, 2, 3, 4, 5, 6, 7, 8, 9, 10)\n";
+print "unset xtics\n";
+print "set title \"BEN NANONOTE MMC BUS CLOCK SPEEDS\"".
+  " font \"Helvetica, 10\"\n";
+$x = 0;
+for $b (10000, 100000, 1000000, 10000000) {
+	print "set arrow from $x, 1 to $x, 10 nohead\n";
+	if ($b >= 1e6) {
+		$si = "M";
+		$div = 1e6;
+	} elsif ($b >= 1e3) {
+		$si = "k";
+		$div = 1e3;
+	} else {
+		$si = "";
+		$div = 1;
+	}
+	print "set label \"${si}Hz\" at $x, 10.6 center\n";
+	print "set arrow from $x-0.2, 10.3 to $x+0.2, 10.3 nohead\n";
+	for (@a) {
+		next if $_ < $b || $_ >= $b*10;
+		$y = $_/$b;
+		print "set arrow from $x-0.1, $y to $x+0.1, $y nohead\n";
+		print "set label \"".sprintf("%g", $_/$div).
+		  "\" at $x+0.2, $y\n";
+	}
+	$x++;
+}
+print "plot 0 notitle\n";