#!/bin/rc

rfork ne

r=`{read -c 48 /dev/wctl}
dx=`{echo '('$r(3)-$r(1)')'| bc}
dy=`{echo '('$r(4)-$r(2)')'| bc}
x=`{echo '('$r(3)-$r(1)')'/2| bc}
y=`{echo '('$r(4)-$r(2)')'/2| bc}

plumber
echo '#!/bin/rc

window -r 0 0 $x $y
window -r $x 0 $dx $y sam -a
window -r 0 $y $x $dy
window -r $x $y $dx $dy
' >/tmp/4win
chmod 755 /tmp/4win

rio -i /tmp/4win