3.20 on manjaro.testting

[Philippe Valarcher <philippe.valarcher@xxxxxxx>]

Gambas version 3.20 is on manjaro.testting.

This doesn't work at all on 3.20 and I don't understand it :

Private Sub TrameFond() 'tracé trame de fond

Dim xx1 As Single
Dim x2, y1, y2, fx, v As Single
Dim scaleX, scaleY As Single
Dim larg As Single
Dim haut As Single

x2 = CSingle(Log10(300))
xx1 = CSingle(Log10(10))
y2 = CSingle(Log10(0.000000001))
y1 = CSingle(Log10(1000000000))

haut = CSingle(DrawingArea1.Height)
larg = CSingle(DrawingArea1.Width)

scaleX = CSingle((larg) / (x2 - xx1))
scaleY = CSingle((haut) / (y2 - y1))

With Draw

.Foreground = Color.Blue
.Line(0, haut / 6, larg, haut / 6)
.Line(0, haut / 3, larg, haut / 3)
.Line(0, haut * 2 / 3, larg, haut * 2 / 3)
.Line(0, haut * 5 / 6, larg, haut * 5 / 6)

.Foreground = Color.Lighter(Color.DarkCyan)
.Line(0, haut * 7 / 18, larg, haut * 7 / 18)
.Line(0, haut * 8 / 18, larg, haut * 8 / 18)
.Line(0, haut * 10 / 18, larg, haut * 10 / 18)
.Line(0, haut * 11 / 18, larg, haut * 11 / 18)

.Foreground = Color.DarkGreen
.Text(" +6db", 0, haut / 6)
.Text(" +3db", 0, haut / 3)
.Text(" 0db", 0, haut / 2)
.Text(" -3db", 0, haut * 2 / 3)
.Text(" -6db", 0, haut * 5 / 6)

For fx = 20 To 100 Step 10
v = CSingle((Log(fx) / Log(10) - xx1) * scaleX)
.Text(Format((fx), "0#"), v, haut * 16 / 18)
Next

.Foreground = Color.DarkGreen
For fx = 20 To 200 Step 5 '
v = CSingle((Log(fx) / Log(10) - xx1) * scaleX)
.Line(v, y2, v, haut)
Next

For fx = 110 To 300 Step 10
v = CSingle((Log(fx) / Log(10) - xx1) * scaleX)
.Line(v, y2, v, haut)
Next

For fx = 150 To 250 Step 50
v = CSingle((Log(fx) / Log(10) - xx1) * scaleX)
.Text(Format((fx), "0#"), v, haut * 16 / 18)
Next

For fx = 25 To 35 Step 10
v = CSingle((Log(fx) / Log(10) - xx1) * scaleX)
.Text(Format((fx), "0#"), v, haut * 16 / 18)
Next

For fx = 20 To 100 Step 10 'to 50
v = CSingle((Log(fx) / Log(10) - xx1) * scaleX)
.Text(Format((fx / (fr / qt)), "0.0"), v, haut * 17 / 18)
Next
For fx = 150 To 250 Step 50
v = CSingle((Log(fx) / Log(10) - xx1) * scaleX)
.Text(Format((fx / (fr / qt)), "0.0"), v, haut * 17 / 18)
Next

v = CSingle((Log10(10.125) - xx1) * scaleX)
.Text(("Fréquences :"), v, haut * 16 / 18)
.Text(("Fréquences Normalisées"), v, haut * 17 / 18)

v = CSingle((Log(fr) / Log(10) - xx1) * scaleX)
.Foreground = Color.Red
.Line(v, haut / 6, v, haut * 5 / 6) 'ligne verticale
.Line(0, haut / 2, larg, haut / 2) 'ligne horizontale
.Rect(v - larg / 6, haut / 3.5, larg / 3, haut / 2.325) 'rectangle
centré en FR
.Text("FR", v, haut / 20 * 1.25)
.Text(Format((fr), "###"), v, haut / 20 * 1.75)

End With

End


-- 
Philippe Valarcher <philippe.valarcher@xxxxxxx>