From 3e79156691f3d4ac91dcd4dafbafb9d939b7a887 Mon Sep 17 00:00:00 2001
From: "Jan N. Bader" <darth.bader@darthbader.de>
Date: Fri, 28 Jul 2023 09:04:03 +0200
Subject: [PATCH] added draft for variable set and file initialization

---
 moku_pattern_gen.pl | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 moku_pattern_gen.pl

diff --git a/moku_pattern_gen.pl b/moku_pattern_gen.pl
new file mode 100644
index 0000000..1504e0b
--- /dev/null
+++ b/moku_pattern_gen.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl -w
+use strict;
+use warnings;
+#use Cwd;
+
+my $base_freq = 125 000 000;
+my $divider = 1;
+my $baudrate = $base_freq/$divider;
+
+my $sig_freq = 10 000 000;
+my $pulse_time = 9e-6;
+my $short_time = 1e-6;
+my $receive_time = 1e-5;
+my $recovery_time = 1e-7;
+
+mkdir('CODE-AFE_pattern'.sprintf("%.0f", $baud_rate).'MHz', 0777);
+chdir 'CODE-AFE_pattern'.sprintf("%.0f", $baud_rate).'MHz';
+
+my $filename = '>>CODE-AFE_pattern'.sprintf("%.0f", $sig_freq).'MHz.csv';
+open(MYOUTFILE, $filename);
+
+print MYOURFILE "Pin 1; Pin 2; Pin 3; Pin4; Pin5; Pin6;";