#!/usr/bin/perl -w
use strict;
my @defaultres=(800,600);
my $normx=800;
my $normy=600;

sub getres {
  my @res=(0,0);
  open(W,"xxwininfo -root|") or return(@defaultres); 
  while(<W>) {
    chomp;
    if (/Width: (\d+)/) {
      $res[0]=$1;
    } elsif (/Height: (\d+)/) {
      $res[1]=$1;
    }
  }
  close(W);
  return @res;
}

(my $wd,my $hg)=getres();

$sy = 1.0 * $hg/$normy;
$sx = 1.0 * $wd/$normx;

my $h=int(0.5 + 60 * $sy);
my $w=int(0.5 + 40 * $sx);
my $xpos=int(0.5 + 57 * $sx );
my $ypos=int(0.5 + 42 * $sy );