;+
;-
PRO rc

r=0.0
t=0.0
x=0.0
y=0.0
is=0
roll=0.0
xcen=0.0
ycen=0.0
pixrs=1.0
print, 'r,t,x,y,s: ', r, t, x, y, is
err=rcoord (r, t, x, y, is, roll, xcen, ycen, pixrs)

r=1.0
t=0.0
x=0.0
y=0.0
is=1
print, 'r,t,x,y,s: ', r, t, x, y, is
err=rcoord (r, t, x, y, is, roll, xcen, ycen, pixrs)

r=1.0
t=30.0
x=0.0
y=0.0
is=1
print, 'r,t,x,y,s: ', r, t, x, y, is
err=rcoord (r, t, x, y, is, roll, xcen, ycen, pixrs)

r=1.0
t=60.0
x=0.0
y=0.0
is=1
print, 'r,t,x,y,s: ', r, t, x, y, is
err=rcoord (r, t, x, y, is, roll, xcen, ycen, pixrs)

r=1.0
t=90.0
x=0.0
y=0.0
is=1
print, 'r,t,x,y,s: ', r, t, x, y, is
err=rcoord (r, t, x, y, is, roll, xcen, ycen, pixrs)

r=1.0
t=180.0
x=0.0
y=0.0
is=1
print, 'r,t,x,y,s: ', r, t, x, y, is
err=rcoord (r, t, x, y, is, roll, xcen, ycen, pixrs)

r=1.0
t=270.0
x=0.0
y=0.0
is=1
print, 'r,t,x,y,s: ', r, t, x, y, is
err=rcoord (r, t, x, y, is, roll, xcen, ycen, pixrs)

r=1.0
t=360.0
x=0.0
y=0.0
is=1
print, 'r,t,x,y,s: ', r, t, x, y, is
err=rcoord (r, t, x, y, is, roll, xcen, ycen, pixrs)

r=1.0
t=0.0
x=0.0
y=0.0
is=0
print, 'r,t,x,y,s: ', r, t, x, y, is
err=rcoord (r, t, x, y, is, roll, xcen, ycen, pixrs)

r=1.0
t=0.0
x=1.0
y=0.0
is=0
print, 'r,t,x,y,s: ', r, t, x, y, is
err=rcoord (r, t, x, y, is, roll, xcen, ycen, pixrs)

r=1.0
t=0.0
x=0.0
y=1.0
is=0
print, 'r,t,x,y,s: ', r, t, x, y, is
err=rcoord (r, t, x, y, is, roll, xcen, ycen, pixrs)

r=1.0
t=0.0
x=-1.0
y=0.0
is=0
print, 'r,t,x,y,s: ', r, t, x, y, is
err=rcoord (r, t, x, y, is, roll, xcen, ycen, pixrs)

r=1.0
t=0.0
x=0.0
y=-1.0
is=0
print, 'r,t,x,y,s: ', r, t, x, y, is
err=rcoord (r, t, x, y, is, roll, xcen, ycen, pixrs)

RETURN
END