Waves are difficult enough to generate, and how do you generate a wave that can be scaled? By scaling I mean that there is a constant number of amplitudes with a varying x-axis distance. This uses some of the code from the previous example at Make a Sine Wave. Scaling of a wave revolves around a modification of the code where the period is equal to the inverse of the frequency (period = 1/frequency), which has been changed in the program.
A modified method for drawing the Wavy Line in Xojo code is shown below:
|Public Sub DrawWavyLine1(g as Graphics, XStart as Double, XLength as double, Amp as double, Frequency as Double, YStart as Double)
//y = asin(b(x-h))+k
//a = amplitude, b = period, h = horizontal shift, k = vertical shift, x = x-axis
//XStart=Starting pixel coordinate on x-axis
//XLength=Total length of the wave in pixels
//Amplitude=Height of the wave from the middle to top of the wave in pixels
//Frequency=Length of the repeating wave(Cycles per length unit)
//YStart=Starting pixel coordinate on the y-axis
Dim i as integer
For i = 0 to XLength
g.ForeColor = RGB(255,0,0) //Red
g.DrawLine(i+XStart, Amp*sin((1/Frequency)*(i))+YStart, i+1+XStart, Amp*sin((1/Frequency)*(i+1))+YStart)
//Draw a border
g.ForeColor = RGB(0,0,0) //Black
The way to have the same number of amplitudes for a given length is to change both the x-length and frequency by the same ‘factor’ for scaling. If the size of the wave is to be doubled by multiplying by 2, then multiply both the y-length value (from 200*2 = 400) and the Frequency (4*2=8), which will increase the size of the wave length and space the waves evenly.
Here is the link to download the program: SineWaveFrequency.xojo_binary_project.
|This example was created on Windows 10 with Xojo 2019 r1.1 on 3 August 2019|