Re bonjour !
Bon, je suis évidemment toujours bloqué :(
Le mieux, c'est que je vous montre le script complet et comment je l'appelle !
Mon but, c'est, par un Slider unique, de changer la couleur d'un meuble de la scène (le script convertit une couleur HSV en RGB, avec S = V = 100, et H variant de 0 a 360 grace à un slider)
C'est peut etre la ou je me trompe, mais à chaque frame, j'appelle mon script, qui est censé recupérer la valeur de la variable "SliderValue" déclarée en "Startup" (variable cablée au Slider, évidemment)
Code:Class Script
Private currentScene As NovaScene
Public Sub New(scene As NovaScene)
currentScene = scene
End Sub
Protected Overrides Sub Finalize()
End Sub
Public Sub changeMaterial()
Dim m As NovaStandardMaterial
Dim hue As Single = System.Single.Parse(currentScene.GetVariable("sliderValue").Value.ToString())
Dim i,s,v As Integer
Dim f, p, q, t As Double
Dim couleurRGBA As RGBAColor
s = 100
v = 100
hue /= 60
i = Floor(hue)
f = hue - i
p = v * ( 1 - s )
q = v * ( 1 - s * f )
t = v * ( 1 - s * ( 1 - f ) )
Select Case i
Case 0
couleurRGBA.Red = v
couleurRGBA.green = t
couleurRGBA.blue = p
Case 1
couleurRGBA.Red = q
couleurRGBA.green = v
couleurRGBA.blue = p
Case 2:
couleurRGBA.Red = p
couleurRGBA.green = v
couleurRGBA.blue = t
Case 3
couleurRGBA.Red = p
couleurRGBA.green = q
couleurRGBA.blue = v
Case 4
couleurRGBA.Red = t
couleurRGBA.green = p
couleurRGBA.blue = v
Case Else
couleurRGBA.Red = v
couleurRGBA.green = p
couleurRGBA.blue = q
End Select
couleurRGBA.alpha = 1
m = currentScene.getMaterial("leMat")
m.Diffuse = couleurRGBA
End Sub
End Class
Merci pour votre aide
Jérémie