ccount@ATHENA.MIT.EDU (03/16/90)
Posting-number: Volume 11, Issue 37
Submitted-by: ccount@ATHENA.MIT.EDU
Archive-name: starchart/part09
#! /bin/sh
# This is a shell archive. Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file". To overwrite existing
# files, type "sh file -c". You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g.. If this archive is complete, you
# will see the following message at the end:
# "End of archive 9 (of 32)."
# Contents: data/boundaries.star data/pattern.star starchart/staribm.c
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'data/boundaries.star' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'data/boundaries.star'\"
else
echo shar: Extracting \"'data/boundaries.star'\" \(14858 characters\)
sed "s/^X//" >'data/boundaries.star' <<'END_OF_FILE'
X072500-8240000VM
X135800-8310000Vs
X135100-7540000Vs
X112000-7540000Vs
X090030-7530000Vs
X073700-7520000Vs
X072500-8240000Vs
X135100-7540000VM
X135000-7040000Vs
X135000-6535000Vs
X133930-6535000Vs
X133930-6435000Vs
X125800-6440000Vs
X115600-6440000Vs
X112000-6440000Vs
X112000-7540000Vs
X145600-7030000VM
X171400-7010000Vs
X171230-6745000Vs
X170230-6745000Vs
X170230-6520000Vs
X165700-6520000Vs
X165700-6355000Vs
X164700-6355000Vs
X164700-6120000Vs
X163600-6120000Vs
X163600-6020000Vs
X153000-6025000Vs
X153000-6125000Vs
X152000-6125000Vs
X152000-6405000Vs
X150500-6405000Vs
X150500-6800000Vs
X145600-6800000Vs
X145600-7030000Vs
X135800-8310000VM
X182800-8230000Vs
X181600-7500000Vs
X181300-6730000Vs
X174230-6735000Vs
X171230-6745000Vs
X145600-7030000VM
X135000-7040000Vs
X135100-7540000Vs
X181600-7500000VM
X213200-7425000Vs
X213000-5930000Vs
X203000-5935000Vs
X203000-5640000Vs
X181000-5700000Vs
X174030-5700000Vs
X174230-6735000Vs
X213200-7425000VM
X232800-7420000Vs
X000700-7420000Vs
X000700-8150000Vs
X032000-8205000Vs
X030530-8435000Vs
X071000-8510000Vs
X072500-8240000Vs
X203000-5640000VM
X202830-4510000Vs
X191830-4515000Vs
X180900-4530000Vs
X181000-5700000Vs
X232800-7420000VM
X232730-6645000Vs
X221000-6650000Vs
X220800-5620000Vs
X220800-4920000Vs
X212830-4925000Vs
X212830-4500000Vs
X202830-4510000Vs
X000700-7420000VM
X005000-7420000Vs
X005000-7520000Vs
X012200-7520000Vs
X012500-5750000Vs
X232700-5745000Vs
X232700-5620000Vs
X220800-5620000Vs
X063400-7005000VM
X043500-6945000Vs
X032000-8205000VM
X032800-7435000Vs
X043200-7445000Vs
X043500-6945000Vs
X043500-6715000Vs
X031300-6700000Vs
X021300-6700000Vs
X021400-5755000Vs
X012500-5750000Vs
X063100-7510000VM
X073700-7520000Vs
X090030-7530000VM
X090430-6430000Vs
X065100-6410000Vs
X063530-6405000Vs
X063400-7005000Vs
X063100-7510000Vs
X110500-5710000VM
X112000-5710000Vs
X112000-6440000Vs
X115600-6440000VM
X115600-5540000Vs
X125800-5540000Vs
X125800-6440000Vs
X133930-6435000VM
X144200-6430000Vs
X144100-5530000Vs
X141800-5540000Vs
X141730-4235000Vs
X150300-4230000Vs
X150230-3000000Vs
X124130-3010000Vs
X124130-3340000Vs
X122200-3340000Vs
X122200-3540000Vs
X110600-3540000Vs
X110500-5710000Vs
X150230-3000000VM
X154800-2950000Vs
X135000-7040000VM
X145600-7030000Vs
X153000-6025000VM
X153000-5525000Vs
X151230-5530000Vs
X144100-5530000Vs
X163600-6020000VM
X163400-4545000Vs
X163400-4220000Vs
X160800-4220000Vs
X154830-4220000Vs
X154900-4820000Vs
X152900-4820000Vs
X152900-5430000Vs
X151230-5430000Vs
X151230-5530000Vs
X180900-4530000VM
X175900-4530000Vs
X163400-4545000Vs
X085300-5500000VM
X083000-5500000Vs
X083000-5330000Vs
X081400-5330000Vs
X081400-5110000Vs
X080300-5105000Vs
X060230-5050000Vs
X060230-5230000Vs
X061200-5230000Vs
X061200-5500000Vs
X063300-5505000Vs
X063300-5810000Vs
X065200-5810000Vs
X065100-6410000Vs
X085300-5700000VM
X110500-5710000Vs
X110530-4025000Vs
X092700-4015000Vs
X092700-3715000Vs
X082700-3710000Vs
X082600-4320000Vs
X080400-4320000Vs
X080300-5105000Vs
X085300-5500000VM
X085300-5700000Vs
X060100-6400000VM
X063530-6405000Vs
X060230-5050000VM
X060300-4300000Vs
X050400-4250000Vs
X045330-4250000Vs
X045330-4620000Vs
X043400-4620000Vs
X043400-4845000Vs
X043300-5345000Vs
X050230-5350000Vs
X050230-5720000Vs
X053200-5720000Vs
X053130-6050000Vs
X060100-6100000Vs
X060100-6400000Vs
X031300-6700000VM
X031500-5705000Vs
X033300-5710000Vs
X033300-5245000Vs
X035300-5250000Vs
X035300-5040000Vs
X040830-5040000Vs
X040830-4845000Vs
X041930-4845000Vs
X042000-3940000Vs
X035130-3940000Vs
X035130-4335000Vs
X032930-4330000Vs
X032930-4530000Vs
X030400-4530000Vs
X030400-4830000Vs
X024400-4825000Vs
X024400-5025000Vs
X022930-5025000Vs
X022930-5330000Vs
X021430-5330000Vs
X021400-5755000Vs
X043400-4845000VM
X040830-4845000Vs
X043500-6715000VM
X043730-5845000Vs
X042230-5845000Vs
X042230-5615000Vs
X040300-5615000Vs
X040300-5250000Vs
X035330-5250000Vs
X033300-5245000Vs
X202830-4510000VM
X202800-2740000Vs
X200800-2740000Vs
X200700-1140000Vs
X185900-1150000Vs
X185900-1550000Vs
X182200-1555000Vs
X174330-1605000Vs
X174400-3005000Vs
X175800-3000000Vs
X175830-3705000Vs
X191830-3645000Vs
X191830-4515000Vs
X012500-5740000VM
X012500-5250000Vs
X013930-5255000Vs
X013930-5055000Vs
X015500-5055000Vs
X015500-4730000Vs
X022500-4735000Vs
X022500-3925000Vs
X014530-3920000Vs
X232630-3920000Vs
X232700-5620000Vs
X230700-2450000VM
X230700-3620000Vs
X232630-3920000VM
X232630-3620000Vs
X230700-3620000Vs
X212800-3630000Vs
X212830-4500000Vs
X212730-2730000VM
X212800-3630000Vs
X174400-3005000VM
X165300-3010000Vs
X165230-2450000Vs
X162300-2450000Vs
X162300-1930000Vs
X163000-1930000Vs
X163000-1830000Vs
X162300-1830000Vs
X162300-0820000Vs
X160130-0820000Vs
X160200-2020000Vs
X154730-2020000Vs
X154800-2950000Vs
X160730-2950000Vs
X160800-4220000Vs
X105600-2510000VM
X115630-2510000Vs
X115630-1140000Vs
X115630-0645000Vs
X113800-0640000Vs
X105130-0640000Vs
X105130-1140000Vs
X105100-1940000Vs
X105600-1940000Vs
X105600-2510000Vs
X115630-2510000VM
X124130-2510000Vs
X124130-2240000Vs
X125700-2240000Vs
X125700-1140000Vs
X115630-1140000Vs
X142200-2505000VM
X150230-2500000Vs
X150230-3000000Vs
X160130-0820000VM
X160130-0340000Vs
X151130-0340000Vs
X151130-0030000Vs
X144630-0030000Vs
X144630-0830000Vs
X142200-0830000Vs
X142200-2505000Vs
X125700-2240000VM
X142200-2235000Vs
X202800-2740000VM
X212730-2730000Vs
X212730-2500000Vs
X215900-2455000Vs
X215830-0830000Vs
X212700-0830000Vs
X212700-1430000Vs
X203830-1435000Vs
X203830-0835000Vs
X200700-0840000Vs
X200700-1140000Vs
X215900-2455000VM
X230700-2450000Vs
X235630-2450000Vs
X235700-0620000Vs
X235700-0315000Vs
X225130-0320000Vs
X225130+0240000Vs
X220630+0240000Vs
X220630+0215000Vs
X214630+0215000Vs
X214630+0320000Vs
X213430+0320000Vs
X213430+0230000Vs
X212630+0230000Vs
X205630+0225000Vs
X203830+0225000Vs
X203830-0835000Vs
X014530-3920000VM
X014600-2450000Vs
X235630-2450000Vs
X022500-3925000VM
X030430-3930000Vs
X030430-3910000Vs
X033430-3910000Vs
X033430-3540000Vs
X035000-3540000Vs
X035000-2400000Vs
X024430-2350000Vs
X014600-2345000Vs
X014600-2450000Vs
X110600-3540000VM
X105600-3540000Vs
X105600-3150000Vs
X104100-3150000Vs
X104100-2950000Vs
X102100-2950000Vs
X102100-2710000Vs
X095030-2705000Vs
X095030-2430000Vs
X092730-2430000Vs
X092700-3715000Vs
X092730-2430000VM
X091100-2430000Vs
X091100-1930000Vs
X084030-1930000Vs
X084030-1725000Vs
X082800-1725000Vs
X082700-3710000Vs
X050400-4250000VM
X050500-2705000Vs
X045500-2705000Vs
X044700-2705000Vs
X044700-2945000Vs
X043930-2945000Vs
X043930-3645000Vs
X042000-3645000Vs
X042000-3940000Vs
X060300-4300000VM
X063900-4310000Vs
X063930-3310000Vs
X061130-3305000Vs
X061200-2720000Vs
X050500-2705000Vs
X082800-1725000VM
X082800-1125000Vs
X081100-1120000Vs
X072800-1115000Vs
X072700-3315000Vs
X063930-3310000Vs
X061230-1100000VM
X061200-2720000Vs
X105130-1140000VM
X094130-1135000Vs
X094200+0625000Vs
X092200+0630000Vs
X081200+0640000Vs
X081130-0020000Vs
X081100-1120000Vs
X055600-1100000VM
X061230-1100000Vs
X072800-1115000Vs
X081130-0020000VM
X071830-0015000Vs
X071830+0115000Vs
X070730+0120000Vs
X070730+0515000Vs
X070630+0515000Vs
X070700+0950000Vs
X070030+0950000Vs
X070030+1150000Vs
X062530+1155000Vs
X062530+0952000Vs
X062100+0952000Vs
X062030-0400000Vs
X055630-0400000Vs
X055600-1100000Vs
X055600-1100000VM
X051100-1050000Vs
X050100-1050000Vs
X050030-1415000Vs
X045600-1415000Vs
X045500-2705000Vs
X024430-2350000VM
X024500-0115000Vs
X032330-0120000Vs
X032400+1020000Vs
X020630+1030000Vs
X020630+0235000Vs
X002630+0240000Vs
X002630-0615000Vs
X235700-0620000Vs
X171700-1610000VM
X174330-1605000Vs
X182200-1555000VM
X182130-0355000Vs
X184130-0350000Vs
X184100+0205000Vs
X185800+0205000Vs
X185800+0625000Vs
X184600+0625000Vs
X182130+0620000Vs
X182130+0435000Vs
X183200+0435000Vs
X183200+0305000Vs
X182130+0305000Vs
X182130+0000000Vs
X175630+0000000Vs
X175630-0400000Vs
X180430-0400000Vs
X180500-1000000Vs
X174700-1005000Vs
X174700-1145000Vs
X174200-1145000Vs
X174200-1005000Vs
X171700-1010000Vs
X171700-1610000Vs
X203830+0225000VM
X202400+0225000Vs
X202400+0850000Vs
X201430+0850000Vs
X201400+1610000Vs
X195600+1605000Vs
X195600+1625000Vs
X190530+1625000Vs
X190530+1840000Vs
X185730+1835000Vs
X185800+1210000Vs
X184600+1205000Vs
X184600+0625000Vs
X212630+0230000VM
X212600+1300000Vs
X211300+1300000Vs
X211300+1220000Vs
X210900+1220000Vs
X205900+1215000Vs
X205900+0625000Vs
X205630+0625000Vs
X205630+0225000Vs
X210900+1220000VM
X210900+2000000Vs
X203900+1955000Vs
X203900+2055000Vs
X202030+2055000Vs
X210900+2000000VM
X212100+2000000Vs
X212100+2400000Vs
X213100+2400000Vs
X213100+2830000Vs
X210030+2825000Vs
X210030+2930000Vs
X194500+2920000Vs
X194500+2745000Vs
X192030+2745000Vs
X192030+2540000Vs
X185700+2540000Vs
X185700+2115000Vs
X051100-1050000VM
X051130-0350000Vs
X044610-0345000Vs
X044610+0015000Vs
X044330+0015000Vs
X034130+0020000Vs
X034130-0120000Vs
X032300-0120000Vs
X184600+1205000VM
X182100+1205000Vs
X182100+1420000Vs
X172100+1415000Vs
X172100+1240000Vs
X165100+1235000Vs
X165130+0345000Vs
X162230+0340000Vs
X162230-0335000Vs
X160130-0340000Vs
X185900-1150000VM
X185830-0350000Vs
X184130-0350000Vs
X201400+1610000VM
X202100+1610000Vs
X202030+2055000Vs
X202030+2140000Vs
X195530+2135000Vs
X195530+1930000Vs
X192030+1930000Vs
X192030+2120000Vs
X185700+2115000Vs
X185730+1835000Vs
X162230+0340000VM
X161100+0340000Vs
X161100+1540000Vs
X160100+1540000Vs
X160030+2135000Vs
X160730+2135000Vs
X160700+2540000Vs
X151600+2530000Vs
X151000+2530000Vs
X151100+0730000Vs
X151130-0030000Vs
X151100+0730000VM
X133630+0725000Vs
X133630+1450000Vs
X125600+1415000Vs
X125600+1315000Vs
X115830+1315000Vs
X115830+1015000Vs
X113730+1015000Vs
X113800-0640000Vs
X133630+1450000VM
X133600+2750000Vs
X132130+2750000Vs
X132130+3120000Vs
X122600+3120000Vs
X122600+3320000Vs
X120600+3315000Vs
X120600+2820000Vs
X115830+2820000Vs
X115830+1315000Vs
X110630+2815000VM
X115830+2820000Vs
X225130+0240000VM
X225130+0810000Vs
X235700+0810000Vs
X235700+1040000Vs
X000630+1040000Vs
X000630+1315000Vs
X001500+1315000Vs
X001500+2140000Vs
X001500+2240000Vs
X001030+2240000Vs
X001030+2840000Vs
X000630+2840000Vs
X000630+3200000Vs
X235100+3205000Vs
X235100+3250000Vs
X233600+3250000Vs
X233600+3515000Vs
X225730+3510000Vs
X225500+3510000Vs
X225500+3545000Vs
X220500+3545000Vs
X220500+3635000Vs
X215730+3635000Vs
X214930+3635000Vs
X214930+2835000Vs
X213100+2830000Vs
X020630+1030000VM
X014700+1030000Vs
X014700+2535000Vs
X014700+2840000Vs
X013130+2840000Vs
X013130+3340000Vs
X004930+3340000Vs
X004930+2425000Vs
X005730+2425000Vs
X005730+2145000Vs
X001500+2140000Vs
X215730+3635000VM
X215730+4420000Vs
X215930+4420000Vs
X215930+4435000Vs
X220300+4435000Vs
X220230+5320000Vs
X220230+5530000Vs
X203930+5520000Vs
X203900+6120000Vs
X203430+6120000Vs
X203430+5955000Vs
X200200+5950000Vs
X194700+5950000Vs
X194700+5815000Vs
X192700+5815000Vs
X192730+5545000Vs
X190730+5545000Vs
X190800+4740000Vs
X191300+4740000Vs
X191330+4340000Vs
X192730+4345000Vs
X192800+3645000Vs
X192600+3645000Vs
X192630+3015000Vs
X192030+3010000Vs
X192030+2745000Vs
X182700+2610000VM
X185700+2610000Vs
X185700+2540000Vs
X190800+4740000VM
X181700+4735000Vs
X181330+4735000Vs
X181500+3005000Vs
X182630+3005000Vs
X182700+2610000Vs
X225730+3510000VM
X225700+5310000Vs
X225700+5700000Vs
X222330+5650000Vs
X222330+5540000Vs
X221230+5540000Vs
X221230+5320000Vs
X220230+5320000Vs
X181700+4735000VM
X181700+5035000Vs
X170300+5015000Vs
X170300+5115000Vs
X154830+5110000Vs
X154900+3935000Vs
X162400+3940000Vs
X162430+2645000Vs
X161500+2645000Vs
X161500+2540000Vs
X160700+2540000Vs
X154900+3935000VM
X153000+3930000Vs
X153030+3230000Vs
X151600+3230000Vs
X151600+2530000Vs
X154830+5110000VM
X154800+5240000Vs
X151800+5230000Vs
X151800+5500000Vs
X142900+5455000Vs
X140630+5450000Vs
X140700+4750000Vs
X140730+3005000Vs
X140300+3005000Vs
X140300+2750000Vs
X133600+2750000Vs
X140700+4750000VM
X133500+4750000Vs
X133430+5225000Vs
X121130+5225000Vs
X121100+4420000Vs
X120600+4420000Vs
X120600+3315000Vs
X092200+3300000VM
X100030+3255000Vs
X100030+2750000Vs
X103700+2750000Vs
X103700+2250000Vs
X105200+2250000Vs
X105200+2445000Vs
X110630+2445000Vs
X110630+2815000Vs
X110630+3320000Vs
X105400+3320000Vs
X105400+3920000Vs
X101730+3920000Vs
X101730+4120000Vs
X094230+4130000Vs
X094230+3910000Vs
X092230+3910000Vs
X092200+3300000Vs
X142900+5455000VM
X142800+6225000Vs
X133400+6220000Vs
X133400+6320000Vs
X120600+6320000Vs
X120600+6550000Vs
X102800+6545000Vs
X102800+7245000Vs
X092200+7300000Vs
X081200+7310000Vs
X080830+5940000Vs
X083500+5930000Vs
X083400+4630000Vs
X091700+4630000Vs
X091700+4130000Vs
X094230+4130000Vs
X140300+6520000VM
X154100+6540000Vs
X154000+6940000Vs
X163200+6945000Vs
X162900+7450000Vs
X172500+7455000Vs
X172000+7955000Vs
X175000+8000000Vs
X172200+8600000Vs
X203000+8625000Vs
X202500+8640000Vs
X225000+8650000Vs
X224000+8840000Vs
X090000+8740000Vs
X084000+8610000Vs
X141500+8600000Vs
X142800+7930000Vs
X133500+7920000Vs
X133600+7620000Vs
X130600+7620000Vs
X130500+6920000Vs
X140300+6925000Vs
X140300+6520000Vs
X105130-0640000VM
X105200+0620000Vs
X094200+0625000Vs
X200200+5950000VM
X200200+6155000Vs
X202700+6200000Vs
X202600+6725000Vs
X204200+6725000Vs
X203800+7530000Vs
X200800+7520000Vs
X200200+8025000Vs
X205230+8030000Vs
X203000+8625000Vs
X130600+7620000VM
X113800+7620000Vs
X113800+7920000Vs
X105000+7920000Vs
X105100+8125000Vs
X092500+8130000Vs
X092200+7300000Vs
X225700+5700000VM
X225630+5945000Vs
X231500+5945000Vs
X231500+6340000Vs
X234000+6340000Vs
X234000+6640000Vs
X002700+6640000Vs
X002600+7740000Vs
X034100+7725000Vs
X034600+7725000Vs
X035000+8025000Vs
X052000+8010000Vs
X053500+8510000Vs
X083000+8440000Vs
X084000+8610000Vs
X081200+0640000VM
X080200+0640000Vs
X080200+0940000Vs
X075530+0940000Vs
X075530+1310000Vs
X073630+1310000Vs
X073630+1215000Vs
X070700+1215000Vs
X070700+0950000Vs
X092200+0630000VM
X092200+3300000Vs
X080730+3310000Vs
X080730+2740000Vs
X080030+2740000Vs
X080030+1940000Vs
X075600+1940000Vs
X075530+1310000Vs
X225700+5310000VM
X232530+5310000Vs
X232530+5040000Vs
X234100+5040000Vs
X234100+4840000Vs
X001630+4840000Vs
X001630+4640000Vs
X005830+4640000Vs
X005830+4840000Vs
X011400+4840000Vs
X011400+5040000Vs
X013000+5040000Vs
X013000+5435000Vs
X015000+5435000Vs
X015000+5805000Vs
X020630+5805000Vs
X020630+5905000Vs
X023500+5905000Vs
X023500+5730000Vs
X031500+5730000Vs
X080730+3310000VM
X075300+3310000Vs
X075300+3515000Vs
X073000+3515000Vs
X064000+3520000Vs
X064000+2750000Vs
X060030+2800000Vs
X060030+2250000Vs
X060030+2130000Vs
X062000+2130000Vs
X062030+1730000Vs
X062600+1730000Vs
X062530+1155000Vs
X080830+5940000VM
X071030+5945000Vs
X071030+6145000Vs
X061730+6155000Vs
X061630+5600000Vs
X061630+5355000Vs
X064000+5355000Vs
X064000+4950000Vs
X065730+4950000Vs
X065700+4420000Vs
X073030+4415000Vs
X073000+3515000Vs
X032400+1020000VM
X032400+1930000Vs
X032900+1930000Vs
X032930+3110000Vs
X025030+3110000Vs
X023200+3110000Vs
X023200+2745000Vs
X020200+2750000Vs
X020200+2535000Vs
X014700+2535000Vs
X032830+5255000VM
X045130+5245000Vs
X051100+5245000Vs
X051100+5610000Vs
X061630+5600000Vs
X034100+7725000VM
X033630+6830000Vs
X031700+6830000Vs
X031500+5730000Vs
X031900+5730000Vs
X031900+5530000Vs
X032830+5530000Vs
X032830+5255000Vs
X013130+3340000VM
X013130+3540000Vs
X020730+3540000Vs
X020730+3725000Vs
X023830+3720000Vs
X023930+5105000Vs
X021100+5105000Vs
X021030+4740000Vs
X014700+4740000Vs
X014700+5040000Vs
X011400+5040000Vs
X025030+3110000VM
X025030+3435000Vs
X024230+3435000Vs
X060030+2250000VM
X054930+2250000Vs
X054930+1805000Vs
X055330+1805000Vs
X055330+1230000Vs
X054300+1230000Vs
X054300+1535000Vs
X052730+1540000Vs
X052730+1610000Vs
X050700+1610000Vs
X050700+1540000Vs
X044430+1540000Vs
X044330+0015000Vs
X060030+2250000VM
X060030+2830000Vs
X045300+2845000Vs
X045300+3015000Vs
X043730+3015000Vs
X043730+3055000Vs
X032930+3110000Vs
X043730+3055000VM
X043730+3615000Vs
X044930+3615000Vs
X045130+5245000Vs
X023830+3720000VM
X024230+3720000Vs
X024230+3435000Vs
X025030+3435000Vs
END_OF_FILE
if test 14858 -ne `wc -c <'data/boundaries.star'`; then
echo shar: \"'data/boundaries.star'\" unpacked with wrong size!
fi
# end of 'data/boundaries.star'
fi
if test -f 'data/pattern.star' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'data/pattern.star'\"
else
echo shar: Extracting \"'data/pattern.star'\" \(14510 characters\)
sed "s/^X//" >'data/pattern.star' <<'END_OF_FILE'
X055510+0724000VMR8 , ORION
X053508+0956000VDR8
X052508+0621000VDR8
X053201-0018000VDR8
X051432-0812000VDR8
X054746-0940000VDR8
X054046-0157000VDR8
X055510+0724000VDR8
X055510+0724000VMR8
X060223+0939000VDR8
X061156+1413000VDR8
X060735+1446000VDR8
X060355+2008000VDR8
X061156+1413000VMR8
X061451+1909000VDR8
X052508+0621000VMR8
X044951+0657000VDR8
X045453+1010000VMR8
X045037+0854000VDR8
X044951+0657000VDR8
X045113+0536000VDR8
X045415+0227000VDR8
X045833+0143000VDR8
X020932+3459000VMR8 , TRIANGULUM
X015305+2935000VDR8
X021719+3351000VDR8
X020932+3459000VDR8
X000823+2905000VMR8 , ANDROMEDA
X003920+3052000VDR8
X010944+3537000VDR8
X020353+4220000VDR8
X000823+2905000VMR8
X003653+3343000VDR8
X005645+3830000VDR8
X013759+4837000VDR8
X015424+6341000VMR8 , CASSIOPEIA
X012549+6014000VDR8
X005642+6043000VDR8
X004031+5632000VDR8
X000910+5909000VDR8
X230347+2805000VMR8 , PEGASUS
X000823+2905000VDR8
X001314+1511000VDR8
X230446+1512000VDR8
X230347+2805000VDR8
X224300+3013000VDR8
X220700+2520000VDR8
X214439+2539000VDR8
X230347+2805000VMR8
X225001+2436000VDR8
X224632+2334000VDR8
X214431+1721000VDR8
X212205+1949000VDR8
X230446+1512000VMR8
X224642+1211000VDR8
X224127+1050000VDR8
X221012+0612000VDR8
X214411+0953000VDR8
X051641+4600000VMR8 , AURIGA
X050158+4350000VDR8
X050631+4114000VDR8
X050229+4105000VDR8
X045700+3309000VDR8
X052617+2836000VDR8
X055943+3712000VDR8
X055932+4457000VDR8
X051641+4600000VDR8
X032449+0902000VMR8 , TAURUS
X040040+1229000VDR8
X041948+1537000VDR8
X042256+1732000VDR8
X042837+1911000VDR8
X034729+2407000VDR8
X042837+1911000VMR8
X044215+2258000VDR8
X052617+2836000VDR8
X041948+1537000VMR8
X042840+1552000VDR8
X043555+1630000VDR8
X053739+2109000VDR8
X015331+1917000VMR8 , ARIES
X015439+2048000VDR8
X020710+2327000VDR8
X024959+2716000VDR8
X011140+3006000VMR8 , PISCES
X011928+2716000VDR8
X011345+2435000VDR8
X013129+1521000VDR8
X014524+0909000VDR8
X020202+0246000VDR8
X014126+0529000VDR8
X010256+0753000VDR8
X004841+0735000VDR8
X235919+0652000VDR8
X233957+0538000VDR8
X232758+0623000VDR8
X232021+0523000VDR8
X231710+0317000VDR8
X232656+0115000VDR8
X234203+0147000VDR8
X234624+0329000VDR8
X233957+0538000VDR8
X015127-1020000VMR8 , CETUS
X012501-0811000VDR8
X010836-1011000VDR8
X001926-0850000VDR8
X004335-1759000VDR8
X014404-1556000VDR8
X015127-1020000VDR8
X021921-0259000VDR8
X023929+0020000VDR8
X024318+0314000VDR8
X023553+0535000VDR8
X022809+0828000VDR8
X024456+1007000VDR8
X025943+0855000VDR8
X030217+0406000VDR8
X024318+0314000VDR8
X014339+5041000VMR8 , PERSEUS
X025042+5554000VDR8
X030448+5330000VDR8
X032420+4951000VDR8
X030930+4452000VDR8
X030811+4057000VDR8
X030511+3850000VDR8
X025035+3819000VDR8
X032420+4951000VMR8
X034255+4747000VDR8
X035751+4000000VDR8
X035857+3547000VDR8
X035408+3153000VDR8
X034419+3217000VDR8
X032905+5957000VMR8 , CAMELOPARDALIS
X035022+7119000VDR8
X045403+6620000VDR8
X050325+6027000VDR8
X045717+5346000VDR8
X222334+5214000VMR8 , LACERTA
X223117+5017000VDR8
X222431+4928000VDR8
X222932+4743000VDR8
X221559+3745000vSR8
X222102+4632000VDR8
X223029+4308000VDR8
X221354+3943000VDR8
X221559+3745000VDR8
X193043+2758000VMR8 , CYGNUS
X195619+3505000VDR8
X202213+4015000VDR8
X204126+4516000VDR8
X211256+3014000VMR8
X204613+3358000VDR8
X202213+4015000VDR8
X194458+4508000VDR8
X192942+5144000VDR8
X195846+1929000VMR8 , SAGITTA
X194723+1832000VDR8
X194006+1801000VDR8
X194723+1832000VMR8
X194102+1729000VDR8
X191744+2302000VMR8 , VULPECULA
X192843+2440000VDR8
X195104+2236000VDR8
X203313+1118000VMR8 , DELPHINUS
X203733+1436000VDR8
X203939+1555000VDR8
X204639+1608000VDR8
X204327+1505000VDR8
X203733+1436000VDR8
X211550+0515000VMR8 , EQUULEUS
X211021+1008000VDR8
X211429+1000000VDR8
X212254+0649000VDR8
X181951+3604000VMR8 , LYRA
X183656+3847000VDR8
X184447+3736000VDR8
X185430+3654000VDR8
X185856+3241000VDR8
X185004+3322000VDR8
X184447+3736000VDR8
X184421+3940000VMR8
X183656+3847000VDR8
X211835+6235000VMR8 , CEPHEUS
X221051+5812000VDR8
X224941+6612000VDR8
X233920+7737000VDR8
X212839+7039000VDR8
X211835+6235000VDR8
X190140-0545000VMR8 , AQUILA
X190615-0453000VDR8
X192529+0307000VDR8
X190525+1352000VDR8
X194615+1037000VDR8
X195047+0852000VDR8
X195519+0624000VDR8
X201118-0049000VDR8
X195229+0100000VDR8
X192529+0307000VDR8
X185937+1504000VMR8
X190525+1352000VDR8
X213134-0535000VMR8 , AQUARIUS
X213745-0751000VDR8
X210936-1123000VDR8
X204741-0930000VDR8
X204744-0502000VDR8
X213134-0535000VDR8
X220547-0019000VDR8
X222516+0122000VDR8
X222850-0001000VDR8
X222139-0123000VDR8
X220547-0019000VDR8
X221649-0747000VDR8
X220626-1352000VDR8
X222850-0001000VMR8
X223521-0007000VDR8
X225237-0735000VDR8
X231420-0603000VDR8
X231553-0905000VDR8
X232258-2006000VDR8
X230927-2110000VDR8
X225439-1549000VDR8
X224936-1335000VDR8
X225237-0735000VDR8
X005836-2922000VMR8 , SCULPTOR
X234855-2808000VDR8
X231850-3232000VDR8
X233259-3749000VDR8
X175332+5652000VMR8 , DRACO
X175636+5129000VDR8
X173026+5219000VDR8
X173210+5511000VDR8
X175332+5652000VDR8
X191233+6740000VDR8
X194810+7016000VDR8
X191533+7321000VDR8
X182104+7244000VDR8
X174156+7209000VDR8
X170848+6543000VDR8
X162359+6130000VDR8
X160154+5834000VDR8
X152436+5858000VDR8
X140424+6422000VDR8
X123329+6947000VDR8
X113124+6920000VDR8
X154403+7748000VMR8 , URSA MINOR
X161730+7545000VDR8
X152044+7150000VDR8
X145043+7409000VDR8
X154403+7748000VDR8
X164558+8202000VDR8
X173211+8635000VDR8
X023113+8915000VDR8
X134732+4919000VMR8 , URSA MAJOR
X132356+5456000VDR8
X125402+5557000VDR8
X121526+5702000VDR8
X115349+5342000VDR8
X110151+5623000VDR8
X110344+6145000VDR8
X121526+5702000VDR8
X115349+5342000VMR8
X114603+4747000VDR8
X111829+3305000VDR8
X111811+3132000VDR8
X114603+4747000VMR8
X110940+4429000VDR8
X102219+4130000VDR8
X101706+4255000VDR8
X110151+5623000VMR8
X095059+5903000VDR8
X095206+5404000VDR8
X093450+5203000VDR8
X093251+5141000VDR8
X085913+4802000VDR8
X090337+4709000VDR8
X110344+6145000VMR8
X093132+6304000VDR8
X083016+6043000VDR8
X095059+5903000VDR8
X201803-1232000VMR8 , CAPRICORNUS
X202101-1447000VDR8
X202851-1749000VDR8
X204606-2516000VDR8
X205149-2656000VDR8
X210708-2500000VDR8
X212640-2225000VDR8
X212843-2149000VDR8
X213705-1928000VDR8
X214702-1608000VDR8
X214005-1640000VDR8
X212215-1650000VDR8
X210557-1714000VDR8
X201803-1232000VDR8
X225739-2937000VMR8 , PISCIS AUSTRINUS
X224040-2703000VDR8
X221419-2746000VDR8
X214744-3054000VDR8
X214457-3302000VDR8
X220823-3300000VDR8
X223130-3221000VDR8
X225231-3252000VDR8
X225557-3232000VDR8
X225739-2937000VDR8
X031204-2859000VMR8 , FORNAX
X024905-3225000VDR8
X020430-2918000VDR8
X212046-4049000VMR8 , MICROSCOPIUM
X211757-3210000VDR8
X210118-3216000VDR8
X204958-3347000VDR8
X162156+1909000VMR8 , HERCULES
X163013+2129000VDR8
X164117+3136000VDR8
X164254+3856000VDR8
X171503+3648000VDR8
X170018+3055000VDR8
X164117+3136000VDR8
X170018+3055000VMR8
X171502+2450000VDR8
X171439+1423000VDR8
X171503+3648000VMR8
X172341+3708000VDR8
X175615+3715000VDR8
X171503+3648000VMR8
X173927+4601000VDR8
X164254+3856000VMR8
X163406+4227000VDR8
X161944+4619000VDR8
X160846+4456000VDR8
X155240+4227000VDR8
X230053-5245000VMR8 , GRUS
X224833-5119000VDR8
X224240-4653000VDR8
X222916-4329000VDR8
X222945-4345000VDR8
X220606-3933000VDR8
X215356-3722000VDR8
X230653-4332000VMR8
X231021-4515000VDR8
X224240-4653000VDR8
X220814-4658000VDR8
X184710-0445000VMR8 , SCUTUM
X183512-0815000VDR8
X182340-0856000VDR8
X183512-0815000VMR8
X182912-1434000VDR8
X181738-3646000VMR8 , SAGITTARIUS
X182410-3423000VDR8
X180548-3026000VDR8
X182100-2949000VDR8
X182758-2526000VDR8
X181346-2103000VDR8
X182758-2526000VMR8
X184540-2700000VDR8
X185516-2618000VDR8
X190656-2740000VDR8
X190237-2952000VDR8
X184540-2700000VDR8
X190237-2952000VMR8
X182410-3423000VDR8
X182100-2949000VDR8
X190656-2740000VMR8
X193642-2453000VDR8
X195657-2710000VDR8
X200240-2742000VDR8
X195951-3442000VDR8
X195944-3517000VDR8
X195516-4152000VDR8
X192354-4037000VDR8
X195516-4152000VMR8
X192238-4428000VDR8
X185844-3706000VMR8 , CORONA AUSTRALIS
X190625-3703000VDR8
X190928-3755000VDR8
X191002-3920000VDR8
X190820-4030000VDR8
X190307-4206000VDR8
X172658-2952000VMR8 , OPHIUCHUS
X172200-2500000VDR8
X172622-2411000VDR8
X172101-2106000VDR8
X171023-1543000VDR8
X163709-1034000VDR8
X161819-0442000VDR8
X161420-0341000VDR8
X163055+0159000VDR8
X165744+0923000VDR8
X173456+1234000VDR8
X174328+0434000VDR8
X174754+0243000VDR8
X171023-1543000VDR8
X174754+0243000VMR8
X175901-0947000VDR8
X185613+0412000VMR8 , SERPENS CAUDA
X182118-0253000VDR8
X174125-1252000VDR8
X173736-1524000VDR8
X172049-1251000VDR8
X154937-0325000VMR8 , SERPENS CAPUT
X155049+0429000VDR8
X154417+0625000VDR8
X153449+1032000VDR8
X154611+1525000VDR8
X154844+1808000VDR8
X155627+1539000VDR8
X154611+1525000VDR8
X153256+3122000VMR8 , CORONA BOREALIS
X152749+2906000VDR8
X153441+2643000VDR8
X154245+2618000VDR8
X154936+2604000VDR8
X155735+2653000VDR8
X160126+2951000VDR8
X155654-2913000VMR8 , SCORPIUS
X155851-2607000VDR8
X160020-2237000VDR8
X160526-1948000VDR8
X161200-1928000VDR8
X160020-2237000VMR8
X162112-2535000VDR8
X162925-2626000VDR8
X163553-2813000VDR8
X165010-3418000VDR8
X165152-3803000VDR8
X165435-4221000VDR8
X171209-4314000VDR8
X173719-4300000VDR8
X174735-4007000VDR8
X174229-3903000VDR8
X173336-3706000VDR8
X153840-2947000VMR8 , LIBRA
X153701-2808000VDR8
X150404-2517000VDR8
X145053-1603000VDR8
X151700-0923000VDR8
X153532-1447000VDR8
X150404-2517000VDR8
X181113-4557000VMR8 , TELESCOPIUM
X182659-4558000VDR8
X182850-4904000VDR8
X135441+1824000VMR8 , BOOTES
X141540+1911000VDR8
X143150+3023000VDR8
X143205+3819000VDR8
X150157+4023000VDR8
X151530+331900)VDR8
X144459+270500)VDR8
X141540+1911000VDR8
X144109+1343000VDR8
X125602+3819000VMR8 , CANES VENATICI
X123345+4121000VDR8
X130959+1731000VMR8 , COMA BERENICES
X131152+2753000VDR8
X122656+2816000VDR8
X111415+1526000VMR8 , LEO
X114904+1434000VDR8
X111406+2031000VDR8
X111415+1526000VDR8
X100822+1158000VDR8
X100720+1646000VDR8
X101959+1951000VDR8
X101642+2325000VDR8
X095246+2601000VDR8
X094551+2346000VDR8
X100726+3515000VMR8 , LEO MINOR
X102753+3642000VDR8
X105318+3413000VDR8
X160008-3842000VMR8 , LUPUS
X153510-4110000VDR8
X152240-4442000VDR8
X151156-4844000VDR8
X151217-5206000VDR8
X144156-4724000VDR8
X145832-4308000VDR8
X152122-4039000VDR8
X153509-4110000VDR8
X152122-4039000VMR8
X152149-3616000VDR8
X155057-3337000VDR8
X162711-4734000VMR8 , NORMA
X161950-5010000VDR8
X160313-4914000VDR8
X114553+0631000VMR8 , VIRGO
X115042+0146000VDR8
X121954-0040000VDR8
X124140-0127000VDR8
X130958-0532000VDR8
X132511-1109000VDR8
X133442-0036000VDR8
X125536+0323000VDR8
X124140-0127000VDR8
X125536+0323000VMR8
X130211+1058000VDR8
X132511-1109000VMR8
X141601-0600000VDR8
X144303-0539000VDR8
X133442-0036000VMR8
X140138+0133000VDR8
X144615+0154000VDR8
X120824-2443000VMR8 , CORVUS
X121008-2237000VDR8
X121549-1732000VDR8
X122951-1631000VDR8
X123423-2324000VDR8
X121008-2237000VDR8
X115601-1709000VMR8 , CRATER
X114446-1821000VDR8
X112453-1741000VDR8
X111139-2250000VDR8
X105946-1818000VDR8
X111920-1446000VDR8
X112453-1741000VDR8
X113641-0948000VMR8
X112437-1052000VDR8
X111920-1446000VDR8
X140623-2641000VMR8 , HYDRA
X132943-2317000VDR8
X131855-2311000VDR8
X115254-3354000VDR8
X113300-3151000VDR8
X104937-1611000VDR8
X102605-1651000VDR8
X101035-1222000VDR8
X100507-1304000VDR8
X095129-1451000VDR8
X092735-0840000VDR8
X093951-0108000VDR8
X091422+0219000VDR8
X085524+0557000VDR8
X084314+0323000VDR8
X083846+0321000VDR8
X083740+0542000VDR8
X084647+0625000VDR8
X085524+0557000VDR8
X095230-0806000VMR8 , SEXTANS
X100756-0022000VDR8
X103018-0038000VDR8
X092103+3424000VMR8 , LYNX
X091850+3649000VDR8
X090040+4147000VDR8
X082250+4312000VDR8
X072643+4913000VDR8
X065716+5825000VDR8
X061755+6131000VDR8
X085829+1152000VMR8 , CANCER
X084441+1809000VDR8
X084317+2128000VDR8
X084642+2846000VDR8
X084441+1809000VMR8
X081631+0912000VDR8
X073918+0514000VMR8 , CANIS MINOR
X072709+0817000VDR8
X105643-3708000VMR8 , ANTLIA
X102710-3105000VDR8
X094412-2746000VDR8
X092915-3557000VDR8
X140641-3623000VMR8 , CENTAURUS
X134930-4141000VDR8
X143530-4209000VDR8
X145909-4206000VDR8
X134930-4141000VMR8
X133104-3925000VDR8
X132035-3643000VDR8
X134930-4141000VMR8
X134938-4229000VDR8
X135532-4718000VDR8
X133953-5328000VDR8
X124131-4858000VDR8
X134930-4141000VDR8
X124131-4858000VMR8
X122803-5014000VDR8
X120821-5043000VDR8
X121139-5222000VDR8
X061452+2230000VMR8 , GEMINI
X062258+2231000VDR8
X064356+2508000VDR8
X071109+3015000VDR8
X072907+3147000VDR8
X073436+3153000VDR8
X074319+2853000VDR8
X074519+2801000VDR8
X074427+2424000VDR8
X072007+2159000VDR8
X070407+2034000VDR8
X063743+1624000VDR8
X064518+1254000VDR8
X072007+2159000VMR8
X071806+1632000VDR8
X084006-3518000VMR8 , PYXIS
X084335-3312000VDR8
X085032-2742000VDR8
X062242-1757000VMR8 , CANIS MAJOR
X064509-1643000VDR8
X070302-2350000VDR8
X070824-2624000VDR8
X070143-2756000VDR8
X065838-2858000VDR8
X070824-2624000VMR8
X072405-2918000VDR8
X080836-0259000VMR8 , MONOCEROS
X074115-0933000VDR8
X071151-0030000VDR8
X064752+0224000VDR8
X062346+0436000VDR8
X063254+0720000VDR8
X071151-0030000VMR8
X062849-0702000VDR8
X061452-0617000VDR8
X051256-1612000VMR8 , LEPUS
X053244-1750000VDR8
X055119-2052000VDR8
X054428-2227000VDR8
X052815-2045000VDR8
X053244-1750000VDR8
X052815-2045000VMR8
X050528-2222000VDR8
X062207-3326000VMR8 , COLUMBA
X061633-3508000VDR8
X055733-3517000VDR8
X055058-3546000VDR8
X053939-3405000VDR8
X053113-3529000VDR8
X055058-3546000VMR8
X055909-4249000VDR8
X080932-4721000VMR8 , VELA {may not be complete}
X084443-5443000VDR8
X092207-5501000VDR8
X095652-5435000VDR8
X104646-4926000VDR8
X103719-4814000VDR8
X103258-4700000VDR8
X101445-4207000VDR8
X093042-4028000VDR8
X090800-4326000VDR8
X084425-4239000VDR8
X083739-4259000VDR8
X080932-4721000VDR8
X080733-2418000VMR8 , PUPPIS
X074917-2452000VDR8
X073850-2648000VDR8
X073524-2822000VDR8
X071709-3706000VDR8
X063746-4311000VDR8
X064956-5037000VDR8
X075319-4806000VDR8
X074915-4622000VDR8
X080335-4000000VDR8
X080733-2418000VDR8
X050909-0845000VMR8 , ERIDANUS
X050751-0505000VDR8
X045254-0527000VDR8
X044530-0315000VDR8
X043619-0321000VDR8
X041152-0650000VDR8
X035802-1331000VDR8
X034609-1206000VDR8
X034314-0946000VDR8
X033256-0928000VDR8
X025625-0854000VDR8
X024408-1352000VDR8
X024506-1835000VDR8
X030224-2337000VDR8
X031931-2145000VDR8
X033347-2138000VDR8
X034651-2315000VDR8
X035342-2436000VDR8
X035956-2401000VDR8
X043330-2946000VDR8
X043533-3034000VDR8
X042402-3401000VDR8
X041754-3348000VDR8
X034928-3612000VDR8
X034837-3737000VDR8
X033706-4016000VDR8
X031956-4304000VDR8
X025825-4018000VDR8
X024040-3951000VDR8
X023949-4253000VDR8
X022659-4742000VDR8
X021630-5131000VDR8
X015557-5136000VDR8
X013742-5715000VDR8
X044033-4152000VMR8 , CAELUM
X044203-3708000VDR8
X013115-4905000VMR8 , PHOENIX {may not be complete}
X012821-4319000VDR8
X010605-4643000VDR8
X002517-4218000VDR8
X000924-4545000VDR8
X233505-4237000VDR8
X233753-4529000VDR8
X235856-5244000VDR8
X000924-4545000VMR8
X004321-5728000VDR8
X010605-4643000VMR8
X010823-5515000VDR8
X041400-4217000VMR8 , HOROLOGIUM {not complete}
X024233-5048000VDR8
X023724-5233000VDR8
X024040-5433000VDR8
X030336-5945000VDR8
END_OF_FILE
if test 14510 -ne `wc -c <'data/pattern.star'`; then
echo shar: \"'data/pattern.star'\" unpacked with wrong size!
fi
# end of 'data/pattern.star'
fi
if test -f 'starchart/staribm.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'starchart/staribm.c'\"
else
echo shar: Extracting \"'starchart/staribm.c'\" \(14865 characters\)
sed "s/^X//" >'starchart/staribm.c' <<'END_OF_FILE'
X/*
X * IBM PC driver for starchart 3.0 by Tom Horsley (tahorsley@ssd.harris.com)
X *
X * Uses the Microsoft C graphics library. I do not know just how compatible
X * this is with Turbo C since I have never seen Turbo C. The 5.1 Microsoft
X * compiler is supposed to have support for Hercules graphics, but this
X * is being developed under 5.0, so there is no Hercules support.
X *
X * Development was done with a IBM PC clone, Microsoft C 5.0,
X * a QuadEGA Prosync display card, and (thank goodness) an 8087
X * numeric co-processor.
X *
X * WARNING: A quick kludge was used to get a character set to display.
X * The BIOS ROM is read to get the 8 x 8 character bit map used when
X * the PC is in graphics mode. On really really standard PCs the
X * following code sets up the segment and offset of a far pointer
X * to the table in the BIOS rom for the bit map for a particular character.
X *
X * FP_SEG(xtab) = 0xffa6 ;
X * FP_OFF(xtab) = 0xe + (c * 8) ;
X *
X * If your PC is not extremely standard, your character font may not
X * be located at this address. If you know (or can find out) where it
X * is, change the address. If not, just delete the body of the routine
X * and live without labels.
X *
X * The Microsoft library is pretty compatible with U**x System V, so
X * compile everything with the SYSV flag set and you will be OK.
X *
X * The main glitch is the file "con.locs". You have absolutely GOT
X * to rename this file under DOS, otherwise it tries to talk to
X * the CONsole. I use "cons.loc", which is fairly close.
X * Renaming the built in file names is done by modifying pcstar.h.
X *
X * This driver is the code I wrote for starchart 2.1 wedged into the
X * sample driver provided with 3.0, then updated for 3.1.
X *
X * Compiling with DEBUG on dummies up the data in the videoconfig struct
X * to look like an EGA and causes the low level routines to write to a
X * debug file (debug.ibm) the low level graphics commands rather than
X * actually doing graphics. This makes life simpler when trying to debug
X * the program on the same display you are doing graphics on.
X *
X * Copyright (c) 1990 by Tom Horsley and Craig Counterman. All rights reserved.
X *
X * This software may be redistributed freely, not sold.
X * This copyright notice and disclaimer of warranty must remain
X * unchanged.
X *
X * No representation is made about the suitability of this
X * software for any purpose. It is provided "as is" without express or
X * implied warranty, to the extent permitted by applicable law.
X *
X */
X */
X
X/*
X * $Header: staribm.c,v 1.2 90/02/19 17:55:09 ccount Exp $
X */
X
X
X#include <stdio.h>
X#include <math.h>
X#ifndef SYSV
X#include <strings.h>
X#else
X#include <string.h>
X#endif
X#include <ctype.h>
X
X#include <graph.h>
X#include <dos.h>
X
X#include "star3.h"
X
X/* Externs */
X
Xstruct videoconfig vc
X#ifdef DEBUG
X = {640,350,80,48,8,4,1,0,0,0,256}
X#endif
X;
Xint yscale1 ;
Xlong yscale2 ;
Xlong xscale1 ;
Xint vmodes[] = {
X _VRES16COLOR,
X _VRES2COLOR,
X _ERESCOLOR,
X _ERESNOCOLOR,
X _HRES16COLOR,
X _HRESBW,
X _MRES16COLOR,
X _MRES4COLOR,
X _MRESNOCOLOR
X} ;
X#define numodes (sizeof(vmodes)/sizeof(int))
Xchar * modenames[] = {
X "VRES16COLOR",
X "VRES2COLOR",
X "ERESCOLOR",
X "ERESNOCOLOR",
X "HRES16COLOR",
X "HRESBW",
X "MRES16COLOR",
X "MRES4COLOR",
X "MRESNOCOLOR",
X NULL
X} ;
Xint control_mode = -1;
Xint yrad[7] = {7, 6, 5, 4, 3, 2, 1} ;
Xint xrad[7] = {7, 6, 5, 4, 3, 2, 1} ;
X
Xint draw_blue ;
Xint draw_white ;
Xint draw_yellow ;
Xint draw_red ;
Xint draw_green ;
X
Xstatic int xlast,ylast ;
X#define scx(x) ((int)((((long)(x))*xscale1)/1000L))
X#define scy(y) (yscale1-((int)((((long)(y))*yscale2)/10000L)))
X
Xextern int g_argc;
Xextern char **g_argv;
X
Xextern char *title; /* Title of page */
X
Xextern mapwindow *mapwin[MAXWINDOWS];
Xextern int numwins;
X
Xextern int cur_function;
Xextern int cur_map_type;
Xextern int cur_map_tag;
Xextern char *cur_tag_field;
X
X/* Set by initxform
X One could use elements of the mapwindow structure,
X but these should be faster for the current window */
Xextern int xproj_mode;
Xextern double xwest, xeast, xnorth, xsouth, xbot;
Xextern int cenx, ceny, strty;
Xextern double xracen, sindlcen, cosdlcen, chart_scale;
Xextern double yscale;
Xextern double xc_scale;
Xextern double inv_;
X
X
X/* Scale multiplier, minimum,
X mangitude change, maximum, for thumbnail,*/
X#define THSMUL 1.2
X#define THSMIN 10.0
X#define THMADJ 2.5
X#define THMMAX 5.0
X
X/* Exports */
X
X/* The variables in the first few lines MUST be set by driver */
Xmapwindow fullpage = {
X 880, 700, 20, 65, /* width, height, x and y offsets */
X 5.9, 2.0, 2.05, /* default limiting mags for glyph, name, label */
X
X/* The next several variables SHOULD be set by the driver,
X but are only used by the driver */
X FULLPAGEMAP, /* Type of map: THUMBNAIL may have
X some restrictions */
X 0, /* May be used by driver for whatever */
X "String", /* May be used by driver for whatever */
X
X/* The next several variables may be set by the driver, but the main routines
X may reset them (and the driver routines may then override that) */
X SANSONS, /* Projection mode */
X FALSE, FALSE, /* Draw grids */
X 0.5, 5.0, /* grid step size */
X 0.0, 0.0, /* grid origin */
X
X FALSE, /* Invert (flip north south) */
X};
X
X/* The variables in the first few lines MUST be set by driver */
Xmapwindow mainmap = {
X 880, 500, 20, 265, /* width, height, x and y offsets */
X 5.9, 2.0, 2.05, /* default limiting mags for glyph, name, label */
X
X/* The next several variables SHOULD be set by the driver,
X but are only used by the driver */
X MAINMAP, /* Type of map: THUMBNAIL may have
X some restrictions */
X 0, /* May be used by driver for whatever */
X "String", /* May be used by driver for whatever */
X
X/* The next several variables may be set by the driver, but the main routines
X may reset them (and the driver routines may then override that) */
X SANSONS, /* Projection mode */
X FALSE, FALSE, /* Draw grids */
X 0.5, 5.0, /* grid step size */
X 0.0, 0.0, /* grid origin */
X
X FALSE, /* Invert (flip north south) */
X};
X
X
X/* The variables in the first few lines MUST be set by driver */
Xmapwindow thumbmap = {
X 480, 195, 420, 35, /* width, height, x and y offsets */
X 3.0+THMADJ, 1.0+THMADJ, 2.05+THMADJ,
X /* default limiting mags for glyph, name, label */
X
X/* The next several variables SHOULD be set by the driver,
X but are only used by the driver */
X THUMBNAIL, /* Type of map: THUMBNAIL may have
X some restrictions */
X 0, /* May be used by driver for whatever */
X "String", /* May be used by driver for whatever */
X
X/* The next several variables may be set by the driver, but the main routines
X may reset them (and the driver routines may then override that) */
X SANSONS, /* Projection mode */
X FALSE, FALSE, /* Draw grids */
X 0.5, 5.0, /* grid step size */
X 0.0, 0.0, /* grid origin */
X
X FALSE, /* Invert (flip north south) */
X};
X
X/* h & v tick text controls */
Xint htick_lim = 2;
Xint htext_lim = 80;
Xint htext_xoff = 2;
Xint htext_yoff = 17;
Xint vtick_lim = 2;
Xint vtext_lim = 20;
Xint vtext_xoff = 24;
Xint vtext_yoff = 0;
X
X/* externs for labels */
Xint x_nameoffset = 10, y_nameoffset = 0;
Xint x_lbloffset = 0, y_lbloffset = 10;
Xint x_magoffset = 7, y_magoffset = -15;
X
X/* externs for legend: variables of positioning are here */
Xint l_til=220;
Xint l_stil=185;
X
Xint l_lmar1=40;
Xint l_lmar2=65;
Xint l_ltext=95;
Xint l_rmar1=205;
Xint l_rmar2=230;
Xint l_rtext=260;
X
Xint l_line1=150;
Xint l_line2=125;
Xint l_line3=100;
Xint l_line4=75;
Xint l_line5=50;
Xint l_line6=25;
X
X/* Point sizes for font calls */
Xint titlesize=16;
Xint subtlsize=12;
Xint namesize=10;
Xint lblsize=8;
Xint magsize=8;
X
X/* Fonts for font calls */
Xint namefnt=TIMESROMAN;
Xint lblfnt=HELV;
Xint magfnt=COURIER;
Xint titlefnt=TIMESBOLD;
Xint subtlfnt=TIMESROMAN;
X
X/* Scale multiplier, minimum,
X mangitude change, maximum, for thumbnail,*/
Xdouble th_smul=THSMUL;
Xdouble th_smin=THSMIN;
Xdouble th_madj=THMADJ;
Xdouble th_mmax=THMMAX;
X
X#define MAX(a,b) ((a)>(b)?(a):(b))
X#define MIN(a,b) ((a)<(b)?(a):(b))
X
X/*
X * Generic Star Drawing Stuff
X */
X
X#ifdef DEBUG
XFILE * dbgfile ;
X#undef _selectpalette
X#undef _remappalette
X#undef _setcolor
X#undef _setvideomode
X#undef _moveto
X#undef _setlinestyle
X#undef _lineto
X#define _selectpalette(x)
X#define _remappalette(x,y)
X#define _setcolor(x)
X#define _setvideomode(x)
X#define _moveto(x,y) fprintf(dbgfile,"_moveto(%d,%d)\n",x,y)
X#define _setlinestyle(x)
X#define _lineto(x,y) fprintf(dbgfile,"_lineto(%d,%d)\n",x,y)
X#endif
X
X/* Override graphics mode */
XD_control_arg(s)
Xchar *s;
X{
X int arglen = strlen(s);
X int i;
X
X for (i = 0; i < numodes; ++i) {
X if (strnicmp(s, modenames[i], arglen) == 0) {
X control_mode = i;
X fprintf(stderr, "Will attempt to use %s graphics mode.\n",
X modenames[i]);
X break;
X }
X }
X}
X
Xextern int readstar();
Xextern int (*readfile)();
X
X/* Open the device */
Xint
XD_open()
X{
X int i ;
X float aspect ;
X int limit ;
X
X readfile = readstar; /* No memory to spare on PC */
X#ifndef DEBUG
X if (control_mode == -1) {
X limit = numodes ;
X i = 0 ;
X } else {
X i = control_mode;
X limit = control_mode+1;
X }
X for (; i < limit; ++i) {
X if (_setvideomode(vmodes[i]) != 0) {
X _getvideoconfig(&vc) ;
X#else
X i = 2 ;
X dbgfile = fopen("debug.ibm","w") ;
X#endif
X switch(vmodes[i]) {
X case _MRES4COLOR :
X _selectpalette(2) ;
X draw_blue = 3 ;
X draw_white = 3 ;
X draw_yellow = 3 ;
X draw_red = 2 ;
X draw_green = 1 ;
X break ;
X case _MRESNOCOLOR :
X _selectpalette(1) ;
X draw_blue = 3 ;
X draw_white = 3 ;
X draw_yellow = 3 ;
X draw_red = 2 ;
X draw_green = 1 ;
X break ;
X case _MRES16COLOR :
X case _HRES16COLOR :
X case _ERESCOLOR :
X case _VRES2COLOR :
X case _VRES16COLOR :
X case _MRES256COLOR :
X _remappalette(1, _GREEN) ;
X _remappalette(2, _RED) ;
X _remappalette(3, _LIGHTYELLOW) ;
X _remappalette(4, _WHITE) ;
X _remappalette(5, _BLUE) ;
X draw_blue = 5 ;
X draw_white = 4 ;
X draw_yellow = 3 ;
X draw_red = 2 ;
X draw_green = 1 ;
X break ;
X default :
X draw_blue = 1 ;
X draw_white = 1 ;
X draw_yellow = 1 ;
X draw_red = 1 ;
X draw_green = 1 ;
X }
X _setcolor(draw_green) ;
X yscale1 = vc.numypixels - 1 ;
X yscale2 = (long)(13 * vc.numypixels) ;
X xscale1 = (long)(0.5 + 0.9765625 * vc.numxpixels) ;
X xlast = 0 ;
X ylast = yscale1 ;
X aspect = 1.3333333333 * (float)(vc.numypixels) /
X (float)(vc.numxpixels) ;
X for (i = 0; i < 7; ++i) {
X yrad[i] = (int)(aspect * (float)(yrad[i]) + 0.5) ;
X if (yrad[i] < 1) {
X yrad[i] = 1 ;
X }
X }
X return TRUE ;
X#ifndef DEBUG
X }
X }
X printf("No graphics available!\n") ;
X return FALSE ;
X#endif
X}
X
X
X/* Close the device */
XD_close()
X{
X /* wait for keystroke */
X getch() ;
X /* reset screen */
X _setvideomode(_DEFAULTMODE) ;
X}
X
X
X/* Move to (x, y) */
XD_move(x, y)
X int x, y;
X{
X _moveto(scx(x),scy(y)) ;
X}
X
X
X/* Draw a line of style line_style from the current point to (x, y) */
X/* Note, this replaces vecdraw vecdrawdot and vecdrawhyph */
XD_draw(x, y, line_style)
X int x, y;
X int line_style; /* SOLID, DOTTED, DASHED, etc. */
X{
X unsigned short ls ;
X
X switch(line_style) {
X case SOLID :
X case VECSOLID :
X ls = 0xffff ;
X break ;
X case DOTTED :
X case VECDOT :
X ls = 0xaaaa ;
X break ;
X case DASHED :
X case VECDASH :
X ls = 0xf0f0 ;
X }
X _setlinestyle(ls) ;
X _setcolor(draw_green) ;
X _lineto(scx(x),scy(y)) ;
X _setlinestyle(0xffff) ;
X}
X/* This routine is encouraged to look at the extern cur_funtion
X and change the line style drawn as desired */
X
X
X/* Move to (x1, y1) then draw a line of style line_style to (x2, y2) */
XD_movedraw(x1, y1, x2, y2, line_style)
X int x1, y1, x2, y2;
X int line_style; /* SOLID, DOTTED, DASHED, etc. */
X{
X D_move(x1, y1) ;
X D_draw(x2, y2, line_style) ;
X}
X
X
X/* Set the color to be used for lines and text */
X/* color_str is a 2 char (+ '\0') string containing
X a specification for a color,
X e.g. "G2" for the color of a star of spectral class G2, or "r7" for
X red, level seven. The interpretation of the color string is left to
X the device driver */
XD_color(color_str)
X char *color_str;
X{
X switch (color_str[0]) {
X case 'O':
X case 'B':
X _setcolor(draw_blue) ;
X break;
X case 'A':
X case 'F':
X _setcolor(draw_white) ;
X break;
X case 'G':
X case 'K':
X _setcolor(draw_yellow) ;
X break;
X case 'M':
X _setcolor(draw_red) ;
X break;
X default:
X _setcolor(draw_green) ;
X break;
X }
X}
X
X
X/* Set the font and font size to be used for text. */
X/* Note order of args */
XD_fontsize(fsize, font)
X int fsize; /* Size of font */
X int font; /* e.g. TIMES, HELV, TIMES+ITALIC */
X{
X}
X/* This routine is encouraged to look at the extern cur_funtion
X and change the font used as desired */
X
X
X/*
X Fill in one character using the 8x8 character table that BIOS
X uses to write chars in graphics mode. Advance the xlast value
X by 8 bits.
X*/
Xone_char(c)
X int c ;
X{
X char far * xtab ;
X int i,j ;
X int x,y ;
X
X _setcolor(draw_green) ;
X if ((c < 0) || (c > 127)) {
X xlast += 8 ;
X return ;
X }
X y = ylast - 4 ;
X FP_SEG(xtab) = 0xffa6 ;
X FP_OFF(xtab) = 0xe + (c * 8) ;
X for (i = 0; i < 8; ++i) {
X x = xlast + 7 ;
X c = *xtab++ ;
X for (j = 0; j < 8; ++j) {
X if ((c & 1) &&
X ((x > 0) && (x < vc.numxpixels)) &&
X ((y > 0) && (y < vc.numypixels))) {
X _setpixel(x, y) ;
X }
X c >>= 1 ;
X --x ;
X }
X ++y ;
X }
X xlast += 8 ;
X}
X
X/* Display text string str at x,y, in current font and font size, using
X greek characters (if possible) if gk_flag is TRUE */
XD_text(x, y, str, gk_flag)
X int x, y;
X char *str;
X int gk_flag;
X{
X int c ;
X
X xlast = scx(x) ;
X ylast = scy(y) ;
X if (! gk_flag) {
X while ((c = *str++) != '\0') {
X one_char(c) ;
X }
X }
X}
X
X
X/* Return input coordinate in device coords where there are pointing devices */
XD_inxy(x, y)
X int *x, *y;
X{
X}
X
X
X/* Put non-displayed comment in output. Allowed in postscript, but
X few other drivers will be able to support this. */
XD_comment(str)
X char *str;
X{
X/*
X fprintf(stderr, "%s\n", str);
X*/
X}
X
Xdrawlen(x, y, dx, dy, len)
X{
X int x1, x2, y1 ;
X
X x1 = x + dx*2 ;
X y1 = y + dy*2 ;
X x2 = x1 + len*2 - 1 ;
X x1 = scx(x1) ;
X y1 = scy(y1) ;
X x2 = scx(x2) ;
X _moveto(x1, y1) ;
X _lineto(x2, y1) ;
X}
X
END_OF_FILE
if test 14865 -ne `wc -c <'starchart/staribm.c'`; then
echo shar: \"'starchart/staribm.c'\" unpacked with wrong size!
fi
# end of 'starchart/staribm.c'
fi
echo shar: End of archive 9 \(of 32\).
cp /dev/null ark9isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 ; do
if test ! -f ark${I}isdone ; then
MISSING="${MISSING} ${I}"
fi
done
if test "${MISSING}" = "" ; then
echo You have unpacked all 32 archives.
rm -f ark[1-9]isdone ark[1-9][0-9]isdone
else
echo You still need to unpack the following archives:
echo " " ${MISSING}
fi
## End of shell archive.
exit 0