yxyxkey_g.class

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

//				yxyxkey_g
//
//  class that holds and draws a key view for an yxyxview class or 
//  a seriesstyle.

*! version 1.0.0 01apr2005

version 9

class {
} , inherit(yxkey_g)


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


// ---------------------------------------------------------------------------
program draw_pccapsym
	args xsize ysize

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


// ---------------------------------------------------------------------------
program draw_pcline
	.draw_line `0' area
end


// ---------------------------------------------------------------------------
program draw_pcscatter
	.draw_scatter `0'
end


// ---------------------------------------------------------------------------
program draw_pcconnected
	.draw_line `0' area
end


// ---------------------------------------------------------------------------
program draw_pcarrow
	args xsize ysize

	_draw_arrow `xsize' `ysize' 0
end


// ---------------------------------------------------------------------------
program draw_pcbarrow
	args xsize ysize

	_draw_arrow `xsize' `ysize' 1
end


// ---------------------------------------------------------------------------
program _draw_arrow
	args xsize ysize biheaded

	local style = cond("`.view.isa'"=="" , "style", "view.style")
	local ang    `.`style'.marker.angle.radians'
	local msz    `.`style'.marker.size.val'
	local barbsz `.`style'.marker.backsize.val'

	local y0 = `._sym_y `ysize'' 

	.draw_line `xsize' `ysize' area

	.`style'.marker.setgdifull

	_gr_arrowhead `ang' `msz' `barbsz'	 			  ///
		      0 `._sym_y `ysize'' 0`xsize' `._sym_y `ysize''

	if 0`biheaded' {
		_gr_arrowhead `ang' `msz' `barbsz'	 		  ///
		      0`xsize' `._sym_y `ysize'' 0 `._sym_y `ysize''
	}

end