#!/bin/rc
# 2020-06-18T22:28:39-04:00
# Launch some mothras.
# Use with http://plan9.stanleylieber.com/rc/m
rfork e
scr=(`{cat /dev/draw/new >[2]/dev/null})
w=$scr(11)
h=$scr(12)
verso=https://tumblr.stanleylieber.com
recto=https://img.stanleylieber.com
spread=https://read.stanleylieber.com
fn versom{
	if(~ $w 1278 1280 && ~ $h 798 800)
		r=(2 0 679 800)
	if(~ $w 136* 1376 && ~ $h 76*)
		r=(2 0 800 76*)
	if(~ $w 1400 1408 && ~ $h 1050)
		r=(2 0 800 1050)
	if(~ $w 1600 && ~ $h 1200)
		r=(7 0 883 1200)
	if(~ $w 1920 1918 && ~ $h 1080 1078)
		r=(2 0 907 1080)
	if(~ $w 1920 1918 && ~ $h 1200 1198)
		r=(13 0 898 1200)
	if(~ $w 2880 2878 && ~ $h 1920 1918)
		r=(9 16 1274 1913)
	window -r $r m -a $verso
}
fn spreadm{
	if(~ $w 1278 1280 && ~ $h 798 800)
		r=(299 0 978 800)
	if(~ $w 136* 1376 && ~ $h 76*)
		r=(253 0 1049 76*)
	if(~ $w 1400 1408 && ~ $h 1050)
		r=(276 0 1074 1050)
	if(~ $w 1600 && ~ $h 1200)
		r=(381 0 1257 1200)
	if(~ $w 1920 1918 && ~ $h 1080 1078)
		r=(470 0 1368 1080)
	if(~ $w 1920 1918 && ~ $h 1200 1198)
		r=(533 0 1418 1200)
	if(~ $w 2880 2878 && ~ $h 1920 1918)
		r=(797 15 2061 1912)
	window -r $r m -a $spread
}
fn rectom{
	if(~ $w 1278 1280 && ~ $h 798 800)
		r=(599 0 1280 800)
	if(~ $w 136* 1376 && ~ $h 76*)
		r=(567 0 1368 76*)
	if(~ $w 1400 1408 && ~ $h 1050)
		r=(602 0 1400 1050)
	if(~ $w 1600 && ~ $h 1200)
		r=(724 0 1600 1200)
	if(~ $w 1920 1918 && ~ $h 1080 1078)
		r=(1012 0 1920 1918)
	if(~ $w 1920 1918 && ~ $h 1200 1198)
		r=(1035 0 1920 1200)
	if(~ $w 2880 2878 && ~ $h 1920 1918)
		r=(1606 12 2870 1909)
	window -r $r m -a $recto
}

switch($1){
case -r;	rectom
case -v;	versom
case -s;	spreadm
case *
	rectom
	versom
	spreadm
}