y2xkey_g.class

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

//				y2xkey_g
//
//  class that holds and draws a key view for an y2xview class or a seriesstyle.

class {
} , inherit(yxkey_g)


// ---------------------------------------------------------------------------
program draw_rspike
	.draw_spike `0'
end

program draw_rspike
	.draw_spike `0'
end

program draw_rbar
	.draw_bar `0'
end

program draw_rarea
	.draw_bar `0'
end

program draw_rline
	.draw_line `0' area
end

program draw_rscatter
	.draw_scatter `0'
end

program draw_rconnected
	.draw_connected `0' area
end


// ---------------------------------------------------------------------------
program draw_rcap
	args xsize ysize

	local style = cond("`.view.isa'"=="" , "style", "view.style")
	local sz2 = `.`style'.marker.size.gmval' / 2

	local y0 = `._sym_y `ysize'' 

	.draw_line `xsize' `ysize' area
	gdi line      0  `=`y0'-`sz2''      0  `=`y0'+`sz2''
	gdi line `xsize' `=`y0'-`sz2'' `xsize' `=`y0'+`sz2''
end


// ---------------------------------------------------------------------------
program draw_rcapsym
	args xsize ysize

	.draw_line `xsize' `ysize' area
	.draw_symbol      0  `._sym_y `ysize''
	.draw_symbol `xsize' `._sym_y `ysize''
end