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