Lol, je vous ai bien eu... Bon, c'est un cube en 3D filaire (fausse 3D enfin je crois)

Voici la source

__________________________________________________________________
BeginDoubleBuffer
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
Line(OX+x,OY+Y,OX+X1,OY+Y1,#WHITE)
Line(OX-x,OY-Y,OX+X1,OY+Y1,#WHITE)
Line(OX-x,OY-Y,OX-X1,OY-Y1,#WHITE)
Line(OX+x,OY+Y,OX-X1,OY-Y1,#WHITE)

Line(OX+x+50,OY+Y+50,OX+X1+50,OY+Y1+50,#WHITE)
Line(OX-x+50,OY-Y+50,OX+X1+50,OY+Y1+50,#WHITE)
Line(OX-x+50,OY-Y+50,OX-X1+50,OY-Y1+50,#WHITE)
Line(OX+x+50,OY+Y+50,OX-X1+50,OY-Y1+50,#WHITE)

Line(OX+x,OY+Y,OX+X+50,OY+Y+50,#WHITE)
Line(OX-x,OY-Y,OX-x+50,OY-Y+50,#WHITE)
Line(OX+x1,OY+Y1,OX+X1+50,OY+Y1+50,#WHITE)
Line(OX-x1,OY-Y1,OX-x1+50,OY-Y1+50,#WHITE)

Flip
Cls
Next
Forever
__________________________________________________
Criso et amidark... hum... avouez que vous êtes dégoûter :-D

Respect
Message édité par : artblink / 31-10-2010 19:49

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

Y'a moyen de pecho une demo d'hollywood afin de tester tes bouts de code? (et au passage de te filer une routine qui fait de la vrai 3D)

Malheureusement, non, c'est une application payante (bon, elle le vaut bien d'après ce que je sais) et aucune version démo n'est actuellement disponible.

Je ne sais pas si elle serait adapatée pour faire de la 3D par contre.

Coucou,

Y'a une démo seulement pour PC sur le site d'airsoft. Elle est ici:

http://www.hollywood-mal.com/download/Hollywood_Demo.exe

C'est dommage, sur PC, y'a une API, une démo et pas sur amiga :-?

Respect
Message édité par : Elwood / 01-11-2010 21:40

Selon Andreas, hollywood n'est pas adapté pour faire de la 3D étant donné que se n'es pas sa spécialité, mais je me rappel d'un bout de code sur AmigaDream ou le programmeur arrivé à afficher un cube 3D avec un effet de lumière et tous sa sous AMOS, et sa ramer pas sur mon 1200 de base...

Je me dis qu'il est peut être possible de faire quelque chose :-P

Respect