Tracer des polygones en 3d

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 226 fois - Téléchargée 61 fois

Contenu du snippet

3d, 3d, c vite dit. Les polygones qui vont être tracés sont en fait des pyramides en 3d.

Source / Exemple :


module : 

Public lol(21) As Single

Public Sub TracerEntremele(hdc As Form, x1, x2, x3, x4, y1, y2, y3, y4, couleur As ColorConstants)
hdc.Line (x1, y1)-(x2, y2), couleur
hdc.Line (x1, y1)-(x3, y3), couleur
hdc.Line (x2, y2)-(x3, y3), couleur
hdc.Line (x2, y2)-(x4, y4), couleur
hdc.Line (x3, y3)-(x4, y4), couleur
hdc.Line (x4, y4)-(x1, y1), couleur
End Sub
 

form : 

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.BackColor = vbBlack
Form1.Refresh
For r = 1 To 21
lol(r) = Int(Rnd * 10000) + 1
Next r
For i = 1 To 10000 Step 100
TracerEntremele Me, lol(1), lol(2), lol(3), lol(4), lol(5), lol(6), lol(7), lol(8), vbCyan
Next i
End Sub

A voir également

Ajouter un commentaire

Commentaires

LOL !! le secret de ce code, c'est que les bord de chaque ligne se touchent deux à deux! (enfin... 3 par 3 et le sommet c'est 4 lignes ensemble)
arf c'est pas dl'a 3D :-p
En plus, deja qu'il est pas gros le code, y'a plein de truc inutile ! (le For i...next i, le For r 1 to 21 alors que For r 1 to 8 suffit, et le LOL(21) alors qu'y en a bzoin que d'8 -> public lol(8) )
En gros, ce code : c'est une grosse blague! (fallait s'y attendre en voyant "lol()")

J'ai vu juste, hein!, toi qui a perdu ton mot de passe!
Heu au fait, un petit truc qui déconne là c'est ta boucle sur i... Comme ça elle ne sert à rien du tout...
je suppose que tu avais une autre idée en tête mais là ça ne va pas.

Pour jia2812 : entre 1000 et 10000 il y a plein de valeurs, essaie 5000 par exemple...
Sympa et marrant, bonne idée.
Mais par contre, ton titre : 3tracer des poly en 3D" est un peu racoleur non ?

Allez, c cool quand même ;-)
-
On se croirait dans la réalité virtuelle. Wouahou avec les lunettes c'est encore mieux ;-)
-
Je cherche un bon tuto sur les bases de dx ..... alors si qqn a une url ...

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.

Du même auteur (FlintHasForgetHisPass)