yxview_rbar_draw.ado

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· ADO 代码 · 共 32 行

*! version 1.0.1  09nov2003

// ---------------------------------------------------------------------------
//  Drawing program for the rbar type of yxview.

program yxview_rbar_draw

	.style.area.setgdifull				// set the style

	local sz2  = `.bar_size' / 2

	if "`.bar_drop_to.stylename'" == "x" {

		forvalues j = 1/`:serset N' {
			local x = serset(`.xvar', `j')
			_fr_draw_rect style.area			    ///
				      `=`x'-`sz2'' `=serset(`.yvar',  `j')' ///
				      `=`x'+`sz2'' `=serset(`.y2var', `j')' ///
				      preset
		}
	}
	else {
		forvalues j = 1/`:serset N' {
			local y = serset(`.xvar', `j')
			_fr_draw_rect style.area			    ///
				      `=serset(`.yvar',  `j')' `=`y'-`sz2'' ///
				      `=serset(`.y2var', `j')' `=`y'+`sz2'' ///
				      preset
		}
	}
end