Build a City - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|53\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> On Topic -> Build a City
Sun, 17 May 2009, 07:45
Jayenkai	I was just going to post this as a cool vid, but then I realised how much fun it would be. View on YouTube Feel up to the challenge? Post your Source below! -=-=- ''Load, Next List!''
Sun, 17 May 2009, 09:21
Jayenkai	Graphics3D 800,600,32,2 SetBuffer BackBuffer() AntiAlias 1 Global nothing=CreateBrush(0,0,0) Dim tex(100),brush(100) Flr=CreatePlane() EntityColor flr,0,20,0 campivot=CreatePivot() cam=CreateCamera(campivot) PositionEntity cam,0,30,-150 TurnEntity cam,17,0,0 AmbientLight 180,180,180 CameraClsColor cam,0,0,40 ; Step One : Windows img=CreateImage(1024,1024) MaxTex=1 For n=1 To MaxTex LockBuffer ImageBuffer(img) tex(n)=CreateTexture(1024,1024) t=Rand(1,2) on=Rand(-1,1) Cls For y=0 To 31 For x=0 To 31 r=Rand(190,220) g=Rand(190,220) b=Rand(190,220) If t=1 If Rand(0,20)<10 Then r=r/2:g=g/2:b=b/2 If Rand(0,20)<10 Then r=r/4:g=g/4:b=b/4 EndIf If t=2 If on=1 Then on=0 If on=-1 Then on=2 If Rand(1,10)=1 And on=2 Then on=1 If Rand(1,20)=1 And on=0 Then on=-1 If on=1 Or on=-1 Then r=r/2:g=g/2:b=b/2 If on=0 Then r=r/8:g=g/8:b=b/8 EndIf For ey=1 To 30 r=r-Rand(0,2) g=g-Rand(0,2) b=b-Rand(0,2) For ex=1 To 30 d=Rand(1,ey4) ur=r-d ug=g-d ub=b-d If ur<0 Then ur=0 If ug<0 Then ug=0 If ub<0 Then ub=0 argb=(255 Shl 24)+(ur Shl 16)+(ug Shl 8)+ub WritePixelFast x32+ex,y32+ey,argb,ImageBuffer(img) Next Next Next Next UnlockBuffer ImageBuffer(img) SetBuffer BackBuffer() DrawImage img,0,0 Flip CopyRect 0,0,1024,1024,0,0,ImageBuffer(img),TextureBuffer(tex(n)) brush(n)=CreateBrush(255,255,255) BrushTexture brush(n),tex(n) Next ; Step Two : Buildings For gx=-5 To 5 For gy=-5 To 5 land=CreateMesh() For n=1 To 8 r=Rand(1,100) If r<100 Then bldg=CreateTube(brush(Rand(1,MaxTex)),Rand(2,5),Rand(2,5),Rand(8,20)) If r=100 Then bldg=CreateTube(brush(Rand(1,MaxTex)),Rand(2,5),Rand(2,5),Rand(15,50)) CopyMesh bldg,land FreeEntity bldg Next UpdateNormals land MoveEntity land,gx28,0,gy*28 Next Next Repeat TurnEntity campivot,0,0.2,0 RenderWorld Flip Until KeyDown(1) Function CreateTube(b,w,d,h) offx#=Rnd(-20,20) offy#=Rnd(-20,20) cube=CreateMesh() Surface=CreateSurface(cube,b) AddVertex surface,offx-w,h,offy-d,Float(Float(w)/16.0),1-Float(Float(h)/16.0) AddVertex surface,offx+w,h,offy-d,-Float(Float(w)/16.0),1-Float(Float(h)/16.0) AddVertex surface,offx+w,0,offy-d,-Float(Float(w)/16.0),1 AddVertex surface,offx-w,0,offy-d,Float(Float(w)/16.0),1 AddTriangle surface,0,1,2 AddTriangle surface,0,2,3 Surface=CreateSurface(cube,b) AddVertex surface,offx-w,h,offy+d,Float(Float(w)/16.0),1-Float(Float(h)/16.0) AddVertex surface,offx+w,h,offy+d,-Float(Float(w)/16.0),1-Float(Float(h)/16.0) AddVertex surface,offx+w,0,offy+d,-Float(Float(w)/16.0),1 AddVertex surface,offx-w,0,offy+d,Float(Float(w)/16.0),1 AddTriangle surface,2,1,0 AddTriangle surface,3,2,0 Surface=CreateSurface(cube,b) AddVertex surface,offx+w,h,offy-d,Float(Float(d)/16.0),1-Float(Float(h)/16.0) AddVertex surface,offx+w,h,offy+d,-Float(Float(d)/16.0),1-Float(Float(h)/16.0) AddVertex surface,offx+w,0,offy+d,-Float(Float(d)/16.0),1 AddVertex surface,offx+w,0,offy-d,Float(Float(d)/16.0),1 AddTriangle surface,0,1,2 AddTriangle surface,0,2,3 Surface=CreateSurface(cube,b) AddVertex surface,offx-w,h,offy-d,Float(Float(d)/16.0),1-Float(Float(h)/16.0) AddVertex surface,offx-w,h,offy+d,-Float(Float(d)/16.0),1-Float(Float(h)/16.0) AddVertex surface,offx-w,0,offy+d,-Float(Float(d)/16.0),1 AddVertex surface,offx-w,0,offy-d,Float(Float(d)/16.0),1 AddTriangle surface,2,1,0 AddTriangle surface,3,2,0 Surface=CreateSurface(cube,nothing) AddVertex surface,offx-w,h,offy-d,Float(Float(w)/16.0),1-Float(Float(h)/16.0) AddVertex surface,offx+w,h,offy-d,-Float(Float(w)/16.0),1-Float(Float(h)/16.0) AddVertex surface,offx+w,h,offy+d,-Float(Float(w)/16.0),1 AddVertex surface,offx-w,h,offy+d,Float(Float(w)/16.0),1 AddTriangle surface,2,1,0 AddTriangle surface,3,2,0 Return cube End Function --v Quicky Nowhere near as nice -=-=- ''Load, Next List!''
Sun, 17 May 2009, 18:13
Mog	Look up Farbrausch, they've pioneered this.
Sun, 17 May 2009, 19:34
JL235	That is amazing!
Mon, 18 May 2009, 06:39
Jayenkai	They didn't pioneer, this has been going since way-back when.. Elite (BBC/Acorn/etc) used it to generate an entire galaxy, but I'm 95% sure that wasn't the first, either. -=-=- ''Load, Next List!''
Wed, 20 May 2009, 04:58
squeakyduck	I love this sort of thing, I've made a start on something for my next cobra demo. You can follow the (possibly slow) progress here
Wed, 20 May 2009, 05:38
Jayenkai	Neat. Although I had to log in to see it! But neat! I see you bothered to do the building-niceness stuff, as opposed to my "Just plonk boxes down" method of doing things -=-=- ''Load, Next List!''
Wed, 20 May 2009, 09:42
squeakyduck	Ah, oops. I thought that was in the open section must move it Yeah, working on the building builder at the moment. They are a mixed bag at the moment, but I've got a few nice ideas to make them less generic (half nicked from that video, I have to admit). I've written some code to generate walkways/bridges, which look OK, but not come up with a good way of joining them to things (part of it will have to wait until I work out the best way to lay down roads, as I don't really want to just do the standard square lattice. I'm aiming for somewhere between the video, and the stuff these guys are doing... Not sure how successful I'll be, but it's fun.. For the sake of making it look nice, I may end up with predrawn textures rather than generating them at runtime, but that is a little way off. I want the city to look citylike first...
Wed, 20 May 2009, 19:49
mindstorm8191	Nice video. I think he should expand on his idea and also make a daylight scene, and swap back and forth. But then we're going down an endless path after that, until you're making a full world out of it... I'd like to see what you can come up with, squeakyduck. -=-=- Vesuvius web game