initial Release of vdr-plugin-seduatmo

1 files changed, 77 insertions, 0 deletions

diff --git a/scripts/seduconf.pl b/scripts/seduconf.pl
new file mode 100755
index 0000000..aed3367
--- /dev/null
+++ b/scripts/seduconf.pl
@@ -0,0 +1,77 @@
+#!/usr/bin/perl -w
+
+$top = 28;	# Number of LEDs at the top
+$bot = 28;	# Number of LEDs at the bottom
+$left = 16;	# Number of LEDs on the left => might be higher than physically when $cor=1
+$right = 16;	# Number of LEDs on the right => might be higher than physically when $cor=1
+
+$horz = 3;	# horizontal deep on left/right (grabbed Fields)
+$vert = 2;	# vertical deep at top/bottom (grabbed Fields)
+
+@fit = ('bot', 'right', 'top', 'left');		# pyhsical/technical LED setup
+
+$dir = 'r';	# forward or reverse (clock) direction (f/r)
+$cor = 0;	# have a single LED in each corner (0/1)
+$shift = 0;	# shift first LED to last position (0/1)
+
+############## Do not touch below here ##############
+
+$top = $top-1;
+$bot = $bot-1;
+$left = $left-1;
+$right = $right-1;
+$horz = $horz-1;
+$vert = $vert-1;
+
+for ($t=0;$t<=$top;$t++) { 
+  $value = "led top $t 0";
+  push(@top, $value);
+}
+
+for ($b=$bot;$b>=0;$b--) {
+  $vert1 = $right-$vert;
+  $value = "led bot $b $right";
+  push(@bot, $value);
+}
+
+for ($l=$left;$l>=0;$l--) {
+  if ( $cor==1 and ($l==0 or $l==$left-1)) { next; }
+  $value = "led left 0 $l";
+  push(@left, $value);
+}
+
+for ($r=0;$r<=$right;$r++) {
+  if ( $cor==1 and ($r==0 or $r==$right-1)) { next; }
+  $horz1 = $top-$horz;
+  $value = "led right $top $r";
+  push(@right, $value);
+}
+
+if ($dir eq 'r') { 
+  @left = reverse(@left);
+  @bot = reverse(@bot);
+  @right = reverse(@right);
+  @top = reverse(@top);
+}
+
+
+open (CONF, ">seduatmo.conf") or die "Can't open CONF file\n";
+
+$cnt = 1;
+foreach $side(@fit) {
+  print CONF "# $side\n";
+  if ($cnt==1 and $shift==1) {
+    $first = $$side[0];
+    shift(@$side);
+  }
+  print CONF join("\n",@$side);
+  print CONF "\n\n";
+  $cnt++
+}
+
+if ($shift==1) {
+  print CONF "# shift first LED to last position\n";
+  print CONF $first, "\n";
+}
+
+close CONF;