sunflowerkey_g.class

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

// sunflowerkey_g
//
// class that holds and draws a key view for a sunflower class or a
// seriesstyle.
//
*! version 1.0.1  05jun2003

class {
	sf_keyid = 0
} , inherit(yxkey_g)

// ---------------------------------------------------------------------------

program new
	syntax anything(name=keyid) [, * ]
	.sf_keyid = `keyid'
	.Super.new , `options'
end

program draw_sunflower
	args xsize ysize

	local adjust 1 // (2/sqrt(3))
	local x = `xsize'/2
	local y = `ysize'/2

	if !inlist(`.sf_keyid',1,2,3) exit 198

	if inlist(`.sf_keyid',2,3) {
		local r = min(`x',`y')*sqrt(3)/2
		local h = `r'*(`gdi(ybeta)'/`gdi(xbeta)')*`adjust'
		// flower petals radius and height
		local fr = `r'*sqrt(3)/2
		local fh = `h'*sqrt(3)/2
	}

	local style = cond("`.Local.style.isa'"=="", "view.style", "style")

	if `.sf_keyid' == 1 {
		.`style'.marker.setgdifull
		gdi point `x' `y'
	}
	else if `.sf_keyid' == 2 {
		.`style'.lighthexbin.setgdifull
		gdi_hexagon `x' `y' `r' `h' `=c(pi)/2'
		.`style'.lightflower.setgdifull
		gdi_spokes `x' `y' `fr' `fh' 3
	}
	else if `.sf_keyid' == 3 {
		.`style'.darkhexbin.setgdifull
		gdi_hexagon `x' `y' `r' `h' `=c(pi)/2'
		.`style'.darkflower.setgdifull
		gdi_spokes `x' `y' `fr' `fh' 3
	}

end

exit