graxis_98.idlg

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

	call gaction graxis.tx_tkmode.setlabel "Major tick options"
END

SCRIPT grmajor_hide
BEGIN
	graxis.tx_rule.hide
	graxis.ed_rule.hide
	graxis.bt_rule.hide
	graxis.tx_cstm.hide
	graxis.ed_cstm.hide
	graxis.bt_cstm.hide
	graxis.tx_notk.hide
	graxis.cb_notk.hide
	graxis.tx_nolab.hide
	graxis.cb_nolab.hide
	graxis.ck_vlab.hide
	graxis.ck_altr.hide
	graxis.tx_fmt.hide
	graxis.ed_fmt.hide
	graxis.bt_fmt.hide
	graxis.tx_ang.hide
	graxis.cb_ang.hide
	graxis.tx_lgap.hide
	graxis.ed_lgap.hide
	graxis.tx_lsize.hide
	graxis.cb_lsize.hide
	graxis.ck_tlclr.hide
	graxis.cl_tlclr.hide
	graxis.tx_tlng.hide
	graxis.ed_tlng.hide
	graxis.tx_tpos.hide
	graxis.cb_tpos.hide
	graxis.ck_grid.hide
	graxis.ck_gclr.hide
	graxis.cl_gclr.hide
	graxis.tx_pat.hide
	graxis.cb_pat.hide
END

PROGRAM grminor_show
BEGIN
	call gaction graxis.tx_mrule.show
	call gaction graxis.ed_mrule.show
	call gaction graxis.bt_mrule.show
	call gaction graxis.tx_mcstm.show
	call gaction graxis.ed_mcstm.show
	call gaction graxis.bt_mcstm.show
	call gaction graxis.tx_mnotk.show
	call gaction graxis.cb_mnotk.show
	call gaction graxis.tx_mnolab.show
	call gaction graxis.cb_mnolab.show
	call gaction graxis.ck_mvlab.show
	call gaction graxis.ck_maltr.show
	call gaction graxis.tx_mfmt.show
	call gaction graxis.ed_mfmt.show
	call gaction graxis.bt_mfmt.show
	call gaction graxis.tx_mang.show
	call gaction graxis.cb_mang.show
	call gaction graxis.tx_mlgap.show
	call gaction graxis.ed_mlgap.show
	call gaction graxis.tx_mlsize.show
	call gaction graxis.cb_mlsize.show
	call gaction graxis.ck_mtlclr.show
	if graxis.ck_mtlclr {
		call gaction graxis.cl_mtlclr.show
	}
	call gaction graxis.tx_mtlng.show
	call gaction graxis.ed_mtlng.show
	call gaction graxis.tx_mtpos.show
	call gaction graxis.cb_mtpos.show
	call gaction graxis.ck_mgrid.show
	call gaction graxis.ck_mgclr.show
	if graxis.ck_mgclr {
		call gaction graxis.cl_mgclr.show
	}
	call gaction graxis.tx_mpat.show
	call gaction graxis.cb_mpat.show
	call gaction graxis.tx_tkmode.setlabel "Minor tick options"
END

SCRIPT grminor_hide
BEGIN
	graxis.tx_mrule.hide
	graxis.ed_mrule.hide
	graxis.bt_mrule.hide
	graxis.tx_mcstm.hide
	graxis.ed_mcstm.hide
	graxis.bt_mcstm.hide
	graxis.tx_mnotk.hide
	graxis.cb_mnotk.hide
	graxis.tx_mnolab.hide
	graxis.cb_mnolab.hide
	graxis.ck_mvlab.hide
	graxis.ck_maltr.hide
	graxis.tx_mfmt.hide
	graxis.ed_mfmt.hide
	graxis.bt_mfmt.hide
	graxis.tx_mang.hide
	graxis.cb_mang.hide
	graxis.tx_mlgap.hide
	graxis.ed_mlgap.hide
	graxis.tx_mlsize.hide
	graxis.cb_mlsize.hide
	graxis.ck_mtlclr.hide
	graxis.cl_mtlclr.hide
	graxis.tx_mtlng.hide
	graxis.ed_mtlng.hide
	graxis.tx_mtpos.hide
	graxis.cb_mtpos.hide
	graxis.ck_mgrid.hide
	graxis.ck_mgclr.hide
	graxis.cl_mgclr.hide
	graxis.tx_mpat.hide
	graxis.cb_mpat.hide
END

PROGRAM grlines_show
BEGIN
	call gaction graxis.tx_lline.show
	call gaction graxis.ed_lline.show
	call gaction graxis.ck_llclr.show
	if graxis.ck_llclr {
		call gaction graxis.cl_llclr.show
	}
	call gaction graxis.tx_llpat.show
	call gaction graxis.cb_llpat.show
	call gaction graxis.tx_tkmode.setlabel "Additional lines options"
END

SCRIPT grlines_hide
BEGIN
	graxis.tx_lline.hide
	graxis.ed_lline.hide
	graxis.ck_llclr.hide
	graxis.cl_llclr.hide
	graxis.tx_llpat.hide
	graxis.cb_llpat.hide
END

SCRIPT grmajor_on
BEGIN
	script grminor_hide
	script grlines_hide
	program grmajor_show
END

SCRIPT grminor_on
BEGIN
	script grmajor_hide
	script grlines_hide
	program grminor_show
END

SCRIPT grlines_on
BEGIN
	script grmajor_hide
	script grminor_hide
	program grlines_show
END

PROGRAM graxis_title_pr
BEGIN
   if !H(graxis.gb_title) {
     if graxis.ed_title  | graxis.cb_size | !H(graxis.cl_tclr)  {
	put "ytitle("
	if graxis.ed_title {
		put graxis.ed_title
	}
	put /program graxis_title_opt_pr
	put ") "
     }
   }
END

PROGRAM graxis_title_opt_pr
BEGIN
	beginoptions
		optionarg /hidedefault graxis.cb_size
		if !H(graxis.cl_tclr) {
			optionarg /quoted graxis.cl_tclr
		}
		put " "  "axis(2)"
	endoptions
END

PROGRAM graxis_scale_pr
BEGIN
/* yaxis scale options */
  if !D(graxis.gb_option) { /* If scale options are disabled then do nothing */
     if graxis.ck_range | graxis.ed_outergp | !H(graxis.cl_lclr) 	/*
     */ | graxis.ck_log | graxis.ck_rev | graxis.ed_ttlgp  | 		/*
     */ graxis.ck_scaleoff {

	put "yscale("
	put /program graxis_scale_opt_pr
	put " "  "axis(2)) "
     }
  }
END

PROGRAM graxis_scale_opt_pr
BEGIN
	optionarg graxis.ed_ttlgp
	if graxis.ck_range {
		require graxis.ed_rangefm
		require graxis.ed_rangeto
		put " " "range(" graxis.ed_rangefm " " graxis.ed_rangeto ")"
	}
	if !H(graxis.cl_lclr) {
		optionarg /quoted graxis.cl_lclr
	}
	optionarg graxis.ed_outergp
	option graxis.ck_log
	option graxis.ck_rev
	option graxis.ck_scaleoff
END

PROGRAM graxis_major_tick_pr
BEGIN

   /* Programming for major ticks */
   /* if any ylabel options put out "ylabel(" */
   if !D(graxis.ed_rule) { /* if ed_rule is disabled then do nothing */
     if graxis.ed_rule | graxis.ed_cstm | graxis.cb_tpos | 		/*
	*/ graxis.ed_tlng | graxis.cb_notk | graxis.cb_nolab | 		/*
	*/ graxis.ck_vlab |  graxis.ck_tlclr | graxis.cb_ang |		/*
	*/ graxis.ed_fmt | graxis.ed_lgap | graxis.cb_lsize | 		/*
	*/ graxis.ck_grid | graxis.ck_altr {
	put "ylabel("
	if graxis.ed_rule | graxis.ed_cstm {
		put /hidden graxis.ed_rule
		if graxis.ed_cstm {
			put " "
			put /hidden graxis.ed_cstm
		}
	}
	put /program graxis_major_tick_opt_pr
	put ")"
     }
   }
END
PROGRAM graxis_major_tick_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault graxis.cb_tpos
		hoptionarg /hidedefault graxis.ed_tlng
		if graxis.cb_notk {
			put " "
			put /hidden graxis.cb_notk
		}
		if graxis.cb_nolab {
			put " "
			put /hidden graxis.cb_nolab
		}
		hoption graxis.ck_vlab
		hoption graxis.ck_altr
		if graxis.ck_tlclr {
			put " " `"tlcolor(""'
			put /hidden graxis.cl_tlclr
			put `"")"'
			put " " `"labcolor(""'
			put /hidden graxis.cl_tlclr
			put `"")"'
		}
		hoptionarg /hidedefault graxis.cb_ang
		hoptionarg /hidedefault graxis.ed_fmt
		hoptionarg /hidedefault graxis.ed_lgap
		hoptionarg /hidedefault graxis.cb_lsize
		hoption graxis.ck_grid
		if graxis.ck_gclr {
			hoptionarg /quoted graxis.cl_gclr
		}
		hoptionarg /hidedefault graxis.cb_pat
		put " "  "axis(2)"
	endoptions
END

PROGRAM graxis_minor_tick_pr
BEGIN

   /* Programming for minor ticks */

   /* if any ylabel options put out "ylabel(" */
   if !D(graxis.ed_mrule) { /* if ed_mrule is disabled then do nothing */
     if graxis.ed_mrule | graxis.ed_mcstm | graxis.cb_mtpos |     	/*
	*/ graxis.ed_mtlng | graxis.cb_mnotk | graxis.cb_mnolab | 	/*
	*/ graxis.ck_mvlab |  graxis.ck_mtlclr | graxis.cb_mang |	/*
	*/ graxis.ed_mfmt | graxis.ed_mlgap | graxis.cb_mlsize | 	/*
	*/ graxis.ck_mgrid | graxis.ck_maltr {
	put "ymlabel("
	if graxis.ed_mrule | graxis.ed_mcstm {
		put /hidden graxis.ed_mrule
		if graxis.ed_mcstm {
			put " "
			put /hidden graxis.ed_mcstm
		}
	}
	put /program graxis_minor_tick_opt_pr
	put ")"
     }
   }
END
PROGRAM graxis_minor_tick_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault graxis.cb_mtpos
		hoptionarg /hidedefault graxis.ed_mtlng
		if graxis.cb_mnotk {
			put " "
			put /hidden graxis.cb_mnotk
		}
		if graxis.cb_mnolab {
			put " "
			put /hidden graxis.cb_mnolab
		}
		hoption graxis.ck_mvlab
		hoption graxis.ck_maltr
		if graxis.ck_mtlclr {
			put " " `"tlcolor(""'
			put /hidden graxis.cl_mtlclr
			put `"")"'
			put " " `"labcolor(""'
			put /hidden graxis.cl_mtlclr
			put `"")"'
		}
		hoptionarg /hidedefault graxis.cb_mang
		hoptionarg /hidedefault graxis.ed_mfmt
		hoptionarg /hidedefault graxis.ed_mlgap
		hoptionarg /hidedefault graxis.cb_mlsize
		hoption graxis.ck_mgrid
		if graxis.ck_mgclr {
			hoptionarg /quoted graxis.cl_mgclr
		}
		hoptionarg /hidedefault graxis.cb_mpat
		put " "  "axis(2)"
	endoptions
END

PROGRAM graxis_lines_pr
BEGIN
/* yaxis line options */
  if !D(graxis.ed_lline) { /* if ed_lline is disabled then do nothing */
     if graxis.ed_lline  {
	put "yline("
	put /hidden graxis.ed_lline
	put /program graxis_lines_opt_pr
	put ")"
     }
   }
END
PROGRAM graxis_lines_opt_pr
BEGIN
	beginoptions
		if graxis.ck_llclr {
			hoptionarg /quoted graxis.cl_llclr
		}
		hoptionarg /hidedefault graxis.cb_llpat
		put " "  "axis(2)"
	endoptions
END

PROGRAM graxis_output
BEGIN
	put " " /program graxis_title_pr
	put " " /program graxis_scale_pr
	put " " /program graxis_major_tick_pr
	put " " /program graxis_minor_tick_pr
	put " " /program graxis_lines_pr
END