I'm new

Everything that doesn't really have to do with Hollywood
Post Reply
ArtBlink
Posts: 484
Joined: Mon Nov 01, 2010 10:37 am
Location: Albert - France
Contact:

I'm new

Post by ArtBlink »

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:

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
Good fun ;)

Respect
User avatar
Tarzin
Posts: 112
Joined: Mon Feb 15, 2010 11:46 am
Location: Dunkerque / FRANCE
Contact:

Re: I'm new

Post by Tarzin »

Thanks a lot Artblink.

Examples are always good to watch.
It can help and inspirate!
A500 / A600 / A1200 / SAM440
WinUAE OS3.9 (AmiKit) / OS4.1FE (FlowerPot)
---
https://twitter.com/TarzinCDK
ArtBlink
Posts: 484
Joined: Mon Nov 01, 2010 10:37 am
Location: Albert - France
Contact:

Re: I'm new

Post by ArtBlink »

I have other exemple...

I post them later ;-)

But i need help for version of old amiga beat em up qame, i can post answer in few time

Respect
Post Reply