Changeset 9275 for trunk/Ohana/src/opihi/cmd.data/create.c

Timestamp:

Oct 4, 2006, 4:29:10 PM (20 years ago)

Author:

eugene

Message:

cleanup the CreateBuffer function and use, fix buffer init

File:

• trunk/Ohana/src/opihi/cmd.data/create.c (modified) (3 diffs)

trunk/Ohana/src/opihi/cmd.data/create.c

@@ -1 +1 @@
 # include "data.h"
-
-int imcreate (int argc, char **argv);
 
 int create (int argc, char **argv) {
@@ -8 +6 @@
   float start, end, delta;
   Vector *vec;
-  
-  if ((N = get_argument (argc, argv, "-image"))) {
-    remove_argument (N, &argc, argv);
-    return (imcreate (argc, argv));
-  }
   
   if ((argc != 5) && (argc != 4)) {
@@ -43 +36 @@
   return (TRUE);
 }
-
-
-int imcreate (int argc, char **argv) {
-  
-  Buffer *buf;
-
-  if (argc != 4) {
-    gprint (GP_ERR, "USAGE: create -image buffer Nx Ny\n");
-    return (FALSE);
-  }
-
-  if ((buf = SelectBuffer (argv[1], ANYBUFFER, TRUE)) == NULL) return (FALSE);
-  gfits_free_matrix (&buf[0].matrix);
-  gfits_free_header (&buf[0].header);
-
-  buf[0].bitpix = 16;
-  buf[0].unsign = FALSE;
-  buf[0].bscale = 1.0;
-  buf[0].bzero  = 0x8000;
-
-  buf[0].header.bitpix = -32;
-  buf[0].header.unsign = FALSE;
-  buf[0].header.bscale = 1.0;
-  buf[0].header.bzero  = 0.0;
-
-  buf[0].header.Naxes = 2;
-  buf[0].header.Naxis[0] = atoi (argv[2]);
-  buf[0].header.Naxis[1] = atoi (argv[3]);
-
-  gfits_create_header (&buf[0].header);
-  gfits_create_matrix (&buf[0].header, &buf[0].matrix);
-
-  return (TRUE);
-
-}