#!/bin/rc
# 2020-06-22T18:12:49-04:00
# Open rio windows on right half of the screen.
rfork e
scr=(`{cat /dev/draw/new >[2]/dev/null})
w=$scr(11)
h=$scr(12)
fn bottom{
	if(~ $w 1278 1280 && ~ $h 798 800)
		r=(618 705 1280 800)
	if(~ $w 1366 1376 && ~ $h 768)
		r=(726 125 1358 676)
	if(~ $w 1400 1408 && ~ $h 1050)
		r=(740 702 1399 1050)
	if(~ $w 1600 && ~ $h 1200)
		r=(934 716 1594 1064)
	if(~ $w 1920 1918 && ~ $h 1080 1078 1200 1198)
		r=(1254 711 1914 1059)
	if(~ $w 2880 2878 && ~ $h 1920 1918)
		r=(1971 917 2878 1345)
	window -scroll -r $r 'label recto bottom; rc'
}
fn middle{
	if(~ $w 1278 1280 && ~ $h 798 800)
		r=(618 353 1280 700)
	if(~ $w 1366 1376 && ~ $h 768)
		r=(726 125 1358 676)
	if(~ $w 1400 1408 && ~ $h 1050)
		r=(740 351 1400 699)
	if(~ $w 1600 && ~ $h 1200)
		r=(934 362 1594 710)
	if(~ $w 1920 1918 && ~ $h 1080 1078 1200 1198)
		r=(1255 357 1914 705)
	if(~ $w 2880 2878 && ~ $h 1920 1918)
		r=(1971 474 2878 903)
	window -scroll -r $r 'label recto middle; rc'
}
fn top{
	if(~ $w 1278 1280 && ~ $h 798 800)
		r=(618 0 1280 348)
	if(~ $w 1400 1408 && ~ $h 1050)
		r=(740 0 1400 347)
	if(~ $w 1600 && ~ $h 1200)
		r=(934 9 1594 357)
	if(~ $w 1920 1918 && ~ $h 1080 1078 1200 1198)
		r=(1256 4 1916 352)
	if(~ $w 2880 2878 && ~ $h 1920 1918)
		r=(1971 30 2878 458)
	window -scroll -r $r 'label recto top; rc'
}
switch($1){
case -b;	bottom
case -m;	middle
case -t;	top
case *
	bottom
	middle
	top
}