diff options
Diffstat (limited to 'noao/twodspec/apextract/apdelete.x')
| -rw-r--r-- | noao/twodspec/apextract/apdelete.x | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/noao/twodspec/apextract/apdelete.x b/noao/twodspec/apextract/apdelete.x new file mode 100644 index 00000000..1956a331 --- /dev/null +++ b/noao/twodspec/apextract/apdelete.x @@ -0,0 +1,23 @@ +# AP_DELETE -- Delete the specified aperture and return a new current aperture. + +procedure ap_delete (current, aps, naps) + +int current # Return current aperture index +pointer aps[ARB] # Aperture data +int naps # Number of apertures + +int i + +begin + if (current < 1) + return + + call ap_free (aps[current]) + for (i = current; i < naps; i = i + 1) + aps[i] = aps[i+1] + + aps[naps] = NULL + + naps = naps - 1 + current = min (naps, current) +end |