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/imred/quadred/src/quad/test.x | 71 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 71 insertions(+) create mode 100644 noao/imred/quadred/src/quad/test.x (limited to 'noao/imred/quadred/src/quad/test.x') diff --git a/noao/imred/quadred/src/quad/test.x b/noao/imred/quadred/src/quad/test.x new file mode 100644 index 00000000..3df5240a --- /dev/null +++ b/noao/imred/quadred/src/quad/test.x @@ -0,0 +1,71 @@ +include "quadgeom.h" + +procedure new () + +char input[SZ_FNAME] #TI Input image name. +char instrument[SZ_FNAME] #TI Instrument translation file + +pointer in, qg +int xtrim1, xtrim2, ytrim1, ytrim2, xskip1, xskip2 + +int clgeti +pointer immap() + +begin + + # Open instrument file + call clgstr ("instrument", instrument, SZ_FNAME) + call hdmopen (instrument) + + # Open input image + call clgstr ("input", input, SZ_FNAME) + in = immap (input, READ_ONLY, 0) + + xtrim1 = clgeti ("xtrim1") + xtrim2 = clgeti ("xtrim2") + ytrim1 = clgeti ("ytrim1") + ytrim2 = clgeti ("ytrim2") + xskip1 = clgeti ("xskip1") + xskip2 = clgeti ("xskip2") + + # Set-up section translation + call quadalloc (qg) + call qghdr2 (in, qg) + call qguser (qg, xtrim1, xtrim2, ytrim1, ytrim2, xskip1, xskip2) + call quaddump (qg) + + # Tidy up + call imunmap (in) + call quadfree (qg) + call hdmclose () +end + +procedure old () + +char input[SZ_FNAME] #TI Input image name. +char instrument[SZ_FNAME] #TI Instrument translation file + +pointer in, qg + +pointer immap() + +begin + + # Open instrument file + call clgstr ("instrument", instrument, SZ_FNAME) + call hdmopen (instrument) + + # Open input image + call clgstr ("input", input, SZ_FNAME) + in = immap (input, READ_ONLY, 0) + + # Set-up section translation + call quadalloc (qg) + call quadgeom (in, qg, "", "") + call quaddump (qg) + + # Tidy up + call imunmap (in) + call quadfree (qg) + call hdmclose () +end -- cgit