[DBP] 2D-Grass-Effect - GameCreators Forum

Author

Message

Mr Kohlenstoff

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Germany

Posted: 27th May 2009 17:34 Edited at: 27th May 2009 17:46

Link

I just created this simple grass-effect, which looks quite horrible due to the lack of antialiasing.

However, I thought it would basically be a not that bad idea to "enhance" 2D-games with such faked 3D-grass and wondered, why none of the 2D-Games I know uses such techniques (I mean, it's incredibly simple but theoretically would look quite cool... I guess).

No media required, of course.

+ Code Snippet


set display mode 640,480,32
sync on
sync rate 0
sync

for i = 1 to 32000
   dot rnd(640),rnd(480),rgb(rnd(30),100+rnd(155),rnd(5))
next i
get image 1,0,0,640,480,1

Length = 19
DrawFactor as float = 0.6


do
   cls rgb(60,28,5)
   t = timer()
   for i = 1 to Length/DrawFactor
      x = DrawFactor*i*sin(t*0.1)
      y = Length*0.8 + DrawFactor*(-i + 0.3*i*sin(t*0.17+22))
      paste image 1, x, y, 1
   next i
   print "FPS: ", screen fps()
   sync
loop

I tried to simulate wind-movement... while it's not realistic, it still moves the grass to show off the actual effect.

Back to top

Profile PM Email

CuCuMBeR

21

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Turkey

Posted: 27th May 2009 20:17

Link

Nice, this one seems slightly faster for me

+ Code Snippet

set display mode 640,480,32
sync on : sync rate 0

for i = 1 to 32000
   dot rnd(640),rnd(480),rgb(rnd(30),100+rnd(155),rnd(5))
next i
get image 1,0,0,640,480,1

Sprite 1, 0, 0, 1
Size Sprite 1 , 640, 480
Hide Sprite 1
For i = 2 To 20
Clone Sprite 1, i
next i

Length = 19
DrawFactor as float = 0.6

Do
t = timer()
For i = 1 To 20
   Paste Sprite i, DrawFactor*i*sin(t*0.1), Length*0.8 + DrawFactor*(-i + 0.3*i*sin(t*0.17+22))
next i

Set Cursor 0, 0
print "FPS: ", screen fps()

sync
loop
end

There is always one more imbecile than you counted on.

Back to top

Profile PM

Twu Kai

19

Years of Service

User Offline

Joined: 2nd Oct 2005

Location:

Posted: 27th May 2009 23:10 Edited at: 27th May 2009 23:16

Link

Quote: "why none of the 2D-Games I know uses such techniques (I mean, it's incredibly simple but theoretically would look quite cool... I guess)."

Yeah, I agree (although I never thought of it before you posted this!).

Here's a modified version of CuCuMBeR's modified version of your code, that I think makes it look even more 3D:

+ Code Snippet

set display mode 640,480,32
sync on : sync rate 0

for i = 1 to 32000
   dot rnd(640),rnd(480),rgb(rnd(30),100+rnd(155),rnd(5))
next i
get image 1,0,0,640,480,1

Sprite 1, 0, 0, 1
Size Sprite 1 , 640, 480
Hide Sprite 1
For i = 2 To 20
Clone Sprite 1, i
next i

Length = 19
DrawFactor as float = 0.6

color backdrop 0

Do
t = timer()
For i = 1 To 20
	set sprite alpha i,i*4
   Paste Sprite i, DrawFactor*i*sin(t*0.1), Length*0.8 + DrawFactor*(-i + 0.3*i*sin(t*0.17+22))
next i

Set Cursor 0, 0
print "FPS: ", screen fps()

sync
loop
end

Back to top

Profile PM

bobbel

15

Years of Service

User Offline

Joined: 5th Jan 2009

Location: In my DBPro case xD

Posted: 28th May 2009 16:21

Link

that looks pretty cool, the only one that bothers me are the edges. there should be grass too!

*ding ding*

Back to top

Profile PM Website

CuCuMBeR

21

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Turkey

Posted: 28th May 2009 17:22

Link

How bout this. Sort of changing seasons

+ Code Snippet

set display mode 640,480,32
sync on : sync rate 0

for i = 1 to 32000
   dot rnd(255),rnd(255)
next i
Ink rgb(0, 0, 0), 0 : Box 64, 64, 192, 192
get image 1,0,0,255,255,1
Ink rgb(255, 255, 255), 0

For i = 1 To 25
Sprite i, 0, 0, 1
Size Sprite i , 640, 480
Hide Sprite i
set sprite alpha i,i*2
next i

Length = 19
DrawFactor as float = 0.6

color backdrop 0

Do
t = timer()
a# = math_wrapFloat(a#, 1)
c# = math_wrapPingPong(c#, 32, 255, a#)
If c => 255 Then i = -1
If c =< 0 Then i = 1
For i = 1 To 25
   Paste Sprite i, DrawFactor*i*sin(t*0.1), Length*0.8 + DrawFactor*(-i + 0.3*i*sin(t*0.17+22))
   Set Sprite Diffuse i, c#, 192, 0
next i

Set Cursor 0, 0
print "FPS: ", screen fps()

sync
loop
end

Function math_wrapFloat(n As Float, spd As Float)
   n = n + spd
   If n => 360.0 Then n = 0.0
endFunction n

Function math_wrapPingPong(n As Float, rng1 As Float, rng2 As Float, ang As Float)
Local i As Float
i = (rng2 - rng1) / 2.0
   n = rng1 + i + (Cos(ang) * i)
endFunction n

There is always one more imbecile than you counted on.

Back to top

Profile PM