Gradient drawing - GameCreators Forum

Author

Message

Dodic

18

Years of Service

User Offline

Joined: 6th Nov 2005

Location: SNM (Serbia&Montenegro)

Posted: 16th Feb 2006 20:51

Link

This is not an actuall program , it only draws one gradient on the screen using lines , but it looks kind of nice , so i thouth to post it anyways :

+ Code Snippet

`line gradient
sync on
cls rgb(230,0,40):y=-1:for a = 0 to 240:ink c,255:c=c+1:inc y,1:line 0,y,640,y
sync:next a:for a = 240 to 480:ink c,255:c=c-1:y=y+1:line 0,y,640,y:sync:next a

Back to top

Profile PM Email

Dodic

18

Years of Service

User Offline

Joined: 6th Nov 2005

Location: SNM (Serbia&Montenegro)

Posted: 16th Feb 2006 22:07

Link

And here is another small one , so it doesnt deserves a new thread , it is a "triangle poligonal drawer" , what it does , it makes 3 2d"vertices" (points) at random positions , and draw lines , so that they are connected.

Enjoy in all sorts of triangle poligonal shapes..

Quote: "sync on
sync rate 3
for times=0 to 55
cls
vertice1posx=rnd(640)
vertice1posy=rnd(480)
vertice2posx=rnd(640)
vertice2posy=rnd(480)
vertice3posx=rnd(640)
vertice3posy=rnd(480)
dot vertice1posx,vertice1posy
dot vertice2posx,vertice2posy
dot vertice3posx,vertice3posy
line vertice1posx,vertice1posy,vertice2posx,vertice2posy
line vertice2posx,vertice2posy,vertice3posx,vertice3posy
line vertice3posx,vertice3posy,vertice1posx,vertice1posy
sync
next times"

Back to top

Profile PM Email

Drew the G

User Banned

Posted: 17th Feb 2006 03:02

Link

nice

Arr

Back to top

Profile

Dodic

18

Years of Service

User Offline

Joined: 6th Nov 2005

Location: SNM (Serbia&Montenegro)

Posted: 17th Feb 2006 10:59 Edited at: 17th Feb 2006 13:10

Link

And here`s one version with more "vertices"

+ Code Snippet

sync on
sync rate 3
for times=0 to 65
cls
vertice1posx=rnd(640):vertice1posy=rnd(480)
vertice2posx=rnd(640)
vertice2posy=rnd(480)
vertice3posx=rnd(640)
vertice3posy=rnd(480)
vertice4posx=rnd(640)
vertice4posy=rnd(480)
dot vertice1posx,vertice1posy
dot vertice2posx,vertice2posy
dot vertice3posx,vertice3posy
line vertice1posx,vertice1posy,vertice2posx,vertice2posy
line vertice2posx,vertice2posy,vertice3posx,vertice3posy
line vertice3posx,vertice3posy,vertice4posx,vertice4posy
line vertice4posx,vertice4posy,vertice1posx,vertice1posy
sync
next times

gives all sorts of shapes...

I would like to make it draw interesting shapes , but the problem is , if i add to much or MORE THEN 3 "vertices" , lines will intersect and it wouldnt look to nice with lets say 10 of them..
Offcourse , i`m working on a way to make it dont intersect , but not sure if i`ll be able to.

EDIT: I finally made it , now it looks like real 3d shapes !

sync on:sync rate 3:for times=0 to 65
cls:vertice1posx=rnd(640):vertice1posy=rnd(480)
vertice2posx=rnd(640):vertice2posy=rnd(480)
vertice3posx=rnd(640):vertice3posy=rnd(480)
vertice4posx=rnd(640):vertice4posy=rnd(480)
dot vertice1posx,vertice1posy:dot vertice2posx,vertice2posy:dot vertice3posx,vertice3posy
line vertice1posx,vertice1posy,vertice2posx,vertice2posy
line vertice1posx,vertice1posy,vertice3posx,vertice3posy
line vertice1posx,vertice1posy,vertice4posx,vertice4posy
line vertice2posx,vertice2posy,vertice1posx,vertice1posy
line vertice2posx,vertice2posy,vertice3posx,vertice3posy
line vertice2posx,vertice2posy,vertice4posx,vertice4posy
line vertice3posx,vertice3posy,vertice1posx,vertice1posy
line vertice3posx,vertice3posy,vertice2posx,vertice2posy
line vertice3posx,vertice3posy,vertice3posx,vertice3posy
line vertice3posx,vertice3posy,vertice4posx,vertice4posy
line vertice4posx,vertice4posy,vertice1posx,vertice1posy
line vertice4posx,vertice4posy,vertice2posx,vertice2posy
line vertice4posx,vertice4posy,vertice3posx,vertice3posy
sync:next times

+ Code Snippet

sync on:sync rate 3:for times=0 to 65
cls:vertice1posx=rnd(640):vertice1posy=rnd(480)
vertice2posx=rnd(640):vertice2posy=rnd(480)
vertice3posx=rnd(640):vertice3posy=rnd(480)
vertice4posx=rnd(640):vertice4posy=rnd(480)
dot vertice1posx,vertice1posy:dot vertice2posx,vertice2posy:dot vertice3posx,vertice3posy
line vertice1posx,vertice1posy,vertice2posx,vertice2posy
line vertice1posx,vertice1posy,vertice3posx,vertice3posy
line vertice1posx,vertice1posy,vertice4posx,vertice4posy
line vertice2posx,vertice2posy,vertice1posx,vertice1posy
line vertice2posx,vertice2posy,vertice3posx,vertice3posy
line vertice2posx,vertice2posy,vertice4posx,vertice4posy
line vertice3posx,vertice3posy,vertice1posx,vertice1posy
line vertice3posx,vertice3posy,vertice2posx,vertice2posy
line vertice3posx,vertice3posy,vertice3posx,vertice3posy
line vertice3posx,vertice3posy,vertice4posx,vertice4posy
line vertice4posx,vertice4posy,vertice1posx,vertice1posy
line vertice4posx,vertice4posy,vertice2posx,vertice2posy
line vertice4posx,vertice4posy,vertice3posx,vertice3posy
sync:next times

And also a fun simple code here.. :

+ Code Snippet

sync on
sync rate 3
num=1
do
x=rnd(640)
y=rnd(480)
ink rgb(255,rnd(245),0),9935
Set cursor x,y-20
print num
inc num,1
ink rgb(240+c,100+c,100+c),9935
circle x,y,4
sync
loop

Back to top

Profile PM Email

Uncle Sam

18

Years of Service

User Offline

Joined: 23rd Jul 2005

Location: West Coast, USA

Posted: 21st Apr 2006 10:23

Link

Hey Dodic, that's pretty neat!

Uncle Sam
Nvidia Geforce 7600 GS 256MB PCIEx, 2.66 GHZ Pentium 4 proccessor, 768MB RAM
Want a real FPS? Click here!

Back to top

Profile PM Email

MartinS

18

Years of Service

User Offline

Joined: 15th Dec 2005

Location: Rochester, NY

Posted: 25th Apr 2006 21:20

Link

Nice, Dodic!

Back to top

Profile PM Email Website

Sorry your browser is not supported!

The 20 Line Challenge / Gradient drawing