erase
define TeX_strings 1
define default_font  rm
device x11 
#device postencap showevolve.ps
expand 1.901

define xlo 1.0
define yhi 7.0
define boxsize 2.0
define ylo ($yhi-$boxsize)
define xhi ($xlo+$boxsize)

# there are 4096 units per inch
define xilo (4096*$xlo)
define xihi (4096*$xhi)
define yilo (4096*$ylo)
define yihi (4096*$yhi)
define temp (4096*$boxsize)

location $xilo $xihi $yilo $yihi
box 3 3 3 3
#insert "points" or "connect" commands here for this frame

location $($xilo+ $temp) $($xihi+ $temp) $yilo $yihi
box 3 3 3 3
#insert "points" or "connect" commands here for this frame

location $($xilo+ $temp+$temp) $($xihi+ $temp+$temp) $yilo $yihi
box 3 3 3 3
#insert "points" or "connect" commands here for this frame

location $xilo $xihi  $($yilo - $temp) $($yihi - $temp)
box 3 3 3 3
#insert "points" or "connect" commands here for this frame

location $($xilo+ $temp) $($xihi+ $temp) $($yilo - $temp) $($yihi - $temp)
box 3 3 3 3
#insert "points" or "connect" commands here for this frame


location $($xilo+2*$temp) $($xihi+2*$temp) $($yilo-$temp) $($yihi-$temp)
box 3 3 3 3
#insert "points" or "connect" commands here for this frame

location $xilo $xihi  $($yilo - $temp - $temp) $($yihi - $temp - $temp)
box 3 3 3 3
#insert "points" or "connect" commands here for this frame

location $($xilo+$temp) $($xihi+$temp) $($yilo-2*$temp) $($yihi-2*$temp)
box 3 3 3 3
#insert "points" or "connect" commands here for this frame

location $($xilo+2*$temp) $($xihi+2*$temp) $($yilo-2*$temp) $($yihi-2*$temp)
box 3 3 3 3
#insert "points" or "connect" commands here for this frame