Re: Sky Chart

In my case, color over horizon is black, constellations line red,
inside circle night blue.
to see and run program is better to understand the problem.

Michael Harrington wrote:
<daitamrane@xxxxxxxx> wrote in message
news:1139220161.470424.197980@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Anyone can help me to draw constellations on sky chart using visual
basic compiler.
Looking for the method how to link stars to define constellations on
sky chart.

Note how the line joining the two stars becomes invisible over
the horizon....

Private Sub Command1_Click()
Dim ox As Integer, oy As Integer
Dim pi As Double, radius As Integer
Dim linecolor As Long

linecolor = Form1.BackColor 'Makes line invisible over horizon
Form1.ScaleMode = vbPixels
Form1.FillColor = vbBlue
Form1.FillStyle = 0
radius = 200
oy = ScaleHeight / 2
ox = ScaleWidth / 2
Circle (ox, oy), radius

CurrentX = ox
CurrentY = oy
Form1.FontBold = True
Form1.ForeColor = vbRed
Print "*" 'star in view


Line (50, 50)-(ox, oy), linecolor
CurrentX = 50
CurrentY = 50
Print "*" 'over horizon
'This star can be made invisible if you wish
'by setting its color to the form's backcolor
End Sub

.

Relevant Pages