Starchart program...

Hi!

I'm interested to make my own starchart program but I'd like to get some
help! Actually I need a source code for drawing the chart! I need it for
"guide" only and I'd re-create the code anyway. So if you know where to get
the code I would be pleased. It would be great if the code is done with
Visual Basic but others are welcome too.

Thanx & sorry if this is in wrong group but I thought that here I could find
some help!

-K-

In article ,
says...
Hi!

I'm interested to make my own starchart program but I'd like to get some
help! Actually I need a source code for drawing the chart! I need it for
"guide" only and I'd re-create the code anyway. So if you know where to get
the code I would be pleased. It would be great if the code is done with
Visual Basic but others are welcome too.

Thanx & sorry if this is in wrong group but I thought that here I could find
some help!

-K-




Hi Kauko,

Have a look he http://www.stargazing.net/astropc/index.html
It is an excellent program that is freeware and part of the source code
is available too. Though, I don't think the code is VB. Good Luck!

-Chris Swartz

"Kauko" wrote in Hi!

I'm interested to make my own starchart program but I'd like to get some
help! Actually I need a source code for drawing the chart! I need it for
"guide" only and I'd re-create the code anyway. So if you know where to get
the code I would be pleased. It would be great if the code is done with
Visual Basic but others are welcome too.

Thanx & sorry if this is in wrong group but I thought that here I could find
some help!


I have the stars, sun and moon animated at www.a-s-t-r-o-n-o-m-y.com
with 20kb of javascript. View source of the framed page to check the code.

This is a couple dozen lines of code that will run in IE, just check the longer
lines that wrapped and save as sky.html

________________________________________



html
headtitleAstro/title
script language="javascript"

howmany = 200
colors = new Array('#ffffff', '#eeeeee','#dddddd', '#cccccc','#bbbbbb', '#aaaaaa','#999999',
'#888888', '#777777', '#666666')


sname = new Array() //star name
sasc = new Array() //star ascension
sdec = new Array() //star declination
sdist = new Array() //star distance

sname[1] = "Sirius"
sasc[1] = 101.25
sdec[1] = -16.7
sdist[1] = 9
sname[2] = "Canopus"
sasc[2] = 96
sdec[2] = -52.7
sdist[2] = 310
sname[3] = "Rigil Kentaurus (Alpha Centauri)"
sasc[3] = 220
sdec[3] = -60.8
sdist[3] = 4
sname[4] = "Arcturus"
sasc[4] = 214
sdec[4] = 19.2
sdist[4] = 37
sname[5] = "Vega"
sasc[5] = 279.25
sdec[5] = 38.8
sdist[5] = 25
sname[6] = "Capella"
sasc[6] = 79.25
sdec[6] = 46
sdist[6] = 42
sname[7] = "Rigel"
sasc[7] = 78.75
sdec[7] = -8.2
sdist[7] = 770
sname[8] = "Procyon"
sasc[8] = 114.75
sdec[8] = 5.2
sdist[8] = 11
sname[9] = "Achernar"
sasc[9] = 24.5
sdec[9] = -57.2
sdist[9] = 144
sname[10] = "Betelgeuse"
sasc[10] = 88.75
sdec[10] = 7.4
sdist[10] = 430
sname[11] = "Hadar"
sasc[11] = 211
sdec[11] = -60.4
sdist[11] = 530
sname[12] = "Altair"
sasc[12] = 297.75
sdec[12] = 8.9
sdist[12] = 17
sname[13] = "Acrux"
sasc[13] = 186.75
sdec[13] = -63.1
sdist[13] = 320
sname[14] = "Aldebaran"
sasc[14] = 69
sdec[14] = 16.5
sdist[14] = 65
sname[15] = "Spica"
sasc[15] = 201.25
sdec[15] = -11.2
sdist[15] = 260
sname[16] = "Antares"
sasc[16] = 247.25
sdec[16] = -26.4
sdist[16] = 600
sname[17] = "Pollux"
sasc[17] = 116.25
sdec[17] = 28
sdist[17] = 34
sname[18] = "Fomalhaut"
sasc[18] = 344.5
sdec[18] = -29.6
sdist[18] = 25
sname[19] = "Mimosa"
sasc[19] = 192
sdec[19] = -59.7
sdist[19] = 350
sname[20] = "Deneb"
sasc[20] = 310.25
sdec[20] = 45.3
sdist[20] = 3000
sname[21] = "Regulus"
sasc[21] = 152
sdec[21] = 12
sdist[21] = 78
sname[22] = "Adhara"
sasc[22] = 104.75
sdec[22] = -29
sdist[22] = 430
sname[23] = "Castor"
sasc[23] = 113.75
sdec[23] = 31.9
sdist[23] = 52
sname[24] = "Gacrux"
sasc[24] = 187.75
sdec[24] = -57.1
sdist[24] = 88
sname[25] = "Shaula"
sasc[25] = 263.5
sdec[25] = -37.1
sdist[25] = 700
sname[26] = "Bellatrix"
sasc[26] = 81.25
sdec[26] = 6.3
sdist[26] = 240
sname[27] = "Elnath"
sasc[27] = 81.5
sdec[27] = 28.6
sdist[27] = 130
sname[28] = "Miaplacidus"
sasc[28] = 138.25
sdec[28] = -69.7
sdist[28] = 111
sname[29] = "Alnilam"
sasc[29] = 84
sdec[29] = -1.2
sdist[29] = 1300
sname[30] = "Alnair"
sasc[30] = 332
sdec[30] = -47
sdist[30] = 101
sname[31] = "Alnitak"
sasc[31] = 85.25
sdec[31] = -1.9
sdist[31] = 820
sname[32] = "Regor"
sasc[32] = 122.5
sdec[32] = -47.3
sdist[32] = 840
sname[33] = "Alioth"
sasc[33] = 193.5
sdec[33] = 56
sdist[33] = 81
sname[34] = "Mirfak"
sasc[34] = 51
sdec[34] = 49.9
sdist[34] = 590
sname[35] = "Kaus Australis"
sasc[35] = 276
sdec[35] = -34.4
sdist[35] = 145
sname[36] = "Dubhe"
sasc[36] = 166
sdec[36] = 61.8
sdist[36] = 124
sname[37] = "Wezen"
sasc[37] = 107
sdec[37] = -26.4
sdist[37] = 1800
sname[38] = "Alkaid"
sasc[38] = 207
sdec[38] = 49.3
sdist[38] = 101
sname[39] = "Avior"
sasc[39] = 125.75
sdec[39] = -59.5
sdist[39] = 630
sname[40] = "Sargas"
sasc[40] = 264.25
sdec[40] = -43
sdist[40] = 270
sname[41] = "Menkalinan"
sasc[41] = 90
sdec[41] = 44.9
sdist[41] = 82
sname[42] = "Atria"
sasc[42] = 252.25
sdec[42] = -69
sdist[42] = 420
sname[43] = "Alhena"
sasc[43] = 99.5
sdec[43] = 16.4
sdist[43] = 105
sname[44] = "Koo She"
sasc[44] = 131.25
sdec[44] = -54.7
sdist[44] = 80
sname[45] = "Peacock"
sasc[45] = 306.5
sdec[45] = -56.7
sdist[45] = 180
sname[46] = "Polaris"
sasc[46] = 38
sdec[46] = 89.3
sdist[46] = 430
sname[47] = "Mirzam"
sasc[47] = 95.75
sdec[47] = -18
sdist[47] = 500
sname[48] = "Alphard"
sasc[48] = 142
sdec[48] = -8.7
sdist[48] = 180
sname[49] = "Hamal"
sasc[49] = 31.75
sdec[49] = 23.5
sdist[49] = 66
sname[50] = "Algieba"
sasc[50] = 155
sdec[50] = 19.8
sdist[50] = 126
sname[51] = "Diphda"
sasc[51] = 11
sdec[51] = -18
sdist[51] = 96
sname[52] = "Nunki"
sasc[52] = 283.75
sdec[52] = -26.3
sdist[52] = 220
sname[53] = "Menkent"
sasc[53] = 211.75
sdec[53] = -36.4
sdist[53] = 61
sname[54] = "Alpheratz"
sasc[54] = 2
sdec[54] = 29.1
sdist[54] = 97
sname[55] = "Mirach"
sasc[55] = 17.5
sdec[55] = 35.6
sdist[55] = 200
sname[56] = "Saiph"
sasc[56] = 87
sdec[56] = -9.7
sdist[56] = 720
sname[57] = "Kochab"
sasc[57] = 222.75
sdec[57] = 74.2
sdist[57] = 127
sname[58] = "Al Dhanab"
sasc[58] = 340.75
sdec[58] = -46.9
sdist[58] = 170
sname[59] = "Rasalhague"
sasc[59] = 263.75
sdec[59] = 12.6
sdist[59] = 47
sname[60] = "Algol"
sasc[60] = 47
sdec[60] = 41
sdist[60] = 93
sname[61] = "Almach"
sasc[61] = 31
sdec[61] = 42.3
sdist[61] = 360
sname[62] = "Denebola"
sasc[62] = 177.25
sdec[62] = 14.6
sdist[62] = 36
sname[63] = "Cih"
sasc[63] = 14.25
sdec[63] = 60.7
sdist[63] = 610
sname[64] = "Muhlifain"
sasc[64] = 190.5
sdec[64] = -49
sdist[64] = 130
sname[65] = "Naos"
sasc[65] = 121
sdec[65] = -40
sdist[65] = 1400
sname[66] = "Aspidiske"
sasc[66] = 139.25
sdec[66] = -59.3
sdist[66] = 690
sname[67] = "Alphecca"
sasc[67] = 233.75
sdec[67] = 26.7
sdist[67] = 75
sname[68] = "Suhail"
sasc[68] = 137
sdec[68] = -43.4
sdist[68] = 570
sname[69] = "Mizar"
sasc[69] = 201
sdec[69] = 54.9
sdist[69] = 78
sname[70] = "Sadr"
sasc[70] = 305.5
sdec[70] = 40.3
sdist[70] = 1500
sname[71] = "Schedar"
sasc[71] = 10.25
sdec[71] = 56.5
sdist[71] = 230
sname[72] = "Eltanin"
sasc[72] = 269.25
sdec[72] = 51.5
sdist[72] = 148
sname[73] = "Mintaka"
sasc[73] = 83
sdec[73] = -0.3
sdist[73] = 920
sname[74] = "Caph"
sasc[74] = 2.25
sdec[74] = 59.2
sdist[74] = 55
sname[75] = "(Epsilon Centauri)"
sasc[75] = 205
sdec[75] = -53.5
sdist[75] = 380
sname[76] = "Dschubba"
sasc[76] = 240
sdec[76] = -22.6
sdist[76] = 400
sname[77] = "Wei"
sasc[77] = 252.5
sdec[77] = -34.3
sdist[77] = 65
sname[78] = "Men"
sasc[78] = 220.5
sdec[78] = -47.4
sdist[78] = 550
sname[79] = "(Eta Centauri)"
sasc[79] = 219
sdec[79] = -42.2
sdist[79] = 310
sname[80] = "Merak"
sasc[80] = 165.5
sdec[80] = 56.4
sdist[80] = 79
sname[81] = "Izar"
sasc[81] = 221.25
sdec[81] = 27.1
sdist[81] = 210
sname[82] = "Enif"
sasc[82] = 326
sdec[82] = 9.9
sdist[82] = 670
sname[83] = "Girtab"
sasc[83] = 265.5
sdec[83] = -39
sdist[83] = 460
sname[84] = "Ankaa"
sasc[84] = 6.5
sdec[84] = -42.3
sdist[84] = 77
sname[85] = "Phecda"
sasc[85] = 178.5
sdec[85] = 53.7
sdist[85] = 84
sname[86] = "Sabik"
sasc[86] = 257.5
sdec[86] = -15.7
sdist[86] = 84
sname[87] = "Scheat"
sasc[87] = 346
sdec[87] = 28.1
sdist[87] = 200
sname[88] = "Aludra"
sasc[88] = 111
sdec[88] = -29.3
sdist[88] = 3000
sname[89] = "Alderamin"
sasc[89] = 319.75
sdec[89] = 62.6
sdist[89] = 49
sname[90] = "Markeb"
sasc[90] = 140.5
sdec[90] = -55
sdist[90] = 540
sname[91] = "Gienah"
sasc[91] = 311.5
sdec[91] = 34
sdist[91] = 72
sname[92] = "Markab"
sasc[92] = 346.25
sdec[92] = 15.2
sdist[92] = 140
sname[93] = "Menkar"
sasc[93] = 45.5
sdec[93] = 4.1
sdist[93] = 220
sname[94] = "Han"
sasc[94] = 249.25
sdec[94] = -10.6
sdist[94] = 460
sname[95] = "Al Nair al Kent."
sasc[95] = 209
sdec[95] = -47.3
sdist[95] = 390
sname[96] = "Zosma"
sasc[96] = 168.5
sdec[96] = 20.5
sdist[96] = 58
sname[97] = "Graffias"
sasc[97] = 241.25
sdec[97] = -19.8
sdist[97] = 530
sname[98] = "Arneb"
sasc[98] = 83.25
sdec[98] = -17.8
sdist[98] = 1300
sname[99] = "(Delta Centauri)"
sasc[99] = 182
sdec[99] = -50.7
sdist[99] = 400
sname[100] = "Gienah Ghurab"
sasc[100] = 184
sdec[100] = -17.5
sdist[100] = 165
sname[101] = "Ascella"
sasc[101] = 285.75
sdec[101] = -29.9
sdist[101] = 89
sname[102] = "Zubeneschamali"
sasc[102] = 229.25
sdec[102] = -9.4
sdist[102] = 160
sname[103] = "Unukalhai"
sasc[103] = 236
sdec[103] = 6.4
sdist[103] = 73
sname[104] = "Sheratan"
sasc[104] = 28.75
sdec[104] = 20.8
sdist[104] = 60
sname[105] = "Zubenelgenubi"
sasc[105] = 222.75
sdec[105] = -16
sdist[105] = 77
sname[106] = "Phact"
sasc[106] = 85
sdec[106] = -34.1
sdist[106] = 270
sname[107] = "(Theta Aurigae)"
sasc[107] = 90
sdec[107] = 37.2
sdist[107] = 170
sname[108] = "Kraz"
sasc[108] = 188.5
sdec[108] = -23.4
sdist[108] = 140
sname[109] = "Ruchbah"
sasc[109] = 21.5
sdec[109] = 60.2
sdist[109] = 99
sname[110] = "Muphrid"
sasc[110] = 208.75
sdec[110] = 18.4
sdist[110] = 37
sname[111] = "Ke Kouan"
sasc[111] = 224.75
sdec[111] = -43.1
sdist[111] = 520
sname[112] = "Hassaleh"
sasc[112] = 74.25
sdec[112] = 33.2
sdist[112] = 510
sname[113] = "(Mu Velorum)"
sasc[113] = 161.75
sdec[113] = -49.4
sdist[113] = 116
sname[114] = "(Alpha Muscae)"
sasc[114] = 189.25
sdec[114] = -69.1
sdist[114] = 310
sname[115] = "Lesath"
sasc[115] = 262.75
sdec[115] = -37.3
sdist[115] = 520
sname[116] = "(Pi Puppis)"
sasc[116] = 109.25
sdec[116] = -37.1
sdist[116] = 1100
sname[117] = "Kaus Meridionalis"
sasc[117] = 275.25
sdec[117] = -29.8
sdist[117] = 310
sname[118] = "Tarazed"
sasc[118] = 296.5
sdec[118] = 10.6
sdist[118] = 460
sname[119] = "Yed Prior"
sasc[119] = 243.5
sdec[119] = -3.7
sdist[119] = 170
sname[120] = "Aldhibain"
sasc[120] = 246
sdec[120] = 61.5
sdist[120] = 88
sname[121] = "(Theta Carinae)"
sasc[121] = 160.75
sdec[121] = -64.4
sdist[121] = 440
sname[122] = "Porrima"
sasc[122] = 190.5
sdec[122] = -1.5
sdist[122] = 39
sname[123] = "Hatysa"
sasc[123] = 83.75
sdec[123] = -5.9
sdist[123] = 1300
sname[124] = "(Iota Centauri)"
sasc[124] = 200.25
sdec[124] = -36.7
sdist[124] = 59
sname[125] = "Cebalrai"
sasc[125] = 265.75
sdec[125] = 4.6
sdist[125] = 82
sname[126] = "Kursa"
sasc[126] = 77
sdec[126] = -5.1
sdist[126] = 89
sname[127] = "Kornephoros"
sasc[127] = 247.5
sdec[127] = 21.5
sdist[127] = 150
sname[128] = "(Delta Crucis)"
sasc[128] = 183.75
sdec[128] = -58.7
sdist[128] = 360
sname[129] = "Rastaban"
sasc[129] = 262.5
sdec[129] = 52.3
sdist[129] = 360
sname[130] = "Cor Caroli"
sasc[130] = 194
sdec[130] = 38.3
sdist[130] = 110
sname[131] = "(Gamma Lupi)"
sasc[131] = 233.75
sdec[131] = -41.2
sdist[131] = 570
sname[132] = "Nihal"
sasc[132] = 82
sdec[132] = -20.8
sdist[132] = 160
sname[133] = "Rutilicus"
sasc[133] = 250.25
sdec[133] = 31.6
sdist[133] = 35
sname[134] = "(Beta Hydri)"
sasc[134] = 6.5
sdec[134] = -77.3
sdist[134] = 24
sname[135] = "(Tau Scorpii)"
sasc[135] = 249
sdec[135] = -28.2
sdist[135] = 430
sname[136] = "Kaus Borealis"
sasc[136] = 277
sdec[136] = -25.4
sdist[136] = 77
sname[137] = "Algenib"
sasc[137] = 3.25
sdec[137] = 15.2
sdist[137] = 330
sname[138] = "Turais"
sasc[138] = 122
sdec[138] = -24.3
sdist[138] = 63
sname[139] = "(Beta Trianguli Australis)"
sasc[139] = 238.75
sdec[139] = -63.4
sdist[139] = 40
sname[140] = "(Zeta Persei)"
sasc[140] = 58.5
sdec[140] = 31.9
sdist[140] = 980
sname[141] = "(Beta Arae)"
sasc[141] = 261.25
sdec[141] = -55.5
sdist[141] = 600
sname[142] = "Choo"
sasc[142] = 263
sdec[142] = -49.9
sdist[142] = 240
sname[143] = "Alcyone"
sasc[143] = 56.75
sdec[143] = 24.1
sdist[143] = 370
sname[144] = "Vindemiatrix"
sasc[144] = 195.5
sdec[144] = 11
sdist[144] = 102
sname[145] = "Deneb Algedi"
sasc[145] = 326.75
sdec[145] = -16.1
sdist[145] = 39
sname[146] = "Head of Hydrus"
sasc[146] = 29.75
sdec[146] = -61.6
sdist[146] = 71
sname[147] = "(Delta Cygni)"
sasc[147] = 296.25
sdec[147] = 45.1
sdist[147] = 170
sname[148] = "Tejat"
sasc[148] = 95.75
sdec[148] = 22.5
sdist[148] = 230
sname[149] = "(Gamma Trianguli Australis)"
sasc[149] = 229.75
sdec[149] = -68.7
sdist[149] = 180
sname[150] = "(Alpha Tucanae)"
sasc[150] = 334.75
sdec[150] = -60.3
sdist[150] = 200
sname[151] = "Acamar"
sasc[151] = 44.5
sdec[151] = -40.3
sdist[151] = 160
sname[152] = "Albaldah"
sasc[152] = 287.5
sdec[152] = -21
sdist[152] = 440
sname[153] = "Gomeisa"
sasc[153] = 111.75
sdec[153] = 8.3
sdist[153] = 170
sname[154] = "(Pi Scorpii)"
sasc[154] = 239.75
sdec[154] = -26.1
sdist[154] = 460
sname[155] = "(Epsilon Persei)"
sasc[155] = 59.5
sdec[155] = 40
sdist[155] = 540
sname[156] = "Alniyat"
sasc[156] = 245.25
sdec[156] = -25.6
sdist[156] = 730
sname[157] = "Albireo"
sasc[157] = 292.75
sdec[157] = 28
sdist[157] = 390
sname[158] = "Sadalsuud"
sasc[158] = 323
sdec[158] = -5.6
sdist[158] = 610
sname[159] = "(Gamma Persei)"
sasc[159] = 46.25
sdec[159] = 53.5
sdist[159] = 260
sname[160] = "(Upsilon Carinae)"
sasc[160] = 146.75
sdec[160] = -65.1
sdist[160] = 1600
sname[161] = "Matar"
sasc[161] = 340.75
sdec[161] = 30.2
sdist[161] = 215
sname[162] = "(Tau Puppis)"
sasc[162] = 102.5
sdec[162] = -50.6
sdist[162] = 185
sname[163] = "Algorel"
sasc[163] = 187.5
sdec[163] = -16.5
sdist[163] = 88
sname[164] = "Sadalmelik"
sasc[164] = 331.5
sdec[164] = -0.3
sdist[164] = 760
sname[165] = "Zaurak"
sasc[165] = 59.5
sdec[165] = -13.5
sdist[165] = 220
sname[166] = "Alheka"
sasc[166] = 84.5
sdec[166] = 21.1
sdist[166] = 420
sname[167] = "Ras Elased Austr."
sasc[167] = 146.5
sdec[167] = 23.8
sdist[167] = 250
sname[168] = "Alnasl"
sasc[168] = 271.5
sdec[168] = -30.4
sdist[168] = 96
sname[169] = "(Gamma Hydrae)"
sasc[169] = 199.75
sdec[169] = -23.2
sdist[169] = 132
sname[170] = "(Iota1 Scorpii)"
sasc[170] = 267
sdec[170] = -40.1
sdist[170] = 1800
sname[171] = "Deneb el Okab"
sasc[171] = 286.25
sdec[171] = 13.9
sdist[171] = 83
sname[172] = "(Beta Trianguli)"
sasc[172] = 32.5
sdec[172] = 35
sdist[172] = 124
sname[173] = "(Psi Ursae Majoris)"
sasc[173] = 167.5
sdec[173] = 44.5
sdist[173] = 147
sname[174] = "Pherkad Major"
sasc[174] = 230.25
sdec[174] = 71.8
sdist[174] = 480
sname[175] = "(Mu1 Scorpii)"
sasc[175] = 253
sdec[175] = -38
sdist[175] = 820
sname[176] = "(Gamma Gruis)"
sasc[176] = 328.5
sdec[176] = -37.4
sdist[176] = 205
sname[177] = "(Delta Persei)"
sasc[177] = 55.75
sdec[177] = 47.8
sdist[177] = 530
sname[178] = "Phurad"
sasc[178] = 95
sdec[178] = -30.1
sdist[178] = 340
sname[179] = "(Omicron2 Canis Majoris)"
sasc[179] = 105.75
sdec[179] = -23.8
sdist[179] = 2600
sname[180] = "Minkar"
sasc[180] = 182.5
sdec[180] = -22.6
sdist[180] = 300
sname[181] = "Almaaz"
sasc[181] = 75.5
sdec[181] = 43.8
sdist[181] = 2000
sname[182] = "(Beta Muscae)"
sasc[182] = 191.5
sdec[182] = -68.1
sdist[182] = 310
sname[183] = "Seginus"
sasc[183] = 218
sdec[183] = 38.3
sdist[183] = 85
sname[184] = "Dabih"
sasc[184] = 305.25
sdec[184] = -14.8
sdist[184] = 340
sname[185] = "Mebsuta"
sasc[185] = 101
sdec[185] = 25.1
sdist[185] = 900
sname[186] = "Tania Australis"
sasc[186] = 155.5
sdec[186] = 41.5
sdist[186] = 250
sname[187] = "Tais"
sasc[187] = 288.25
sdec[187] = 67.7
sdist[187] = 100
sname[188] = "(Eta Sagittarii)"
sasc[188] = 274.5
sdec[188] = -36.8
sdist[188] = 149
sname[189] = "(Zeta Hydrae)"
sasc[189] = 133.75
sdec[189] = 5.9
sdist[189] = 150
sname[190] = "(Nu Hydrae)"
sasc[190] = 162.5
sdec[190] = -16.2
sdist[190] = 139
sname[191] = "(Lambda Centauri)"
sasc[191] = 174
sdec[191] = -63
sdist[191] = 410
sname[192] = "Persian"
sasc[192] = 309.5
sdec[192] = -47.3
sdist[192] = 101
sname[193] = "Wazn"
sasc[193] = 87.75
sdec[193] = -35.8
sdist[193] = 86
sname[194] = "Talita"
sasc[194] = 134.75
sdec[194] = 48
sdist[194] = 48
sname[195] = "(Zeta Arae)"
sasc[195] = 254.75
sdec[195] = -56
sdist[195] = 570
sname[196] = "Sarin"
sasc[196] = 258.75
sdec[196] = 24.8
sdist[196] = 78
sname[197] = "Ke Kwan"
sasc[197] = 224.75
sdec[197] = -42.1
sdist[197] = 540
sname[198] = "(Alpha Lyncis)"
sasc[198] = 140.25
sdec[198] = 34.4
sdist[198] = 220
sname[199] = "(N Velorum)"
sasc[199] = 142.75
sdec[199] = -57
sdist[199] = 240
sname[200] = "(Pi Herculis)"
sasc[200] = 258.75
sdec[200] = 36.8
sdist[200] = 370


ttimer = 0

function starchart() {


// { Variables }
RightNow = new Date()

Year=RightNow.getFullYear()
Month=RightNow.getMonth()+1
Day=RightNow.getDate()
UT=RightNow.getHours() + RightNow.getMinutes() / 60 - 8
//{ Universal Time: time - 8 hrs }

Day = Day + ttimer


LAT=-30 //
LON=120 //
pi = Math.PI


// { Number of days from J2000.0 }
n=367*Year-parseInt((7*(Year+parseInt((Month+9)/12)))/4)+parseInt(275*Month/9)+Day-730531.5
// { Greenwich Mean Sidereal Time - Greenwich }
m=n/36525.0
GMST=24110.54841+8640184.812866*m+0.093104*m*m-0.0000062*m*m*m
GMST=GMST/3600-parseInt(GMST/86400.0)*24
if (GMST0) {
GMST=GMST+24
}
GMST=GMST+UT*1.00273791
if (GMST=24) {
GMST=GMST-24
}

// For each star from star catalog:
for (star=1;star=howmany;star++) {
RA=sasc[star] // { Right ascension }
DEC=sdec[star] // { Declination }

// { Local Hour Angle }
LHA=GMST*15-RA+LON
while (LHA=360) {
LHA=LHA-360
}
while (LHA0) {
LHA=LHA+360
}

// { Altitude and Azmuth }


ALTI=Math.asin(Math.sin(DEC*pi/180)*Math.sin(LAT*pi/180)+Math.cos(DEC*pi/180)*Math.cos(LAT*pi/180)*
Math.cos(LHA*pi/180))*180/pi

AZ=Math.acos((Math.sin(DEC*pi/180)-Math.sin(LAT*pi/180)*Math.sin(ALTI*pi/180))/Math.cos(LAT*pi/180)
/Math.cos(ALTI*pi/180))*180/pi
if (Math.sin(LHA*pi/180)0) {
AZ=360-AZ
}

if (ALTI 0) {
sparks[star].bg(colors[parseInt((star-1)/20)])
sparks[star].moveTo(parseInt(AZ * width/380)+20, parseInt((100 - ALTI) * width/380))
sparks[star].show()
}
else {
sparks[star].hide()
}
}

if (ttimer 24) {
ttimer = ttimer + 1
timerId = setTimeout("starchart()", 300)
}

}



function spark(div)
{
this.css = document.getElementById(div).style;

this.show = function() { this.css.visibility="visible"; }
this.hide = function() { this.css.visibility="hidden"; }
this.moveTo = function(x,y){ this.x=x; this.y=y; this.css.left=x; this.css.top=y; }
this.bg = function(col){ this.css.backgroundColor=col; }
this.resize = function(w,h){ this.css.overflow="hidden"; this.css.width=w; this.css.height=h; }

return this;
}



function starter(){
bottom = document.body.clientHeight
width = document.body.clientWidth
starchart()
}

/script

/head



body onload="starter()" bgcolor="black"

script language="javascript"
sparks = new Array();
for(i=1;i=howmany;i++){
document.write('div id="spark'+i+'" style="position: absolute"/div');

sparks[i] = new spark('spark'+i);
sparks[i].resize(2,2);
sparks[i].hide();
num = Math.round(Math.random()*(colors.length-1))
col = colors[num];
sparks[i].bg(col);
}


/script


/body
/html

Thanks for your help. I think that I can draw my "own starcharts" soon --
I'll study your code and port it to VB with some add-ons...

-Kauko-