creating a 3D object?

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|95\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> creating a 3D object?
Sat, 07 Jul 2007, 16:25
spinal	I haven't realy done any 3D at all, si as my first ever 3D project, I want to build a maze. Not with a maze generator, just an array of walls, perhaps 30x20 or somthing, 1,0,0,1,0,1,0,0,0,1,1,1 - that sort of thing (1=wall 0=nothing). And I will view it from the top, rather than inside. Does anyone have a small demo to show how to do this? I was thinking to just string some cubes together, but I honestly don't know where to start. Any help appreciated. -=-=- Check out my excellent homepage!
Sat, 07 Jul 2007, 16:59
Jayenkai	3D? Maze? Made of Cubes?! And a ball perhaps? OMG!!! When I did JNKPlat 3D I used the "String together cubes" method, which worked reasonably well, until I then wanted to change anything inside the maze. If you clump them together, you're not getting them back out again! Graphics3D 800,600,32,2 SetBuffer BackBuffer() pivot=CreatePivot() cam=CreateCamera(pivot) lamp=CreateLight(0,pivot) PositionEntity cam,0,0,-20 PositionEntity lamp,0,0,-20 Dim Brush(5) ;Create Brushes.. You'll see why in a sec. For n=1 To 5 brush(n)=CreateBrush(255,255,n*20) Next SmileyFace=CreateMesh() For y=1 To 8 Read txt$ For x=1 To 8 on=Mid$(txt$,x,1) If on=1 Piece=CreateCube() ;Create the cube's MESH.. ;From here on, DO NOT USE IT AS AN ENTITY. Only as a Mesh. PaintMesh Piece,Brush(Rand(1,5)) ;<-- Paint the mesh with a brush, 'cos you can't color a mesh like you can an entity. ScaleMesh Piece,0.5,0.5,0.5 PositionMesh Piece,x-4.5,0-(y-4.5),0 ;3D Y is upside down compared to 2D Y ;Then add this piece to the whole. ;If you've used it as an entity, this command will not work. AddMesh Piece,SmileyFace ;Then get rid of the bit. FreeEntity Piece EndIf Next Next UpdateNormals SmileyFace ;<-- Sorts it out for lighting after you're done. PointEntity cam,smileyface PointEntity Lamp,smileyface Repeat TurnEntity pivot,0,2,0 RenderWorld Flip Until KeyDown(1) Data "01111110" Data "11111111" Data "10011001" Data "10011001" Data "11111111" Data "10111101" Data "11000011" Data "01111110" --v \|edit\| Dunno why I didn't do this as an example.. Must be tired... A quick tweak later \|edit\| Graphics3D 800,600,32,2 SetBuffer BackBuffer() pivot=CreatePivot() cam=CreateCamera(pivot) lamp=CreateLight(0,pivot) PositionEntity cam,0,0,-20 PositionEntity lamp,0,0,-20 Dim Brush(5) ;Create Brushes.. You'll see why in a sec. brush(1)=CreateBrush(255,255,0) brush(2)=CreateBrush(255,180,0) brush(3)=CreateBrush(0,180,255) platdude=CreateMesh() For y=1 To 8 Read txt$ For x=1 To 8 on=Mid$(txt$,x,1) If on>0 Piece=CreateCube() ;Create the cube's MESH.. ;From here on, DO NOT USE IT AS AN ENTITY. Only as a Mesh. PaintMesh Piece,Brush(on) ;<-- Paint the mesh with a brush, 'cos you can't color a mesh like you can an entity. ScaleMesh Piece,0.5,0.5,0.5 PositionMesh Piece,x-4,0-(y-4),0 ;3D Y is upside down compared to 2D Y ;Then add this piece to the whole. ;If you've used it as an entity, this command will not work. AddMesh Piece,platdude ;Then get rid of the bit. FreeEntity Piece EndIf Next Next UpdateNormals platdude ;<-- Sorts it out for lighting after you're done. PointEntity cam,platdude PointEntity Lamp,platdude Repeat TurnEntity pivot,0,2,0 RenderWorld Flip Until KeyDown(1) Data "00011000" Data "00011000" Data "00010000" Data "02222200" Data "00020000" Data "00030000" Data "00303000" Data "03000300" --v Much better.. -=-=- ''Load, Next List!''
Sat, 07 Jul 2007, 17:44
Jayenkai	I call it.. Tornadude! loads=150 ;<-- tweak if slow! Graphics3D 800,600,32,2 SetBuffer BackBuffer() pivot=CreatePivot() cam=CreateCamera(pivot) lamp=CreateLight(0,pivot) PositionEntity cam,0,-40,-70 PositionEntity lamp,0,0,-100 Dim Brush(5) ;Create Brushes.. You'll see why in a sec. brush(1)=CreateBrush(255,255,0) brush(2)=CreateBrush(255,180,0) brush(3)=CreateBrush(0,180,255) platdude=CreateMesh() For y=1 To 8 Read txt$ For x=1 To 8 on=Mid$(txt$,x,1) If on>0 Piece=CreateCube() ;Create the cube's MESH.. ;From here on, DO NOT USE IT AS AN ENTITY. Only as a Mesh. PaintMesh Piece,Brush(on) ;<-- Paint the mesh with a brush, 'cos you can't color a mesh like you can an entity. ScaleMesh Piece,0.5,0.5,0.5 PositionMesh Piece,x-4,0-(y-4),0 ;3D Y is upside down compared to 2D Y ;Then add this piece to the whole. ;If you've used it as an entity, this command will not work. AddMesh Piece,platdude ;Then get rid of the bit. FreeEntity Piece EndIf Next Next UpdateNormals platdude ;<-- Sorts it out for lighting after you're done. Dim dude(loads) For n=1 To loads dude(n)=CopyMesh(platdude) y=Rand((n40)/loads,40) PositionMesh dude(n),Rand(0-y,y),(y2)-40,Rand(0-y,y) TurnEntity dude(n),0,Rand(0,360),0 Next PointEntity cam,platdude PointEntity Lamp,platdude Repeat TurnEntity pivot,0,8,0 RenderWorld Flip Until KeyDown(1) Data "00011000" Data "00011000" Data "00010000" Data "02222200" Data "00020000" Data "00030000" Data "00303000" Data "03000300" --v ... I probably have more important things to be doing, right now.. -=-=- ''Load, Next List!''
Mon, 09 Jul 2007, 17:21
spinal	Yet again, I have put off the idea for a 3D game... I'm going to do it top-view 2D. Sorry I made you do all that work for nothing Jay, but It seems nds 3D is based on opengl and it looks like a lot of learning, one day I will do it though. And you were right about the ball thing -=-=- Check out my excellent homepage!
Mon, 09 Jul 2007, 17:47
spinal	[double post, sorry] If anyone would be so kind as to create some short code for creatinf a ball around 12 pixels accross, I realise that 3D soesn't work in pixels, but thats the size I'm after not antialiased to the background. I would like to load a texture to tha ball, parhaps a soccer ball pattern or a marble or something, and be able to rotate it about 40 degrees, capture a screen shot (maybe to an image) and repeat 9 times (creating a full rotation right, then rotate down by 40 degrees and repeate the above, then again etc. until there is a bunch of frames of a ball rolling fully right and fully down. hope that makes sense. -=-=- Check out my excellent homepage!
Mon, 09 Jul 2007, 18:27
Jayenkai	Graphics3D 800,600,32,2 Rotations#=32 ;Tweak as needed SpriteWide=16 SpriteHigh=16 ;Make a silly texture, otherwise just load one.. BallTexture=CreateTexture(512,512) BallTextureImage=CreateImage(512,512) SetBuffer ImageBuffer(BallTextureImage) Color 255,0,0 Rect 0,0,512,512,1 Color 0,255,255 For x=0 To 512 Step 128 For y=0 To 512 Step 128 Rect x,y,64,64,1 Next Next CopyRect 0,0,512,512,0,0,ImageBuffer(BallTextureImage),TextureBuffer(BallTexture) ;That should do. SetBuffer BackBuffer() Cam=CreateCamera() CameraViewport Cam,0,0,SpriteWide,SpriteHigh PositionEntity cam,0,-2,0 CameraZoom cam,1.6 AmbientLight 25,25,25 lamp=CreateLight(3) PositionEntity lamp,-15,-30,-15 LightRange lamp,45 Ball=CreateSphere(32) EntityTexture Ball,BallTexture PointEntity cam,Ball PointEntity lamp,ball AngPerRot#=0-Float(360.0/Rotations) EndResult=CreateImage(SpriteWide,SpriteHigh,RotationsRotations) For Roll=0 To Rotations-1 For Pitch=0 To Rotations-1 Cls RotateEntity Ball,0,0,0,0 TurnEntity Ball,Float(Pitch)AngPerRot,0,Float(Roll)AngPerRot,1 RenderWorld CopyRect 0,0,SpriteWide,SpriteHigh,0,0,BackBuffer(),ImageBuffer(EndResult,Roll+(PitchRotations)) Flip Next Next ballx=400 bally=300 framex=0 framey=0 Repeat Cls If KeyDown(200) Then bally=bally-1:framey=framey+1 If KeyDown(208) Then bally=bally+1:framey=framey-1 If KeyDown(203) Then ballx=ballx-1:framex=framex+1 If KeyDown(205) Then ballx=ballx+1:framex=framex-1 If framex<0 Then framex=framex+(rotations) If framex>(rotations-1) Then framex=framex-(rotations) If framey<0 Then framey=framey+(rotations) If framey>(rotations-1) Then framey=framey-(rotations) DrawImage EndResult,ballx,bally,(framex)+((framey)rotations) Flip Until KeyDown(1) Cls For x=0 To rotations-1 For y=0 To rotations-1 DrawImage EndResult,xSpriteWide,ySpriteHigh,x+(YRotations) Next Next Flip --v \|edit\| The roll didn't look right.. Tweaked \|edit\| \|edit\| 2 : Hmm, it's still not right, but I'm sure with a bit of tweaking you can get it to look half-decent \|edit\| \|edit\| Cheated, and rotated the texture instead! \|edit\| Graphics3D 800,600,32,2 Rotations#=32 ;Tweak as needed SpriteWide=32 SpriteHigh=32 ;Make a silly texture, otherwise just load one.. BallTexture=CreateTexture(512,512) BallTextureImage=CreateImage(512,512) SetBuffer ImageBuffer(BallTextureImage) Color 255,0,0 Rect 0,0,512,512,1 Color 0,255,255 For x=0 To 512 Step 128 For y=0 To 512 Step 128 Rect x,y,64,64,1 Next Next CopyRect 0,0,512,512,0,0,ImageBuffer(BallTextureImage),TextureBuffer(BallTexture) ;That should do. SetBuffer BackBuffer() Cam=CreateCamera() CameraViewport Cam,0,0,SpriteWide,SpriteHigh PositionEntity cam,0,-2,0 CameraZoom cam,1.6 AmbientLight 25,25,25 lamp=CreateLight(3) PositionEntity lamp,-15,-30,-15 LightRange lamp,45 Ball=CreateSphere(32) EntityTexture Ball,BallTexture RotateEntity ball,90,0,0 PointEntity cam,Ball PointEntity lamp,ball AngPerRot#=0-Float(360.0/Rotations) EndResult=CreateImage(SpriteWide,SpriteHigh,RotationsRotations) For Roll=0 To Rotations-1 For Pitch=0 To Rotations-1 Cls PositionTexture BallTexture,Roll/Rotations,Pitch/Rotations RenderWorld CopyRect 0,0,SpriteWide,SpriteHigh,0,0,BackBuffer(),ImageBuffer(EndResult,Roll+(PitchRotations)) Flip Next Next ballx=400 bally=300 framex=0 framey=0 Repeat Cls If KeyDown(200) Then bally=bally-1:framey=framey+1 If KeyDown(208) Then bally=bally+1:framey=framey-1 If KeyDown(203) Then ballx=ballx-1:framex=framex+1 If KeyDown(205) Then ballx=ballx+1:framex=framex-1 If framex<0 Then framex=framex+(rotations) If framex>(rotations-1) Then framex=framex-(rotations) If framey<0 Then framey=framey+(rotations) If framey>(rotations-1) Then framey=framey-(rotations) DrawImage EndResult,ballx,bally,(framex)+((framey)rotations) Flip Until KeyDown(1) Cls For x=0 To rotations-1 For y=0 To rotations-1 DrawImage EndResult,xSpriteWide,ySpriteHigh,x+(YRotations) Next Next Flip --v Sorted! -=-=- ''Load, Next List!''
Tue, 10 Jul 2007, 03:26
spinal	They both look great, but I loaded a texture from an image (128x128) and it's not square/round, it is stretched, andy idea how to put it right? \|edit\| I noticed the ball rotates relative to its own axis. Is it possible to rotate it relative to the screen/camera? So that it always rolls the same direction (left to right) no matter how far through the cycle it is? -=-=- Check out my excellent homepage!
Tue, 10 Jul 2007, 03:44
Jayenkai	The 2nd one should look better, due to it being the texture moving, not the ball rotating, but you still end up with that stretched result. Gimme 10 mins or so, and I'll write up my classic 2D ball generation thing, instead.. Always looked much better -=-=- ''Load, Next List!''
Tue, 10 Jul 2007, 03:57
spinal	So I should warp my texture a bit to compensate?
Tue, 10 Jul 2007, 04:01
Jayenkai	It's due to warping at the top and bottom of the sphere. I'm really not sure how to avoid that, other than just plain doing it 2D. So I'm doing that.. Taking a bit more than 10 mins to do, though, 'cos I had to make a brew, too! -=-=- ''Load, Next List!''
Tue, 10 Jul 2007, 04:31
Jayenkai	Graphics 800,600,32,2 SetBuffer BackBuffer() Rotations#=16 SpriteWide#=32 SpriteHigh#=32 SphereGreyscale=CreateImage(SpriteWide,SpriteHigh) ;Or use your own image... SetBuffer(ImageBuffer(SphereGreyscale)) For x=0 To SpriteWide2 ; dark=(Float(x)/(SpriteWide2))255.0 ;Lots of Contrast dark=((Float(x)/(SpriteWide2))128.0)+128 ;Half Contrast Color dark,dark,dark Oval Float(x/7),Float(x/7),SpriteWide-(Float(x)/2),SpriteWide-(Float(x)/2),1 ;Light from top left ; Oval Float(x/4),Float(x/4),SpriteWide-(Float(x)/2),SpriteWide-(Float(x)/2),1 ;Light directly above Next SetBuffer BackBuffer() BallTexture=CreateImage(64,64) ;Try to stick to Sprite2, although any size should work.. (should!) SetBuffer ImageBuffer(BallTexture) Color 255,0,0 Rect 0,0,64,64,1 Color 0,255,255 Text 32,30,"THE",1,1 Text 32,40,"BALL!",1,1 SetBuffer BackBuffer() ;And leave the rest.. TextureWide#=ImageWidth(BallTexture) TextureHigh#=ImageHeight(BallTexture) DistPerRot#=TextureWide/Rotations EndResult=CreateImage(SpriteWide,SpriteHigh,RotationsRotations) Dim DarkMap(SpriteWide,SpriteHigh) LockBuffer ImageBuffer(SphereGreyScale) For x=0 To SpriteWide For y=0 To SpriteHigh DarkMap(x,y)=ReadPixelFast(x,y,ImageBuffer(SphereGreyScale) ) And $000000FF Next Next UnlockBuffer ImageBuffer(SphereGreyScale) For Roll=0 To Rotations-1 For Pitch=0 To Rotations-1 Cls Viewport 0,0,SpriteWide,SpriteHigh DrawImage BallTexture,0-(RollDistPerRot),0-(PitchDistPerRot) DrawImage BallTexture,(0-(RollDistPerRot))+TextureWide,(0-(PitchDistPerRot)) DrawImage BallTexture,(0-(RollDistPerRot)),(0-(PitchDistPerRot))+TextureHigh DrawImage BallTexture,(0-(RollDistPerRot))+TextureWide,(0-(PitchDistPerRot))+TextureHigh Viewport 0,0,800,600 LockBuffer BackBuffer() For x=0 To SpriteWide For y=0 To SpriteHigh darkness=DarkMap(x,y) ARGB=ReadPixelFast(x,y,BackBuffer()) R=(Float((ARGB And $00FF0000) Shr 16)/255)Darkness G=(Float((ARGB And $0000FF00) Shr 8)/255)Darkness B=(Float((ARGB And $000000FF) )/255)Darkness NewARGB=(255 Shl 24)+(R Shl 16)+(G Shl 8)+B WritePixelFast(x,y,NewARGB) Next Next UnlockBuffer BackBuffer() CopyRect 0,0,SpriteWide,SpriteHigh,0,0,BackBuffer(),ImageBuffer(EndResult,Roll+(PitchRotations)) Flip False Next Next ballx=400 bally=300 framex=0 framey=0 Repeat Cls If KeyDown(200) Then bally=bally-1:framey=framey+1 If KeyDown(208) Then bally=bally+1:framey=framey-1 If KeyDown(203) Then ballx=ballx-1:framex=framex+1 If KeyDown(205) Then ballx=ballx+1:framex=framex-1 If framex<0 Then framex=framex+(rotations) If framex>(rotations-1) Then framex=framex-(rotations) If framey<0 Then framey=framey+(rotations) If framey>(rotations-1) Then framey=framey-(rotations) DrawImage EndResult,ballx,bally,(framex)+((framey)rotations) Flip Until KeyDown(1) Cls For x=0 To rotations-1 For y=0 To rotations-1 DrawImage EndResult,xSpriteWide,ySpriteHigh,x+(YRotations) Next Next Flip --v -=-=- ''Load, Next List!''
Tue, 10 Jul 2007, 06:12
spinal	I'm gunna stick with number 1, I just need to figure out how its texturing the sphere. -=-=- Check out my excellent homepage!
Tue, 10 Jul 2007, 06:24
Jayenkai	LOL Basically the top and bottom are pulled together, so you'll need to create an inverted texture, just like how a globe becomes a map by widening the top and bottom.. Should be easy Mostly useless URL! -=-=- ''Load, Next List!''
Tue, 10 Jul 2007, 06:47
spinal	cool, I got the textures (ones so far) to stretch properly, and inverted then, I noticed ther were upside down. Also I needed to 'pinch' it in the middle, so it is twice as tall as it is wide, but on the same size canvas. Would it be difficult to move the camery around the ball instead of rotating the ball? The motion is better on the second version, but the texture is better on the first. -=-=- Check out my excellent homepage!
Tue, 10 Jul 2007, 07:10
Jayenkai	Not too hard. Just attach the camera to a pivot, and rotate that. -=-=- ''Load, Next List!''
Wed, 11 Jul 2007, 02:48
spinal	I'm getting a little further with this, but my laptop keeps crashing. Stupid machine... -=-=- Check out my excellent homepage!
Sun, 29 Jul 2007, 15:43
dna	yOU NEVER CEASE TO AMAZE ME jAY.