Accueil > > > CUBE 3D EN FIL DE FER
CUBE 3D EN FIL DE FER
Information sur la source
Description
Salut à tous,
En fait, je ne sais pas quoi dire - C'est ma premère source, je suis tout ému :'( - à part ce qu'il y a marqué dans le titre, c'est à dire que c'est un cube en 3D (Quoique je me pose encore la queston). Mais, malheuresement, le cube est en "rendu" fil de fer... Si quelqu'un à une idée pour y remédier, qu'il me la présente.
Voilà, je vais bientôt mettre plus d'explications dans le zip, avec un image pour expliquer le fonctionnement (C'est plus simple avec des images :).
----------------------------------------- ------------------------------------
Version mise à jour le 21 Mai 2004 : Amélioration des variables
Version màj le 21 Mai 2004 : Correction des erreurs... ;)
Source
- Option Explicit
-
- Dim X0 As Integer, Y0 As Integer ' centre de l'écran
- Dim e As Single ' échelle
- Dim t As Single, p As Single
- Dim ct As Single ' COS t
- Dim st As Single ' SIN t
- Dim cp As Single ' COS p
- Dim sp As Single ' SIN p
- Dim x(1 To 8) As Single, y(1 To 8) As Single ' 8 sommet du cube
-
- Const PI As Single = 3.141559
-
- Private Sub Form_Load()
- X0 = Qbe.ScaleWidth / 2
- Y0 = Qbe.ScaleHeight / 2
- e = Qbe.ScaleWidth / 5
- End Sub
-
- Private Sub Form_MouseMove(Button As Integer, Shift As Integer, Xx As Single, Yy As Single)
-
- t = (Xx - X0) / X0 * PI
- p = (Yy - Y0) / Y0 * PI
- ct = Cos(t)
- st = Sin(t)
- cp = Cos(p)
- sp = Sin(p)
-
- x(1) = X0 + e * (st * cp + ct + st * sp)
- x(2) = X0 + e * (st * cp + ct - st * sp)
- x(3) = X0 + e * (st * cp - ct + st * sp)
- x(4) = X0 + e * (st * cp - ct - st * sp)
- x(5) = X0 + e * (-st * cp + ct + st * sp)
- x(6) = X0 + e * (-st * cp + ct - st * sp)
- x(7) = X0 + e * (-st * cp - ct + st * sp)
- x(8) = X0 + e * (-st * cp - ct - st * sp)
-
- y(1) = Y0 + e * (-sp + cp)
- y(2) = Y0 + e * (-sp - cp)
- y(3) = Y0 + e * (-sp + cp)
- y(4) = Y0 + e * (-sp - cp)
- y(5) = Y0 + e * (sp + cp)
- y(6) = Y0 + e * (sp - cp)
- y(7) = Y0 + e * (sp + cp)
- y(8) = Y0 + e * (sp - cp)
-
- Cls
- Line (x(1), y(1))-(x(2), y(2))
- Line (x(1), y(1))-(x(3), y(3))
- Line (x(1), y(1))-(x(5), y(5))
- Line (x(2), y(2))-(x(4), y(4))
- Line (x(2), y(2))-(x(6), y(6))
- Line (x(3), y(3))-(x(4), y(4))
- Line (x(3), y(3))-(x(7), y(7))
- Line (x(4), y(4))-(x(8), y(8))
- Line (x(5), y(5))-(x(6), y(6))
- Line (x(5), y(5))-(x(7), y(7))
- Line (x(6), y(6))-(x(8), y(8))
- Line (x(7), y(7))-(x(8), y(8))
-
- End Sub
Option Explicit
Dim X0 As Integer, Y0 As Integer ' centre de l'écran
Dim e As Single ' échelle
Dim t As Single, p As Single
Dim ct As Single ' COS t
Dim st As Single ' SIN t
Dim cp As Single ' COS p
Dim sp As Single ' SIN p
Dim x(1 To 8) As Single, y(1 To 8) As Single ' 8 sommet du cube
Const PI As Single = 3.141559
Private Sub Form_Load()
X0 = Qbe.ScaleWidth / 2
Y0 = Qbe.ScaleHeight / 2
e = Qbe.ScaleWidth / 5
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, Xx As Single, Yy As Single)
t = (Xx - X0) / X0 * PI
p = (Yy - Y0) / Y0 * PI
ct = Cos(t)
st = Sin(t)
cp = Cos(p)
sp = Sin(p)
x(1) = X0 + e * (st * cp + ct + st * sp)
x(2) = X0 + e * (st * cp + ct - st * sp)
x(3) = X0 + e * (st * cp - ct + st * sp)
x(4) = X0 + e * (st * cp - ct - st * sp)
x(5) = X0 + e * (-st * cp + ct + st * sp)
x(6) = X0 + e * (-st * cp + ct - st * sp)
x(7) = X0 + e * (-st * cp - ct + st * sp)
x(8) = X0 + e * (-st * cp - ct - st * sp)
y(1) = Y0 + e * (-sp + cp)
y(2) = Y0 + e * (-sp - cp)
y(3) = Y0 + e * (-sp + cp)
y(4) = Y0 + e * (-sp - cp)
y(5) = Y0 + e * (sp + cp)
y(6) = Y0 + e * (sp - cp)
y(7) = Y0 + e * (sp + cp)
y(8) = Y0 + e * (sp - cp)
Cls
Line (x(1), y(1))-(x(2), y(2))
Line (x(1), y(1))-(x(3), y(3))
Line (x(1), y(1))-(x(5), y(5))
Line (x(2), y(2))-(x(4), y(4))
Line (x(2), y(2))-(x(6), y(6))
Line (x(3), y(3))-(x(4), y(4))
Line (x(3), y(3))-(x(7), y(7))
Line (x(4), y(4))-(x(8), y(8))
Line (x(5), y(5))-(x(6), y(6))
Line (x(5), y(5))-(x(7), y(7))
Line (x(6), y(6))-(x(8), y(8))
Line (x(7), y(7))-(x(8), y(8))
End Sub
Conclusion
C'est tout bête, mais ca m'a pris du temps...
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
PRATIQUE DE SILVERLIGHT PAR ERIC AMBROSIPRATIQUE DE SILVERLIGHT PAR ERIC AMBROSI par MPOWARE
Je viens de finir la lecture du dernier livre d'
Eric Ambrosi
éditions PEARSON
Son livre donne une approche pratique de Silverlight qui sera aussi bien comprise par le développeur que par le designeur.
Tous les aspects du développement RIA sont abor...
Cliquez pour lire la suite de l'article par MPOWARE APPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NETAPPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NET par odewit
2 déclinaisons de Silverlight et 2 déclinaisons de Mono permettent dorénavant (ou permettront prochainement) de développer des applications .NET mobiles pour les principales plates-formes du marché :
Silverlight pour Symbian, basé sur Silverlight 2...
Cliquez pour lire la suite de l'article par odewit ZUNE : NOUVELLE VERSION DU ZUNE SOFTWARE - V 4.2ZUNE : NOUVELLE VERSION DU ZUNE SOFTWARE - V 4.2 par ROMELARD Fabrice
Avec la dernière génération du lecteur MP3 de Microsoft, le ZUNE HD, Microsoft a publié une nouvelle version du logiciel pour PC. Ainsi, je me suis décidé à installer celle-ci sur mon Tablet PC ACER, comme toujours le logiciel est donc tél...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice L'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIESL'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIES par odewit
La tendance est aux interfaces naturelles (NUI), et le keynote de Bill Buxton au MIX l'a bien souligné.
La charte graphique et ergonomique de Windows Phone 7 a donc été entièrement repensée en vue d'obtenir un maximum d'efficacité sur ce point. En re...
Cliquez pour lire la suite de l'article par odewit
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|