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
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.