Attribute VB_Name = "Module2"
DefDbl A-H, O-Z
DefInt I-N

Const bord = 10
Const XMin_X = -1.3
Const XMin_Y = -1.3
Const XMax_X = 1.3
Const XMax_Y = 1.3
Const XinfT = 0#
Const supT = 6.2832

Public nbpas As Integer
Public s As String
Public s1 As String

Sub Equations(A(), B(), t)
  A(1) = Cos(t) + 0.25 * Cos(5 * t)
  A(2) = Sin(t) + 0.25 * Sin(5 * t)
  B(1) = -Cos(5 * t)
  B(2) = 0#
End Sub

Sub TraceFaisceau()
Dim A(2), B(2)  '2 points
  nbpas = 500
  dt = (supT - infT) / nbpas
  t = XinfT
  While t <= supT
    Equations A, B, t
    t = t + dt
    MoveXY A(1), A(2)
    LineXY B(1), B(2)
  Wend
End Sub

Sub Initialise()
  Fenetre XMin_X, XMax_X, XMin_Y, XMax_Y
  Cloture 20 * bord, MaxX - 2 * bord, 5 * bord, MaxY - 5 * bord
End Sub

Sub aff_faisceaux()
Dim error As Integer
  Initialise
  Bordure
  TraceFaisceau
End Sub