* ----------------------------- NOAA LOGO --------------------------*
* Date:04-09-1997        Vadlamani Kumar     RDC for CPC/NOAA
* ----------------------------- NOAA LOGO --------------------------*
*
* xcentr, ycentr, radius are in GrADS page units (in inches) which
* determine the logo position and size. You need to change these
* values for your application needs.
*
function noaalo (args)

xcentr = subwrd(args,1)
ycentr = subwrd(args,2)
radius = subwrd(args,3)
* 
xmin=xcentr - radius;
xmax=xcentr + radius;
ymin=ycentr - radius;
ymax=ycentr + radius;
*
* ------------------------------------------------------------------*
*
'set rgb 71 0 255 255'
'set rgb 72 255 255 255'
'set rgb 73 0 40 225'
'set grads off'
xmaxs=xmax+0.2
ymins=ymin-0.15
'set string 1 bc 5'
'set strsiz 0.10'
*'draw string 'xmaxs' 'ycentr'  NCEP/CMB'
'draw string 'xcentr' 'ymins'  NCEP/CMB'
*
ttn = noaalogo(xmin, xmax, ymin, ymax)
function noaalogo(xmin, xmax, ymin, ymax)
x.1=  3.0;  y.1= 67.1;
x.2=  1.7;  y.2= 62.9;
x.3=  0.8;  y.3= 58.7;
x.4=  0.2;  y.4= 54.4;
x.5=  0.0;  y.5= 50.0;
x.6=  0.2;  y.6= 45.6;
x.7=  0.8;  y.7= 41.3;
x.8=  1.7;  y.8= 37.1;
x.9=  3.0;  y.9= 32.9;
x.10=  4.7;  y.10= 28.9;
x.11=  6.7;  y.11= 25.0;
x.12=  9.0;  y.12= 21.3;
x.13= 11.7;  y.13= 17.9;
x.14= 14.6;  y.14= 14.6;
x.15= 17.9;  y.15= 11.7;
x.16= 21.3;  y.16=  9.0;
x.17= 25.0;  y.17=  6.7;
x.18= 28.9;  y.18=  4.7;
x.19= 32.9;  y.19=  3.0;
x.20= 37.1;  y.20=  1.7;
x.21= 41.3;  y.21=  0.8;
x.22= 45.6;  y.22=  0.2;
x.23= 50.0;  y.23=  0.0;
x.24= 54.4;  y.24=  0.2;
x.25= 58.7;  y.25=  0.8;
x.26= 62.9;  y.26=  1.7;
x.27= 67.1;  y.27=  3.0;
x.28= 71.1;  y.28=  4.7;
x.29= 75.0;  y.29=  6.7;
x.30= 78.7;  y.30=  9.0;
x.31= 82.1;  y.31= 11.7;
x.32= 85.4;  y.32= 14.6;
x.33= 88.3;  y.33= 17.9;
x.34= 91.0;  y.34= 21.3;
x.35= 93.3;  y.35= 25.0;
x.36= 95.3;  y.36= 28.9;
x.37= 97.0;  y.37= 32.9;
x.38= 98.3;  y.38= 37.1;
x.39= 99.2;  y.39= 41.3;
x.40= 99.8;  y.40= 45.6;
x.41=100.0;  y.41= 50.0;
x.42= 99.8;  y.42= 54.4;
x.43= 99.2;  y.43= 58.7;
x.44= 98.3;  y.44= 62.9;
x.45= 97.0;  y.45= 67.1;
x.46= 96.0;  y.46= 69.0;
x.47= 95.0;  y.47= 67.1;
x.48= 90.0;  y.48= 62.0;
x.49= 85.4;  y.49= 57.0;
x.50= 80.0;  y.50= 52.0;
x.51= 75.0;  y.51= 47.0;
x.52= 70.0;  y.52= 43.0;
x.53= 68.0;  y.53= 41.3;
x.54= 65.0;  y.54= 40.0;
x.55= 63.0;  y.55= 40.0;
x.56= 65.0;  y.56= 39.0;
x.57= 70.0;  y.57= 39.0;
x.58= 75.0;  y.58= 38.0;
x.59= 70.0;  y.59= 37.1;
x.60= 65.0;  y.60= 36.0;
x.61= 60.0;  y.61= 35.0;
x.62= 55.0;  y.62= 32.0;
x.63= 52.0;  y.63= 30.0;
x.64= 47.0;  y.64= 27.0;
x.65= 36.0;  y.65= 27.0;
x.66= 37.1;  y.66= 30.0;
x.67= 40.0;  y.67= 31.0;
x.68= 45.0;  y.68= 32.0;
x.69= 49.0;  y.69= 35.0;
x.70= 45.0;  y.70= 36.0;
x.71= 40.0;  y.71= 37.1;
x.72= 35.0;  y.72= 38.0;
x.73= 30.0;  y.73= 40.0;
x.74= 25.0;  y.74= 43.0;
x.75= 20.0;  y.75= 47.0;
x.76= 14.6;  y.76= 52.0;
x.77= 10.0;  y.77= 57.0;
x.78=  6.7;  y.78= 60.0;
x.79=  3.0;  y.79= 67.1;
ax.1= 91.0;  ay.1= 78.7;
ax.2= 93.0;  ay.2= 75.0;
ax.3= 96.0;  ay.3= 69.0;
ax.4= 95.0;  ay.4= 67.1;
ax.5= 90.0;  ay.5= 62.0;
ax.6= 85.4;  ay.6= 57.0;
ax.7= 80.0;  ay.7= 52.0;
ax.8= 75.0;  ay.8= 47.0;
ax.9= 70.0;  ay.9= 43.0;
ax.10= 68.0;  ay.10= 41.3;
ax.11= 65.0;  ay.11= 40.0;
ax.12= 62.9;  ay.12= 40.0;
ax.13= 65.0;  ay.13= 39.0;
ax.14= 70.0;  ay.14= 39.0;
ax.15= 75.0;  ay.15= 38.0;
ax.16= 70.0;  ay.16= 37.1;
ax.17= 65.0;  ay.17= 36.0;
ax.18= 60.0;  ay.18= 35.0;
ax.19= 55.0;  ay.19= 32.0;
ax.20= 52.0;  ay.20= 30.0;
ax.21= 47.0;  ay.21= 27.0;
ax.22= 36.0;  ay.22= 27.0;
ax.23= 37.1;  ay.23= 30.0;
ax.24= 40.0;  ay.24= 31.0;
ax.25= 45.0;  ay.25= 32.0;
ax.26= 49.0;  ay.26= 35.0;
ax.27= 45.0;  ay.27= 36.0;
ax.28= 40.0;  ay.28= 37.1;
ax.29= 35.0;  ay.29= 38.0;
ax.30= 30.0;  ay.30= 40.0;
ax.31= 25.0;  ay.31= 43.0;
ax.32= 20.0;  ay.32= 47.0;
ax.33= 14.6;  ay.33= 52.0;
ax.34= 10.0;  ay.34= 57.0;
ax.35=  6.7;  ay.35= 60.0;
ax.36=  3.0;  ay.36= 67.1;
ax.37=  4.7;  ay.37= 71.1;
ax.38=  6.7;  ay.38= 75.0;
ax.39=  9.0;  ay.39= 78.7;
ax.40= 16.0;  ay.40= 75.0;
ax.41= 20.0;  ay.41= 70.0;
ax.42= 25.0;  ay.42= 65.0;
ax.43= 30.0;  ay.43= 58.0;
ax.44= 35.0;  ay.44= 51.0;
ax.45= 40.0;  ay.45= 45.0;
ax.46= 45.0;  ay.46= 42.0;
ax.47= 50.0;  ay.47= 40.0;
ax.48= 55.0;  ay.48= 40.0;
ax.49= 60.0;  ay.49= 42.0;
ax.50= 65.0;  ay.50= 45.6;
ax.51= 70.0;  ay.51= 52.0;
ax.52= 75.0;  ay.52= 62.0;
ax.53= 76.0;  ay.53= 65.0;
ax.54= 78.7;  ay.54= 70.0;
ax.55= 80.0;  ay.55= 71.1;
ax.56= 83.0;  ay.56= 75.0;
ax.57= 85.4;  ay.57= 77.0;
ax.58= 91.0;  ay.58= 78.7;
bx.1= 91.0;  by.1= 78.7;
bx.2= 88.3;  by.2= 82.1;
bx.3= 85.4;  by.3= 85.4;
bx.4= 82.1;  by.4= 88.3;
bx.5= 78.7;  by.5= 91.0;
bx.6= 75.0;  by.6= 93.3;
bx.7= 71.1;  by.7= 95.3;
bx.8= 67.1;  by.8= 97.0;
bx.9= 62.9;  by.9= 98.3;
bx.10= 58.7;  by.10= 99.2;
bx.11= 54.4;  by.11= 99.8;
bx.12= 50.0;  by.12=100.0;
bx.13= 45.6;  by.13= 99.8;
bx.14= 41.3;  by.14= 99.2;
bx.15= 37.1;  by.15= 98.3;
bx.16= 32.9;  by.16= 97.0;
bx.17= 28.9;  by.17= 95.3;
bx.18= 25.0;  by.18= 93.3;
bx.19= 21.3;  by.19= 91.0;
bx.20= 17.9;  by.20= 88.3;
bx.21= 14.6;  by.21= 85.4;
bx.22= 11.7;  by.22= 82.1;
bx.23=  9.0;  by.23= 78.7;
bx.24= 16.0;  by.24= 75.0;
bx.25= 20.0;  by.25= 70.0;
bx.26= 25.0;  by.26= 65.0;
bx.27= 30.0;  by.27= 58.0;
bx.28= 35.0;  by.28= 51.0;
bx.29= 40.0;  by.29= 45.0;
bx.30= 45.0;  by.30= 42.0;
bx.31= 50.0;  by.31= 40.0;
bx.32= 55.0;  by.32= 40.0;
bx.33= 60.0;  by.33= 42.0;
bx.34= 65.0;  by.34= 45.6;
bx.35= 70.0;  by.35= 52.0;
bx.36= 75.0;  by.36= 62.0;
bx.37= 76.0;  by.37= 65.0;
bx.38= 78.7;  by.38= 70.0;
bx.39= 80.0;  by.39= 71.1;
bx.40= 83.0;  by.40= 75.0;
bx.41= 85.4;  by.41= 77.0;
bx.42= 91.0;  by.42= 78.7;
*
xdif = (xmax-xmin)/100.0
ydif = (ymax-ymin)/100.0
*
t=1
var1=' '
while (t<80)
  xra.t=xmin+xdif*x.t
  yra.t=ymin+ydif*y.t
  var1=var1%' 'xra.t''%' 'yra.t''
  t=t+1
endwhile
var1=var1%' 'xra.1''%' 'yra.1''
'set line 71 1 2'
'draw polyf 'var1''
*
t=1
var1=' '
while (t<59)
  xra.t=xmin+xdif*ax.t
  yra.t=ymin+ydif*ay.t
  var1=var1%' 'xra.t''%' 'yra.t''
  t=t+1
endwhile
var1=var1%' 'xra.1''%' 'yra.1''
'set line 72 1 2'
'draw polyf 'var1''
*
*
t=1
var1=' '
while (t<43)
  xra.t=xmin+xdif*bx.t
  yra.t=ymin+ydif*by.t
  var1=var1%' 'xra.t''%' 'yra.t''
  t=t+1
endwhile
var1=var1%' 'xra.1''%' 'yra.1''
'set line 73 1 2'
'draw polyf 'var1''
*
* ----- N --------
*
x=30.; y=67.;
nx.1=x-1.2; ny.1=y;
nx.2=x-1.2; ny.2=y+11.5;
nx.3=x+0.5; ny.3=y+11.5;
nx.4=x+0.5; ny.4=y+11.;
nx.5=x+1.; ny.5=y+11.5;
nx.6=x+7.; ny.6=y+11.5;
nx.7=x+8.; ny.7=y+10.5;
nx.8=x+8.; ny.8=y;
nx.9=x+6.; ny.9=y;
nx.10=x+6.; ny.10=y+9.;
nx.11=x+1.; ny.11=y+9.;
nx.12=x+1.; ny.12=y;
t=1
var1=' '
while (t<13)
  xra.t=xmin+xdif*nx.t
  yra.t=ymin+ydif*ny.t
  var1=var1%' 'xra.t''%' 'yra.t''
  t=t+1
endwhile
var1=var1%' 'xra.1''%' 'yra.1''
'set line 72 1 2'
'draw polyf 'var1''
*
* ----- O --------
*
x=41.; y=67.;
nx.1=x-1; ny.1=y+1;
nx.2=x-1; ny.2=y+10.5;
nx.3=x; ny.3=y+11.5;
nx.4=x; ny.4=y+11.5;
nx.5=x+7.; ny.5=y+11.5;
nx.6=x+8.; ny.6=y+10.5;
nx.7=x+8.; ny.7=y+1;
nx.8=x+6.; ny.8=y;
nx.9=x+6.; ny.9=y+9.;
nx.10=x+1.; ny.10=y+9.;
nx.11=x+1.; ny.11=y;
t=1
var1=' '
while (t<12)
  xra.t=xmin+xdif*nx.t
  yra.t=ymin+ydif*ny.t
  var1=var1%' 'xra.t''%' 'yra.t''
  t=t+1
endwhile
var1=var1%' 'xra.1''%' 'yra.1''
'set line 72 1 2'
'draw polyf 'var1''
*'draw polyf x+1 y x+1 y+1 x+6 y+1 x+6 y x+1 y'
nx.1=x+1.; ny.1=y;
nx.2=x+1.; ny.2=y+2.;
nx.3=x+6.; ny.3=y+2.;
nx.4=x+6.; ny.4=y;
nx.5=x+1.; ny.5=y;
t=1
while (t<6)
  xra.t=xmin+xdif*nx.t
  yra.t=ymin+ydif*ny.t
  var1=var1%' 'xra.t''%' 'yra.t''
  t=t+1
endwhile
'set line 72 1 2'
'draw polyf 'var1''
*
* ----- A --------
*
x=52.; y=67.;
*
nx.1=x-1; ny.1=y;
nx.2=x-1; ny.2=y+10.5;
nx.3=x; ny.3=y+11.5;
nx.4=x; ny.4=y+11.5;
nx.5=x+7.; ny.5=y+11.5;
nx.6=x+8.; ny.6=y+10.5;
nx.7=x+8.; ny.7=y;
nx.8=x+6.; ny.8=y;
nx.9=x+6.; ny.9=y+9.;
nx.10=x+1.; ny.10=y+9.;
nx.11=x+1.; ny.11=y;
t=1
var1=' '
while (t<12)
  xra.t=xmin+xdif*nx.t
  yra.t=ymin+ydif*ny.t
  var1=var1%' 'xra.t''%' 'yra.t''
  t=t+1
endwhile
var1=var1%' 'xra.1''%' 'yra.1''
'set line 72 1 2'
'draw polyf 'var1''
*'draw polyf x+1 y x+1 y+1 x+6 y+1 x+6 y x+1 y'
nx.1=x+1.; ny.1=y+4;
nx.2=x+1.; ny.2=y+6.;
nx.3=x+6.; ny.3=y+6.;
nx.4=x+6.; ny.4=y+4;
nx.5=x+1.; ny.5=y+4;
t=1
while (t<6)
  xra.t=xmin+xdif*nx.t
  yra.t=ymin+ydif*ny.t
  var1=var1%' 'xra.t''%' 'yra.t''
  t=t+1
endwhile
'set line 72 1 2'
'draw polyf 'var1''
*
* ----- A --------
*
x=63.; y=67.;
nx.1=x-1; ny.1=y;
nx.2=x-1; ny.2=y+10.5;
nx.3=x; ny.3=y+11.5;
nx.4=x; ny.4=y+11.5;
nx.5=x+7.; ny.5=y+11.5;
nx.6=x+8.; ny.6=y+10.5;
nx.7=x+8.; ny.7=y;
nx.8=x+6.; ny.8=y;
nx.9=x+6.; ny.9=y+9.;
nx.10=x+1.; ny.10=y+9.;
nx.11=x+1.; ny.11=y;
t=1
var1=' '
while (t<12)
  xra.t=xmin+xdif*nx.t
  yra.t=ymin+ydif*ny.t
  var1=var1%' 'xra.t''%' 'yra.t''
  t=t+1
endwhile
var1=var1%' 'xra.1''%' 'yra.1''
'set line 72 1 2'
'draw polyf 'var1''
*'draw polyf x+1 y x+1 y+1 x+6 y+1 x+6 y x+1 y'
nx.1=x+1.; ny.1=y+4;
nx.2=x+1.; ny.2=y+6.;
nx.3=x+6.; ny.3=y+6.;
nx.4=x+6.; ny.4=y+4;
nx.5=x+1.; ny.5=y+4;
t=1
while (t<6)
  xra.t=xmin+xdif*nx.t
  yra.t=ymin+ydif*ny.t
  var1=var1%' 'xra.t''%' 'yra.t''
  t=t+1
endwhile
'set line 72 1 2'
'draw polyf 'var1''
*
return;