yxview_rarea_draw.ado

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

*! version 1.0.1  10oct2003

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

program yxview_rarea_draw

	.style.area.setgdifull				// set the style

	local n : serset N
	while `n' > 0 &							///
	     (`=serset(`.xvar', `n')' >= . | `=serset(`.yvar', `n')' >= .) {
		local --n
	}

	local beg 1
	while `beg' <= `n' &						///
	     (`=serset(`.xvar', `beg')' >= . | `=serset(`.yvar', `beg')' >= .) {
		local ++beg
	}


	if `beg' >= `n' {
		exit
	}

	if 0`.style.area.linestyle.patterned_line' {		// pattern line
		tempname linesty
		.`linesty' = .linestyle.new, style(background)
		.`linesty'.setgdifull
	}

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

		gdi moveto `=serset(`.xvar', `beg')' `=serset(`.yvar', `beg')'
		gdi polybegin

		forvalues j = `beg'/`n' {
		     gdi lineto `=serset(`.xvar', `j')' `=serset(`.yvar', `j')'
		}

		gdi lineto `=serset(`.xvar', `n')' `=serset(`.y2var', `n')'

		forvalues j = `=`n'-1'(-1)`beg' {
		     gdi lineto `=serset(`.xvar', `j')' `=serset(`.y2var', `j')'
		}

		gdi lineto `=serset(`.xvar', `beg')' `=serset(`.yvar', `beg')'
		gdi polyend

		if 0`.style.area.linestyle.patterned_line' {	// pattern line
		   .style.area.linestyle.setgdifull
		   gdi moveto `=serset(`.xvar',`beg')' `=serset(`.yvar',`beg')'
		   forvalues j = `beg'/`n' {
		      gdi lineto `=serset(`.xvar', `j')' `=serset(`.yvar', `j')'
		   }
		   gdi lineto `=serset(`.xvar', `n')' `=serset(`.y2var', `n')'
		   forvalues j = `=`n'-1'(-1)`beg' {
		      gdi lineto `=serset(`.xvar',`j')' `=serset(`.y2var',`j')'
		   }
		   gdi lineto `=serset(`.xvar',`beg')' `=serset(`.yvar',`beg')'
		}

	}
	else {

		gdi moveto `=serset(`.yvar', `beg')' `=serset(`.xvar', `beg')'
		gdi polybegin

		forvalues j = `beg'/`n' {
		     gdi lineto `=serset(`.yvar', `j')' `=serset(`.xvar', `j')'
		}

		gdi lineto `=serset(`.y2var', `n')' `=serset(`.xvar', `n')'

		forvalues j = `=`n'-1'(-1)`beg' {
		     gdi lineto `=serset(`.y2var', `j')' `=serset(`.xvar', `j')'
		}

		gdi lineto `=serset(`.yvar', `beg')' `=serset(`.xvar', `beg')'
		gdi polyend

		if 0`.style.area.linestyle.patterned_line' {	// pattern line
		   .style.area.linestyle.setgdifull
		   gdi moveto `=serset(`.yvar',`beg')' `=serset(`.xvar',`beg')'
		   forvalues j = `beg'/`n' {
		      gdi lineto `=serset(`.yvar', `j')' `=serset(`.xvar', `j')'
		   }
		   gdi lineto `=serset(`.y2var', `n')' `=serset(`.xvar', `n')'
		   forvalues j = `=`n'-1'(-1)`beg' {
		      gdi lineto `=serset(`.y2var',`j')' `=serset(`.xvar',`j')'
		   }
		   gdi lineto `=serset(`.yvar',`beg')' `=serset(`.xvar',`beg')'
		}
	}
end