---

Forum » » Création-Développement » » Mon moteur 3D sous Hollywood

---

Posté : 01-11-2010 00:10

Bon, j'ai trouvé sa, je sais pas comment vous faites, mais il m'a fallu 1 mois pour sortir 10 lignes de codes pour faire un cube à 2 balles pendant que vous écrivez des codes qui cartonne en 1 journée....

J'ai réussi avec polygon, il faut que je trouve comment faire de la vrai 3D sous hollywood, même andreas sait pas... c'est pas gagner

Pour citronsgate: Essai avec se code, je pense que tu peux largement l'améliorer.

_____________________________________________________________________________ _________________
BeginDoubleBuffer
EscapeQuit(True)
OX=320
OY=200

Repeat

For c=0 To 6.26 Step 0.01
x=Cos(c)*100
Y=Sin(c)*100
X1=Cos(c-1.56)*100
Y1=Sin(c-1.56)*100


t={}
t[0] = x ;X1
t[1] = Y ;Y1
t[2] = X+50 ;X2
t[3] = Y+50 ;Y2
t[4] = x1+50 ;X3
t[5] = y1+50 ;Y3
t[6] = X1 ;X4
t[7] = Y1 ;Y4
t[8] = x ;X5
t[9] = Y ;Y5


u={}
u[0] = x ;X1
u[1] = Y ;Y1
u[2] = X+50 ;X2
u[3] = Y+50 ;Y2
u[4] = -x1+50;X3
u[5] = -y1+50;Y3
u[6] = -X1 ;X4
u[7] = -Y1 ;Y4
u[8] = x ;X5
u[9] = Y ;Y5

v = {}

v[0] = x ;X1
v[1] = Y ;Y1
v[2] = X1 ;X2
v[3] = Y1 ;Y2
v[4] = -x ;X3
v[5] = -Y ;Y3
v[6] = -X1 ;X4
v[7] = -Y1 ;Y4
v[8] = x ;X5
v[9] = Y ;Y5

SetFillStyle(#FILLCOLOR)
Polygon(OX+50, OY+50, v,5,$555555)
Polygon(OX,OY,u,5,$999999)
For i=0 To 9
u[i]=u[i]*(-1)
Next
Polygon(OX+50,OY+50,u,5,$999999)
Polygon(Ox,OY,t,5,$999999)
For i=0 To 9
t[i]=t[i]*(-1)
Next
Polygon(Ox+50,OY+50,t,5,$999999)
Polygon(OX, OY, v, 5, #WHITE)

Flip
Cls
Next
Forever
_____________________________________________________________________________ ________________

Pour info, l'API sous windows de Hollywood est excellent, en plus j'ai trouvé un logiciel type deluxepaint sous PC, c'est grafx2, j'avance plus vite comme sa, avec le miga et le PC, n'essaie pas de faire tourner le cube autrement, y'a un sacré problème de clipping lol

Respect
Message édité par : artblink / 01-11-2010 00:11

---

Cet article provient de Le site des utilisateurs francophones actuels et futurs d'AmigaOS 4.x
https://amiga-ng.org/viewtopic.php?topic=889&forum=14