Animation de logo en 3d, sous builder c++ 3.0, en utilisant les équations parametriques
Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 033 fois - Téléchargée 42 fois
Contenu du snippet
Ce code sert à animer en 3D une forme géometrique, ça commence par un cercle est se termine par un cercle via une succession de formes géomtrique en 3D, ça apparaît comme si la forme tourne dans l'espace.
Suite aux conseils des internautes, la rapidité de l'animation a été améloirée...
Source / Exemple :
Me.AutoRedraw = True
Me.Show
DoEvents
Const pi = 3.141
Const z = 0.7
mm = 8
Dim i, j, k, l, m
Dim x, y, s, t As Double
For l = 1 To 6
For s = 0 To 1 Step 0.01
For t = 0 To 2 * pi Step 0.002
x = (1 - s) * Cos(t + pi * s) + s * Cos(2 * t)
y = (1 - s) * Sin(t + pi * s) - s * Sin(2 * t)
x = 100 * x + 200
i = x
y = 100 * y + 200
j = y
k = 255
Me.ForeColor = RGB(k, 0, 0)
Me.PSet (j * mm, i * mm)
Next t
DoEvents
Me.Refresh
Me.Cls
Next s
Next l
Conclusion :
Suite aux conseils des internautes, la rapidité de l'animation a été améloirée...
A voir également
- C++ logo
- Logo vb.net - Meilleures réponses
- C / C++ / C++.NET : Animation de logo en 3d, sous builder c++ 3.0, en utilisant les équation - Guide
- Visual Basic / VB.NET : Fenêtre about avec logo en 3d. - CodeS SourceS - Guide
- Flash : Animation du logo copyleft - CodeS SourceS - Guide
- L'animation du logo Transformers ✓ - Forum - Flash
- C / C++ / C++.NET : Castle of wolfenstein 3d jeu borland c++ 3.1 - CodeS SourceS - Guide
Commentaires
dim j as integer, j as double, k as double, m as double, x as double y as double, s as double ,t as double, l as integer
et puis on peut accelerer le tout en stokant les operations executées plusieurs fois dans une variable par exemple a=1-s ; b=t+pi*s ; c=2*t
voial, ce sont de petits conseils pour optimiser le code.
Me.AutoRedraw = True
Me.Show
DoEvents
Const pi = 3.141
Const z = 0.7
mm = 8
Dim i, j, k, l, m
Dim x, y, s, t As Double
For l = 1 To 6
For s = 0 To 1 Step 0.01
For t = 0 To 2 * pi Step 0.002
x = (1 - s) * Cos(t + pi * s) + s * Cos(2 * t)
y = (1 - s) * Sin(t + pi * s) - s * Sin(2 * t)
x = 100 * x + 200
i = x
y = 100 * y + 200
j = y
k = 255
Me.ForeColor = RGB(k, 0, 0)
Me.PSet (j * mm, i * mm)
Next t
DoEvents
Me.Refresh
Me.Cls
Next s
Next l
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.