I'm new
Posted: Mon Nov 01, 2010 10:52 am
Hello,
I'm new french "programmer" of Hollywood
I've buy Hollywood 4.7 for PC and Amiga...
I programm some small code... I can post some of them.
So, I didn't know that it was a Hollywood forum, I hope to lend my support and vice versa
I'm french, so don't worry if i wrote some error
Ok, To start i post this, 3Dcube:
Respect
I'm new french "programmer" of Hollywood
I've buy Hollywood 4.7 for PC and Amiga...
I programm some small code... I can post some of them.
So, I didn't know that it was a Hollywood forum, I hope to lend my support and vice versa
I'm french, so don't worry if i wrote some error
Ok, To start i post this, 3Dcube:
Good fun
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
Respect