home *** CD-ROM | disk | FTP | other *** search
Text File | 1991-12-27 | 55.4 KB | 1,663 lines |
- Newsgroups: comp.sources.misc
- From: tcamp@hercules.acpub.duke.edu (Ted Campbell)
- Subject: v27i014: sfs - Space Flight Simulator, Part14/21
- Message-ID: <1991Dec24.191727.20859@sparky.imd.sterling.com>
- X-Md4-Signature: 715bf99874544b90bc324272384a2c76
- Date: Tue, 24 Dec 1991 19:17:27 GMT
- Approved: kent@sparky.imd.sterling.com
-
- Submitted-by: tcamp@hercules.acpub.duke.edu (Ted Campbell)
- Posting-number: Volume 27, Issue 14
- Archive-name: sfs/part14
- Environment: IBMPC && EGA/VGA, UNIX-PC && MGR, UNIX && X11
-
- #!/bin/sh
- # do not concatenate these parts, unpack them in order with /bin/sh
- # file sfs/bin/latlon.spd continued
- #
- if test ! -r _shar_seq_.tmp; then
- echo 'Please unpack part 1 first!'
- exit 1
- fi
- (read Scheck
- if test "$Scheck" != 14; then
- echo Please unpack part "$Scheck" next!
- exit 1
- else
- exit 0
- fi
- ) < _shar_seq_.tmp || exit 1
- if test ! -f _shar_wnt_.tmp; then
- echo 'x - still skipping sfs/bin/latlon.spd'
- else
- echo 'x - continuing file sfs/bin/latlon.spd'
- sed 's/^X//' << 'SHAR_EOF' >> '_shar_tmp_.tmp' &&
- M"38P,#`N,`HU"3(P+C`)-S4N,`DV,#`P+C`*-0DS,"XP"3<U+C`)-C`P,"XP
- M"C4)-#`N,`DW-2XP"38P,#`N,`HU"34P+C`)-S4N,`DV,#`P+C`*-0DV,"XP
- M"3<U+C`)-C`P,"XP"C4)-S`N,`DW-2XP"38P,#`N,`HU"3@P+C`)-S4N,`DV
- M,#`P+C`*-0DY,"XP"3<U+C`)-C`P,"XP"CL*.PEL;VYG:71U9&5S("T@.3!T
- M:"!M97)I9&EA;@H["C$P,#$)+3DP+C`).3`N,`DV,#`P+C`*-0DM.#`N,`DY
- M,"XP"38P,#`N,`HU"2TW,"XP"3DP+C`)-C`P,"XP"C4)+38P+C`).3`N,`DV
- M,#`P+C`*-0DM-3`N,`DY,"XP"38P,#`N,`HU"2TT,"XP"3DP+C`)-C`P,"XP
- M"C4)+3,P+C`).3`N,`DV,#`P+C`*-0DM,C`N,`DY,"XP"38P,#`N,`HU"2TQ
- M,"XP"3DP+C`)-C`P,"XP"C4),"XP"3DP+C`)-C`P,"XP"C4),3`N,`DY,"XP
- M"38P,#`N,`HU"3(P+C`).3`N,`DV,#`P+C`*-0DS,"XP"3DP+C`)-C`P,"XP
- M"C4)-#`N,`DY,"XP"38P,#`N,`HU"34P+C`).3`N,`DV,#`P+C`*-0DV,"XP
- M"3DP+C`)-C`P,"XP"C4)-S`N,`DY,"XP"38P,#`N,`HU"3@P+C`).3`N,`DV
- M,#`P+C`*-0DY,"XP"3DP+C`)-C`P,"XP"CL*.PEL;VYG:71U9&5S("T@,3`U
- M=&@@;65R:61I86X*.PHQ,#`Q"2TY,"XP"3$P-2XP"38P,#`N,`HU"2TX,"XP
- M"3$P-2XP"38P,#`N,`HU"2TW,"XP"3$P-2XP"38P,#`N,`HU"2TV,"XP"3$P
- M-2XP"38P,#`N,`HU"2TU,"XP"3$P-2XP"38P,#`N,`HU"2TT,"XP"3$P-2XP
- M"38P,#`N,`HU"2TS,"XP"3$P-2XP"38P,#`N,`HU"2TR,"XP"3$P-2XP"38P
- M,#`N,`HU"2TQ,"XP"3$P-2XP"38P,#`N,`HU"3`N,`DQ,#4N,`DV,#`P+C`*
- M-0DQ,"XP"3$P-2XP"38P,#`N,`HU"3(P+C`),3`U+C`)-C`P,"XP"C4),S`N
- M,`DQ,#4N,`DV,#`P+C`*-0DT,"XP"3$P-2XP"38P,#`N,`HU"34P+C`),3`U
- M+C`)-C`P,"XP"C4)-C`N,`DQ,#4N,`DV,#`P+C`*-0DW,"XP"3$P-2XP"38P
- M,#`N,`HU"3@P+C`),3`U+C`)-C`P,"XP"C4).3`N,`DQ,#4N,`DV,#`P+C`*
- M.PH["6QO;F=I='5D97,@+2`Q,C!T:"!M97)I9&EA;@H["C$P,#$)+3DP+C`)
- M,3(P+C`)-C`P,"XP"C4)+3@P+C`),3(P+C`)-C`P,"XP"C4)+3<P+C`),3(P
- M+C`)-C`P,"XP"C4)+38P+C`),3(P+C`)-C`P,"XP"C4)+34P+C`),3(P+C`)
- M-C`P,"XP"C4)+30P+C`),3(P+C`)-C`P,"XP"C4)+3,P+C`),3(P+C`)-C`P
- M,"XP"C4)+3(P+C`),3(P+C`)-C`P,"XP"C4)+3$P+C`),3(P+C`)-C`P,"XP
- M"C4),"XP"3$R,"XP"38P,#`N,`HU"3$P+C`),3(P+C`)-C`P,"XP"C4),C`N
- M,`DQ,C`N,`DV,#`P+C`*-0DS,"XP"3$R,"XP"38P,#`N,`HU"30P+C`),3(P
- M+C`)-C`P,"XP"C4)-3`N,`DQ,C`N,`DV,#`P+C`*-0DV,"XP"3$R,"XP"38P
- M,#`N,`HU"3<P+C`),3(P+C`)-C`P,"XP"C4).#`N,`DQ,C`N,`DV,#`P+C`*
- M-0DY,"XP"3$R,"XP"38P,#`N,`H["CL);&]N9VET=61E<R`M(#$S-71H(&UE
- M<FED:6%N"CL*,3`P,0DM.3`N,`DQ,S4N,`DV,#`P+C`*-0DM.#`N,`DQ,S4N
- M,`DV,#`P+C`*-0DM-S`N,`DQ,S4N,`DV,#`P+C`*-0DM-C`N,`DQ,S4N,`DV
- M,#`P+C`*-0DM-3`N,`DQ,S4N,`DV,#`P+C`*-0DM-#`N,`DQ,S4N,`DV,#`P
- M+C`*-0DM,S`N,`DQ,S4N,`DV,#`P+C`*-0DM,C`N,`DQ,S4N,`DV,#`P+C`*
- M-0DM,3`N,`DQ,S4N,`DV,#`P+C`*-0DP+C`),3,U+C`)-C`P,"XP"C4),3`N
- M,`DQ,S4N,`DV,#`P+C`*-0DR,"XP"3$S-2XP"38P,#`N,`HU"3,P+C`),3,U
- M+C`)-C`P,"XP"C4)-#`N,`DQ,S4N,`DV,#`P+C`*-0DU,"XP"3$S-2XP"38P
- M,#`N,`HU"38P+C`),3,U+C`)-C`P,"XP"C4)-S`N,`DQ,S4N,`DV,#`P+C`*
- M-0DX,"XP"3$S-2XP"38P,#`N,`HU"3DP+C`),3,U+C`)-C`P,"XP"CL*.PEL
- M;VYG:71U9&5S("T@,34P=&@@;65R:61I86X*.PHQ,#`Q"2TY,"XP"3$U,"XP
- M"38P,#`N,`HU"2TX,"XP"3$U,"XP"38P,#`N,`HU"2TW,"XP"3$U,"XP"38P
- M,#`N,`HU"2TV,"XP"3$U,"XP"38P,#`N,`HU"2TU,"XP"3$U,"XP"38P,#`N
- M,`HU"2TT,"XP"3$U,"XP"38P,#`N,`HU"2TS,"XP"3$U,"XP"38P,#`N,`HU
- M"2TR,"XP"3$U,"XP"38P,#`N,`HU"2TQ,"XP"3$U,"XP"38P,#`N,`HU"3`N
- M,`DQ-3`N,`DV,#`P+C`*-0DQ,"XP"3$U,"XP"38P,#`N,`HU"3(P+C`),34P
- M+C`)-C`P,"XP"C4),S`N,`DQ-3`N,`DV,#`P+C`*-0DT,"XP"3$U,"XP"38P
- M,#`N,`HU"34P+C`),34P+C`)-C`P,"XP"C4)-C`N,`DQ-3`N,`DV,#`P+C`*
- M-0DW,"XP"3$U,"XP"38P,#`N,`HU"3@P+C`),34P+C`)-C`P,"XP"C4).3`N
- M,`DQ-3`N,`DV,#`P+C`*.PH["6QO;F=I='5D97,@+2`Q-C5T:"!M97)I9&EA
- M;@H["C$P,#$)+3DP+C`),38U+C`)-C`P,"XP"C4)+3@P+C`),38U+C`)-C`P
- M,"XP"C4)+3<P+C`),38U+C`)-C`P,"XP"C4)+38P+C`),38U+C`)-C`P,"XP
- M"C4)+34P+C`),38U+C`)-C`P,"XP"C4)+30P+C`),38U+C`)-C`P,"XP"C4)
- M+3,P+C`),38U+C`)-C`P,"XP"C4)+3(P+C`),38U+C`)-C`P,"XP"C4)+3$P
- M+C`),38U+C`)-C`P,"XP"C4),"XP"3$V-2XP"38P,#`N,`HU"3$P+C`),38U
- M+C`)-C`P,"XP"C4),C`N,`DQ-C4N,`DV,#`P+C`*-0DS,"XP"3$V-2XP"38P
- M,#`N,`HU"30P+C`),38U+C`)-C`P,"XP"C4)-3`N,`DQ-C4N,`DV,#`P+C`*
- M-0DV,"XP"3$V-2XP"38P,#`N,`HU"3<P+C`),38U+C`)-C`P,"XP"C4).#`N
- M,`DQ-C4N,`DV,#`P+C`*-0DY,"XP"3$V-2XP"38P,#`N,`H["CL);&]N9VET
- M=61E<R`M(#$X,'1H(&UE<FED:6%N"CL*,3`P,0DM.3`N,`DQ.#`N,`DV,#`P
- M+C`*-0DM.#`N,`DQ.#`N,`DV,#`P+C`*-0DM-S`N,`DQ.#`N,`DV,#`P+C`*
- M-0DM-C`N,`DQ.#`N,`DV,#`P+C`*-0DM-3`N,`DQ.#`N,`DV,#`P+C`*-0DM
- M-#`N,`DQ.#`N,`DV,#`P+C`*-0DM,S`N,`DQ.#`N,`DV,#`P+C`*-0DM,C`N
- M,`DQ.#`N,`DV,#`P+C`*-0DM,3`N,`DQ.#`N,`DV,#`P+C`*-0DP+C`),3@P
- M+C`)-C`P,"XP"C4),3`N,`DQ.#`N,`DV,#`P+C`*-0DR,"XP"3$X,"XP"38P
- M,#`N,`HU"3,P+C`),3@P+C`)-C`P,"XP"C4)-#`N,`DQ.#`N,`DV,#`P+C`*
- M-0DU,"XP"3$X,"XP"38P,#`N,`HU"38P+C`),3@P+C`)-C`P,"XP"C4)-S`N
- M,`DQ.#`N,`DV,#`P+C`*-0DX,"XP"3$X,"XP"38P,#`N,`HU"3DP+C`),3@P
- M+C`)-C`P,"XP"CL*.PEL;VYG:71U9&5S("T@+3$V-71H(&UE<FED:6%N"CL*
- M,3`P,0DM.3`N,`DM,38U+C`)-C`P,"XP"C4)+3@P+C`)+3$V-2XP"38P,#`N
- M,`HU"2TW,"XP"2TQ-C4N,`DV,#`P+C`*-0DM-C`N,`DM,38U+C`)-C`P,"XP
- M"C4)+34P+C`)+3$V-2XP"38P,#`N,`HU"2TT,"XP"2TQ-C4N,`DV,#`P+C`*
- M-0DM,S`N,`DM,38U+C`)-C`P,"XP"C4)+3(P+C`)+3$V-2XP"38P,#`N,`HU
- M"2TQ,"XP"2TQ-C4N,`DV,#`P+C`*-0DP+C`)+3$V-2XP"38P,#`N,`HU"3$P
- M+C`)+3$V-2XP"38P,#`N,`HU"3(P+C`)+3$V-2XP"38P,#`N,`HU"3,P+C`)
- M+3$V-2XP"38P,#`N,`HU"30P+C`)+3$V-2XP"38P,#`N,`HU"34P+C`)+3$V
- M-2XP"38P,#`N,`HU"38P+C`)+3$V-2XP"38P,#`N,`HU"3<P+C`)+3$V-2XP
- M"38P,#`N,`HU"3@P+C`)+3$V-2XP"38P,#`N,`HU"3DP+C`)+3$V-2XP"38P
- M,#`N,`H["CL);&]N9VET=61E<R`M("TQ-3!T:"!M97)I9&EA;@H["C$P,#$)
- M+3DP+C`)+3$U,"XP"38P,#`N,`HU"2TX,"XP"2TQ-3`N,`DV,#`P+C`*-0DM
- M-S`N,`DM,34P+C`)-C`P,"XP"C4)+38P+C`)+3$U,"XP"38P,#`N,`HU"2TU
- M,"XP"2TQ-3`N,`DV,#`P+C`*-0DM-#`N,`DM,34P+C`)-C`P,"XP"C4)+3,P
- M+C`)+3$U,"XP"38P,#`N,`HU"2TR,"XP"2TQ-3`N,`DV,#`P+C`*-0DM,3`N
- M,`DM,34P+C`)-C`P,"XP"C4),"XP"2TQ-3`N,`DV,#`P+C`*-0DQ,"XP"2TQ
- M-3`N,`DV,#`P+C`*-0DR,"XP"2TQ-3`N,`DV,#`P+C`*-0DS,"XP"2TQ-3`N
- M,`DV,#`P+C`*-0DT,"XP"2TQ-3`N,`DV,#`P+C`*-0DU,"XP"2TQ-3`N,`DV
- M,#`P+C`*-0DV,"XP"2TQ-3`N,`DV,#`P+C`*-0DW,"XP"2TQ-3`N,`DV,#`P
- M+C`*-0DX,"XP"2TQ-3`N,`DV,#`P+C`*-0DY,"XP"2TQ-3`N,`DV,#`P+C`*
- M.PH["6QO;F=I='5D97,@+2`M,3,U=&@@;65R:61I86X*.PHQ,#`Q"2TY,"XP
- M"2TQ,S4N,`DV,#`P+C`*-0DM.#`N,`DM,3,U+C`)-C`P,"XP"C4)+3<P+C`)
- M+3$S-2XP"38P,#`N,`HU"2TV,"XP"2TQ,S4N,`DV,#`P+C`*-0DM-3`N,`DM
- M,3,U+C`)-C`P,"XP"C4)+30P+C`)+3$S-2XP"38P,#`N,`HU"2TS,"XP"2TQ
- M,S4N,`DV,#`P+C`*-0DM,C`N,`DM,3,U+C`)-C`P,"XP"C4)+3$P+C`)+3$S
- M-2XP"38P,#`N,`HU"3`N,`DM,3,U+C`)-C`P,"XP"C4),3`N,`DM,3,U+C`)
- M-C`P,"XP"C4),C`N,`DM,3,U+C`)-C`P,"XP"C4),S`N,`DM,3,U+C`)-C`P
- M,"XP"C4)-#`N,`DM,3,U+C`)-C`P,"XP"C4)-3`N,`DM,3,U+C`)-C`P,"XP
- M"C4)-C`N,`DM,3,U+C`)-C`P,"XP"C4)-S`N,`DM,3,U+C`)-C`P,"XP"C4)
- M.#`N,`DM,3,U+C`)-C`P,"XP"C4).3`N,`DM,3,U+C`)-C`P,"XP"CL*.PEL
- M;VYG:71U9&5S("T@+3$R,'1H(&UE<FED:6%N"CL*,3`P,0DM.3`N,`DM,3(P
- M+C`)-C`P,"XP"C4)+3@P+C`)+3$R,"XP"38P,#`N,`HU"2TW,"XP"2TQ,C`N
- M,`DV,#`P+C`*-0DM-C`N,`DM,3(P+C`)-C`P,"XP"C4)+34P+C`)+3$R,"XP
- M"38P,#`N,`HU"2TT,"XP"2TQ,C`N,`DV,#`P+C`*-0DM,S`N,`DM,3(P+C`)
- M-C`P,"XP"C4)+3(P+C`)+3$R,"XP"38P,#`N,`HU"2TQ,"XP"2TQ,C`N,`DV
- M,#`P+C`*-0DP+C`)+3$R,"XP"38P,#`N,`HU"3$P+C`)+3$R,"XP"38P,#`N
- M,`HU"3(P+C`)+3$R,"XP"38P,#`N,`HU"3,P+C`)+3$R,"XP"38P,#`N,`HU
- M"30P+C`)+3$R,"XP"38P,#`N,`HU"34P+C`)+3$R,"XP"38P,#`N,`HU"38P
- M+C`)+3$R,"XP"38P,#`N,`HU"3<P+C`)+3$R,"XP"38P,#`N,`HU"3@P+C`)
- M+3$R,"XP"38P,#`N,`HU"3DP+C`)+3$R,"XP"38P,#`N,`H["CL);&]N9VET
- M=61E<R`M("TQ,#5T:"!M97)I9&EA;@H["C$P,#$)+3DP+C`)+3$P-2XP"38P
- M,#`N,`HU"2TX,"XP"2TQ,#4N,`DV,#`P+C`*-0DM-S`N,`DM,3`U+C`)-C`P
- M,"XP"C4)+38P+C`)+3$P-2XP"38P,#`N,`HU"2TU,"XP"2TQ,#4N,`DV,#`P
- M+C`*-0DM-#`N,`DM,3`U+C`)-C`P,"XP"C4)+3,P+C`)+3$P-2XP"38P,#`N
- M,`HU"2TR,"XP"2TQ,#4N,`DV,#`P+C`*-0DM,3`N,`DM,3`U+C`)-C`P,"XP
- M"C4),"XP"2TQ,#4N,`DV,#`P+C`*-0DQ,"XP"2TQ,#4N,`DV,#`P+C`*-0DR
- M,"XP"2TQ,#4N,`DV,#`P+C`*-0DS,"XP"2TQ,#4N,`DV,#`P+C`*-0DT,"XP
- M"2TQ,#4N,`DV,#`P+C`*-0DU,"XP"2TQ,#4N,`DV,#`P+C`*-0DV,"XP"2TQ
- M,#4N,`DV,#`P+C`*-0DW,"XP"2TQ,#4N,`DV,#`P+C`*-0DX,"XP"2TQ,#4N
- M,`DV,#`P+C`*-0DY,"XP"2TQ,#4N,`DV,#`P+C`*.PH["6QO;F=I='5D97,@
- M+2`M.3!T:"!M97)I9&EA;@H["C$P,#$)+3DP+C`)+3DP+C`)-C`P,"XP"C4)
- M+3@P+C`)+3DP+C`)-C`P,"XP"C4)+3<P+C`)+3DP+C`)-C`P,"XP"C4)+38P
- M+C`)+3DP+C`)-C`P,"XP"C4)+34P+C`)+3DP+C`)-C`P,"XP"C4)+30P+C`)
- M+3DP+C`)-C`P,"XP"C4)+3,P+C`)+3DP+C`)-C`P,"XP"C4)+3(P+C`)+3DP
- M+C`)-C`P,"XP"C4)+3$P+C`)+3DP+C`)-C`P,"XP"C4),"XP"2TY,"XP"38P
- M,#`N,`HU"3$P+C`)+3DP+C`)-C`P,"XP"C4),C`N,`DM.3`N,`DV,#`P+C`*
- M-0DS,"XP"2TY,"XP"38P,#`N,`HU"30P+C`)+3DP+C`)-C`P,"XP"C4)-3`N
- M,`DM.3`N,`DV,#`P+C`*-0DV,"XP"2TY,"XP"38P,#`N,`HU"3<P+C`)+3DP
- M+C`)-C`P,"XP"C4).#`N,`DM.3`N,`DV,#`P+C`*-0DY,"XP"2TY,"XP"38P
- M,#`N,`H["CL);&]N9VET=61E<R`M("TW-71H(&UE<FED:6%N"CL*,3`P,0DM
- M.3`N,`DM-S4N,`DV,#`P+C`*-0DM.#`N,`DM-S4N,`DV,#`P+C`*-0DM-S`N
- M,`DM-S4N,`DV,#`P+C`*-0DM-C`N,`DM-S4N,`DV,#`P+C`*-0DM-3`N,`DM
- M-S4N,`DV,#`P+C`*-0DM-#`N,`DM-S4N,`DV,#`P+C`*-0DM,S`N,`DM-S4N
- M,`DV,#`P+C`*-0DM,C`N,`DM-S4N,`DV,#`P+C`*-0DM,3`N,`DM-S4N,`DV
- M,#`P+C`*-0DP+C`)+3<U+C`)-C`P,"XP"C4),3`N,`DM-S4N,`DV,#`P+C`*
- M-0DR,"XP"2TW-2XP"38P,#`N,`HU"3,P+C`)+3<U+C`)-C`P,"XP"C4)-#`N
- M,`DM-S4N,`DV,#`P+C`*-0DU,"XP"2TW-2XP"38P,#`N,`HU"38P+C`)+3<U
- M+C`)-C`P,"XP"C4)-S`N,`DM-S4N,`DV,#`P+C`*-0DX,"XP"2TW-2XP"38P
- M,#`N,`HU"3DP+C`)+3<U+C`)-C`P,"XP"CL*.PEL;VYG:71U9&5S("T@+38P
- M=&@@;65R:61I86X*.PHQ,#`Q"2TY,"XP"2TV,"XP"38P,#`N,`HU"2TX,"XP
- M"2TV,"XP"38P,#`N,`HU"2TW,"XP"2TV,"XP"38P,#`N,`HU"2TV,"XP"2TV
- M,"XP"38P,#`N,`HU"2TU,"XP"2TV,"XP"38P,#`N,`HU"2TT,"XP"2TV,"XP
- M"38P,#`N,`HU"2TS,"XP"2TV,"XP"38P,#`N,`HU"2TR,"XP"2TV,"XP"38P
- M,#`N,`HU"2TQ,"XP"2TV,"XP"38P,#`N,`HU"3`N,`DM-C`N,`DV,#`P+C`*
- M-0DQ,"XP"2TV,"XP"38P,#`N,`HU"3(P+C`)+38P+C`)-C`P,"XP"C4),S`N
- M,`DM-C`N,`DV,#`P+C`*-0DT,"XP"2TV,"XP"38P,#`N,`HU"34P+C`)+38P
- M+C`)-C`P,"XP"C4)-C`N,`DM-C`N,`DV,#`P+C`*-0DW,"XP"2TV,"XP"38P
- M,#`N,`HU"3@P+C`)+38P+C`)-C`P,"XP"C4).3`N,`DM-C`N,`DV,#`P+C`*
- M.PH["6QO;F=I='5D97,@+2`M-#5T:"!M97)I9&EA;@H["C$P,#$)+3DP+C`)
- M+30U+C`)-C`P,"XP"C4)+3@P+C`)+30U+C`)-C`P,"XP"C4)+3<P+C`)+30U
- M+C`)-C`P,"XP"C4)+38P+C`)+30U+C`)-C`P,"XP"C4)+34P+C`)+30U+C`)
- M-C`P,"XP"C4)+30P+C`)+30U+C`)-C`P,"XP"C4)+3,P+C`)+30U+C`)-C`P
- M,"XP"C4)+3(P+C`)+30U+C`)-C`P,"XP"C4)+3$P+C`)+30U+C`)-C`P,"XP
- M"C4),"XP"2TT-2XP"38P,#`N,`HU"3$P+C`)+30U+C`)-C`P,"XP"C4),C`N
- M,`DM-#4N,`DV,#`P+C`*-0DS,"XP"2TT-2XP"38P,#`N,`HU"30P+C`)+30U
- M+C`)-C`P,"XP"C4)-3`N,`DM-#4N,`DV,#`P+C`*-0DV,"XP"2TT-2XP"38P
- M,#`N,`HU"3<P+C`)+30U+C`)-C`P,"XP"C4).#`N,`DM-#4N,`DV,#`P+C`*
- M-0DY,"XP"2TT-2XP"38P,#`N,`H["CL);&]N9VET=61E<R`M("TS,'1H(&UE
- M<FED:6%N"CL*,3`P,0DM.3`N,`DM,S`N,`DV,#`P+C`*-0DM.#`N,`DM,S`N
- M,`DV,#`P+C`*-0DM-S`N,`DM,S`N,`DV,#`P+C`*-0DM-C`N,`DM,S`N,`DV
- M,#`P+C`*-0DM-3`N,`DM,S`N,`DV,#`P+C`*-0DM-#`N,`DM,S`N,`DV,#`P
- M+C`*-0DM,S`N,`DM,S`N,`DV,#`P+C`*-0DM,C`N,`DM,S`N,`DV,#`P+C`*
- M-0DM,3`N,`DM,S`N,`DV,#`P+C`*-0DP+C`)+3,P+C`)-C`P,"XP"C4),3`N
- M,`DM,S`N,`DV,#`P+C`*-0DR,"XP"2TS,"XP"38P,#`N,`HU"3,P+C`)+3,P
- M+C`)-C`P,"XP"C4)-#`N,`DM,S`N,`DV,#`P+C`*-0DU,"XP"2TS,"XP"38P
- M,#`N,`HU"38P+C`)+3,P+C`)-C`P,"XP"C4)-S`N,`DM,S`N,`DV,#`P+C`*
- M-0DX,"XP"2TS,"XP"38P,#`N,`HU"3DP+C`)+3,P+C`)-C`P,"XP"CL*.PEL
- M;VYG:71U9&5S("T@+3$U=&@@;65R:61I86X*.PHQ,#`Q"2TY,"XP"2TQ-2XP
- M"38P,#`N,`HU"2TX,"XP"2TQ-2XP"38P,#`N,`HU"2TW,"XP"2TQ-2XP"38P
- M,#`N,`HU"2TV,"XP"2TQ-2XP"38P,#`N,`HU"2TU,"XP"2TQ-2XP"38P,#`N
- M,`HU"2TT,"XP"2TQ-2XP"38P,#`N,`HU"2TS,"XP"2TQ-2XP"38P,#`N,`HU
- M"2TR,"XP"2TQ-2XP"38P,#`N,`HU"2TQ,"XP"2TQ-2XP"38P,#`N,`HU"3`N
- M,`DM,34N,`DV,#`P+C`*-0DQ,"XP"2TQ-2XP"38P,#`N,`HU"3(P+C`)+3$U
- M+C`)-C`P,"XP"C4),S`N,`DM,34N,`DV,#`P+C`*-0DT,"XP"2TQ-2XP"38P
- M,#`N,`HU"34P+C`)+3$U+C`)-C`P,"XP"C4)-C`N,`DM,34N,`DV,#`P+C`*
- M-0DW,"XP"2TQ-2XP"38P,#`N,`HU"3@P+C`)+3$U+C`)-C`P,"XP"C4).3`N
- 0,`DM,34N,`DV,#`P+C`*&C`N
- `
- end
- SHAR_EOF
- echo 'File sfs/bin/latlon.spd is complete' &&
- echo 'uudecoding file sfs/bin/latlon.spd' &&
- uudecode < _shar_tmp_.tmp && rm -f _shar_tmp_.tmp &&
- chmod 0644 sfs/bin/latlon.spd ||
- echo 'restore of sfs/bin/latlon.spd failed'
- Wc_c="`wc -c < 'sfs/bin/latlon.spd'`"
- test 18871 -eq "$Wc_c" ||
- echo 'sfs/bin/latlon.spd: original size 18871, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/bin/mars.fd ==============
- if test -f 'sfs/bin/mars.fd' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/bin/mars.fd (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/bin/mars.fd (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/bin/mars.fd' &&
- Mars
- martian
- 3400
- 0.108
- 88643
- SHAR_EOF
- chmod 0644 sfs/bin/mars.fd ||
- echo 'restore of sfs/bin/mars.fd failed'
- Wc_c="`wc -c < 'sfs/bin/mars.fd'`"
- test 30 -eq "$Wc_c" ||
- echo 'sfs/bin/mars.fd: original size 30, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/bin/mars.sfs ==============
- if test -f 'sfs/bin/mars.sfs' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/bin/mars.sfs (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/bin/mars.sfs (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/bin/mars.sfs' &&
- ;---------------------------------------
- ; mars.sfs
- ; created Sat May 04 15:11:12 1991
- ;---------------------------------------
- Orbit around Mars
- tfactor 5
- update 120
- trig 1
- insertion 6000
- ;---------------------------------------
- ; parameters for orbit 1
- ;---------------------------------------
- name 1 mars_orbiter
- focus 1 mars.fd
- periapsis 1 200.000000
- apoapsis 1 4000.000000
- inclination 1 25.000000
- argper 1 15.000000
- lonan 1 -45.000000
- orb 1 orb.spd
- grid 1 latlon.spd
- surface 1 mars.spd
- ;---------------------------------------
- ; end of file mars.sfs
- ;---------------------------------------
- SHAR_EOF
- chmod 0644 sfs/bin/mars.sfs ||
- echo 'restore of sfs/bin/mars.sfs failed'
- Wc_c="`wc -c < 'sfs/bin/mars.sfs'`"
- test 613 -eq "$Wc_c" ||
- echo 'sfs/bin/mars.sfs: original size 613, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/bin/mars.spd ==============
- if test -f 'sfs/bin/mars.spd' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/bin/mars.spd (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/bin/mars.spd (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/bin/mars.spd' &&
- ; mars.spd
- ;
- ; map of martian surface features
- ;
- ;----------------------------------------------------------------
- ;
- ; Olympus Mons
- ;
- 1001 20.000000 -132.573190 0.000000
- 5 19.583333 -133.959938 0.000000
- 5 17.916667 -134.514638 0.000000
- 5 17.083333 -134.237288 0.000000
- 5 16.666667 -133.405239 0.000000
- 5 16.250000 -133.405239 0.000000
- 5 17.083333 -132.018490 0.000000
- 5 17.500000 -131.741140 0.000000
- 5 20.000000 -132.850539 0.000000
- 5 20.000000 -132.850539 0.000000
- 1001 22.916667 -135.069337 0.000000
- 5 20.000000 -138.120185 0.000000
- 5 17.916667 -139.229584 0.000000
- 5 16.666667 -139.506934 0.000000
- 5 15.416667 -137.010786 0.000000
- 5 13.750000 -135.346687 0.000000
- 5 14.166667 -133.959938 0.000000
- 5 14.166667 -132.573190 0.000000
- 5 15.000000 -130.909091 0.000000
- 5 17.500000 -129.244992 0.000000
- 5 20.416667 -129.522342 0.000000
- 5 22.083333 -130.909091 0.000000
- 5 23.333333 -135.346687 0.000000
- 5 23.333333 -135.346687 0.000000
- ;----------------------------------------------------------------
- ;
- ; Nicholson crater
- ;
- 1001 3.750000 -163.081664 0.000000
- 5 3.333333 -164.468413 0.000000
- 5 2.500000 -165.023112 0.000000
- 5 1.250000 -164.191063 0.000000
- 5 1.250000 -163.359014 0.000000
- 5 1.666667 -162.526965 0.000000
- 5 3.750000 -163.081664 0.000000
- 5 3.750000 -163.081664 0.000000
- ;----------------------------------------------------------------
- ;
- ; Petit crater
- ;
- 1001 13.333333 -176.394453 0.000000
- 5 12.916667 -178.058552 0.000000
- 5 11.666667 -178.613251 0.000000
- 5 10.833333 -178.058552 0.000000
- 5 10.833333 -177.503852 0.000000
- 5 10.833333 -176.671803 0.000000
- 5 11.666667 -175.839753 0.000000
- 5 12.916667 -176.671803 0.000000
- 5 12.916667 -176.671803 0.000000
- 1001 12.083333 -177.503852 0.000000
- ;----------------------------------------------------------------
- ;
- ; Ascraeus Mons
- ;
- 1001 10.833333 -103.728814 0.000000
- 5 10.416667 -104.560863 0.000000
- 5 9.166667 -104.283513 0.000000
- 5 9.166667 -103.728814 0.000000
- 5 10.833333 -104.006163 0.000000
- 5 10.833333 -104.006163 0.000000
- 1001 12.916667 -105.115562 0.000000
- 5 12.083333 -107.611710 0.000000
- 5 10.000000 -108.998459 0.000000
- 5 7.916667 -108.721109 0.000000
- 5 6.666667 -107.889060 0.000000
- 5 6.250000 -105.947612 0.000000
- 5 6.666667 -104.283513 0.000000
- 5 7.916667 -102.342065 0.000000
- 5 10.416667 -102.342065 0.000000
- 5 12.083333 -104.838213 0.000000
- 5 12.083333 -104.838213 0.000000
- ;----------------------------------------------------------------
- ;
- ; Lyot Crater
- ;
- 1001 53.750000 29.676425 0.000000
- 5 53.333333 27.734977 0.000000
- 5 52.083333 26.348228 0.000000
- 5 50.833333 25.793529 0.000000
- 5 49.583333 25.793529 0.000000
- 5 48.750000 26.070878 0.000000
- 5 47.916667 26.902928 0.000000
- 5 47.500000 28.012327 0.000000
- 5 47.083333 28.844376 0.000000
- 5 46.666667 29.953775 0.000000
- 5 47.083333 31.063174 0.000000
- 5 47.500000 31.895223 0.000000
- 5 49.166667 33.004622 0.000000
- 5 50.833333 32.727273 0.000000
- 5 52.500000 31.895223 0.000000
- 5 53.750000 30.231125 0.000000
- 5 53.750000 30.231125 0.000000
- ;----------------------------------------------------------------
- ;
- ; Cassini Crater
- ;
- 1001 27.083333 29.676425 0.000000
- 5 26.250000 28.289676 0.000000
- 5 24.583333 28.012327 0.000000
- 5 23.333333 28.567026 0.000000
- 5 22.500000 29.399076 0.000000
- 5 22.083333 29.953775 0.000000
- 5 21.666667 31.340524 0.000000
- 5 21.666667 32.727273 0.000000
- 5 23.333333 34.114022 0.000000
- 5 25.416667 34.391371 0.000000
- 5 26.666667 32.727273 0.000000
- 5 27.083333 29.953775 0.000000
- 5 27.083333 29.953775 0.000000
- ;----------------------------------------------------------------
- ;
- ; Quenisset Crater
- ;
- 1001 38.333333 40.770416 0.000000
- 5 37.916667 39.661017 0.000000
- 5 36.250000 39.106317 0.000000
- 5 35.416667 39.661017 0.000000
- 5 35.833333 40.493066 0.000000
- 5 34.583333 39.661017 0.000000
- 5 35.000000 40.770416 0.000000
- 5 35.416667 41.879815 0.000000
- 5 36.666667 42.434515 0.000000
- 5 38.333333 40.493066 0.000000
- 5 38.333333 40.493066 0.000000
- ;----------------------------------------------------------------
- ;
- ; Flammarion Crater
- ;
- 1001 27.500000 49.368259 0.000000
- 5 27.083333 47.704160 0.000000
- 5 26.250000 47.149461 0.000000
- 5 25.416667 47.149461 0.000000
- 5 24.583333 47.426810 0.000000
- 5 24.166667 48.536210 0.000000
- 5 25.000000 49.645609 0.000000
- 5 27.500000 49.645609 0.000000
- 5 27.500000 49.645609 0.000000
- ;----------------------------------------------------------------
- ;
- ; Baldet Crater
- ;
- 1001 37.083333 64.622496 0.000000
- 5 36.250000 63.513097 0.000000
- 5 35.416667 63.513097 0.000000
- 5 34.583333 64.622496 0.000000
- 5 35.416667 65.177196 0.000000
- 5 37.083333 64.622496 0.000000
- 5 37.083333 64.622496 0.000000
- ;----------------------------------------------------------------
- ;
- ; Antoniadi Crater
- ;
- 1001 37.083333 63.513097 0.000000
- 5 38.333333 62.126348 0.000000
- 5 38.750000 60.462250 0.000000
- 5 38.333333 58.520801 0.000000
- 5 37.083333 57.966102 0.000000
- 5 34.583333 57.966102 0.000000
- 5 33.333333 59.075501 0.000000
- 5 32.916667 60.739599 0.000000
- 5 33.750000 62.681048 0.000000
- 5 34.583333 63.513097 0.000000
- 5 34.583333 63.513097 0.000000
- ;----------------------------------------------------------------
- ;
- ; Mie Crater
- ;
- 1001 50.000000 138.120185 0.000000
- 5 49.583333 137.010786 0.000000
- 5 48.333333 136.456086 0.000000
- 5 47.916667 136.456086 0.000000
- 5 47.500000 137.565485 0.000000
- 5 47.083333 137.842835 0.000000
- 5 47.916667 138.674884 0.000000
- 5 48.333333 138.952234 0.000000
- 5 50.000000 138.120185 0.000000
- 5 50.000000 138.120185 0.000000
- ;----------------------------------------------------------------
- ;
- ; Hecates Tholus
- ;
- 1001 40.416667 149.491525 0.000000
- 5 38.750000 148.382126 0.000000
- 5 37.916667 147.550077 0.000000
- 5 36.250000 147.550077 0.000000
- 5 35.000000 148.104777 0.000000
- 5 34.166667 148.936826 0.000000
- 5 33.750000 150.046225 0.000000
- 5 34.166667 151.432974 0.000000
- 5 35.000000 153.097072 0.000000
- 5 37.500000 153.374422 0.000000
- 5 36.166667 153.374422 0.000000
- 5 37.416667 151.987673 0.000000
- 5 38.416667 149.214176 0.000000
- 5 40.416667 149.414176 0.000000
- ;----------------------------------------------------------------
- ;
- ; Albor Tholus
- ;
- 1001 20.416667 149.491525 0.000000
- 5 19.583333 148.104777 0.000000
- 5 18.333333 148.104777 0.000000
- 5 17.500000 149.491525 0.000000
- 5 17.500000 150.600924 0.000000
- 5 19.166667 151.432974 0.000000
- 5 20.416667 149.491525 0.000000
- 5 20.416667 149.491525 0.000000
- ;----------------------------------------------------------------
- ;
- ; Arsia Mons
- ;
- 1001 -7.916667 -123.697997 0.000000
- 5 -8.750000 -125.084746 0.000000
- 5 -9.166667 -125.639445 0.000000
- 5 -10.416667 -125.916795 0.000000
- 5 -11.250000 -125.362096 0.000000
- 5 -11.666667 -124.530046 0.000000
- 5 -12.083333 -123.697997 0.000000
- 5 -12.083333 -122.588598 0.000000
- 5 -11.250000 -121.479199 0.000000
- 5 -10.416667 -120.647149 0.000000
- 5 -9.166667 -120.647149 0.000000
- 5 -8.333333 -121.201849 0.000000
- 5 -7.916667 -123.420647 0.000000
- 5 -7.916667 -123.420647 0.000000
- 1001 -7.916667 -120.369800 0.000000
- 5 -6.666667 -122.033898 0.000000
- 5 -5.000000 -124.530046 0.000000
- 5 -3.750000 -126.194145 0.000000
- 5 -4.583333 -127.580894 0.000000
- 5 -5.416667 -128.690293 0.000000
- 5 -7.916667 -129.244992 0.000000
- 5 -10.000000 -128.690293 0.000000
- 5 -11.250000 -128.690293 0.000000
- 5 -13.333333 -127.580894 0.000000
- 5 -13.750000 -125.916795 0.000000
- 5 -13.333333 -123.975347 0.000000
- 5 -12.916667 -122.311248 0.000000
- 5 -12.916667 -121.756549 0.000000
- 5 -12.083333 -120.092450 0.000000
- 5 -11.666667 -119.537750 0.000000
- 5 -9.166667 -119.815100 0.000000
- 5 -9.166667 -119.815100 0.000000
- ;----------------------------------------------------------------
- ;
- ; Lowell Crater
- ;
- 1001 -48.750000 -80.986133 0.000000
- 5 -49.166667 -82.927581 0.000000
- 5 -50.416667 -83.482280 0.000000
- 5 -51.250000 -83.759630 0.000000
- 5 -52.500000 -83.204931 0.000000
- 5 -52.916667 -82.372881 0.000000
- 5 -52.500000 -81.263482 0.000000
- 5 -52.500000 -79.044684 0.000000
- 5 -51.250000 -78.767334 0.000000
- 5 -48.750000 -80.431433 0.000000
- 5 -48.750000 -80.431433 0.000000
- 1001 -47.083333 -81.263482 0.000000
- 5 -47.916667 -84.314330 0.000000
- 5 -48.750000 -85.146379 0.000000
- 5 -51.250000 -85.146379 0.000000
- 5 -53.333333 -85.146379 0.000000
- 5 -53.750000 -83.482280 0.000000
- 5 -54.166667 -81.263482 0.000000
- 5 -54.166667 -79.322034 0.000000
- 5 -52.083333 -77.657935 0.000000
- 5 -50.833333 -77.380586 0.000000
- 5 -48.333333 -77.657935 0.000000
- 5 -47.500000 -78.489985 0.000000
- 5 -47.083333 -80.986133 0.000000
- 5 -47.083333 -80.986133 0.000000
- ;----------------------------------------------------------------
- ;
- ; Copernicus Crater
- ;
- 1001 -45.833333 -170.292758 0.000000
- 5 -46.666667 -172.234206 0.000000
- 5 -48.333333 -173.066256 0.000000
- 5 -50.416667 -173.620955 0.000000
- 5 -51.666667 -172.234206 0.000000
- 5 -52.083333 -170.847458 0.000000
- 5 -51.250000 -168.906009 0.000000
- 5 -50.000000 -167.519260 0.000000
- 5 -47.500000 -167.796610 0.000000
- 5 -45.833333 -170.015408 0.000000
- 5 -45.833333 -170.015408 0.000000
- ;----------------------------------------------------------------
- ;
- ; Barnard Crater
- ;
- 1001 -61.250000 63.235747 0.000000
- 5 -61.250000 61.848998 0.000000
- 5 -61.666667 61.016949 0.000000
- 5 -62.500000 60.739599 0.000000
- 5 -63.750000 61.016949 0.000000
- 5 -64.166667 61.571649 0.000000
- 5 -64.583333 62.681048 0.000000
- 5 -63.750000 64.067797 0.000000
- 5 -62.500000 64.067797 0.000000
- 5 -61.250000 63.235747 0.000000
- 5 -61.250000 63.235747 0.000000
- ;----------------------------------------------------------------
- ;
- ; Huygens Crater
- ;
- 1001 -15.000000 61.294299 0.000000
- 5 -12.916667 61.016949 0.000000
- 5 -11.666667 60.462250 0.000000
- 5 -11.250000 59.907550 0.000000
- 5 -9.583333 58.520801 0.000000
- 5 -9.583333 55.469954 0.000000
- 5 -9.583333 53.251156 0.000000
- 5 -11.250000 51.864407 0.000000
- 5 -12.916667 51.309707 0.000000
- 5 -15.416667 51.032357 0.000000
- 5 -17.083333 52.141757 0.000000
- 5 -18.333333 54.083205 0.000000
- 5 -18.750000 56.579353 0.000000
- 5 -18.333333 58.243451 0.000000
- 5 -15.416667 60.739599 0.000000
- 5 -15.416667 60.739599 0.000000
- ;----------------------------------------------------------------
- ;
- ; Kepler Crater
- ;
- 1001 -46.250000 140.616333 0.000000
- 5 -46.250000 138.674884 0.000000
- 5 -47.500000 137.288136 0.000000
- 5 -48.333333 137.010786 0.000000
- 5 -50.000000 137.288136 0.000000
- 5 -50.416667 138.397535 0.000000
- 5 -50.833333 139.506934 0.000000
- 5 -50.416667 140.893683 0.000000
- 5 -49.166667 141.725732 0.000000
- 5 -46.250000 140.616333 0.000000
- 5 -46.250000 140.616333 0.000000
- ;----------------------------------------------------------------
- ;
- ; Hellas Planitia
- ;
- 1001 -45.000000 89.861325 0.000000
- 5 -40.416667 88.474576 0.000000
- 5 -35.000000 84.036980 0.000000
- 5 -32.916667 79.876733 0.000000
- 5 -31.666667 76.825886 0.000000
- 5 -31.250000 74.884438 0.000000
- 5 -29.583333 68.228043 0.000000
- 5 -29.166667 64.622496 0.000000
- 5 -30.000000 59.907550 0.000000
- 5 -31.250000 54.637904 0.000000
- 5 -34.583333 49.368259 0.000000
- 5 -38.333333 47.149461 0.000000
- 5 -42.916667 46.040062 0.000000
- 5 -51.250000 47.426810 0.000000
- 5 -53.333333 51.864407 0.000000
- 5 -55.416667 54.637904 0.000000
- 5 -58.333333 58.520801 0.000000
- 5 -60.416667 61.571649 0.000000
- 5 -62.083333 64.899846 0.000000
- 5 -62.083333 71.556240 0.000000
- 5 -61.250000 76.271186 0.000000
- 5 -59.166667 79.322034 0.000000
- 5 -57.083333 82.095532 0.000000
- 5 -54.583333 86.255778 0.000000
- 5 -52.083333 87.919877 0.000000
- 5 -46.250000 90.138675 0.000000
- 5 -46.250000 90.138675 0.000000
- ;----------------------------------------------------------------
- ;
- ; Argyre Planitia
- ;
- 1001 -50.833333 -32.172573 0.000000
- 5 -49.166667 -33.559322 0.000000
- 5 -46.666667 -36.332820 0.000000
- 5 -46.250000 -38.551618 0.000000
- 5 -44.166667 -41.325116 0.000000
- 5 -43.750000 -44.098613 0.000000
- 5 -43.750000 -46.317411 0.000000
- 5 -45.000000 -47.704160 0.000000
- 5 -47.083333 -49.368259 0.000000
- 5 -48.333333 -50.755008 0.000000
- 5 -50.000000 -51.032357 0.000000
- 5 -54.166667 -52.141757 0.000000
- 5 -56.666667 -49.645609 0.000000
- 5 -57.916667 -47.426810 0.000000
- 5 -59.166667 -43.821263 0.000000
- 5 -57.916667 -40.493066 0.000000
- 5 -57.500000 -36.610169 0.000000
- 5 -55.833333 -34.391371 0.000000
- 5 -51.250000 -32.449923 0.000000
- 5 -51.250000 -32.449923 0.000000
- ;----------------------------------------------------------------
- ;
- ; Syrtis Major Planitia
- ;
- 1001 0.416667 57.134052 0.000000
- 5 2.916667 58.520801 0.000000
- 5 5.416667 59.630200 0.000000
- 5 7.916667 60.462250 0.000000
- 5 10.416667 60.739599 0.000000
- 5 12.083333 61.571649 0.000000
- 5 15.416667 61.848998 0.000000
- 5 17.500000 66.009245 0.000000
- 5 18.750000 67.673344 0.000000
- 5 20.416667 72.388290 0.000000
- 5 21.250000 74.607088 0.000000
- 5 20.833333 77.657935 0.000000
- 5 19.166667 79.599384 0.000000
- 5 15.833333 80.708783 0.000000
- 5 15.000000 80.708783 0.000000
- 5 14.166667 79.044684 0.000000
- 5 12.500000 77.103236 0.000000
- 5 9.583333 76.271186 0.000000
- 5 7.083333 77.657935 0.000000
- 5 5.416667 80.154083 0.000000
- 5 4.583333 82.927581 0.000000
- 5 2.916667 85.978428 0.000000
- 5 2.083333 88.474576 0.000000
- 5 1.666667 90.416025 0.000000
- 5 0.416667 92.357473 0.000000
- 5 -2.083333 91.802773 0.000000
- 5 -3.750000 84.869029 0.000000
- 5 -3.750000 74.329738 0.000000
- 5 -2.916667 66.563945 0.000000
- 5 -2.500000 58.798151 0.000000
- 5 0.000000 56.856703 0.000000
- 5 0.000000 56.856703 0.000000
- SHAR_EOF
- chmod 0644 sfs/bin/mars.spd ||
- echo 'restore of sfs/bin/mars.spd failed'
- Wc_c="`wc -c < 'sfs/bin/mars.spd'`"
- test 13105 -eq "$Wc_c" ||
- echo 'sfs/bin/mars.spd: original size 13105, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/bin/mercury.fd ==============
- if test -f 'sfs/bin/mercury.fd' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/bin/mercury.fd (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/bin/mercury.fd (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/bin/mercury.fd' &&
- Mercury
- mercurian
- 2420
- 0.056
- 5068800
- SHAR_EOF
- chmod 0644 sfs/bin/mercury.fd ||
- echo 'restore of sfs/bin/mercury.fd failed'
- Wc_c="`wc -c < 'sfs/bin/mercury.fd'`"
- test 37 -eq "$Wc_c" ||
- echo 'sfs/bin/mercury.fd: original size 37, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/bin/meridian.spd ==============
- if test -f 'sfs/bin/meridian.spd' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/bin/meridian.spd (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/bin/meridian.spd (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/bin/meridian.spd' &&
- ; meridian.spd
- ;
- ; display single central meridian
- ;
- ;
- ; longitudes - 0th meridian (central meridian)
- ;
- 1001 -90.0 0.0 6000.0
- 5 -80.0 0.0 6000.0
- 5 -70.0 0.0 6000.0
- 5 -60.0 0.0 6000.0
- 5 -50.0 0.0 6000.0
- 5 -40.0 0.0 6000.0
- 5 -30.0 0.0 6000.0
- 5 -20.0 0.0 6000.0
- 5 -10.0 0.0 6000.0
- 5 0.0 0.0 6000.0
- 5 10.0 0.0 6000.0
- 5 20.0 0.0 6000.0
- 5 30.0 0.0 6000.0
- 5 40.0 0.0 6000.0
- 5 50.0 0.0 6000.0
- 5 60.0 0.0 6000.0
- 5 70.0 0.0 6000.0
- 5 80.0 0.0 6000.0
- 5 90.0 0.0 6000.0
- X
- SHAR_EOF
- chmod 0644 sfs/bin/meridian.spd ||
- echo 'restore of sfs/bin/meridian.spd failed'
- Wc_c="`wc -c < 'sfs/bin/meridian.spd'`"
- test 458 -eq "$Wc_c" ||
- echo 'sfs/bin/meridian.spd: original size 458, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/bin/moon.fd ==============
- if test -f 'sfs/bin/moon.fd' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/bin/moon.fd (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/bin/moon.fd (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/bin/moon.fd' &&
- the Moon
- lunar
- 1738
- 0.012290
- 2350591
- SHAR_EOF
- chmod 0644 sfs/bin/moon.fd ||
- echo 'restore of sfs/bin/moon.fd failed'
- Wc_c="`wc -c < 'sfs/bin/moon.fd'`"
- test 37 -eq "$Wc_c" ||
- echo 'sfs/bin/moon.fd: original size 37, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/bin/moon.sfs ==============
- if test -f 'sfs/bin/moon.sfs' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/bin/moon.sfs (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/bin/moon.sfs (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/bin/moon.sfs' &&
- ;---------------------------------------
- ; moon.sfs
- ; created Sun Jan 06 15:40:52 1991
- ;---------------------------------------
- Orbit around the Moon
- tfactor 5
- update 120
- trig 1
- insertion 0
- ;---------------------------------------
- ; parameters for orbit 1
- ;---------------------------------------
- name 1 spacecraft
- focus 1 moon.fd
- periapsis 1 637.800000
- apoapsis 1 25512.000000
- inclination 1 30.000000
- argper 1 0.000000
- lonan 1 60.000000
- orb 1 orb.spd
- grid 1 latlon.spd
- surface 1 null.spd
- ;---------------------------------------
- ; end of file moon.sfs
- ;---------------------------------------
- SHAR_EOF
- chmod 0644 sfs/bin/moon.sfs ||
- echo 'restore of sfs/bin/moon.sfs failed'
- Wc_c="`wc -c < 'sfs/bin/moon.sfs'`"
- test 609 -eq "$Wc_c" ||
- echo 'sfs/bin/moon.sfs: original size 609, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/bin/nasa.spd ==============
- if test -f 'sfs/bin/nasa.spd' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/bin/nasa.spd (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/bin/nasa.spd (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/bin/nasa.spd' &&
- NASA tracking sites
- 28.5 -80.5 6327.0 MIL
- -33.0 -70.1 6327.0 AGO
- 32.5 -64.5 6327.0 BDA
- 14.5 -17.0 6327.0 DKR
- -8.0 -14.5 6327.0 ACN
- 41.0 -4.0 6327.0 MAX
- -4.5 56.0 6327.0 IOS
- -29.0 115.5 6327.0 YAR
- 14.0 145.0 6327.0 GWM
- -35.5 149.0 6327.0 CAN
- 22.5 -159.5 6327.0 HAW
- 36.0 -117.0 6327.0 GDX
- SHAR_EOF
- chmod 0644 sfs/bin/nasa.spd ||
- echo 'restore of sfs/bin/nasa.spd failed'
- Wc_c="`wc -c < 'sfs/bin/nasa.spd'`"
- test 307 -eq "$Wc_c" ||
- echo 'sfs/bin/nasa.spd: original size 307, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/bin/neptune.fd ==============
- if test -f 'sfs/bin/neptune.fd' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/bin/neptune.fd (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/bin/neptune.fd (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/bin/neptune.fd' &&
- Neptune
- neptunian
- 22300
- 17.3
- 50400
- SHAR_EOF
- chmod 0644 sfs/bin/neptune.fd ||
- echo 'restore of sfs/bin/neptune.fd failed'
- Wc_c="`wc -c < 'sfs/bin/neptune.fd'`"
- test 35 -eq "$Wc_c" ||
- echo 'sfs/bin/neptune.fd: original size 35, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/bin/new.sfs ==============
- if test -f 'sfs/bin/new.sfs' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/bin/new.sfs (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/bin/new.sfs (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/bin/new.sfs' &&
- ;---------------------------------------
- ; new.sfs
- ; created Sun Oct 13 18:44:34 1991
- ;---------------------------------------
- Quick View of the Earth
- tfactor 2
- update 15
- trig 1
- insertion 5000
- ;---------------------------------------
- ; parameters for orbit 1
- ;---------------------------------------
- name 1 spacecraft
- focus 1 earth.fd
- periapsis 1 275.000000
- apoapsis 1 275.000000
- inclination 1 28.500000
- argper 1 0.000000
- lonan 1 45.000000
- orb 1 orb.spd
- grid 1 latlon.spd
- surface 1 null.spd
- ;---------------------------------------
- ; parameters for orbit 2
- ;---------------------------------------
- name 2
- focus 2 earth.fd
- periapsis 2 637.800000
- apoapsis 2 25512.000000
- inclination 2 0.000000
- argper 2 0.000000
- lonan 2 0.000000
- orb 2 orb.spd
- grid 2 latlon.spd
- surface 2 null.spd
- ;---------------------------------------
- ; end of file new.sfs
- ;---------------------------------------
- SHAR_EOF
- chmod 0644 sfs/bin/new.sfs ||
- echo 'restore of sfs/bin/new.sfs failed'
- Wc_c="`wc -c < 'sfs/bin/new.sfs'`"
- test 903 -eq "$Wc_c" ||
- echo 'sfs/bin/new.sfs: original size 903, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/bin/null.spd ==============
- if test -f 'sfs/bin/null.spd' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/bin/null.spd (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/bin/null.spd (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/bin/null.spd' &&
- ; null.spd
- ;
- ; null spherical projection datafile
- ;
- 1001 0.0 0.0 6378.0
- SHAR_EOF
- chmod 0644 sfs/bin/null.spd ||
- echo 'restore of sfs/bin/null.spd failed'
- Wc_c="`wc -c < 'sfs/bin/null.spd'`"
- test 72 -eq "$Wc_c" ||
- echo 'sfs/bin/null.spd: original size 72, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/bin/orb.spd ==============
- if test -f 'sfs/bin/orb.spd' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/bin/orb.spd (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/bin/orb.spd (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/bin/orb.spd' &&
- ; orb.spd use to show focal orb
- ;
- 1001 0.0 90.0 6000.0 90th meridian band
- 5 5.0 90.0 6000.0
- 5 10.0 90.0 6000.0
- 5 15.0 90.0 6000.0
- 5 20.0 90.0 6000.0
- 5 25.0 90.0 6000.0
- 5 30.0 90.0 6000.0
- 5 35.0 90.0 6000.0
- 5 40.0 90.0 6000.0
- 5 45.0 90.0 6000.0
- 5 50.0 90.0 6000.0
- 5 55.0 90.0 6000.0
- 5 60.0 90.0 6000.0
- 5 65.0 90.0 6000.0
- 5 70.0 90.0 6000.0
- 5 75.0 90.0 6000.0
- 5 80.0 90.0 6000.0
- 5 85.0 90.0 6000.0
- 5 90.0 90.0 6000.0
- 5 85.0 90.0 6000.0
- 5 80.0 -90.0 6000.0
- 5 75.0 -90.0 6000.0
- 5 70.0 -90.0 6000.0
- 5 65.0 -90.0 6000.0
- 5 60.0 -90.0 6000.0
- 5 55.0 -90.0 6000.0
- 5 50.0 -90.0 6000.0
- 5 45.0 -90.0 6000.0
- 5 40.0 -90.0 6000.0
- 5 35.0 -90.0 6000.0
- 5 30.0 -90.0 6000.0
- 5 25.0 -90.0 6000.0
- 5 20.0 -90.0 6000.0
- 5 15.0 -90.0 6000.0
- 5 10.0 -90.0 6000.0
- 5 5.0 -90.0 6000.0
- 5 0.0 -90.0 6000.0
- 5 -5.0 -90.0 6000.0
- 5 -10.0 -90.0 6000.0
- 5 -15.0 -90.0 6000.0
- 5 -20.0 -90.0 6000.0
- 5 -25.0 -90.0 6000.0
- 5 -30.0 -90.0 6000.0
- 5 -35.0 -90.0 6000.0
- 5 -40.0 -90.0 6000.0
- 5 -45.0 -90.0 6000.0
- 5 -50.0 -90.0 6000.0
- 5 -55.0 -90.0 6000.0
- 5 -60.0 -90.0 6000.0
- 5 -65.0 -90.0 6000.0
- 5 -70.0 -90.0 6000.0
- 5 -75.0 -90.0 6000.0
- 5 -80.0 -90.0 6000.0
- 5 -85.0 -90.0 6000.0
- 5 -90.0 -90.0 6000.0
- 5 -85.0 -90.0 6000.0
- 5 -80.0 90.0 6000.0
- 5 -75.0 90.0 6000.0
- 5 -70.0 90.0 6000.0
- 5 -65.0 90.0 6000.0
- 5 -60.0 90.0 6000.0
- 5 -55.0 90.0 6000.0
- 5 -50.0 90.0 6000.0
- 5 -45.0 90.0 6000.0
- 5 -40.0 90.0 6000.0
- 5 -35.0 90.0 6000.0
- 5 -30.0 90.0 6000.0
- 5 -25.0 90.0 6000.0
- 5 -20.0 90.0 6000.0
- 5 -15.0 90.0 6000.0
- 5 -10.0 90.0 6000.0
- 5 -5.0 90.0 6000.0
- 5 0.0 90.0 6000.0
- SHAR_EOF
- chmod 0644 sfs/bin/orb.spd ||
- echo 'restore of sfs/bin/orb.spd failed'
- Wc_c="`wc -c < 'sfs/bin/orb.spd'`"
- test 1511 -eq "$Wc_c" ||
- echo 'sfs/bin/orb.spd: original size 1511, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/bin/pluto.fd ==============
- if test -f 'sfs/bin/pluto.fd' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/bin/pluto.fd (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/bin/pluto.fd (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/bin/pluto.fd' &&
- Pluto
- plutonian
- 1500
- 0.002
- 552096
- SHAR_EOF
- chmod 0644 sfs/bin/pluto.fd ||
- echo 'restore of sfs/bin/pluto.fd failed'
- Wc_c="`wc -c < 'sfs/bin/pluto.fd'`"
- test 34 -eq "$Wc_c" ||
- echo 'sfs/bin/pluto.fd: original size 34, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/bin/quick.sfs ==============
- if test -f 'sfs/bin/quick.sfs' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/bin/quick.sfs (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/bin/quick.sfs (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/bin/quick.sfs' &&
- ;---------------------------------------
- ; quick.sfs
- ; created Sat Jan 12 23:13:12 1991
- ;---------------------------------------
- Quick View of the Earth
- tfactor 2
- update 15
- trig 1
- insertion 5000
- ;---------------------------------------
- ; parameters for orbit 1
- ;---------------------------------------
- name 1 spacecraft
- focus 1 earth.fd
- periapsis 1 275.000000
- apoapsis 1 275.000000
- inclination 1 28.500000
- argper 1 0.000000
- lonan 1 45.000000
- orb 1 orb.spd
- grid 1 smallgr.spd
- surface 1 null.spd
- ;---------------------------------------
- ; end of file quick.sfs
- ;---------------------------------------
- SHAR_EOF
- chmod 0644 sfs/bin/quick.sfs ||
- echo 'restore of sfs/bin/quick.sfs failed'
- Wc_c="`wc -c < 'sfs/bin/quick.sfs'`"
- test 612 -eq "$Wc_c" ||
- echo 'sfs/bin/quick.sfs: original size 612, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/bin/saturn.fd ==============
- if test -f 'sfs/bin/saturn.fd' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/bin/saturn.fd (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/bin/saturn.fd (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/bin/saturn.fd' &&
- Saturn
- saturnian
- 60400
- 95.2
- 36840
- SHAR_EOF
- chmod 0644 sfs/bin/saturn.fd ||
- echo 'restore of sfs/bin/saturn.fd failed'
- Wc_c="`wc -c < 'sfs/bin/saturn.fd'`"
- test 34 -eq "$Wc_c" ||
- echo 'sfs/bin/saturn.fd: original size 34, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/bin/shuttle.sfs ==============
- if test -f 'sfs/bin/shuttle.sfs' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/bin/shuttle.sfs (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/bin/shuttle.sfs (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/bin/shuttle.sfs' &&
- ;---------------------------------------
- ; shuttle.sfs
- ; created Sun Jan 06 15:36:15 1991
- ;---------------------------------------
- Simulation of Space Shuttle
- tfactor 5
- update 120
- trig 1
- insertion 0
- ;---------------------------------------
- ; parameters for orbit 1
- ;---------------------------------------
- name 1 STS
- focus 1 earth.fd
- periapsis 1 275.000000
- apoapsis 1 275.000000
- inclination 1 28.500000
- argper 1 0.000000
- lonan 1 0.000000
- orb 1 orb.spd
- grid 1 latlon.spd
- surface 1 earth.spd
- ;---------------------------------------
- ; end of file shuttle.sfs
- ;---------------------------------------
- SHAR_EOF
- chmod 0644 sfs/bin/shuttle.sfs ||
- echo 'restore of sfs/bin/shuttle.sfs failed'
- Wc_c="`wc -c < 'sfs/bin/shuttle.sfs'`"
- test 611 -eq "$Wc_c" ||
- echo 'sfs/bin/shuttle.sfs: original size 611, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/bin/smallgr.spd ==============
- if test -f 'sfs/bin/smallgr.spd' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/bin/smallgr.spd (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/bin/smallgr.spd (Binary)'
- sed 's/^X//' << 'SHAR_EOF' > _shar_tmp_.tmp &&
- begin 600 sfs/bin/smallgr.spd
- M.PES;6%L;&=R+G-P9`H["CL)<VUA;&P@;&%T:71U9&4M;&]N9VET=61E(&=R
- M:60@9F]R(%-P86-E($9L:6=H="!3:6UU;&%T;W(*.PH["6QA=&ET=61E<R`M
- M+2`P=&@@<&%R86QL96P@*&5Q=6%T;W(I"CL*,3`P,0DP+C`),"XP"38P,#`N
- M,`HU"3`N,`DQ,"XP"38P,#`N,`HU"3`N,`DR,"XP"38P,#`N,`HU"3`N,`DS
- M,"XP"38P,#`N,`HU"3`N,`DT,"XP"38P,#`N,`HU"3`N,`DU,"XP"38P,#`N
- M,`HU"3`N,`DV,"XP"38P,#`N,`HU"3`N,`DW,"XP"38P,#`N,`HU"3`N,`DX
- M,"XP"38P,#`N,`HU"3`N,`DY,"XP"38P,#`N,`HU"3`N,`DQ,#`N,`DV,#`P
- M+C`*-0DP+C`),3$P+C`)-C`P,"XP"C4),"XP"3$R,"XP"38P,#`N,`HU"3`N
- M,`DQ,S`N,`DV,#`P+C`*-0DP+C`),30P+C`)-C`P,"XP"C4),"XP"3$U,"XP
- M"38P,#`N,`HU"3`N,`DQ-C`N,`DV,#`P+C`*-0DP+C`),3<P+C`)-C`P,"XP
- M"C4),"XP"3$X,"XP"38P,#`N,`HU"3`N,`DM,3<P+C`)-C`P,"XP"C4),"XP
- M"2TQ-C`N,`DV,#`P+C`*-0DP+C`)+3$U,"XP"38P,#`N,`HU"3`N,`DM,30P
- M+C`)-C`P,"XP"C4),"XP"2TQ,S`N,`DV,#`P+C`*-0DP+C`)+3$R,"XP"38P
- M,#`N,`HU"3`N,`DM,3$P+C`)-C`P,"XP"C4),"XP"2TQ,#`N,`DV,#`P+C`*
- M-0DP+C`)+3DP+C`)-C`P,"XP"C4),"XP"2TX,"XP"38P,#`N,`HU"3`N,`DM
- M-S`N,`DV,#`P+C`*-0DP+C`)+38P+C`)-C`P,"XP"C4),"XP"2TU,"XP"38P
- M,#`N,`HU"3`N,`DM-#`N,`DV,#`P+C`*-0DP+C`)+3,P+C`)-C`P,"XP"C4)
- M,"XP"2TR,"XP"38P,#`N,`HU"3`N,`DM,3`N,`DV,#`P+C`*-0DP+C`),"XP
- M"38P,#`N,`H["CL);&]N9VET=61E<R`M(#!T:"!M97)I9&EA;B`H8V5N=')A
- M;"!M97)I9&EA;BD*.PHQ,#`Q"2TY,"XP"3`N,`DV,#`P+C`*-0DM.#`N,`DP
- M+C`)-C`P,"XP"C4)+3<P+C`),"XP"38P,#`N,`HU"2TV,"XP"3`N,`DV,#`P
- M+C`*-0DM-3`N,`DP+C`)-C`P,"XP"C4)+30P+C`),"XP"38P,#`N,`HU"2TS
- M,"XP"3`N,`DV,#`P+C`*-0DM,C`N,`DP+C`)-C`P,"XP"C4)+3$P+C`),"XP
- M"38P,#`N,`HU"3`N,`DP+C`)-C`P,"XP"C4),3`N,`DP+C`)-C`P,"XP"C4)
- M,C`N,`DP+C`)-C`P,"XP"C4),S`N,`DP+C`)-C`P,"XP"C4)-#`N,`DP+C`)
- M-C`P,"XP"C4)-3`N,`DP+C`)-C`P,"XP"C4)-C`N,`DP+C`)-C`P,"XP"C4)
- M-S`N,`DP+C`)-C`P,"XP"C4).#`N,`DP+C`)-C`P,"XP"C4).3`N,`DP+C`)
- M-C`P,"XP"CL*.PEL;VYG:71U9&5S("T@.3!T:"!M97)I9&EA;@H["C$P,#$)
- M+3DP+C`).3`N,`DV,#`P+C`*-0DM.#`N,`DY,"XP"38P,#`N,`HU"2TW,"XP
- M"3DP+C`)-C`P,"XP"C4)+38P+C`).3`N,`DV,#`P+C`*-0DM-3`N,`DY,"XP
- M"38P,#`N,`HU"2TT,"XP"3DP+C`)-C`P,"XP"C4)+3,P+C`).3`N,`DV,#`P
- M+C`*-0DM,C`N,`DY,"XP"38P,#`N,`HU"2TQ,"XP"3DP+C`)-C`P,"XP"C4)
- M,"XP"3DP+C`)-C`P,"XP"C4),3`N,`DY,"XP"38P,#`N,`HU"3(P+C`).3`N
- M,`DV,#`P+C`*-0DS,"XP"3DP+C`)-C`P,"XP"C4)-#`N,`DY,"XP"38P,#`N
- M,`HU"34P+C`).3`N,`DV,#`P+C`*-0DV,"XP"3DP+C`)-C`P,"XP"C4)-S`N
- M,`DY,"XP"38P,#`N,`HU"3@P+C`).3`N,`DV,#`P+C`*-0DY,"XP"3DP+C`)
- M-C`P,"XP"CL*.PEL;VYG:71U9&5S("T@,3@P=&@@;65R:61I86X*.PHQ,#`Q
- M"2TY,"XP"3$X,"XP"38P,#`N,`HU"2TX,"XP"3$X,"XP"38P,#`N,`HU"2TW
- M,"XP"3$X,"XP"38P,#`N,`HU"2TV,"XP"3$X,"XP"38P,#`N,`HU"2TU,"XP
- M"3$X,"XP"38P,#`N,`HU"2TT,"XP"3$X,"XP"38P,#`N,`HU"2TS,"XP"3$X
- M,"XP"38P,#`N,`HU"2TR,"XP"3$X,"XP"38P,#`N,`HU"2TQ,"XP"3$X,"XP
- M"38P,#`N,`HU"3`N,`DQ.#`N,`DV,#`P+C`*-0DQ,"XP"3$X,"XP"38P,#`N
- M,`HU"3(P+C`),3@P+C`)-C`P,"XP"C4),S`N,`DQ.#`N,`DV,#`P+C`*-0DT
- M,"XP"3$X,"XP"38P,#`N,`HU"34P+C`),3@P+C`)-C`P,"XP"C4)-C`N,`DQ
- M.#`N,`DV,#`P+C`*-0DW,"XP"3$X,"XP"38P,#`N,`HU"3@P+C`),3@P+C`)
- M-C`P,"XP"C4).3`N,`DQ.#`N,`DV,#`P+C`*.PH["6QO;F=I='5D97,@+2`M
- M.3!T:"!M97)I9&EA;@H["C$P,#$)+3DP+C`)+3DP+C`)-C`P,"XP"C4)+3@P
- M+C`)+3DP+C`)-C`P,"XP"C4)+3<P+C`)+3DP+C`)-C`P,"XP"C4)+38P+C`)
- M+3DP+C`)-C`P,"XP"C4)+34P+C`)+3DP+C`)-C`P,"XP"C4)+30P+C`)+3DP
- M+C`)-C`P,"XP"C4)+3,P+C`)+3DP+C`)-C`P,"XP"C4)+3(P+C`)+3DP+C`)
- M-C`P,"XP"C4)+3$P+C`)+3DP+C`)-C`P,"XP"C4),"XP"2TY,"XP"38P,#`N
- M,`HU"3$P+C`)+3DP+C`)-C`P,"XP"C4),C`N,`DM.3`N,`DV,#`P+C`*-0DS
- M,"XP"2TY,"XP"38P,#`N,`HU"30P+C`)+3DP+C`)-C`P,"XP"C4)-3`N,`DM
- M.3`N,`DV,#`P+C`*-0DV,"XP"2TY,"XP"38P,#`N,`HU"3<P+C`)+3DP+C`)
- M-C`P,"XP"C4).#`N,`DM.3`N,`DV,#`P+C`*-0DY,"XP"2TY,"XP"38P,#`N
- %,`H["AHP
- `
- end
- SHAR_EOF
- echo 'uudecoding file sfs/bin/smallgr.spd' &&
- uudecode < _shar_tmp_.tmp && rm -f _shar_tmp_.tmp &&
- chmod 0644 sfs/bin/smallgr.spd ||
- echo 'restore of sfs/bin/smallgr.spd failed'
- Wc_c="`wc -c < 'sfs/bin/smallgr.spd'`"
- test 2480 -eq "$Wc_c" ||
- echo 'sfs/bin/smallgr.spd: original size 2480, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/bin/sun.fd ==============
- if test -f 'sfs/bin/sun.fd' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/bin/sun.fd (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/bin/sun.fd (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/bin/sun.fd' &&
- the Sun
- solar
- 696000
- 332775.9197
- 1
- SHAR_EOF
- chmod 0644 sfs/bin/sun.fd ||
- echo 'restore of sfs/bin/sun.fd failed'
- Wc_c="`wc -c < 'sfs/bin/sun.fd'`"
- test 35 -eq "$Wc_c" ||
- echo 'sfs/bin/sun.fd: original size 35, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/bin/test.sfs ==============
- if test -f 'sfs/bin/test.sfs' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/bin/test.sfs (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/bin/test.sfs (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/bin/test.sfs' &&
- ;---------------------------------------
- ; test.sfs
- ; created Tue Jan 08 20:44:06 1991
- ;---------------------------------------
- Quick view of the Earth
- tfactor 8
- update 30
- trig 1
- insertion 0
- ;---------------------------------------
- ; parameters for orbit 1
- ;---------------------------------------
- name 1 spacecraft
- focus 1 earth.fd
- periapsis 1 20000.000000
- apoapsis 1 20000.000000
- inclination 1 60.000000
- argper 1 0.000000
- lonan 1 -45.000000
- orb 1 orb.spd
- grid 1 latlon.spd
- surface 1 meridian.spd
- ;---------------------------------------
- ; end of file test.sfs
- ;---------------------------------------
- SHAR_EOF
- chmod 0644 sfs/bin/test.sfs ||
- echo 'restore of sfs/bin/test.sfs failed'
- Wc_c="`wc -c < 'sfs/bin/test.sfs'`"
- test 615 -eq "$Wc_c" ||
- echo 'sfs/bin/test.sfs: original size 615, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/bin/uranus.fd ==============
- if test -f 'sfs/bin/uranus.fd' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/bin/uranus.fd (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/bin/uranus.fd (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/bin/uranus.fd' &&
- Uranus
- uranian
- 23530
- 14.6
- 38940
- SHAR_EOF
- chmod 0644 sfs/bin/uranus.fd ||
- echo 'restore of sfs/bin/uranus.fd failed'
- Wc_c="`wc -c < 'sfs/bin/uranus.fd'`"
- test 32 -eq "$Wc_c" ||
- echo 'sfs/bin/uranus.fd: original size 32, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/bin/venus.fd ==============
- if test -f 'sfs/bin/venus.fd' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/bin/venus.fd (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/bin/venus.fd (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/bin/venus.fd' &&
- Venus
- venusian
- 6200
- 0.817
- -20995200
- SHAR_EOF
- chmod 0644 sfs/bin/venus.fd ||
- echo 'restore of sfs/bin/venus.fd failed'
- Wc_c="`wc -c < 'sfs/bin/venus.fd'`"
- test 36 -eq "$Wc_c" ||
- echo 'sfs/bin/venus.fd: original size 36, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/doc/README.pc ==============
- if test ! -d 'sfs/doc'; then
- echo 'x - creating directory sfs/doc'
- mkdir 'sfs/doc'
- fi
- if test -f 'sfs/doc/README.pc' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/doc/README.pc (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/doc/README.pc (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/doc/README.pc' &&
- X
- X ------------------
- X
- X Bywater Software
- X Release Notice
- X
- X Space Flight Simulator
- X version 1.01
- X (PC-Compatible Binaries)
- X
- X ------------------
- X
- Bywater Software is pleased to announce the public availability
- of its Space Flight Simulator in its first complete release,
- version 1.01. This software is copyright (c) 1991, Ted A.
- Campbell, and is released under the terms of an agreement specified
- in the file "sfs.ro".
- X
- Description: The Space Flight Simulator offers a graphics-based,
- X real-time, animated simulation of orbital flight.
- X Users can develop simulations by specifying a complete
- X range of orbital parameters, and can develop simulations
- X for all of the planets of the solar system and for some
- X other celestial bodies. A particularly full map is
- X given of the earth, which can be viewed as it would
- X appear from the orbiting spacecraft, as a ground-track
- X map, or as a "distant perspective" in which the earth
- X (or another orbital focus) and the orbital track can
- X be seen together.
- X
- Requirements: This implementation of the Space Flight Simulator
- X requires an IBM PC or compatible microcomputer,
- X with Hercules, EGA, or VGA graphics. The optional
- X use of a pointer device (mouse) is supported. A
- X fast cpu and a math coprocessor will also speed up
- X and smooth out the overall display. The program
- X requires one disk drive that has at least 700k
- X of space available.
- X
- Documentation: Complete documentation for this program is in the
- X file "sfs.ro", which is in a format compatible
- X with the "ro" text formatter (also supplied).
- X
- Source Code: This release of the Space Flight Simulator will
- X include source code for the complete Space Flight
- X Simulator, and its underlying User Interface (ui).
- X The source code can be compiled on the PC-compatible
- X microcomputers, the AT&T Unix PC, and on Unix
- X Platforms which have implemented the X Windows
- X system, version 11 (tested on DecStation 2100 and
- X 3100).
- X
- Communications: Bywater Software
- X P. O. Box 4023
- X Duke Station
- X Durham, NC 27707
- X USA
- X
- X email: tcamp@hercules.acpub.duke.edu
- X
- SHAR_EOF
- chmod 0644 sfs/doc/README.pc ||
- echo 'restore of sfs/doc/README.pc failed'
- Wc_c="`wc -c < 'sfs/doc/README.pc'`"
- test 2225 -eq "$Wc_c" ||
- echo 'sfs/doc/README.pc: original size 2225, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/doc/README.sfs ==============
- if test -f 'sfs/doc/README.sfs' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/doc/README.sfs (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/doc/README.sfs (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/doc/README.sfs' &&
- X
- X ------------------
- X
- X Bywater Software
- X Release Notice
- X
- X Space Flight Simulator
- X version 1.01
- X (Source Code)
- X
- X ------------------
- X
- Bywater Software is pleased to announce the public availability
- of its Space Flight Simulator in its first complete release,
- version 1.01. This software is copyright (c) 1991, Ted A.
- Campbell, and is released under the terms of an agreement specified
- in the file "sfs.ro" and in all source code file headers.
- X
- Description: The Space Flight Simulator offers a graphics-based,
- X real-time, animated simulation of orbital flight.
- X Users can develop simulations by specifying a complete
- X range of orbital parameters, and can develop simulations
- X for all of the planets of the solar system and for some
- X other celestial bodies. A particularly full map is
- X given of the earth, which can be viewed as it would
- X appear from the orbiting spacecraft, as a ground-track
- X map, or as a "distant perspective" in which the earth
- X (or another orbital focus) and the orbital track can
- X be seen together.
- X
- Implementation: Current implementations of the Space Flight Simulator
- X for which source code is included are the following:
- X (a) IBM PC and compatibles, utilizing the Microsoft
- X QuickC compiler and requiring Hercules, EGA, or
- X VGA graphics; (b) the AT&T Unix PC with a primary
- X implementation for the TAM subsystem, and a rather
- X poorer implementation for the MGR windowing system;
- X (c) Unix-based computers utilizing the X Windows
- X system, version 11 (tested on DecStation 2100 and
- X 3100).
- X
- Further Code: Compilation of this code requires the Bywater
- X graphical User Interface (ui), which is not included
- X in this archive.
- X
- Documentation: Complete documentation for this program is in the
- X file "sfs.ro", which is in a format compatible
- X with the "ro" text formatter (also available). Chapter
- X four contains complete instructions for compiling
- X the program, shorter instructions (for existing
- X implementations) follow this notice.
- X
- Communications: Bywater Software
- X P. O. Box 4023
- X Duke Station
- X Durham, NC 27707
- X USA
- X
- X email: tcamp@hercules.acpub.duke.edu
- X
- ------------------------------------------------------
- Quick Build Instructions for Existing Implementations:
- X
- (a) Build the User Interface (ui) using the build scripts
- supplied with it. This will create an include directory
- for header files and a lib directory for object modules
- of the User Interface.
- X
- (b) Change to the directory where SFS sourcecode is located:
- X
- X Unix: cd sfs/sfs
- X MSDOS: cd sfs\sfs
- X
- (c) Execute the build script for SFS:
- X
- X Unix: sh buildsfs.sh
- X MSDOS: buildsfs
- X
- On Unix systems, the user will be prompted for a number
- corresponding to the particular system to be implemented.
- X
- ------------------------------------------------------
- X
- SHAR_EOF
- chmod 0644 sfs/doc/README.sfs ||
- echo 'restore of sfs/doc/README.sfs failed'
- Wc_c="`wc -c < 'sfs/doc/README.sfs'`"
- test 2939 -eq "$Wc_c" ||
- echo 'sfs/doc/README.sfs: original size 2939, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/doc/ansi.tab ==============
- if test -f 'sfs/doc/ansi.tab' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/doc/ansi.tab (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/doc/ansi.tab (Binary)'
- sed 's/^X//' << 'SHAR_EOF' > _shar_tmp_.tmp &&
- begin 600 sfs/doc/ansi.tab
- M04Y322!T97)M:6YA;`IB9&]N("`@("`@("`B7#`S,ULQ;2(*8F1O9F8@("`@
- M("`@(EPP,S-;,&TB"FET;VX@("`@("`@(")<,#,S6S1M(@II=&]F9B`@("`@
- -("`B7#`S,ULP;2(*&FET
- `
- end
- SHAR_EOF
- echo 'uudecoding file sfs/doc/ansi.tab' &&
- uudecode < _shar_tmp_.tmp && rm -f _shar_tmp_.tmp &&
- chmod 0644 sfs/doc/ansi.tab ||
- echo 'restore of sfs/doc/ansi.tab failed'
- Wc_c="`wc -c < 'sfs/doc/ansi.tab'`"
- test 103 -eq "$Wc_c" ||
- echo 'sfs/doc/ansi.tab: original size 103, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/doc/deskjet.tab ==============
- if test -f 'sfs/doc/deskjet.tab' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/doc/deskjet.tab (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/doc/deskjet.tab (Binary)'
- sed 's/^X//' << 'SHAR_EOF' > _shar_tmp_.tmp &&
- begin 600 sfs/doc/deskjet.tab
- M1&5S:TIE=`IT=VEN:70@"2`@("`B7#`S,T5<,#,S*#$P55PP,S,F:S)'7#`S
- M,SE<,#,S)FPV-E!<,#,S)FPP15PP,S,F83!27#`S,R9L-C9&(@IT=W)E<W0@
- M("`@("`B7#`S,T4B"F)D;VX@("`@("`@(")<,#,S*',S0B(*8F1O9F8@("`@
- M("`@(EPP,S,H<S!"(@II=&]N("`@("`@("`B7#`S,RAS,5,B"FET;V9F("`@
- M("`@(")<,#,S*',P4R(*=7`@("`@("`@("`@(EPP,S,F82TS,%8B"F1O=VX@
- 6("`@("`@(")<,#,S)F$K,S!6(@H*&B`@
- `
- end
- SHAR_EOF
- echo 'uudecoding file sfs/doc/deskjet.tab' &&
- uudecode < _shar_tmp_.tmp && rm -f _shar_tmp_.tmp &&
- chmod 0644 sfs/doc/deskjet.tab ||
- echo 'restore of sfs/doc/deskjet.tab failed'
- Wc_c="`wc -c < 'sfs/doc/deskjet.tab'`"
- test 247 -eq "$Wc_c" ||
- echo 'sfs/doc/deskjet.tab: original size 247, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/doc/laserjet.tab ==============
- if test -f 'sfs/doc/laserjet.tab' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/doc/laserjet.tab (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/doc/laserjet.tab (Text)'
- sed 's/^X//' << 'SHAR_EOF' > 'sfs/doc/laserjet.tab' &&
- LaserJet
- twinit "\033E\033&l66P\033&l66F"
- twrest "\033E"
- bdon "\033(s3B"
- bdoff "\033(s0B"
- iton "\033(s1S"
- itoff "\033(s0S"
- up "\033&a-30V"
- down "\033&a+30V"
- X
- SHAR_EOF
- chmod 0644 sfs/doc/laserjet.tab ||
- echo 'restore of sfs/doc/laserjet.tab failed'
- Wc_c="`wc -c < 'sfs/doc/laserjet.tab'`"
- test 210 -eq "$Wc_c" ||
- echo 'sfs/doc/laserjet.tab: original size 210, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= sfs/doc/null.tab ==============
- if test -f 'sfs/doc/null.tab' -a X"$1" != X"-c"; then
- echo 'x - skipping sfs/doc/null.tab (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- echo 'x - extracting sfs/doc/null.tab (Binary)'
- sed 's/^X//' << 'SHAR_EOF' > _shar_tmp_.tmp &&
- begin 600 sfs/doc/null.tab
- SHAR_EOF
- true || echo 'restore of sfs/doc/null.tab failed'
- fi
- echo 'End of part 14'
- echo 'File sfs/doc/null.tab is continued in part 15'
- echo 15 > _shar_seq_.tmp
- exit 0
- exit 0 # Just in case...
- --
- Kent Landfield INTERNET: kent@sparky.IMD.Sterling.COM
- Sterling Software, IMD UUCP: uunet!sparky!kent
- Phone: (402) 291-8300 FAX: (402) 291-4362
- Please send comp.sources.misc-related mail to kent@uunet.uu.net.
-