pro plotframe, center, dx, dy, device = device, data = data, $
		normal = normal, linestyle = linestyle, thick = thick, $
		color = color, noclip = noclip

if n_params() lt 3 then dy = dx

if n_elements(device) le 0 then device = 0
if n_elements(normal) le 0 then normal = 0
if n_elements(data) le 0 then data = 1-(device or normal)
if n_elements(linestyle) le 0 then linestyle = !p.linestyle
if n_elements(thick) le 0 then thick = !p.thick
if n_elements(color) le 0 then color = !p.color
if n_elements(noclip) le 0 then noclip = 1

plots, center(0)-dx/2., center(1)+[-dy/2., dy/2.-1], $
		device = device, data = data, $
		normal = normal, linestyle = linestyle, thick = thick, $
		color = color, noclip = noclip

plots, center(0)+dx/2.-1, center(1)+[-dy/2., dy/2.-1], $
		device = device, data = data, $
		normal = normal, linestyle = linestyle, thick = thick, $
		color = color, noclip = noclip

plots, center(0)+[-dx/2., dx/2.-1], center(1)-dy/2., $
		device = device, data = data, $
		normal = normal, linestyle = linestyle, thick = thick, $
		color = color, noclip = noclip

plots, center(0)+[-dx/2., dx/2.-1], center(1)+dy/2.-1, $
		device = device, data = data, $
		normal = normal, linestyle = linestyle, thick = thick, $
		color = color, noclip = noclip

	end