From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- noao/onedspec/splot/mktitle.x | 41 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100644 noao/onedspec/splot/mktitle.x (limited to 'noao/onedspec/splot/mktitle.x') diff --git a/noao/onedspec/splot/mktitle.x b/noao/onedspec/splot/mktitle.x new file mode 100644 index 00000000..554599bf --- /dev/null +++ b/noao/onedspec/splot/mktitle.x @@ -0,0 +1,41 @@ +include +include +include + +# MKTITLE -- Make a spectrum title (IIDS style) + +procedure mktitle (sh, gt) + +pointer sh, gt + +pointer sp, str + +begin + # Do nothing if the GTOOLS pointer is undefined. + if (gt == NULL) + return + + call smark (sp) + call salloc (str, SZ_LINE, TY_CHAR) + + call sprintf (Memc[str], SZ_LINE, + "[%s%s]: %s %.2s ap:%d beam:%d") + call pargstr (IMNAME(sh)) + call pargstr (IMSEC(sh)) + call pargstr (TITLE(sh)) + call pargr (IT(sh)) + call pargi (AP(sh)) + call pargi (BEAM(sh)) + + # Set GTOOLS labels. + call gt_sets (gt, GTTITLE, Memc[str]) + if (UN_LABEL(UN(sh)) != EOS) { + call gt_sets (gt, GTXLABEL, UN_LABEL(UN(sh))) + call gt_sets (gt, GTXUNITS, UN_UNITS(UN(sh))) + } else { + call gt_sets (gt, GTXLABEL, LABEL(sh)) + call gt_sets (gt, GTXUNITS, UNITS(sh)) + } + + call sfree (sp) +end -- cgit