.\" $Cambridge: hermes/doc/talks/2003-04-sage-wise/hermes-new.pic,v 1.2 2003/04/07 17:41:34 fanf2 Exp $
.\"
.\" Diagram of son-of-Hermes
.\"
.PS

define boxpair { [
	[
	box height 0.4 width 0.8 shaded $2  "cyrus-imapd" "email  store"
	box height 0.4 width 0.8 shaded $1  "cyrus-imapd" "email store" \
		at last box .c + 0.12,0.12
	]
	line from last [] .s down 0.2
	line from last [] .n up 0.2
] }

Store:	[
Sw:	boxpair("lightblue","royalblue")
	move 0.2
	boxpair("palegreen1","palegreen4")
	move 0.2
	boxpair("sandybrown","saddlebrown")
	move 0.2
	boxpair("plum1","plum4")
	move 0.2
	boxpair("khaki","khaki4")
	move 0.2
Se:	boxpair("salmon","salmon4")

	line from Sw.n to Se.n
	line from Sw.s to Se.s
]

line down 0.2 from 1/3 <Store.s,Store.sw>
box width 1.5 "tape backup server" "with staging disks"

line down 0.3 from 1/3 <Store.s,Store.se>
box height 0.3 width 1 "admin server"

move up 0.5 from 1/2 of the way between Store.w and Store.n
Proxy: [
	box height 0.35 width 1 shaded "grey50"
	box height 0.35 width 1 shaded "grey75" at last box .c + 0.2,0.05
	box height 0.35 width 1 shaded "white" at last box .c + 0.2,0.05 \
		"IMAP + TLS" "proxy"
]

move up 0.5 from 1/2 of the way between Store.e and Store.n
Webmail: box height 0.3 "webmail" shaded "maroon2"

for i = 1 to 6 do {
	line -> from i/9 of the way between Proxy.sw and Proxy.se \
		to (i+1)/15 of the way between Store.nw and Store.ne
	line -> from i/7 of the way between Webmail.sw and Webmail.se \
		to (i+7)/15 of the way between Store.nw and Store.ne
}

move to (1/2 <Proxy.e,Webmail.w>, Store.n + 0.0,0.5)
copy "cloud.pic"
line from Cloud.Csw.sw to Proxy.e
line from Cloud.Cse.se to Webmail.w

.PE