;+
; NAME:
;   MAKENODENAMES
; PURPOSE:
;   This program prints outs a fancy name for use a hostname monitor label.
;   It is intended to be edited by hand, rather than have parameters so
;   it can be infinitely customizable.
; CALLING SEQEUNCE:
;   .run makenodenames
;-


setps,7,10
!p.font=0
;device,/palatino,/italic
device,/bkman,/demi

off=0.0
xyouts,/norm,.1,off,'telesto',charsize=5,width=textwidth & dropchars=0
plots,[0,1,1,0,0,1]*(textwidth+0.05)+.074, $
  [0,0,1,1,0,0]*.08*(1+dropchars*0.25)+off-0.01-dropchars*.02,/norm,thick=15

off=0.15
xyouts,/norm,.1,off,'calypso',charsize=5,width=textwidth & dropchars=1
plots,[0,1,1,0,0,1]*(textwidth+0.05)+.074, $
  [0,0,1,1,0,0]*.08*(1+dropchars*0.25)+off-0.01-dropchars*.02,/norm,thick=15

off=0.30
xyouts,/norm,.1,off,'atlas',charsize=5,width=textwidth & dropchars=0
plots,[0,1,1,0,0,1]*(textwidth+0.05)+.074, $
  [0,0,1,1,0,0]*.08*(1+dropchars*0.25)+off-0.01-dropchars*.02,/norm,thick=15

off=0.45
xyouts,/norm,.1,off,'rhea',charsize=5,width=textwidth & dropchars=0
plots,[0,1,1,0,0,1]*(textwidth+0.05)+.074, $
  [0,0,1,1,0,0]*.08*(1+dropchars*0.25)+off-0.01-dropchars*.02,/norm,thick=15

off=0.60
xyouts,/norm,.1,off,'orca',charsize=5,width=textwidth & dropchars=0
plots,[0,1,1,0,0,1]*(textwidth+0.05)+.074, $
  [0,0,1,1,0,0]*.063*(1+dropchars*0.25)+off-0.01-dropchars*.02,/norm,thick=15

off=0.75
xyouts,/norm,.1,off,'beluga',charsize=5,width=textwidth & dropchars=1
plots,[0,1,1,0,0,1]*(textwidth+0.05)+.074, $
  [0,0,1,1,0,0]*.08*(1+dropchars*0.25)+off-0.01-dropchars*.02,/norm,thick=15

off=0.90
xyouts,/norm,.1,off,'ptolemy',charsize=5,width=textwidth & dropchars=1
plots,[0,1,1,0,0,1]*(textwidth+0.05)+.074, $
  [0,0,1,1,0,0]*.08*(1+dropchars*0.25)+off-0.01-dropchars*.02,/norm,thick=15

psclose


end