#!/usr/bin/perl

use strict;
use warnings;

my $rh_offset = 820;

my $bt_offset = 520;

my $screen_right = 1842;

my $screen_down = 1080;

foreach my $h (0..2) {
  my $shift_h = $h * $screen_right;
  foreach my $v (0..2) {
    #next if ($h == 0 && $v == 2);
    my $shift_v = $v * $screen_down;
    foreach my $h_m (0..1) {
      my $this_h = $shift_h + $h_m * $rh_offset;
      foreach my $v_m(0..1) {
        my $this_v = $shift_v + $v_m * $bt_offset;
        next unless ($this_h || $this_v);
        print "xterm -geom +${this_h}+${this_v} -fg '#d7af00' -bg black -font 10x20 +tb &\n";
        #print "xterm -geom +${this_h}+${this_v} -fg green -bg black -font 10x20 +tb &\n";
      }
    }
  }
}

exit;