Toon shading without shaders?

BlitzMax Forums/MiniB3D Module/Toon shading without shaders?

Hezkore (Posted 2008) [#1]

Using latest MiniB3B version, is it possible to get a good toon effect without shaders? (I'm not speaking about the black lines around a model, I'm on about the shades/lightning) Something like this: There are lots of tutorials about this, but since I'm new to 3D AND BlitzMax/MiniB3D I find them very hard to follow. >_> Here's one for example: http://www.gamedev.net/reference/programming/features/celshading/ So does anyone have any example of this and is it even possible? :S

JustLuke (Posted 2008) [#2]

I've never used MiniB3d, but cubemaps can give you the effect that you're looking for in Blitz3d.

Hezkore (Posted 2008) [#3]

You got any examples of that? I might be able to convert it to MiniB3D/BlitzMax.

JA2 (Posted 2008) [#4]

Try this: Global CelTexture Type CelShaded Field Mesh,OutLine End Type Function LinearGradient (Shades,Dir) Local Steps Repeat If Dir = 0 Color 255-Steps*(255/Shades),255-Steps*(255/Shades),255-Steps*(255/Shades) Else Color Steps*(255/Shades),Steps*(255/Shades),Steps*(255/Shades) EndIf Steps = Steps + 1 Rect 0,-256/Shades+Steps*256/Shades,256,256/Steps,True Until Steps = Shades End Function Function CelShader (Shades=3) Local CD.CelShaded If Shades < 1 Then Return Local Camera = CreateCamera() Local Light = CreatePivot() Local Sphere = CreateSphere (12) Local Texture = CreateTexture (1,256,16+32) For CD.CelShaded = Each CelShaded DeleteCelShaded (CD) Next If CelTexture <> 0 FreeTexture CelTexture CelTexture = 0 EndIf CelTexture = CreateTexture (256,256,16+32+64+256) LinearGradient (Shades,0) CopyRect 0,0,256,256,0,0,BackBuffer(),TextureBuffer(Texture) Planer (Sphere) EntityFX Sphere,1 RotateMesh Sphere,90,0,0 PositionEntity Sphere,0,65536,65536;;;;;;;;;;;;;;;;;;; EntityTexture Sphere,Texture PositionEntity Light,0,65536+65536,65536-16384;;;;;;;;; PointEntity Sphere,Light CameraZoom Camera,2 CameraViewport Camera,0,0,256,256 PositionEntity Camera,0,65536,65536-2.21 Cls RenderWorld CopyRect 0,0,256,256,0,0,BackBuffer(),TextureBuffer(CelTexture) FreeTexture Texture FreeEntity Camera FreeEntity Light FreeEntity Sphere Cls End Function Function CelShade (Mesh,Index=0,Scale#=0,Shade#=0) Local A,B Local CD.CelShaded = New CelShaded CD\Mesh = Mesh If Scale <> 0 CD\OutLine = CopyMesh (Mesh,Mesh) UpdateNormals CD\OutLine For A = 1 To CountSurfaces (CD\OutLine) Local Surface = GetSurface (CD\OutLine,A) Local Vertices = CountVertices (Surface)-1 For B = 0 To Vertices-1 Local VX# = VertexX (Surface,B) Local VY# = VertexY (Surface,B) Local VZ# = VertexZ (Surface,B) Local VNX# = VertexNX (Surface,B) Local VNY# = VertexNY (Surface,B) Local VNZ# = VertexNZ (Surface,B) If (VNX<-1000) Or (VNX>1000) Then VNX = 0 If (VNY<-1000) Or (VNY>1000) Then VNY = 0 If (VNZ<-1000) Or (VNZ>1000) Then VNZ = 0 VX = VX + (VNX*Scale) VY = VY + (VNY*Scale) VZ = VZ + (VNZ*Scale) VertexCoords Surface,B,VX,VY,VZ Next Next FlipMesh CD\OutLine EntityFX CD\OutLine,9 EntityColor CD\OutLine,Shade,Shade,Shade NameEntity CD\OutLine,"Outline"+Handle(CD) EndIf If Index = 0 EntityTexture Mesh,CelTexture,0,1 EntityFX Mesh,1 Else Local Brush = CreateBrush() Surface = GetSurface (Mesh,Index) BrushFX Brush,1 BrushTexture Brush,CelTexture,0,1 PaintSurface Surface,Brush FreeBrush Brush EndIf End Function Function AnimatedCelShade (Mesh,Scale#=0,Shade#=0) Local A If EntityClass (Mesh) = "Mesh" CelShade (Mesh,0,Scale,Shade) EndIf Local Children = CountChildren (Mesh) For A = 1 To Children Local Child = GetChild (Mesh,A) If Instr (EntityName(Child),"Outline") = 0 AnimatedCelShade (Child,Scale,Shade) EndIf Next End Function Function Planer (Mesh) Local A,B Local Height# = MeshHeight (Mesh) Local Surfaces = CountSurfaces (Mesh) For A = 1 To Surfaces Local Surface = GetSurface (Mesh,A) Local Vertices = CountVertices(Surface) For B = 0 To Vertices-1 Local Y# = (VertexY(Surface,B)/Height) + 0.5 VertexTexCoords Surface,B,0.5,1.0-Y Next Next End Function Function DeleteCelShaded (CD.CelShaded) FreeEntity CD\OutLine Delete CD End Function This is a more advanced version of something I used for my Bongo game. It's based on some code by sswift. Call the CelShader() function to setup cel shading (or change the number of shades your using) then use CelShade() or AnimatedCelShade() functions to apply it to your models. For debugging, just call the LinearGradient() function after RenderWorld to see the texture used in the Cel Shading functions. Hope that all makes sense, been awhile since I used it :)

Hezkore (Posted 2008) [#5]

Cheers mate! Now I just have to convert it to BlitzMax and I'm terrible at Blitz3D code lol -_-

plash (Posted 2008) [#6]

Note: that's Blitz3D code.

JA2 (Posted 2008) [#7]

Yep should have mentioned that it is Blitz3D code. It shouldn't be too hard to convert over to BlitzMax/MiniB3D tho...

Hezkore (Posted 2008) [#8]

Yeah I got it working, thanks a lot mate! :D

JA2 (Posted 2008) [#9]

You're welcome :)

The r0nin (Posted 2008) [#10]

Would you care to post the ported code? I could convert it to BMax as well, but if you've already done it...

The r0nin (Posted 2008) [#11]

I guess that's a "no." Share the wealth...

JetFireDX (Posted 2008) [#12]

I started converting it too. I've gotten the outlining bit of the code to work, but not the shading effect. (Everything compiles and works but the texture that is created and mapped to my objects doesn't seem to work right yet.) If I get it working fully I will post it but since it didn't take long to get this much going you might be able to get it all going yourself faster than waiting.

Hezkore (Posted 2008) [#13]

Sorry I've been having computer problems lately... I didn't convert the texture generating code, I made it simple for me and just loaded a premade texture instead. Also I didn't need it for animated objects, so I simplified the code a lot.

The r0nin (Posted 2008) [#14]

No prob... looks like I'll be diving in then....

The r0nin (Posted 2008) [#15]

Huh... I can't get it to work on B3D, much less MiniB3D. I must be doing something wrong. Do I need to call CelShader() outside the main loop, then AnimatedCelShade(model) in the loop before RenderWorld?

JA2 (Posted 2008) [#16]

Only call AnimatedCelShade() before the main loop (after CelShader() is used) or when you have changed the number of shades used in CelShader(). AnimatedCelShade() is used for models loaded with LoadAnimMesh but don't use models with bone animation (play my Bongo game and watch closely to see why).

siread (Posted 2008) [#17]

I have done some very basic looking toon shading in NSS4 using cube maps... http://www.blitzbasic.com/Community/posts.php?topic=77969