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/vtel/writetape.cl | 45 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 noao/imred/vtel/writetape.cl (limited to 'noao/imred/vtel/writetape.cl') diff --git a/noao/imred/vtel/writetape.cl b/noao/imred/vtel/writetape.cl new file mode 100644 index 00000000..76bb23f2 --- /dev/null +++ b/noao/imred/vtel/writetape.cl @@ -0,0 +1,45 @@ +#{ WRITETAPE -- Write five images to a vacuum telescope tape. The +# script accepts the name of the mag tape device and the general input +# image filename from the user. Writetape appends a digit [1-5] to the +# file name for each file to be written. + +# getmtape,s,a,,,,Mag tape device to write to +# getname,s,a,,,,Root filename for the 5 images +# magtape,s,h +# imname,s,h + +{ + + imname = getname + magtape = getmtape + + if (access(imname//"1.imh")) { + writevt (imname//"1", magtape//"1600[1]") + } else { + print (imname//"1 not accessable") + } + + if (access(imname//"2.imh")) { + writevt (imname//"2", magtape//"1600[2]") + } else { + print (imname//"2 not accessable") + } + + if (access(imname//"3.imh")) { + writevt (imname//"3", magtape//"1600[3]") + } else { + print (imname//"3 not accessable") + } + + if (access(imname//"4.imh")) { + writevt (imname//"4", magtape//"1600[4]") + } else { + print (imname//"4 not accessable") + } + + if (access(imname//"5.imh")) { + writevt (imname//"5", magtape//"1600[5]") + } else { + print (imname//"5 not accessable") + } +} -- cgit