gbaryaxis.idlg

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

END

SCRIPT gbarymajor_hide
BEGIN
	gbaryaxis.tx_rule.hide
	gbaryaxis.ed_rule.hide
	gbaryaxis.bt_rule.hide
	gbaryaxis.tx_cstm.hide
	gbaryaxis.ed_cstm.hide
	gbaryaxis.bt_cstm.hide
	gbaryaxis.tx_notk.hide
	gbaryaxis.cb_notk.hide
	gbaryaxis.tx_nolab.hide
	gbaryaxis.cb_nolab.hide
	gbaryaxis.ck_vlab.hide
	gbaryaxis.ck_altr.hide
	gbaryaxis.tx_fmt.hide
	gbaryaxis.ed_fmt.hide
	gbaryaxis.bt_fmt.hide
	gbaryaxis.tx_ang.hide
	gbaryaxis.cb_ang.hide
	gbaryaxis.tx_lgap.hide
	gbaryaxis.ed_lgap.hide
	gbaryaxis.tx_lsize.hide
	gbaryaxis.cb_lsize.hide
	gbaryaxis.tx_tlclr.hide
	gbaryaxis.cb_tlclr.hide
	gbaryaxis.cl_tlclr.hide
	gbaryaxis.tx_tlng.hide
	gbaryaxis.ed_tlng.hide
	gbaryaxis.tx_tpos.hide
	gbaryaxis.cb_tpos.hide
	gbaryaxis.ck_grid.hide
	gbaryaxis.tx_gall.hide
	gbaryaxis.cb_gall.hide
	gbaryaxis.tx_gwd.hide
	gbaryaxis.cb_gwd.hide
	gbaryaxis.tx_gclr.hide
	gbaryaxis.cb_gclr.hide
	gbaryaxis.cl_gclr.hide
	gbaryaxis.tx_pat.hide
	gbaryaxis.cb_pat.hide
	gbaryaxis.tx_extend.hide
	gbaryaxis.cb_extend.hide
END

SCRIPT gbaryminor_show
BEGIN
	gbaryaxis.tx_mrule.show
	gbaryaxis.ed_mrule.show
	gbaryaxis.bt_mrule.show
	gbaryaxis.tx_mcstm.show
	gbaryaxis.ed_mcstm.show
	gbaryaxis.bt_mcstm.show
	gbaryaxis.tx_mnotk.show
	gbaryaxis.cb_mnotk.show
	gbaryaxis.tx_mnolab.show
	gbaryaxis.cb_mnolab.show
	gbaryaxis.ck_mvlab.show
	gbaryaxis.ck_maltr.show
	gbaryaxis.tx_mfmt.show
	gbaryaxis.ed_mfmt.show
	gbaryaxis.bt_mfmt.show
	gbaryaxis.tx_mang.show
	gbaryaxis.cb_mang.show
	gbaryaxis.tx_mlgap.show
	gbaryaxis.ed_mlgap.show
	gbaryaxis.tx_mlsize.show
	gbaryaxis.cb_mlsize.show
	gbaryaxis.tx_mtlclr.show
	gbaryaxis.cb_mtlclr.show
	gbaryaxis.cb_mtlclr.withvalue gbaryaxis.cb_mtlclr.setvalue "@"
	gbaryaxis.tx_mtlng.show
	gbaryaxis.ed_mtlng.show
	gbaryaxis.tx_mtpos.show
	gbaryaxis.cb_mtpos.show
	gbaryaxis.ck_mgrid.show
	gbaryaxis.tx_mgall.show
	gbaryaxis.cb_mgall.show
	gbaryaxis.tx_mgwd.show
	gbaryaxis.cb_mgwd.show
	gbaryaxis.tx_mgclr.show
	gbaryaxis.cb_mgclr.show
	gbaryaxis.cb_mgclr.withvalue gbaryaxis.cb_mgclr.setvalue "@"
	gbaryaxis.tx_mpat.show
	gbaryaxis.cb_mpat.show
	gbaryaxis.tx_mextend.show
	gbaryaxis.cb_mextend.show
	gbaryaxis.tx_tkmode.setlabel "Minor tick options"
END

SCRIPT gbaryminor_hide
BEGIN
	gbaryaxis.tx_mrule.hide
	gbaryaxis.ed_mrule.hide
	gbaryaxis.bt_mrule.hide
	gbaryaxis.tx_mcstm.hide
	gbaryaxis.ed_mcstm.hide
	gbaryaxis.bt_mcstm.hide
	gbaryaxis.tx_mnotk.hide
	gbaryaxis.cb_mnotk.hide
	gbaryaxis.tx_mnolab.hide
	gbaryaxis.cb_mnolab.hide
	gbaryaxis.ck_mvlab.hide
	gbaryaxis.ck_maltr.hide
	gbaryaxis.tx_mfmt.hide
	gbaryaxis.ed_mfmt.hide
	gbaryaxis.bt_mfmt.hide
	gbaryaxis.tx_mang.hide
	gbaryaxis.cb_mang.hide
	gbaryaxis.tx_mlgap.hide
	gbaryaxis.ed_mlgap.hide
	gbaryaxis.tx_mlsize.hide
	gbaryaxis.cb_mlsize.hide
	gbaryaxis.tx_mtlclr.hide
	gbaryaxis.cb_mtlclr.hide
	gbaryaxis.cl_mtlclr.hide
	gbaryaxis.tx_mtlng.hide
	gbaryaxis.ed_mtlng.hide
	gbaryaxis.tx_mtpos.hide
	gbaryaxis.cb_mtpos.hide
	gbaryaxis.ck_mgrid.hide
	gbaryaxis.tx_mgall.hide
	gbaryaxis.cb_mgall.hide
	gbaryaxis.tx_mgwd.hide
	gbaryaxis.cb_mgwd.hide
	gbaryaxis.tx_mgclr.hide
	gbaryaxis.cb_mgclr.hide
	gbaryaxis.cl_mgclr.hide
	gbaryaxis.tx_mpat.hide
	gbaryaxis.cb_mpat.hide
	gbaryaxis.tx_mextend.hide
	gbaryaxis.cb_mextend.hide
END

SCRIPT gbarylines_show
BEGIN
	gbaryaxis.tx_lline.show
	gbaryaxis.ed_lline.show
	gbaryaxis.tx_llwd.show
	gbaryaxis.cb_llwd.show
	gbaryaxis.tx_llclr.show
	gbaryaxis.cb_llclr.show
	gbaryaxis.cb_llclr.withvalue gbaryaxis.cb_llclr.setvalue "@"
	gbaryaxis.tx_llpat.show
	gbaryaxis.cb_llpat.show
	gbaryaxis.tx_lextend.show
	gbaryaxis.cb_lextend.show
	gbaryaxis.tx_tkmode.setlabel "Additional lines options"
END

SCRIPT gbarylines_hide
BEGIN
	gbaryaxis.tx_lline.hide
	gbaryaxis.ed_lline.hide
	gbaryaxis.tx_llwd.hide
	gbaryaxis.cb_llwd.hide
	gbaryaxis.tx_llclr.hide
	gbaryaxis.cb_llclr.hide
	gbaryaxis.cl_llclr.hide
	gbaryaxis.tx_llpat.hide
	gbaryaxis.cb_llpat.hide
	gbaryaxis.tx_lextend.hide
	gbaryaxis.cb_lextend.hide
END

SCRIPT gbarymajor_on
BEGIN
	script gbaryminor_hide
	script gbarylines_hide
	script gbarymajor_show
END

SCRIPT gbaryminor_on
BEGIN
	script gbarymajor_hide
	script gbarylines_hide
	script gbaryminor_show
END

SCRIPT gbarylines_on
BEGIN
	script gbarymajor_hide
	script gbaryminor_hide
	script gbarylines_show
END

PROGRAM gbaryaxis_title_pr
BEGIN
   if !H(gbaryaxis.gb_title) {
     if gbaryaxis.ed_title  | gbaryaxis.cb_size | gbaryaxis.cb_tclr | ///
	   !H(gbaryaxis.cl_tclr) | gbaryaxis.cb_just | gbaryaxis.cb_orient ///
	   | gbaryaxis.cb_align | gbaryaxis.cb_margin | gbaryaxis.ck_box {
	put "ytitle("
	if gbaryaxis.ed_title {
		put gbaryaxis.ed_title
	}
	put /program gbaryaxis_title_opt_pr
	put ") "
     }
   }
END

PROGRAM gbaryaxis_title_opt_pr
BEGIN
	beginoptions
		optionarg /hidedefault gbaryaxis.cb_size
		if H(gbaryaxis.cl_tclr) {
			optionarg /hidedefault gbaryaxis.cb_tclr
		}
		if !H(gbaryaxis.cl_tclr) {
			optionarg /quoted gbaryaxis.cl_tclr
		}
		optionarg /hidedefault gbaryaxis.cb_orient
		optionarg /hidedefault gbaryaxis.cb_just
		optionarg /hidedefault gbaryaxis.cb_align
		optionarg /hidedefault gbaryaxis.cb_margin
		option gbaryaxis.ck_box
		if H(gbaryaxis.cl_bclr) {
			optionarg /hidedefault gbaryaxis.cb_bclr
		}
		if !H(gbaryaxis.cl_bclr) {
			optionarg /quoted gbaryaxis.cl_bclr
		}
		if H(gbaryaxis.cl_blclr) {
			optionarg /hidedefault gbaryaxis.cb_blclr
		}
		if !H(gbaryaxis.cl_blclr) {
			optionarg /quoted gbaryaxis.cl_blclr
		}
		optionarg /hidedefault gbaryaxis.cb_bmargin
		option gbaryaxis.ck_expand
	endoptions
END

PROGRAM gbaryaxis_scale_pr
BEGIN
/* yaxis scale options */
/* !- remove gbaryaxis.ck_range references */
/* !- remove ck_rev */
/* !- remove ck_log */
  if !D(gbaryaxis.gb_option) { /* If scale options are disabled then do nothing */
     if gbaryaxis.cb_lclr | gbaryaxis.ed_outergp | !H(gbaryaxis.cl_lclr) /*
     	*/ | gbaryaxis.ed_ttlgp | gbaryaxis.ck_scaleoff {
	put "yscale("
	put /program gbaryaxis_scale_opt_pr
	put ") "
     }
  }
END

PROGRAM gbaryaxis_scale_opt_pr
BEGIN
	optionarg gbaryaxis.ed_ttlgp
	/* !- remove gbaryaxis.ck_range references */

	if H(gbaryaxis.cl_lclr) {
		optionarg /hidedefault gbaryaxis.cb_lclr
	}
	if !H(gbaryaxis.cl_lclr) {
		optionarg /quoted gbaryaxis.cl_lclr
	}
	optionarg gbaryaxis.ed_outergp
	/* !- remove ck_log */
	/* !- remove programming for ck_rev is no longer a scale option */
	option gbaryaxis.ck_scaleoff
END

PROGRAM gbaryaxis_major_tick_pr
BEGIN

   /* Programming for major ticks */
   /* if any ylabel options put out "ylabel(" */
   if !D(gbaryaxis.ed_rule) { /* if ed_rule is disabled then do nothing */
     if gbaryaxis.ed_rule | gbaryaxis.ed_cstm | gbaryaxis.cb_tpos | ///
	   gbaryaxis.ed_tlng | gbaryaxis.cb_notk | gbaryaxis.cb_nolab |  ///
	   gbaryaxis.ck_vlab |  gbaryaxis.cb_tlclr | !H(gbaryaxis.cl_tlclr) ///
	   | gbaryaxis.cb_ang | gbaryaxis.ed_fmt | gbaryaxis.ed_lgap | 	  ///
	   gbaryaxis.cb_lsize | gbaryaxis.ck_grid | gbaryaxis.ck_altr {
	put "ylabel("
	if gbaryaxis.ed_rule | gbaryaxis.ed_cstm {
		put /hidden gbaryaxis.ed_rule
		if gbaryaxis.ed_cstm {
			put " "
			put /hidden gbaryaxis.ed_cstm
		}
	}
	put /program gbaryaxis_major_tick_opt_pr
	put ")"
     }
   }
END
PROGRAM gbaryaxis_major_tick_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault gbaryaxis.cb_tpos
		hoptionarg /hidedefault gbaryaxis.ed_tlng
		if gbaryaxis.cb_notk {
			put " "
			put /hidden gbaryaxis.cb_notk
		}
		if gbaryaxis.cb_nolab {
			put " "
			put /hidden gbaryaxis.cb_nolab
		}
		hoption gbaryaxis.ck_vlab
		hoption gbaryaxis.ck_altr
		if !Hcc(gbaryaxis.cb_tlclr) & gbaryaxis.cb_tlclr {
			put " " "tlcolor("
			put /hidden gbaryaxis.cb_tlclr
			put ")"
			put " "
			put "labcolor("
			put /hidden gbaryaxis.cb_tlclr
			put ")"
		}
		if Hcc(gbaryaxis.cb_tlclr) {
			put " " `"tlcolor(""'
			put /hidden gbaryaxis.cl_tlclr
			put `"")"'
			put " " `"labcolor(""'
			put /hidden gbaryaxis.cl_tlclr
			put `"")"'
		}
		hoptionarg /hidedefault gbaryaxis.cb_ang
		hoptionarg /hidedefault gbaryaxis.ed_fmt
		hoptionarg /hidedefault gbaryaxis.ed_lgap
		hoptionarg /hidedefault gbaryaxis.cb_lsize
		hoption gbaryaxis.ck_grid
		if gbaryaxis.ck_grid {
			if gbaryaxis.cb_gall {
				put " "
				put /hidden gbaryaxis.cb_gall
			}
			hoptionarg /hidedefault gbaryaxis.cb_gwd
			if !Hcc(gbaryaxis.cb_gclr) {
				hoptionarg /hidedefault gbaryaxis.cb_gclr
			}
			if Hcc(gbaryaxis.cb_gclr) {
				hoptionarg /quoted gbaryaxis.cl_gclr
			}
			hoptionarg /hidedefault gbaryaxis.cb_pat
			if gbaryaxis.cb_extend {
				put " "
				put /hidden gbaryaxis.cb_extend
			}
		}
	endoptions
END

PROGRAM gbaryaxis_minor_tick_pr
BEGIN

   /* Programming for minor ticks */

   /* if any ylabel options put out "ylabel(" */
   if !D(gbaryaxis.ed_mrule) { /* if ed_mrule is disabled then do nothing */
     if gbaryaxis.ed_mrule | gbaryaxis.ed_mcstm | gbaryaxis.cb_mtpos |     ///
	gbaryaxis.ed_mtlng | gbaryaxis.cb_mnotk | gbaryaxis.cb_mnolab | ///
	gbaryaxis.ck_mvlab |  gbaryaxis.cb_mtlclr | !H(gbaryaxis.cl_mtlclr) ///
	| gbaryaxis.cb_mang | gbaryaxis.ed_mfmt | gbaryaxis.ed_mlgap | 	///
	gbaryaxis.cb_mlsize | gbaryaxis.ck_mgrid | gbaryaxis.ck_maltr {
	put "ymlabel("
	if gbaryaxis.ed_mrule | gbaryaxis.ed_mcstm {
		put /hidden gbaryaxis.ed_mrule
		if gbaryaxis.ed_mcstm {
			put " "
			put /hidden gbaryaxis.ed_mcstm
		}
	}
	put /program gbaryaxis_minor_tick_opt_pr
	put ")"
     }
   }
END
PROGRAM gbaryaxis_minor_tick_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault gbaryaxis.cb_mtpos
		hoptionarg /hidedefault gbaryaxis.ed_mtlng
		if gbaryaxis.cb_mnotk {
			put " "
			put /hidden gbaryaxis.cb_mnotk
		}
		if gbaryaxis.cb_mnolab {
			put " "
			put /hidden gbaryaxis.cb_mnolab
		}
		hoption gbaryaxis.ck_mvlab
		hoption gbaryaxis.ck_maltr
		if !Hcc(gbaryaxis.cb_mtlclr) & gbaryaxis.cb_mtlclr {
			put " " "tlcolor("
			put /hidden gbaryaxis.cb_mtlclr
			put ")"
			put " " "labcolor("
			put /hidden gbaryaxis.cb_mtlclr
			put ")"
		}
		if Hcc(gbaryaxis.cb_mtlclr) {
			put " " `"tlcolor(""'
			put /hidden gbaryaxis.cl_mtlclr
			put `"")"'
			put " " `"labcolor(""'
			put /hidden gbaryaxis.cl_mtlclr
			put `"")"'
		}
		hoptionarg /hidedefault gbaryaxis.cb_mang
		hoptionarg /hidedefault gbaryaxis.ed_mfmt
		hoptionarg /hidedefault gbaryaxis.ed_mlgap
		hoptionarg /hidedefault gbaryaxis.cb_mlsize
		hoption gbaryaxis.ck_mgrid
		if gbaryaxis.ck_mgrid{
			if gbaryaxis.cb_mgall {
				put " "
				put /hidden gbaryaxis.cb_mgall
			}
			hoptionarg /hidedefault gbaryaxis.cb_mgwd
			if !Hcc(gbaryaxis.cb_mgclr) {
				hoptionarg /hidedefault gbaryaxis.cb_mgclr
			}
			if Hcc(gbaryaxis.cb_mgclr) {
				hoptionarg /quoted gbaryaxis.cl_mgclr
			}
			hoptionarg /hidedefault gbaryaxis.cb_mpat
			if gbaryaxis.cb_mextend {
				put " "
				put /hidden gbaryaxis.cb_mextend
			}
		}
	endoptions
END

PROGRAM gbaryaxis_lines_pr
BEGIN
/* yaxis line options */
  if !D(gbaryaxis.ed_lline) { /* if ed_lline is disabled then do nothing */
     if gbaryaxis.ed_lline  {
	put "yline("
	put /hidden gbaryaxis.ed_lline
	put /program gbaryaxis_lines_opt_pr
	put ")"
     }
   }
END
PROGRAM gbaryaxis_lines_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault gbaryaxis.cb_llwd
		if !Hcc(gbaryaxis.cb_llclr) {
			hoptionarg /hidedefault gbaryaxis.cb_llclr
		}
		if Hcc(gbaryaxis.cb_llclr) {
			hoptionarg /quoted gbaryaxis.cl_llclr
		}
		hoptionarg /hidedefault gbaryaxis.cb_llpat
		if gbaryaxis.cb_lextend {
			put " "
			put /hidden gbaryaxis.cb_lextend
		}
	endoptions
END

SCRIPT gbaryaxis_setExcludeZeroOFF
BEGIN
	gbaryaxis.ck_exclude.hide
END

PROGRAM gbaryaxis_output
BEGIN
	put " " /program gbaryaxis_title_pr
	put " " /program gbaryaxis_scale_pr
	put " " /program gbaryaxis_major_tick_pr
	put " " /program gbaryaxis_minor_tick_pr
	put " " /program gbaryaxis_lines_pr
	/* !- add programming for yalternate, yreverse, and exclude0 options */
	option gbaryaxis.ck_yalt
	option gbaryaxis.ck_rev
	option gbaryaxis.ck_exclude
END