Sun with a Quad?

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|622\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Sun with a Quad?
Sun, 18 Nov 2007, 22:24
Toaster	I am looking to do this effect: From what I understand the way the guy did it is with a quad using additive blend. I've tried this but I dont get the same effect I was wondering if someone could help out? So far I have this: Graphics3D 1024,768,32 camera = CreateCamera() Type quad Field s,size#,posX,posy,posZ,Vertex End Type mesh=CreateMesh() surface=CreateSurface(mesh) p.quad = New quad p\s=surface p\size#=1 p\posx=0 p\posy=0 p\posz=5 p\Vertex=AddVertex(p\s,0,0,0,0,0) AddVertex(p\s,1,0,0,1,0) AddVertex(p\s,1,1,0,1,1) AddVertex(p\s,0,1,0,0,1) AddTriangle p\s,0,1,2 AddTriangle p\s,0,2,3 tex=LoadTexture("sun.png",2) EntityTexture mesh,tex EntityBlend mesh,3 EntityFX mesh,1 EntityColor mesh,245,221,86 ScaleEntity mesh,100,100,1 PositionEntity mesh,0,100,100 While Not KeyHit(1) ;point quad to face the camera p.quad = First quad s=p\s TFormVector -p\size,0,0, Camera , 0 x1# = TFormedX() y1# = TFormedY() z1# = TFormedZ() TFormVector 0,-p\size,0,Camera, 0 x2# = TFormedX() y2# = TFormedY() z2# = TFormedZ() VertexCoords s, p\Vertex + 0 , p\Posx - x1 - x2 , p\Posy - y1 - y2 , p\Posz - z1 - z2 VertexCoords s, p\Vertex + 1 , p\Posx - x1 + x2 , p\Posy - y1 + y2 , p\Posz - z1 + z2 VertexCoords s, p\Vertex + 2 , p\Posx + x1 + x2 , p\Posy + y1 + y2 , p\Posz + z1 + z2 VertexCoords s, p\Vertex + 3 , p\Posx + x1 - x2 , p\Posy + y1 - y2 , p\Posz + z1 - z2 ;; UPDATE CAMERA mxs# = mxs + Float(MouseXSpeed())/3 mys# = mys + Float(MouseYSpeed())/3 mxs = mxs - mxs/4 mys = mys - mys/4 TurnEntity Camera,mys,-mxs,0 RotateEntity Camera,Min22(Max22(EntityPitch(Camera),80),-80),EntityYaw(Camera),0 MoveEntity Camera,(KeyDown(32)-KeyDown(30))1,0,(KeyDown(17)-KeyDown(31))1 MoveMouse GraphicsWidth()/2,GraphicsHeight()/2 UpdateWorld() RenderWorld() Flip Wend End Function Min22#(A#,B#) If A < B Then Return B Return A End Function Function Max22#(A#,B#) If A > B Then Return B Return A End Function --v Thanks, Toaster
Mon, 19 Nov 2007, 01:47
power mousey	well....I don't know. But a few glimpses thru the code: where is your Backbuffer and light? your camera or Camera should be consistent of just one...Camera or camera. First letter... \|edit\| another thing I noticed while taking a more thorough look at his code is the TurnEntity command with the Camera. Seems like x,y representations of mxs and mys are reversed. \|edit\|
Mon, 19 Nov 2007, 02:19
Jayenkai	Blitz doesn't care for capitalization. It's probably the lack of Backbuffer that's doing it. -=-=- ''Load, Next List!''
Mon, 19 Nov 2007, 04:39
Toaster	hmm no doesn't matter if I add buffer = backbuffer() or if I add a light either.. Also the camera controls are fine. You have to put one negative so that you dont have an inverse camera look. -Toaster
Mon, 19 Nov 2007, 12:42
Forklift_Fred	Looks alright to me, it probably depends on what the camera is looking at. I think you may need to add a texture to your quad though, to give it more of a graduated look and perhaps add a sun-flair somehow? Mind you, you haven't given us your sun.png so we can't really see what you are seeing. I may be thinking along the wrong lines with the images I have tried it with -=-=- Come rain or shine...
Mon, 19 Nov 2007, 13:08
Toaster	Okay I worked somemore and got this: Graphics3D 1024,768,32 SetBuffer = BackBuffer camera = CreateCamera() Type quad Field s,size#,posX,posy,posZ,Vertex End Type mesh=CreateMesh() surface=CreateSurface(mesh) p.quad = New quad p\s=surface p\size#=1 p\posx=0 p\posy=0 p\posz=5 p\Vertex=AddVertex(p\s,0,0,0,0,0) AddVertex(p\s,1,0,0,1,0) AddVertex(p\s,1,1,0,1,1) AddVertex(p\s,0,1,0,0,1) AddTriangle p\s,0,1,2 AddTriangle p\s,0,2,3 EntityBlend mesh,3 EntityFX mesh,1 EntityColor mesh,245,221,86 ScaleEntity mesh,100,100,1 PositionEntity mesh,0,100,100 EntityOrder mesh,-100 cube = CreateCube() ScaleEntity cube,20,20,20 PositionEntity cube,0,100,200 While Not KeyHit(1) PointEntity mesh,camera ;; UPDATE CAMERA mxs# = mxs + Float(MouseXSpeed())/3 mys# = mys + Float(MouseYSpeed())/3 mxs = mxs - mxs/4 mys = mys - mys/4 TurnEntity Camera,mys,-mxs,0 RotateEntity Camera,Min22(Max22(EntityPitch(Camera),80),-80),EntityYaw(Camera),0 MoveEntity Camera,(KeyDown(32)-KeyDown(30))1,0,(KeyDown(17)-KeyDown(31))1 MoveMouse GraphicsWidth()/2,GraphicsHeight()/2 UpdateWorld() RenderWorld() Flip Wend End Function Min22#(A#,B#) If A < B Then Return B Return A End Function Function Max22#(A#,B#) If A > B Then Return B Return A End Function --v Here's a screenshot: I want to make it disperse more.. Look more like the picture here: As you can see it doesn't look like a square.. Thanks, Toaster
Mon, 19 Nov 2007, 14:35
Forklift_Fred	Like I said, you need a graduated texture. Something like this (a very rough and ready demo image). Play around with it and see what you can do Apply it as a texture to the quad as in your first code. It's far from perfect but may be the direction to go. -=-=- Come rain or shine...
Mon, 19 Nov 2007, 14:45
JL235	First there are other effects going on in that image for the sun effect. However after a quick glance over your code, is this what your after? You will have to supply your own sun texture for it. Graphics3D 1024,768,32,2 SetBuffer = BackBuffer camera = CreateCamera() Type quad Field s,size#,posX,posy,posZ,Vertex End Type mesh=CreateMesh() surface=CreateSurface(mesh) p.quad = New quad p\s=surface p\size#=1 p\posx=0 p\posy=0 p\posz=5 p\Vertex=AddVertex(p\s,0,0,0,0,0) AddVertex(p\s,1,0,0,1,0) AddVertex(p\s,1,1,0,1,1) AddVertex(p\s,0,1,0,0,1) AddTriangle p\s,0,1,2 AddTriangle p\s,0,2,3 EntityBlend mesh,3 EntityFX mesh,1 tex = LoadTexture("C:\Users\Joe\Desktop\Blitz 3d\Demos\sun_flares_demo\Media\sun.png", 2) EntityTexture mesh, tex ScaleEntity mesh,100,100,1 PositionEntity mesh,0,100,100 EntityOrder mesh,-100 cube = CreateCube() ScaleEntity cube,20,20,20 PositionEntity cube,0,100,200 red = 200 green = 200 blue = 200 red_up = True green_up = True blue_up = True While Not KeyHit(1) PointEntity mesh,camera ;; UPDATE CAMERA mxs# = mxs + Float(MouseXSpeed())/3 mys# = mys + Float(MouseYSpeed())/3 mxs = mxs - mxs/4 mys = mys - mys/4 TurnEntity Camera,mys,-mxs,0 RotateEntity Camera,Min22(Max22(EntityPitch(Camera),80),-80),EntityYaw(Camera),0 MoveEntity Camera,(KeyDown(32)-KeyDown(30))1,0,(KeyDown(17)-KeyDown(31))1 MoveMouse GraphicsWidth()/2,GraphicsHeight()/2 EntityColor mesh,red, green, blue If red_up Then red = red+1 Else red = red-1 If red >= 255 red = 255 red_up = False ElseIf red < 100 red = 100 red_up = True EndIf green = green+1 If green_up Then green = green +1 Else green = green-1 If green >= 255 green = 255 green_up = False ElseIf green < 100 green = 100 green_up = True EndIf blue = blue+1 If blue_up Then blue = blue+1 Else blue = blue-1 If blue >= 255 blue = 255 blue_up = False ElseIf blue < 100 blue = 100 blue_up = True EndIf UpdateWorld() RenderWorld() Flip Wend End Function Min22#(A#,B#) If A < B Then Return B Return A End Function Function Max22#(A#,B#) If A > B Then Return B Return A End Function --v You might also want to have it slightly changing size so that it looks like it's not so static.
Mon, 19 Nov 2007, 16:21
Toaster	Thanks for the input its getting closer to looking good. Here's the direct link to the actually program that does the effect. I know its written in blitz3D and I know that the coder used a quad for the effect. www.frecle.net/index.php?show=showcase§ion=jsl&sub=about You can download the demo thingy from here roughly around 11 mb's: www.frecle.net/download/jsl-preview.zip Note I emailed the person who did this but they havent answered its to my knowledge that the author wont release the source code to anyone. Thanks for all the help so far! -Toaster
Mon, 19 Nov 2007, 23:24
mike_g	I think the best way to do this would be to make a greyscale bitmap similar to what fred did. Then load it into the textures alpha byte. The colour could then be applied procedurally. IE: to make the light yellow fill the quad with rgb value FFFF00, retaining the original alpha. To diminish or increase the glow just modify the alpha bits. AFAIK Blitz3D does alpha blending for 3D via hardware. I posted a 2D colour blending function here, but that would be hideously slow in comparison.