#!/bin/sh
#define(WIDTH,800)
#define(HEIGHT,600)
define(WIDTH,1024)
define(HEIGHT,768)
#define(WIDTH,1152)
#define(HEIGHT,864)
#define(WIDTH,1280)
#define(HEIGHT,1024)
#define(WIDTH,1600)
#define(HEIGHT,1200)

define(rxvt_size,ifelse(eval(WIDTH<=640),1,80x25,eval(WIDTH<=1024),1,80x30,eval(WIDTH<=1152),1,80x35,eval(WIDTH<=1280),1,80x40,1,eval(WIDTH>1280),80x45))
define(rxvt_font,ifelse(eval(WIDTH<=640),1,7x14,eval(WIDTH<=800),1,8x16,eval(WIDTH>800),1,10x20))
define(xclock_size,translit(eval(WIDTH/15).eval(WIDTH/15),.,x))
define(xclock_width,eval(WIDTH/15+4))
define(xload_offset,eval(HEIGHT/15+4))
define(xclock_offset,eval((HEIGHT/15+4)+eval(WIDTH/15+2)))

rxvt -geometry rxvt_size+2+2 -fn rxvt_font -title rxvt-rxvt_size-rxvt_font &
rxvt -geometry rxvt_size-xclock_width+2 -fn rxvt_font -title rxvt-rxvt_size-rxvt_font &
rxvt -geometry rxvt_size-2-2 -fn rxvt_font -title rxvt-rxvt_size-rxvt_font &
xload -geometry xclock_size-2+xload_offset -nolabel -jumpscroll 1 -update 2 &
xclock -geometry xclock_size-2+xclock_offset &
ctwm