Tracer des polygones en 3d

Commenter

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

S'inscrire maintenant

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)