PRO Drawing

;Set-up the display
TVLCT, [255,0], [255,255], [0,0], 1

;Various ways of drawing circles
POLYFILL, CIRCLE(65, 65, 20), Color=1, /Device
PLOTS, CIRCLE(130, 130, 30), /Device
PLOTS, CIRCLE(195, 195, 20), /Device, Color=2
PLOTS, CIRCLE(195, 195, 10), /Device, Color=1

;Define a set of co-ordinates
path =transpose([[20,40,80,100,200],[36,45,56,134,253]])

;Plot these, joined by lines
plots, path, /device

end



FUNCTION CIRCLE, xcenter, ycenter, radius
points = (2 * !PI / 99.0) * FINDGEN(100)
x = xcenter + radius * COS(points )
y = ycenter + radius * SIN(points )
RETURN, TRANSPOSE([[x],[y]])
END