The shadows on the sphere are also blocky, but it can be harder to spot depending on the amount of vertices. It's even more noticeable if you use the
type.
This is just how stencil based shadows work. There isn't much you can do about it unless you swap to shader based shadows (not possible in Purebasic, yet).
I tweaked your example a little bit. The NormalizeMesh() command was done inside the mesh creation, but it needed to be done after mesh creation.
You'll notice that the torus won't look very smooth now and that's because you created the mesh for flat shading.
In order to do smooth shading you don't want to double up on vertices. You only want one vertex and normal per position.
Then you will have a smooth shaded torus, but the shadows will still be blocky because of the reason I specified earlier.
Code: Select all
Macro LinearlySpacedValue(IncrementID, IncrementMax, MinValue, MaxValue)
((MinValue) + ((MaxValue) - (MinValue)) * ((IncrementID) / (IncrementMax)))
EndMacro
;CreateTorus() - By StarBootics
Macro CalculateTorusVertex(MinorRadius, MajorRadius, Uxx, Vxx)
MeshVertexPosition((MajorRadius + MinorRadius * Cos(Vxx)) * Cos(Uxx), (MajorRadius + MinorRadius * Cos(Vxx)) * Sin(Uxx), MinorRadius * Sin(Vxx))
MeshVertexNormal(0, 1, 0)
MeshVertexTextureCoordinate(Uxx / (2*#PI), Vxx / (2*#PI))
EndMacro
Procedure CreateTorus(MinorRadius.f, MajorRadius.f, Meridian = 32, Parallel = 32)
Protected Handle, P00, P01, P02, P03, MeridianID, U00.d, U01.d, ParallelID, V00.d, V01.d
Handle = CreateMesh(#PB_Any)
If Meridian < 3
Meridian = 3
EndIf
If Parallel < 3
Parallel = 3
EndIf
P00 = 0
P01 = P00 + 1
P02 = P01 + 1
P03 = P02 + 1
For MeridianID = 0 To Meridian - 1
U00 = LinearlySpacedValue(MeridianID, Meridian, 0.0, 2.0 * #PI)
U01 = LinearlySpacedValue(MeridianID + 1, Meridian, 0.0, 2.0 * #PI)
For ParallelID = 0 To Parallel - 1
V00 = LinearlySpacedValue(ParallelID, Parallel, 0.0, 2.0 * #PI)
V01 = LinearlySpacedValue(ParallelID + 1, Parallel, 0.0, 2.0 * #PI)
CalculateTorusVertex(MinorRadius, MajorRadius, U00, V00) ; P00
CalculateTorusVertex(MinorRadius, MajorRadius, U01, V00) ; P01
CalculateTorusVertex(MinorRadius, MajorRadius, U01, V01) ; P02
CalculateTorusVertex(MinorRadius, MajorRadius, U00, V01) ; P03
MeshFace(P00, P01, P02)
MeshFace(P02, P03, P00)
P00 = P03 + 1
P01 = P00 + 1
P02 = P01 + 1
P03 = P02 + 1
Next
Next
FinishMesh(#True)
NormalizeMesh(Handle)
BuildMeshTangents(Handle)
ProcedureReturn Handle
EndProcedure
If InitEngine3D() = 0
End
EndIf
If InitKeyboard() = 0
End
EndIf
If InitSprite() = 0
End
EndIf
Enumeration
#Window
#Camera
#Light
#Node
#Texture
#Material
#Mesh
#Plane
#Torus
#Cube
#Sphere
EndEnumeration
If OpenWindow(#Window, 0, 0, 1024, 768, "Create Torus", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If OpenWindowedScreen(WindowID(#Window),0, 0, 1024, 768)
KeyboardMode(#PB_Keyboard_International)
; TEXTURE
CreateTexture(#Texture, 256, 256)
StartDrawing(TextureOutput(#Texture))
Box( 0, 0, 128, 128, RGB(200,200,200))
Box(128, 0, 128, 128, RGB(100,100,255))
Box( 0, 128, 128, 128, RGB(100,100,255))
Box(128, 128, 128, 128, RGB(200,200,200))
StopDrawing()
; MATERIAL
CreateMaterial(#Material, TextureID(#Texture))
; ENTITIES
CreatePlane(#Mesh, 30, 30, 10, 10, 5, 5)
CreateEntity(#Plane, MeshID(#Mesh), MaterialID(#Material))
CreateCube(#Mesh, 4)
CreateEntity(#Cube, MeshID(#Mesh), MaterialID(#Material), -6, 3, 0)
CreateSphere(#Mesh, 2)
CreateEntity(#Sphere, MeshID(#Mesh), MaterialID(#Material), 0, 3, 0)
MeshHandle = CreateTorus(1, 2)
If IsMesh(MeshHandle) <> 0
CreateEntity(#Torus, MeshID(MeshHandle), MaterialID(#Material), 6, 3, 0)
EndIf
; LIGHT
CreateLight(#Light, RGB(150, 150, 150), 0, 10, 12)
; SHADOW
WorldShadows(#PB_Shadow_Additive)
;WorldShadows(#PB_Shadow_Modulative)
; NODE
CreateNode(#Node, 0, 0, 0)
AttachNodeObject(#Node, LightID(#Light))
; CAMERA
CreateCamera(#Camera, 0, 0, 100, 100)
MoveCamera(#Camera, 10, 10, 15, #PB_Absolute)
CameraLookAt(#Camera, 0, 0, 0)
CameraBackColor(#Camera, RGB(30, 30, 30))
Repeat
Event = WindowEvent()
ExamineKeyboard()
RotateNode(#Node, 0, 1, 0, #PB_Relative)
FlipBuffers()
RenderWorld()
Until Event = #PB_Event_CloseWindow Or KeyboardReleased(#PB_Key_Escape)
EndIf
EndIf
End
