Terrain Gen

[KiZ]

Well, I was thinking back to that fad about terrain generators a while ago on Qbasic.com, etc and decided to make my own

Code:

DECLARE SUB writepal (red!, grn!, blu!, palp!)
RANDOMIZE TIMER
SCREEN 13
sizex = 120
sizey = 70
FOR i = 1 TO 8
writepal 0, 0, 60, i
NEXT
FOR i = 8 TO 12
r = r + 60 / 4
g = g + 50 / 4
B = B - 60 / 4
writepal r, g, B, i
NEXT
FOR i = 12 TO 30
writepal 60, 50, 0, i
NEXT
r = 60
g = 50
FOR i = 30 TO 64
r = r - 40 / 34
g = g - 40 / 34
writepal r, g, 0, i
NEXT
r = 20
g = 10
FOR i = 64 TO 192
r = r - 20 / 128
g = g + 50 / 128
writepal r, g, 0, i
NEXT
r = 0
g = 60
B = 0
FOR i = 192 TO 255
r = r + 45 / 64
g = g - 15 / 64
B = B + 45 / 64
writepal r, g, B, i
NEXT
DIM buffer(sizex, sizey)

FOR x = 1 TO sizex
  FOR y = 1 TO sizey
    buffer(x, y) = 1
  NEXT
NEXT
FOR i = 1 TO 130
  posx = INT(RND * sizex) + 1
  posy = INT(RND * sizey) + 1
  height = INT(RND * 350) + 1
  FOR j = 1 TO 90
    posx2 = (INT(RND * 10) - 5) + posx
    posy2 = (INT(RND * 10) - 5) + posy
    IF posx2 > 1 AND posx2 < sizex AND posy2 > 1 AND posy2 < sizey THEN buffer(posx2, posy2) = height
  NEXT
NEXT
LOCATE 1, 24: PRINT "]"
FOR smth = 1 TO 4
  FOR x = 1 TO sizex - 1
    FOR y = 1 TO sizey - 1
      av = 0
      av = av + buffer(x - 1, y - 1)
      av = av + buffer(x + 1, y - 1)
      av = av + buffer(x - 1, y + 1)
      av = av + buffer(x + 1, y + 1)
      av = av + buffer(x, y)
      av = av / 5
      IF av > 255 THEN av = 255
      IF av < 1 THEN av = 1
      buffer(x, y) = av
    NEXT
    LOCATE 1, 1
    a = a + 1
    PRINT "Generating: [" + STRING$((a / ((sizex - 1) * 4)) * 10, "þ")
  NEXT
NEXT
CLS
FOR x = sizex - 1 TO 1 STEP -1
  FOR y = 10 TO sizey + 9
    'PSET (x, y), buffer(x, y - 10)
    LINE (x * 2 - 2 + y, y * 2 - 2)-(x * 2 + y, y * 2 - buffer(x, y - 10) / 8), buffer(x, y - 10), BF
  NEXT
NEXT
END
FOR x = sizex - 1 TO 2 STEP -2
  FOR y = 12 TO sizey + 9 STEP 2
     LINE (x * 2 + y, y * 2 - buffer(x, y - 10) / 8)-((x - 2) * 2 + y, y * 2 - buffer(x - 2, y - 10) / 8), buffer(x, y - 10)
     LINE (x * 2 + y, y * 2 - buffer(x, y - 10) / 8)-(x * 2 + (y - 2), (y - 2) * 2 - buffer(x, y - 12) / 8), buffer(x, y - 10)
  NEXT
NEXT

SUB writepal (red, grn, blu, palp)
  OUT &H3C8, palp
  OUT &H3C9, red
  OUT &H3C9, grn
  OUT &H3C9, blu
END SUB

[Zack]

Cool work! Now make a map engine that will generate maps for your terrain - then of course a map loading engine...
This could go somewhere.

[Jark]

Dark, how did you do to make it THAT FAST ?

I thought this kind of generators could only live with look-up tables...


As for landscapes generation, TC-Land is one of my next project... I'll try to do do with terrain generation what I've done with raytracing.

Antoni has emailed me a while ago the terrain generator of Entropy, I can post that if you wish. It's impressive...

As for me, that's what I managed to do one year ago:




You can download the prog that I used on this page:
http://mandelbrot.dazibao.free.fr/Perlin/Qbground.bas

but be careful: this prog is horrible, that's why I want to make TC-Land, that will look more like this:

This picture uses the original Ken Perlin algorithm, it gives real nice results for clouds, mountains should be nice also.

[Agamemnus]

Hehe, wow. Nice work everyone.

I played with Entropy's terrain generator too..

I made a map generator myself, and it does local convergence too, but with a bit of a different formula: it converges into 2D islands, like a cow's hide.

[Dr_Davenstein]

WOW! Thats awesome Jark!
You could make one hell of a Populous type game with that.
I think I'll scrap my land generator now... :rotfl:

[Jark]

My progs are unfortunately far too slow for games

But they can give ideas :wink:

[KiZ]

Heh, thanks guys.

Jark: Im not really sure why you would expect it to be slow, as the generator only uses a simple type of smoothing to generate heights, and the colours are obviously based on heights. Btw, I love your terrain generator!! It is beautiful!

Zack: Im not really sure what you mean by a map engine that will generate maps for the terrain? but what would be cool is if I could somehow change the engine to allow walking around. It would be way cool to be able to walk around a landscape like that and walk across the beaches and everything =D

[Jark]

Dark, just try to generate a terrain with my prog: then you'll see I why I call it slow... It's SVGA, hires stuff... :wink: