#!/bin/csh
# Written by T.R.Marsh and modified by JKT

\ls *arco.sdf > arco.lis
\ls *opt.sdf  > opt.lis
\ls *skyo.sdf > skyo.lis
\ls *arcn.sdf > arcn.lis
\ls *nor.sdf  > nor.lis
\ls *skyn.sdf > skyn.lis

molly << EOF
confirm
mxpix 4000 SURE
lndf arco.lis 1
arc 1
abort
load
arcmaster.lis
f
c
4
10000
master
confirm
c
2
10000

load
arctweak.lis
tweak
0.2
1 100
3.5
0
co
1 100
0.2
q
hfix 1 1000 WHT
write arco 1 1000 n

lndf opt.lis 1001
hfix 1001 2000 WHT
acal 1001 2000 1 1000 N 1 60 0.0001
write opt 1001 2000 n

lndf skyo.lis 1001
hfix 1001 2000 WHT
acal 1001 2000 1 1000 N 1 60 0.0001
edit 1001 2000
del
Vearth
D
q
write skyo 1001 2000 n

lndf arcn.lis 1
arc 1
co
1 100
0.2
q
hfix 1 1000 WHT
write arcn 1 1000 n

lndf nor.lis 1001
hfix 1001 2000 WHT
acal 1001 2000 1 1000 N 1 60 0.0001
write nor 1001 2000 n

lndf skyn.lis 1001
hfix 1001 2000 WHT
acal 1001 2000 1 1000 N 1 60 0.0001
edit 1001 2000
del
Vearth
D
q
write skyn 1001 2000 n

q
y
EOF

exit

