6-line 2d circle - GameCreators Forum

Author

Message

Kain the Second

20

Years of Service

User Offline

Joined: 9th Jan 2004

Location:

Posted: 25th Mar 2004 03:24 Edited at: 25th Mar 2004 05:00

Link

DBPro 2D circle

+ Code Snippet

do
t=t+1
x=cos(t) * 100
y=sin(t) * 100
dot x+320,y+320
loop

Back to top

Profile PM

Tim Ballisto

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Right behind you.

Posted: 29th Mar 2004 02:34

Link

it also works in dbc, try this crystal ball effect. click the mouse to set the new nucleus.

+ Code Snippet

sync on:sync rate 100:npx=320:npy=240:do:t=rnd(360):x=cos(t)*100:y=sin(t)*100:dot x+npx,y+npy
fdx=rnd(200)+npx-100:fdy=rnd(200)+npy-100:if mouseclick()=1 then gosub nc
if sqrt((npx-fdx)^2+(npy-fdy)^2)<100:dot fdx,fdy:endif:sync:loop
nc:
cls:npx=mousex():npy=mousey():return

Programs for programmers.

Back to top

Profile PM Website

Trowbee

21

Years of Service

User Offline

Joined: 12th Apr 2003

Location: United Kingdom

Posted: 29th Mar 2004 03:06

Link

Also works by typing circle x,y,radius

Back to top

Profile PM

Tim Ballisto

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Right behind you.

Posted: 30th Mar 2004 04:46 Edited at: 30th Mar 2004 04:50

Link

wow. look at this.

+ Code Snippet

sync on:sync rate 1000:do:inc t:z#=z#+.01:x#=cos(t)*(1+z#):y#=sin(t)*(1+z#):dot x#+320,y#+240:sync:loop

the line makes a growing sin/cosine spiral, but that's not the strange part. the beauty comes when it fills up the whole screen. you may not notice it from where you are sitting, but step back a little and look at it. it shows a very neat pattern not unlike oriental depictions of the sun, and a little like a fingerprint. (screenshot below.)

and it gets even more interesting when it's compressed to half it's size. now it looks like something you would see on an asian rug.

funny how computers generate patterns from nature and those that have been around for centuries...

Programs for programmers.

Back to top

Profile PM Website

Peter H

20

Years of Service

User Offline

Joined: 20th Feb 2004

Location: Witness Protection Program

Posted: 30th Mar 2004 19:14 Edited at: 30th Mar 2004 19:14

Link

tim ballisto-it didn't do anything for me...

(using DBPro...

)

ooh ooh i got this great idea master yoda we could make a game! and the game's story line would be...
"Your wife is death. How? NO idea. But it is murder. REVENGE!!!!!!!!!"

Back to top

Profile PM Email

Kain the Second

20

Years of Service

User Offline

Joined: 9th Jan 2004

Location:

Posted: 1st Apr 2004 22:34 Edited at: 19th Apr 2004 03:50

Link

thats awesome.
i was trying out different formulas with darkbasic pro and i got this:

+ Code Snippet

z=2
do
z=z+1
z2=z/100
x=sin(z) * z2 / cos(y)
y=cos(z) * z2
dot x+320,y+240
loop

Back to top

Profile PM

Emperor Baal

20

Years of Service

User Offline

Joined: 1st Dec 2003

Location: The Netherlands - Oudenbosch

Posted: 2nd Apr 2004 19:54

Link

try this:

+ Code Snippet

sync on:sync rate 1000:m#=255:w=1:do:ink rgb(m#,m#,m#),0:inc t:z#=z#+.001:x#=cos(t)*(1+z#):y#=sin(t)*(1+z#):dot x#+320,y#+240
if w=1 : m#=m#+0.1
if m#>255.0 : w=2 : endif
else
m#=m#-0.1 : if m#<0.0 : w=1 : endif
endif
if t>360*1500 then exit
loop : sync : suspend for key

nice anti-alliased lines

Quote: "UPDATED
Amd 2800+

1024mb pc3200

A7N8X - Deluxe

Ati Radeon 9800PRO 256mb"

Back to top

Profile PM Email Website

Sorry your browser is not supported!

The 20 Line Challenge / 6-line 2d circle