pie_pr.idlg

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

/*
	pie_pr.idlg include file for pie and pie_98 programming

*!  VERSION 1.1.0  18nov2004

*/

	put "graph pie "
	require main.vl_var
	put " " main.vl_var
	put main.vn_var
	INCLUDE _weights_pr
	INCLUDE _ifin_pr
	beginoptions
		if main.rb_over {
			require main.vn_over
			optionarg main.vn_over
		}
		option main.ck_miss
		option main.ck_cw
		option main.rb_size
		if main.rb_order {
			require main.vn_order
			optionarg main.vn_order
		}
		option main.ck_desc
		option main.ck_nocl
		if main.cb_lcol | Hcc(main.cb_lcol) | main.cb_lwid {
			put "line("
			if Hcc(main.cb_lcol) {
				optionarg /quoted main.cl_lcol
			}
			if !Hcc(main.cb_lcol) {
				optionarg main.cb_lcol
			}
			optionarg main.cb_lwid
			put ") "
		}
		optionarg main.sp_angle
		optionarg main.ed_int
		put " "/program gpieslices_output
		put " "/program gpielabels_output
		put " "/program gtitle_output
		put " "/program gcaption_output
		put " "/program glegend_output
		put " "/program gregion_output
		put " "/program gby_output
	endoptions