Jabaco Source

Option Explicit

Import com#jsyn#engine#SynthesisEngine
Import com#jsyn#unitgen#LineOut
Import com#jsyn#unitgen#SineOscillator

Dim synth As New SynthesisEngine()
Dim osc As New SineOscillator()
Dim jsynRunning As Boolean = False
Dim mouseClicked As Boolean = False

Public Sub Form_Load()
   Picture1.Left = 10Picture1.Top = 10
   Picture1.Height = 100Picture1.Width = 1000
   Me.Height = Picture1.Height + 60
   Me.Width = Picture1.Width + 40
   Me.Top = (Screen.Height - Me.Height) / 2
   Me.Left = (Screen.Width - Me.Width) / 2
   setup
End Sub

Public Sub setup()
   synth.add(osc) ' add a tone generator
   Dim lnOUT As New LineOut() ' add an output mixer
   synth.add(lnOUT)
   osc.output.connect(0, lnOUT.input,0) ' connect the oscillator to the output
   synth.start() ' start synthesizer using default stereo output at 44100 Hz
   ' we only need to start the lnOUT
   ' It will pull data from the oscillator
   lnOUT.start()
   jsynRunning = True
End Sub

Public Sub Picture1_Click()
   mouseClicked = Not mouseClicked
End Sub

Public Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If mouseClicked = True Then
      Picture1.Circle(X, Y, 20, vbBlack)
   Else
      Picture1.Circle (X, Y, 20, vbRed)
   End If
   osc.frequency.set(X)
End Sub