PRO DrawLogo

Window, /Free, XSize=400, YSize=400

position = [260, 340, 390, 380]
ncolors = !D.N_Colors
Tvlct,   0,   0,   0,  ncolors-5
Tvlct,  50, 130, 110,  ncolors-4
Tvlct, 100,  30,  80,  ncolors-3
Tvlct, 255, 255, 255,  ncolors-2
colors = [ncolors-5, ncolors-4, ncolors-3, ncolors-2]

x1 = Float(position(0)) / Float(!D.X_Size)
x2 = Float(position(2)) / Float(!D.X_Size)
y1 = Float(position(1)) / Float(!D.Y_Size)
y2 = Float(position(3)) / Float(!D.Y_Size)

x_asp = 300.0
y_asp = 100.0

gap_x = 5.0
gap_y = 5.0
wide_x = (y_asp - (4.0 * gap_x)) / 3.0
wide_y = (y_asp - (4.0 * gap_y)) / 3.0

x_vert = y_asp + (1.5 * gap_x)

i_x = [0.5, 0.5, 0.4, 0.3, 0.1, 0.0, 0.0, 1.5, 1.5, 1.4, 1.2, 1.1, 1.0, 1.0, $
       1.1, 1.2, 1.4, 1.5, 1.5, 0.0, 0.0, 0.1, 0.3, 0.4, 0.5, 0.5]
i_y = [2.0, 0.5, 0.3, 0.2, 0.1, 0.1, 0.0, 0.0, 0.1, 0.1, 0.2, 0.3, 0.5, 3.5, $
       3.7, 3.8, 3.9, 3.9, 4.0, 4.0, 3.9, 3.9, 3.8, 3.7, 3.5, 2.0]

d_x = [0.5, 0.5, 0.4, 0.3, 0.1, 0.0, 0.0, 2.3, 2.8, 3.1, 3.4, 3.7, 3.9, 4.1, $
       4.2, 4.2, 4.1, 3.9, 3.7, 3.4, 3.1, 2.8, 2.3, 0.0, 0.0, 0.1, 0.3, 0.4, $
       0.5, 0.5, 1.0, 1.0, 1.1, 1.2, 1.4, 2.2, 2.8, 3.0, 3.3, 3.5, 3.6, 3.7, $
       3.7, 3.6, 3.5, 3.3, 3.0, 2.8, 2.2, 1.4, 1.2, 1.1, 1.0, 1.0, 0.5] + 1.85

d_y = [2.0, 0.5, 0.3, 0.2, 0.1, 0.1, 0.0, 0.0, 0.1, 0.2, 0.4, 0.6, 0.9, 1.2, $
       1.7, 2.3, 2.8, 3.1, 3.4, 3.6, 3.8, 3.9, 4.0, 4.0, 3.9, 3.9, 3.8, 3.7, $
       3.5, 2.0, 2.0, 3.5, 3.7, 3.8, 3.9, 3.9, 3.7, 3.6, 3.3, 3.0, 2.8, 2.3, $
       1.7, 1.2, 1.0, 0.7, 0.4, 0.3, 0.1, 0.1, 0.2, 0.3, 0.5, 2.0, 2.0]

l_x = [0.5, 0.5, 0.4, 0.3, 0.1, 0.0, 0.0, 2.85, 3.0, 2.9, 2.8, 2.7, 2.6, 2.4, $
       1.4, 1.2, 1.1, 1.0, 1.0, 1.1, 1.2, 1.4, 1.5, 1.5, 0.0, 0.0, 0.1, 0.3, $
       0.4, 0.5, 0.5] + 6.10
l_y = [2.0, 0.5, 0.3, 0.2, 0.1, 0.1, 0.0, 0.00, 0.8, 0.8, 0.5, 0.3, 0.2, 0.1, $
       0.1, 0.2, 0.3, 0.5, 3.5, 3.7, 3.8, 3.9, 3.9, 4.0, 4.0, 3.9, 3.9, 3.8, $
       3.7, 3.5, 2.0]

c_x = [0.00, 0.0, 0.1, 0.3, 0.6, 0.9, 1.2, 1.4, 1.5, 1.5, 1.4, 1.2, 0.9, 0.6, $
       0.3, 0.1, 0.0, 0.00] / 2.5
c_y = [0.75, 0.6, 0.3, 0.1, 0.0, 0.0, 0.1, 0.3, 0.6, 0.9, 1.2, 1.4, 1.5, 1.5, $
       1.4, 1.2, 0.9, 0.75] / 3.0
p_x = ([0.4, 0.8, 1.0, 1.1, 1.1, 1.0, 0.8, 0.4, 0.4] / 4.0) + 0.08
p_y = ([0.7, 0.7, 0.8, 0.9, 1.1, 1.2, 1.3, 1.3, 0.2] / 4.0) + 0.05
r_x = ([0.85, 1.175] / 4.0) + 0.08
r_y = ([0.70, 0.200] / 4.0) + 0.05

i_x = ((i_x / 10.5) * ((x_asp - y_asp) - (2.0 * gap_x))) + x_vert + gap_x
i_y = ((i_y /  4.0) * (y_asp - (2.0 * gap_y))) + gap_y
d_x = ((d_x / 10.5) * ((x_asp - y_asp) - (2.0 * gap_x))) + x_vert + gap_x
d_y = ((d_y /  4.0) * (y_asp - (2.0 * gap_y))) + gap_y
l_x = ((l_x / 10.5) * ((x_asp - y_asp) - (2.0 * gap_x))) + x_vert + gap_x
l_y = ((l_y /  4.0) * (y_asp - (2.0 * gap_y))) + gap_y
c_x = ((c_x / 10.5) * ((x_asp - y_asp) - (2.0 * gap_x))) + gap_x
c_y = ((c_y /  4.0) * (y_asp - (2.0 * gap_y))) + gap_y
p_x = ((p_x / 10.5) * ((x_asp - y_asp) - (2.0 * gap_x))) + gap_x
p_y = ((p_y /  4.0) * (y_asp - (2.0 * gap_y))) + gap_y
r_x = ((r_x / 10.5) * ((x_asp - y_asp) - (2.0 * gap_x))) + gap_x
r_y = ((r_y /  4.0) * (y_asp - (2.0 * gap_y))) + gap_y

circ_pos_x = x_asp - (4.0 * gap_x)
circ_pos_y = 0.0

c_x = c_x + circ_pos_x - (0.1 * gap_x)
c_y = c_y + circ_pos_y
p_x = p_x + circ_pos_x
p_y = p_y + circ_pos_y
r_x = r_x + circ_pos_x
r_y = r_y + circ_pos_y

x_range = x2 - x1
y_range = y2 - y1

i_x = (i_x * x_range / x_asp) + x1
i_y = (i_y * y_range / y_asp) + y1
d_x = (d_x * x_range / x_asp) + x1
d_y = (d_y * y_range / y_asp) + y1
l_x = (l_x * x_range / x_asp) + x1
l_y = (l_y * y_range / y_asp) + y1
c_x = (c_x * x_range / x_asp) + x1
c_y = (c_y * y_range / y_asp) + y1
p_x = (p_x * x_range / x_asp) + x1
p_y = (p_y * y_range / y_asp) + y1
r_x = (r_x * x_range / x_asp) + x1
r_y = (r_y * y_range / y_asp) + y1

gap_x = (gap_x * x_range / x_asp)
gap_y = (gap_y * y_range / y_asp)
wide_x = (wide_x * x_range / x_asp)
wide_y = (wide_y * y_range / y_asp)

IF (N_Elements(colors) GE 4) THEN BEGIN
   IF (colors(3) GE 0) THEN Polyfill, [x1, x2, x2, x1], [y1, y1, y2, y2], $
      Color=colors(3), /Normal
ENDIF

Polyfill, i_x, i_y, Color=colors(0), /Normal
Polyfill, d_x, d_y, Color=colors(0), /Normal
Polyfill, l_x, l_y, Color=colors(0), /Normal
Plots, i_x, i_y, Color=colors(0), /Normal
Plots, d_x(0:29), d_y(0:29), Color=colors(0), /Normal
Plots, d_x(30:53), d_y(30:53), Color=colors(0), /Normal
Plots, l_x, l_y, Color=colors(0), /Normal
Plots, c_x, c_y, Color=colors(0), /Normal
Plots, p_x, p_y, Color=colors(0), /Normal
Plots, r_x, r_y, Color=colors(0), /Normal

diff_x = gap_x + wide_x
diff_y = gap_y + wide_y

x_box = [0.0, wide_x, wide_x, 0.0, 0.0] + x1
y_box = [0.0, 0.0, wide_y, wide_y, 0.0] + y1

x_box = x_box + gap_x
y_box = y_box + gap_y
Polyfill, x_box, y_box, Color=colors(2), /Normal

x_box = x_box + diff_x
Polyfill, x_box, y_box, Color=colors(1), /Normal

x_box = x_box + diff_x
Polyfill, x_box, y_box, Color=colors(1), /Normal

x_box = x_box - (2.0 * diff_x)
y_box = y_box + diff_y
Polyfill, x_box, y_box, Color=colors(1), /Normal

x_box = x_box + diff_x
Polyfill, x_box, y_box, Color=colors(1), /Normal

x_box = x_box + diff_x
Polyfill, x_box, y_box, Color=colors(2), /Normal

x_box = x_box - (2.0 * diff_x)
y_box = y_box + diff_y
Polyfill, x_box, y_box, Color=colors(1), /Normal

x_box = x_box + diff_x
Polyfill, x_box, y_box, Color=colors(2), /Normal

x_box = x_box + diff_x
Polyfill, x_box, y_box, Color=colors(1), /Normal

Empty

RETURN
END