Add projects including README.md(s), .gitignore(s) and the actual project files.
Signed-off-by: Michael Fabian Dirks <michael.dirks@project-kube.de>
This commit is contained in:
Michael Fabian Dirks
@@ -0,0 +1,227 @@
|
||||
;[Block] Rendering Functions
|
||||
Global ERTPos#[2], ERTRot#[2]
|
||||
Const ES_AxisX = 0, ES_AxisY = 1, ES_AxisZ = 2
|
||||
;[End Block]
|
||||
Function EntityRenderToImage(iCam, iEnt, iImg)
|
||||
Local CP#[2], EP#[2], CR#[2], Buffer = GraphicsBuffer(), SX#, SY#, SZ#, Dist#, IW = ImageWidth(iImg), IH = ImageHeight(iImg), IB = ImageBuffer(iImg)
|
||||
|
||||
CP[0] = EntityX(iCam):CP[1] = EntityY(iCam):CP[2] = EntityZ(iCam)
|
||||
CR[0] = EntityPitch(iCam):CR[1] = EntityYaw(iCam):CR[2] = EntityRoll(iCam)
|
||||
EP[0] = EntityX(iEnt):EP[1] = EntityY(iEnt):EP[2] = EntityZ(iEnt)
|
||||
|
||||
SX = EntityScale(iEnt,ES_AxisX):SY = EntityScale(iEnt,ES_AxisY):SZ = EntityScale(iEnt,ES_AxisZ)
|
||||
Dist# = Sqr((SX*SX)+(SY*SY)+(SZ*SZ))
|
||||
|
||||
PositionEntity iCam, ERTPos[0], ERTPos[1], ERTPos[2]
|
||||
PositionEntity iEnt, ERTPos[0], ERTPos[1], ERTPos[2]+Dist
|
||||
RotateEntity iCam, 0, 0, 0
|
||||
EntityParent iEnt, iCam
|
||||
RotateEntity iCam, ERTRot[0], ERTRot[1], ERTRot[2]
|
||||
|
||||
CameraViewport iCam, 0, 0, IW, IH
|
||||
RenderWorld
|
||||
CopyRect 0,0,IW,IH,0,0,Buffer,IB
|
||||
CameraViewport iCam, 0, 0, GraphicsWidth(), GraphicsHeight()
|
||||
|
||||
RotateEntity iCam, 0, 0, 0
|
||||
EntityParent iEnt, 0
|
||||
|
||||
PositionEntity iCam, CP[0],CP[1],CP[2]
|
||||
PositionEntity iEnt, EP[0],EP[1],EP[2]
|
||||
RotateEntity iCam, CR[0],CR[1],CR[2]
|
||||
End Function
|
||||
Function EntityRenderToTexture(iCam, iEnt, iTex)
|
||||
Local CP#[2], EP#[2], CR#[2], Buffer = GraphicsBuffer(), SX#, SY#, SZ#, Dist#, IW = TextureWidth(iTex), IH = TextureHeight(iTex), IB = TextureBuffer(iTex)
|
||||
|
||||
CP[0] = EntityX(iCam):CP[1] = EntityY(iCam):CP[2] = EntityZ(iCam)
|
||||
CR[0] = EntityPitch(iCam):CR[1] = EntityYaw(iCam):CR[2] = EntityRoll(iCam)
|
||||
EP[0] = EntityX(iEnt):EP[1] = EntityY(iEnt):EP[2] = EntityZ(iEnt)
|
||||
|
||||
SX = EntityScale(iEnt,ES_AxisX):SY = EntityScale(iEnt,ES_AxisY):SZ = EntityScale(iEnt,ES_AxisZ)
|
||||
Dist# = Sqr((SX*SX)+(SY*SY)+(SZ*SZ))*0.25 + Sqr(Sqr((SX*SX)+(SY*SY)+(SZ*SZ)))*0.75
|
||||
|
||||
PositionEntity iCam, ERTPos[0], ERTPos[1], ERTPos[2]
|
||||
PositionEntity iEnt, ERTPos[0], ERTPos[1], ERTPos[2]+Dist
|
||||
RotateEntity iCam, 0, 0, 0
|
||||
EntityParent iEnt, iCam
|
||||
RotateEntity iCam, ERTRot[0], ERTRot[1], ERTRot[2]
|
||||
|
||||
CameraViewport iCam, 0, 0, IW, IH
|
||||
;SetBuffer IB ;FastEXT only
|
||||
RenderWorld
|
||||
CopyRect 0,0,IW,IH,0,0,Buffer,IB
|
||||
CameraViewport iCam, 0, 0, GraphicsWidth(), GraphicsHeight()
|
||||
;SetBuffer Buffer ;FastEXT only
|
||||
|
||||
RotateEntity iCam, 0, 0, 0
|
||||
EntityParent iEnt, 0
|
||||
|
||||
PositionEntity iCam, CP[0],CP[1],CP[2]
|
||||
PositionEntity iEnt, EP[0],EP[1],EP[2]
|
||||
RotateEntity iCam, CR[0],CR[1],CR[2]
|
||||
End Function
|
||||
Function EntityScale#( Entity, Axis )
|
||||
VX# = GetMatElement( Entity, Axis, 0 )
|
||||
VY# = GetMatElement( Entity, Axis, 1 )
|
||||
VZ# = GetMatElement( Entity, Axis, 2 )
|
||||
Return Sqr( VX#*VX# + VY#*VY# + VZ#*VZ# )
|
||||
End Function
|
||||
|
||||
;[Block] Math Functions
|
||||
Global HSV#[2], RGB#[2]
|
||||
;[End Block]
|
||||
Function Math_MaxMin#(Value#, Max#, Min#)
|
||||
If Value> Max Then Return Max
|
||||
If Value < Min Then Return Min
|
||||
Return Value
|
||||
End Function
|
||||
Function Math_Max#(Value#, Max#)
|
||||
If Value> Max Then Return Max
|
||||
Return Value
|
||||
End Function
|
||||
Function Math_Min#(Value#, Min#)
|
||||
If Value < Min Then Return Min
|
||||
Return Value
|
||||
End Function
|
||||
Function Math_Clip#(Value#, Low#, High#)
|
||||
Local Out#, Diff#
|
||||
Diff = High-Low:Out = Value-Low
|
||||
If (Out >= Diff) Then Out = Out - Floor(Out/Diff)*Diff
|
||||
If (Out < 0) Then Out = Out - Floor(Out/Diff)*Diff
|
||||
Return Low+Out
|
||||
End Function
|
||||
Function Math_RGBHSV(R,G,B)
|
||||
Local maxC#, minC#, delta#, dr#, dg#, db#
|
||||
|
||||
R = R/255.0:G = G/255.0:B = B/255.0
|
||||
maxC = Math_Min(Math_Min(R,G),B)
|
||||
minC = Math_Max(Math_Max(R,G),B)
|
||||
delta = maxC - minC
|
||||
HSV[0] = 0:HSV[1] = 0:HSV[2] = maxC
|
||||
|
||||
If delta = 0
|
||||
HSV[0] = 0:HSV[1] = 0
|
||||
Else
|
||||
HSV[1] = delta / maxC
|
||||
dr = 60*(maxC - R)/delta + 180
|
||||
dg = 60*(maxC - G)/delta + 180
|
||||
db = 60*(maxC - B)/delta + 180
|
||||
If R = maxC
|
||||
HSV[0] = db - dg
|
||||
ElseIf G = maxC
|
||||
HSV[0] = 120 + dr - db
|
||||
Else
|
||||
HSV[0] = 240 + dg - dr
|
||||
EndIf
|
||||
EndIf
|
||||
HSV[0] = Math_Clp(HSV[0],0,360)
|
||||
End Function
|
||||
Function Math_HSVRGB(H#,S#,V#)
|
||||
Local m#, n#, f#, i
|
||||
|
||||
H = Math_Clp(H,0,360)/60.0
|
||||
If H = S And S = 0
|
||||
RGB[0] = V
|
||||
RGB[1] = V
|
||||
RGB[2] = V
|
||||
EndIf
|
||||
i = Floor(H)
|
||||
f = H - i
|
||||
If Not (i Mod 2) Then f = 1 - f
|
||||
m = V * (1-S)
|
||||
n = V * (1-S*f)
|
||||
Select i
|
||||
Case 6,0
|
||||
RGB[0] = V*255
|
||||
RGB[1] = n*255
|
||||
RGB[2] = m*255
|
||||
Case 1
|
||||
RGB[0] = n*255
|
||||
RGB[1] = V*255
|
||||
RGB[2] = m*255
|
||||
Case 2
|
||||
RGB[0] = m*255
|
||||
RGB[1] = V*255
|
||||
RGB[2] = n*255
|
||||
Case 3
|
||||
RGB[0] = m*255
|
||||
RGB[1] = n*255
|
||||
RGB[2] = V*255
|
||||
Case 4
|
||||
RGB[0] = n*255
|
||||
RGB[1] = m*255
|
||||
RGB[2] = V*255
|
||||
Case 5
|
||||
RGB[0] = V*255
|
||||
RGB[1] = m*255
|
||||
RGB[2] = n*255
|
||||
End Select
|
||||
End Function
|
||||
|
||||
;[Block] String Functions
|
||||
Dim SplittedString$(1)
|
||||
Global SplitCount
|
||||
;[End Block]
|
||||
Function SplitString(In$, StringSplitter$ = "|")
|
||||
Local InLength% = Len(In)
|
||||
Local SplitLength% = Len(StringSplitter)
|
||||
Local CountPos%, InPos%, SplitIndex%
|
||||
Local SplitTest$, LineText$
|
||||
|
||||
; Count how many Lines there are and resize Dim.
|
||||
SplitCount = 0
|
||||
For CountPos = 1 To InLength-(SplitLength-1)
|
||||
SplitTest = Mid(In,CountPos,1)
|
||||
If SplitTest = StringSplitter Then SplitCount = SplitCount + 1
|
||||
Next
|
||||
Dim SplittedString(SplitCount)
|
||||
|
||||
; Split the Text onto multiple lines.
|
||||
While Not InPos = Len(In)
|
||||
; Increment Position
|
||||
InPos = InPos + 1
|
||||
|
||||
; Grab a piece of the text.
|
||||
SplitTest = Mid(In, InPos, SplitLength)
|
||||
Local Char$ = Left(SplitTest, 1)
|
||||
|
||||
; Check if the current Text matches the splitter or if we are near the end.
|
||||
If SplitTest = StringSplitter Or InPos = InLength
|
||||
; Append the current character if it doesn't match the Splitter.
|
||||
If InPos = InLength And SplitTest <> StringSplitter Then LineText = LineText + Char
|
||||
|
||||
; Store the Line.
|
||||
SplittedString(SplitIndex) = LineText
|
||||
|
||||
; Increment split index.
|
||||
SplitIndex = SplitIndex + 1
|
||||
|
||||
; Reset LineText
|
||||
LineText = ""
|
||||
Else
|
||||
LineText = LineText + Char
|
||||
EndIf
|
||||
Wend
|
||||
End Function
|
||||
|
||||
Function SafeText$(sText$)
|
||||
Local sSafeText$ = sText
|
||||
For i = 0 To 31
|
||||
sSafeText = Replace(sSafeText,Chr(i),"["+i+"]")
|
||||
Next
|
||||
Return sSafeText
|
||||
End Function
|
||||
|
||||
Function Replace$(S$,F$,T$,CaseSensitive=0)
|
||||
Local LF = Len(F), Pos
|
||||
Pos = 1
|
||||
While Not Pos > Len(S)-LF+1
|
||||
Local Check$ = Mid(S,Pos,LF)
|
||||
If Lower(F) = Lower(Check) And (F = Check Or CaseSensitive=0)
|
||||
S = Left(S,Pos-1)+T+Mid(S,Pos+LF,-1)
|
||||
Pos = Pos + Len(T)
|
||||
EndIf
|
||||
Pos = Pos + 1
|
||||
Wend
|
||||
Return S
|
||||
End Function
|
||||
@@ -0,0 +1,9 @@
|
||||
HelpersAndFixes
|
||||
=======================
|
||||
|
||||
A try at adding features to BlitzBasic that didn't exist, without touching C++ or manipulating the DLL file using reverse engineering. Worked quite well, though obviously slower than native code.
|
||||
Documentation at: http://www.blitzforum.de/forum/viewtopic.php?p=374655#374655
|
||||
|
||||
License
|
||||
=======
|
||||
HelpersAndFixes by Michael Fabian Dirks is licensed under the Creative Commons Attribution-ShareAlike 4.0 International License. To view a copy of this license, visit http://creativecommons.org/licenses/by-sa/4.0/.
|
||||
@@ -0,0 +1,282 @@
|
||||
Const CfgMeshToRender$ = "D:\Projekte\Blitz3D\Sirius\GFX\ENV\VINxROIDx001.3ds"
|
||||
Const CfgDiffuseMap$ = "D:\Projekte\Blitz3D\Sirius\GFX\ENV\VINxROIDx001DIFF.png"
|
||||
Const CfgDiffuseFlags% = (1+256+512)
|
||||
Const CfgNormalMap$ = "D:\Projekte\Blitz3D\Sirius\GFX\ENV\VINxROIDx001NORM.png"
|
||||
Const CfgNormalFlags = (1+256+512)
|
||||
|
||||
Const CfgFrameSizeX = 128
|
||||
Const CfgFrameSizeY = 128
|
||||
Const CfgPitchMin# = -90
|
||||
Const CfgPitchMax# = 90
|
||||
Const CfgPitchFrames = 5
|
||||
Const CfgYawMin# = 0
|
||||
Const CfgYawMax# = 360
|
||||
Const CfgYawFrames = 16
|
||||
Const CfgDistance# = 120
|
||||
|
||||
; Includes
|
||||
Include "FreeImage.bb"
|
||||
Include "FastExt.bb"
|
||||
Include "../Advanced Text (Library)/AdvText.bb"
|
||||
Include "Impostor.bb"
|
||||
|
||||
; Set up 3D Scene
|
||||
Graphics3D 1024, 1024, 32, 2:InitExt()
|
||||
SetBuffer_ BackBuffer()
|
||||
|
||||
; Set up Camera
|
||||
Global CameraPivot = CreatePivot()
|
||||
Global Camera = CreateCamera(CameraPivot)
|
||||
MoveEntity Camera, 0, 0, -CfgDistance
|
||||
|
||||
AmbientLight 255, 255, 255
|
||||
|
||||
; Set up Impostor data
|
||||
Local ImpostorMesh% = LoadMesh(CfgMeshToRender)
|
||||
Local ImpostorDiffuse% = LoadTexture(CfgDiffuseMap, CfgDiffuseFlags)
|
||||
Local ImpostorNormal% = LoadTexture(CfgNormalMap, CfgNormalFlags)
|
||||
|
||||
; Set up final image
|
||||
Local DiffuseSheet% = CreateImage(CfgFrameSizeX, CfgFrameSizeY, CfgYawFrames * CfgPitchFrames)
|
||||
Local NormalSheet% = CreateImage(CfgFrameSizeX, CfgFrameSizeY, CfgYawFrames * CfgPitchFrames)
|
||||
|
||||
; Set up render target
|
||||
;Const RTSize% = 2048
|
||||
Local RenderTarget% = CreateTexture(CfgFrameSizeX, CfgFrameSizeY, 1+256+FE_RENDER+FE_ZRENDER)
|
||||
CameraViewport Camera, 0, 0, CfgFrameSizeX, CfgFrameSizeY
|
||||
|
||||
; Render
|
||||
SetBuffer TextureBuffer(RenderTarget)
|
||||
Local YawStep# = (CfgYawMax - CfgYawMin) / CfgYawFrames
|
||||
Local PitchStep# = (CfgPitchMax - CfgPitchMin) / CfgPitchFrames
|
||||
Local Yaw, Pitch
|
||||
For Yaw = 0 To CfgYawFrames - 1
|
||||
Local RealYaw# = CfgYawMin + (YawStep * Yaw)
|
||||
For Pitch = 0 To CfgPitchFrames - 1
|
||||
Local RealPitch# = CfgPitchMin + (PitchStep * Pitch)
|
||||
Local Frame = Pitch * CfgYawFrames + Yaw
|
||||
|
||||
RotateEntity CameraPivot, RealPitch, RealYaw, 0, 1
|
||||
|
||||
; Render Diffuse
|
||||
Cls:EntityTexture ImpostorMesh, ImpostorDiffuse:RenderWorld:CopyRectStretch(0, 0, CfgFrameSizeX, CfgFrameSizeY, 0, 0, CfgFrameSizeX, CfgFrameSizeY, TextureBuffer(RenderTarget), ImageBuffer(DiffuseSheet, Frame))
|
||||
; Render Normal
|
||||
Cls:EntityTexture ImpostorMesh, ImpostorNormal:RenderWorld:CopyRectStretch(0, 0, CfgFrameSizeX, CfgFrameSizeY, 0, 0, CfgFrameSizeX, CfgFrameSizeY, TextureBuffer(RenderTarget), ImageBuffer(NormalSheet, Frame))
|
||||
Next
|
||||
Next
|
||||
SetBuffer BackBuffer()
|
||||
FreeTexture RenderTarget
|
||||
|
||||
Local Stream = WriteFile("Preview.imp")
|
||||
WriteShort Stream, CfgFrameSizeX
|
||||
WriteShort Stream, CfgFrameSizeY
|
||||
WriteByte Stream, CfgPitchFrames
|
||||
WriteFloat Stream, CfgPitchMin
|
||||
WriteFloat Stream, CfgPitchMax
|
||||
WriteByte Stream, CfgYawFrames
|
||||
WriteFloat Stream, CfgYawMin
|
||||
WriteFloat Stream, CfgYawMax
|
||||
CloseFile(Stream)
|
||||
Stream = WriteFile("PreviewNormal.imp")
|
||||
WriteShort Stream, CfgFrameSizeX
|
||||
WriteShort Stream, CfgFrameSizeY
|
||||
WriteByte Stream, CfgPitchFrames
|
||||
WriteFloat Stream, CfgPitchMin
|
||||
WriteFloat Stream, CfgPitchMax
|
||||
WriteByte Stream, CfgYawFrames
|
||||
WriteFloat Stream, CfgYawMin
|
||||
WriteFloat Stream, CfgYawMax
|
||||
CloseFile(Stream)
|
||||
|
||||
|
||||
Function SaveAnimImageSheet(Image%, File$, FramesX%, FramesY%)
|
||||
Local x, y, img = CreateImage(ImageWidth(Image) * FramesX, ImageHeight(Image) * FramesY)
|
||||
For x = 0 To FramesX - 1
|
||||
For y = 0 To FramesY - 1
|
||||
Local frame = y * FramesX + x
|
||||
CopyRect 0, 0, ImageWidth(Image), ImageHeight(Image), x * ImageWidth(Image), y * ImageHeight(Image), ImageBuffer(Image, frame), ImageBuffer(img)
|
||||
Next
|
||||
Next
|
||||
FiSaveImage(img, File)
|
||||
End Function
|
||||
|
||||
SaveAnimImageSheet(DiffuseSheet, "Preview.png", CfgYawFrames, CfgPitchFrames)
|
||||
SaveAnimImageSheet(NormalSheet, "PreviewNormal.png", CfgYawFrames, CfgPitchFrames)
|
||||
|
||||
Global ControlHelp1$
|
||||
ControlHelp1$ = ControlHelp1$ + "Controls:" + Chr(10)
|
||||
ControlHelp1$ = ControlHelp1$ + Chr(9) + "1 - Mode: Draw Sheet" + Chr(10)
|
||||
ControlHelp1$ = ControlHelp1$ + Chr(9) + "2 - Mode: Draw Frame" + Chr(10)
|
||||
ControlHelp1$ = ControlHelp1$ + Chr(9) + "3 - Mode: 3D Preview" + Chr(10)
|
||||
Global ControlHelp2$
|
||||
ControlHelp2$ = ControlHelp2$ + "Sheet Mode Controls:" + Chr(10)
|
||||
ControlHelp2$ = ControlHelp2$ + Chr(9) + "Q - Sheet: Diffuse" + Chr(10)
|
||||
ControlHelp2$ = ControlHelp2$ + Chr(9) + "W - Sheet: Normal" + Chr(10)
|
||||
Global ControlHelp3$
|
||||
ControlHelp3$ = ControlHelp3$ + "Frame Mode Controls:" + Chr(10)
|
||||
ControlHelp3$ = ControlHelp3$ + Chr(9) + "Q - Sheet: Diffuse" + Chr(10)
|
||||
ControlHelp3$ = ControlHelp3$ + Chr(9) + "W - Sheet: Normal" + Chr(10)
|
||||
ControlHelp3$ = ControlHelp3$ + Chr(9) + "A - Previous Frame" + Chr(10)
|
||||
ControlHelp3$ = ControlHelp3$ + Chr(9) + "D - Next Frame" + Chr(10)
|
||||
Global ControlHelp4$
|
||||
ControlHelp4$ = ControlHelp4$ + "3D Mode Controls:" + Chr(10)
|
||||
ControlHelp4$ = ControlHelp4$ + Chr(9) + "Q - Sheet: Diffuse" + Chr(10)
|
||||
ControlHelp4$ = ControlHelp4$ + Chr(9) + "W - Sheet: Normal" + Chr(10)
|
||||
ControlHelp4$ = ControlHelp4$ + Chr(9) + "Mouse - Rotate Camera" + Chr(10)
|
||||
|
||||
Local Timer = CreateTimer(30)
|
||||
|
||||
Const DrawModeSheet% = 0
|
||||
Const DrawModeFrame% = 1
|
||||
Const DrawMode3D% = 2
|
||||
Local DrawMode% = DrawModeSheet
|
||||
|
||||
Local ModeSheet_Image% = DiffuseSheet
|
||||
Local ModeSheet_XOff% = 0
|
||||
Local ModeSheet_YOff% = 0
|
||||
|
||||
Local ModeFrame_Image% = DiffuseSheet
|
||||
Local ModeFrame_Frame% = 0
|
||||
|
||||
|
||||
Local Mode3D_DiffImp.Impostor = Impostor_Load("Preview.imp")
|
||||
Local Mode3D_NormImp.Impostor = Impostor_Load("PreviewNormal.imp")
|
||||
Local Mode3D_Pitch# = 0
|
||||
Local Mode3D_Yaw# = 0
|
||||
Local Mode3D_Pivot = CreatePivot()
|
||||
Local Mode3D_Camera = CreateCamera(Mode3D_Pivot)
|
||||
MoveEntity Mode3D_Camera, 0, 0, -100
|
||||
EntityTexture ImpostorMesh, ImpostorDiffuse:HideEntity Mode3D_NormImp\Pivot
|
||||
|
||||
CameraViewport Camera, 0, 256, 512, 512
|
||||
CameraViewport Mode3D_Camera, 512, 256, 512, 512
|
||||
MoveEntity Mode3D_DiffImp\Mesh, 1000, 0, 0
|
||||
MoveEntity Mode3D_NormImp\Mesh, 1000, 0, 0
|
||||
ScaleEntity Mode3D_DiffImp\Mesh, CfgDistance, CfgDistance, 1
|
||||
ScaleEntity Mode3D_NormImp\Mesh, CfgDistance, CfgDistance, 1
|
||||
MoveEntity Mode3D_Pivot, 1000, 0, 0
|
||||
CameraRange Camera, 0.1, 500
|
||||
CameraRange Mode3D_Camera, 0.1, 500
|
||||
|
||||
;Local tc = CreateCube(Mode3D_Pivot)
|
||||
EntityTexture Mode3D_DiffImp\Mesh, Mode3D_DiffImp\Sheet, 0, 0
|
||||
|
||||
While Not KeyHit(1)
|
||||
Cls
|
||||
|
||||
; 3D - Render
|
||||
If DrawMode = DrawMode3D
|
||||
Impostor_Update(Mode3D_Camera)
|
||||
;EntityTexture Mode3D_DiffImp\Mesh, Mode3D_DiffImp\Sheet, 0, 0
|
||||
WireFrame KeyDown(57)
|
||||
RenderWorld
|
||||
EndIf
|
||||
|
||||
; 2D - Rener
|
||||
AdvText 0, 0, ControlHelp1, 0, 0, 1
|
||||
|
||||
; Show Mode specific data.
|
||||
Select DrawMode
|
||||
Case DrawModeSheet
|
||||
; Control
|
||||
If MouseDown(1) And MouseHit(1) Then
|
||||
MoveMouse MouseX(), MouseY()
|
||||
ElseIf MouseDown(1)
|
||||
ModeSheet_XOff = ModeSheet_XOff + MouseXSpeed()
|
||||
ModeSheet_YOff = ModeSheet_YOff + MouseYSpeed()
|
||||
EndIf
|
||||
|
||||
If KeyHit(16) Then ModeSheet_Image = DiffuseSheet
|
||||
If KeyHit(17) Then ModeSheet_Image = NormalSheet
|
||||
|
||||
; Render
|
||||
Local rw = ImageWidth(ModeSheet_Image) * CfgYawFrames
|
||||
Local rh = ImageHeight(ModeSheet_Image) * CfgPitchFrames
|
||||
For p = 0 To CfgPitchFrames - 1
|
||||
For y = 0 To CfgYawFrames - 1
|
||||
DrawImage ModeSheet_Image, GraphicsWidth() / 2 - rw / 2 + ModeSheet_XOff + ImageWidth(ModeSheet_Image) * y, GraphicsHeight() / 2 - rh / 2 + ModeSheet_YOff + ImageHeight(ModeSheet_Image) * p, y + p * CfgYawFrames
|
||||
Next
|
||||
Next
|
||||
|
||||
; Show Help
|
||||
AdvText 0, 50, ControlHelp2, 0, 0, 1
|
||||
Case DrawModeFrame
|
||||
; Control
|
||||
If KeyHit(16) Then ModeFrame_Image = DiffuseSheet
|
||||
If KeyHit(17) Then ModeFrame_Image = NormalSheet
|
||||
If KeyHit(30) Then ModeFrame_Frame = ModeFrame_Frame - 1
|
||||
If KeyHit(32) Then ModeFrame_Frame = ModeFrame_Frame + 1
|
||||
|
||||
If ModeFrame_Frame < 0 Then ModeFrame_Frame = CfgPitchFrames * CfgYawFrames - 1
|
||||
If ModeFrame_Frame = (CfgPitchFrames * CfgYawFrames) Then ModeFrame_Frame = 0
|
||||
|
||||
; Render
|
||||
DrawImage ModeFrame_Image, GraphicsWidth() / 2 - ImageWidth(ModeFrame_Image) / 2, GraphicsHeight() / 2 - ImageHeight(ModeFrame_Image) / 2, ModeFrame_Frame
|
||||
|
||||
; Show Help
|
||||
AdvText 0, 50, ControlHelp3, 0, 0, 1
|
||||
Case DrawMode3D
|
||||
; Control
|
||||
If KeyHit(16) Then
|
||||
HideEntity Mode3D_NormImp\Pivot
|
||||
ShowEntity Mode3D_DiffImp\Pivot
|
||||
EntityTexture ImpostorMesh, ImpostorDiffuse
|
||||
EndIf
|
||||
If KeyHit(17) Then
|
||||
ShowEntity Mode3D_NormImp\Pivot
|
||||
HideEntity Mode3D_DiffImp\Pivot
|
||||
EntityTexture ImpostorMesh, ImpostorNormal
|
||||
EndIf
|
||||
|
||||
If MouseDown(1) And MouseHit(1)
|
||||
MoveMouse 512, 384
|
||||
ElseIf MouseDown(1)
|
||||
Mode3D_Pitch = Math_MaxMin(Mode3D_Pitch + MouseYSpeed() / 15.0, 90, -90)
|
||||
Mode3D_Yaw = Mode3D_Yaw + MouseXSpeed() / 15.0
|
||||
RotateEntity Mode3D_Pivot, Mode3D_Pitch, Mode3D_Yaw, 0, 1
|
||||
RotateEntity CameraPivot, Mode3D_Pitch, Mode3D_Yaw, 0, 1
|
||||
MoveMouse 512, 384
|
||||
EndIf
|
||||
|
||||
If MouseDown(2) And MouseHit(2)
|
||||
MoveMouse 512, 384
|
||||
ElseIf MouseDown(2)
|
||||
MoveEntity Mode3D_Camera, 0, 0, (MouseXSpeed() - MouseYSpeed()) / 15.0
|
||||
MoveMouse 512, 384
|
||||
EndIf
|
||||
|
||||
; Show Help
|
||||
AdvText 0, 50, ControlHelp4, 0, 0, 1
|
||||
End Select
|
||||
|
||||
; Switch Mode Hotkeys
|
||||
If KeyHit(2) Then DrawMode = DrawModeSheet
|
||||
If KeyHit(3) Then DrawMode = DrawModeFrame
|
||||
If KeyHit(4) Then DrawMode = DrawMode3D
|
||||
|
||||
Flip 0
|
||||
WaitTimer Timer
|
||||
Wend
|
||||
|
||||
Function Math_MaxMin#(Value#, Max#, Min#)
|
||||
If Value> Max Then Return Max
|
||||
If Value < Min Then Return Min
|
||||
Return Value
|
||||
End Function
|
||||
Function Math_Max#(Value#, Max#)
|
||||
If Value> Max Then Return Max
|
||||
Return Value
|
||||
End Function
|
||||
Function Math_Min#(Value#, Min#)
|
||||
If Value < Min Then Return Min
|
||||
Return Value
|
||||
End Function
|
||||
Function Math_Clip#(Value#, Low#, High#)
|
||||
Local Out#, Diff#
|
||||
Diff = High-Low:Out = Value-Low
|
||||
If (Out >= Diff) Then Out = Out - Floor(Out/Diff)*Diff
|
||||
If (Out < 0) Then Out = Out - Floor(Out/Diff)*Diff
|
||||
Return Low+Out
|
||||
End Function
|
||||
;~IDEal Editor Parameters:
|
||||
;~C#Blitz3D
|
||||
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 94 KiB |
@@ -0,0 +1,47 @@
|
||||
Include "Impostor.bb"
|
||||
|
||||
Graphics3D 1024, 768, 32, 2
|
||||
SetBuffer BackBuffer()
|
||||
Local Timer = CreateTimer(60)
|
||||
|
||||
;Camera
|
||||
Local CamPivot = CreatePivot()
|
||||
Local Cam = CreateCamera(CamPivot)
|
||||
MoveEntity Cam, 0, 0, -20
|
||||
|
||||
; Impostor
|
||||
Local MyImp.Impostor = Impostor_Load("Cube.imp")
|
||||
;EntityFX MyImp\Mesh, 16
|
||||
MoveEntity MyImp\Mesh, 0, 0, 0
|
||||
ScaleEntity MyImp\Mesh, 10, 10, 10
|
||||
|
||||
; Base Cube
|
||||
Local Flr = CreateCube()
|
||||
MoveEntity Flr, 0, -10, 0
|
||||
ScaleEntity Flr, 10, .001, 10
|
||||
EntityColor Flr, 51, 51, 51
|
||||
|
||||
While Not KeyHit(1)
|
||||
Cls
|
||||
WireFrame KeyDown(2)
|
||||
If MouseDown(1) And MouseHit(1)
|
||||
MoveMouse 512, 384
|
||||
ElseIf MouseDown(1)
|
||||
RotateEntity CamPivot, EntityPitch(CamPivot) + MouseYSpeed() / 15.0, EntityYaw(CamPivot) + MouseXSpeed() / 15.0, 0, 1
|
||||
MoveMouse 512, 384
|
||||
EndIf
|
||||
|
||||
If MouseDown(2) And MouseHit(2)
|
||||
MoveMouse 512, 384
|
||||
ElseIf MouseDown(2)
|
||||
MoveEntity Cam, 0, 0, (MouseXSpeed() - MouseYSpeed()) / 15.0
|
||||
MoveMouse 512, 384
|
||||
EndIf
|
||||
|
||||
Impostor_Update(Cam)
|
||||
RenderWorld
|
||||
|
||||
Flip 0:WaitTimer Timer
|
||||
Wend
|
||||
;~IDEal Editor Parameters:
|
||||
;~C#Blitz3D
|
||||
@@ -0,0 +1,496 @@
|
||||
; Include file for FastExt v1.17 library
|
||||
; (c) 2006-2010 created by MixailV aka Monster^Sage [monster-sage@mail.ru] http://www.fastlibs.com
|
||||
|
||||
|
||||
|
||||
Const FE_VERSION$ = "1.17"
|
||||
|
||||
|
||||
|
||||
; íîâûå êîíñòàíòû äëÿ ñîçäàíèÿ òåêñòóðû (ôóíêöèÿ CreateTexture)
|
||||
; New constants for texture creating (CreateTexture function only)
|
||||
Const FE_ExSIZE = 2048
|
||||
Const FE_RENDER = 4096
|
||||
Const FE_ZRENDER = 8192
|
||||
|
||||
|
||||
; íîâûå êîíñòàíòû äëÿ FX ( ôóíêöèè EntityFX èëè BrushFX )
|
||||
; New constants for brush Fx ( EntityFX or BrushFX functions only)
|
||||
Const FE_WIRE = 64 ; ðèñóþòñÿ òîëüêî ëèíèè
|
||||
Const FE_POINT = 128 ; ðèñóþòñÿ òîëüêî òî÷êè
|
||||
|
||||
|
||||
; Êîíñòàíòû äëÿ ôóíêöèè RenderPostprocess
|
||||
; RenderPostprocess function constants
|
||||
Const FE_DOF = 1
|
||||
Const FE_Glow = 2
|
||||
Const FE_Blur = 4
|
||||
Const FE_Inverse = 8
|
||||
Const FE_Grayscale = 16
|
||||
Const FE_Contrast = 32
|
||||
Const FE_BlurDirectional = 64
|
||||
Const FE_BlurZoom = 128
|
||||
Const FE_BlurSpin = 256
|
||||
Const FE_BlurMotion = 512
|
||||
Const FE_Overlay = 1024
|
||||
Const FE_Posterize = 2048
|
||||
Const FE_Rays = 4096
|
||||
|
||||
|
||||
; -------------------- DirectX7 constants (only for TextureBlendCustom function) -----------------------
|
||||
; Control
|
||||
Const D3DTOP_DISABLE = 1 ; disables stage
|
||||
Const D3DTOP_SELECTARG1 = 2 ; the Default
|
||||
Const D3DTOP_SELECTARG2 = 3
|
||||
|
||||
; Modulate
|
||||
Const D3DTOP_MODULATE = 4 ; multiply args together
|
||||
Const D3DTOP_MODULATE2X = 5 ; multiply And 1 bit
|
||||
Const D3DTOP_MODULATE4X = 6 ; multiply And 2 bits
|
||||
|
||||
; Add
|
||||
Const D3DTOP_ADD = 7 ; add arguments together
|
||||
Const D3DTOP_ADDSIGNED = 8 ; add With -0.5 bias
|
||||
Const D3DTOP_ADDSIGNED2X = 9 ; As above but left 1 bit
|
||||
Const D3DTOP_SUBTRACT = 10 ; Arg1 - Arg2, With no saturation
|
||||
Const D3DTOP_ADDSMOOTH = 11 ; add 2 args, subtract product Arg1 + Arg2 - Arg1*Arg2 = Arg1 + (1-Arg1)*Arg2
|
||||
|
||||
; Linear alpha blend: Arg1*(Alpha) + Arg2*(1-Alpha)
|
||||
Const D3DTOP_BLENDDIFFUSEALPHA = 12 ; iterated alpha
|
||||
Const D3DTOP_BLENDTEXTUREALPHA = 13 ; texture alpha
|
||||
Const D3DTOP_BLENDFACTORALPHA = 14 ; alpha from D3DRENDERSTATE_TEXTUREFACTOR Linear alpha blend With pre-multiplied arg1 input: Arg1 + Arg2*(1-Alpha)
|
||||
Const D3DTOP_BLENDTEXTUREALPHAPM = 15 ; texture alpha
|
||||
Const D3DTOP_BLENDCURRENTALPHA = 16 ; by alpha of current color
|
||||
|
||||
; Specular mapping
|
||||
Const D3DTOP_PREMODULATE = 17 ; modulate With Next texture before use
|
||||
Const D3DTOP_MODULATEALPHA_ADDCOLOR = 18 ; Arg1.RGB + Arg1.A*Arg2.RGB COLOROP only
|
||||
Const D3DTOP_MODULATECOLOR_ADDALPHA = 19 ; Arg1.RGB*Arg2.RGB + Arg1.A COLOROP only
|
||||
Const D3DTOP_MODULATEINVALPHA_ADDCOLOR = 20 ; (1-Arg1.A)*Arg2.RGB + Arg1.RGB COLOROP only
|
||||
Const D3DTOP_MODULATEINVCOLOR_ADDALPHA = 21 ; (1-Arg1.RGB)*Arg2.RGB + Arg1.A COLOROP only
|
||||
|
||||
; Bump mapping
|
||||
Const D3DTOP_BUMPENVMAP = 22 ; per pixel env map perturbation
|
||||
Const D3DTOP_BUMPENVMAPLUMINANCE = 23 ; With luminance channel
|
||||
; This can do either diffuse Or specular bump mapping With correct input.
|
||||
; Performs the function (Arg1.R*Arg2.R + Arg1.G*Arg2.G + Arg1.B*Arg2.B)
|
||||
; where each component has been scaled And offset To make it signed.
|
||||
; The result is replicated into all four (including alpha) channels.
|
||||
; This is a valid COLOROP only.
|
||||
Const D3DTOP_DOTPRODUCT3 = 24
|
||||
|
||||
Const FETOP_PROJECT = $010000 ; FastExt constant for 2D projective texturing TextureCoords=0 (UV0)
|
||||
Const FETOP_PROJECT0 = $010000 ; FastExt constant for 2D projective texturing TextureCoords=0 (UV0)
|
||||
Const FETOP_PROJECT1 = $020000 ; FastExt constant for 2D projective texturing TextureCoords=1 (UV1)
|
||||
|
||||
Const FETOP_PROJECT3D = $050000 ; FastExt constant for 3D projective texturing TextureCoords=0 (UV0)
|
||||
Const FETOP_PROJECT3D0 = $050000 ; FastExt constant for 3D projective texturing TextureCoords=0 (UV0)
|
||||
Const FETOP_PROJECT3D1 = $060000 ; FastExt constant for 3D projective texturing TextureCoords=1 (UV1)
|
||||
|
||||
|
||||
|
||||
; -------------------- DirectX7 constants (only for EntityBlendCustom & BrushBlendCustom functions) -----------------------
|
||||
Const D3DBLEND_ZERO = 1
|
||||
Const D3DBLEND_ONE = 2
|
||||
Const D3DBLEND_SRCCOLOR = 3
|
||||
Const D3DBLEND_INVSRCCOLOR = 4
|
||||
Const D3DBLEND_SRCALPHA = 5
|
||||
Const D3DBLEND_INVSRCALPHA = 6
|
||||
Const D3DBLEND_DESTALPHA = 7
|
||||
Const D3DBLEND_INVDESTALPHA = 8
|
||||
Const D3DBLEND_DESTCOLOR = 9
|
||||
Const D3DBLEND_INVDESTCOLOR = 10
|
||||
Const D3DBLEND_SRCALPHASAT = 11
|
||||
Const D3DBLEND_BOTHSRCALPHA = 12
|
||||
Const D3DBLEND_BOTHINVSRCALPHA = 13
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
; íîâûå êîíñòàíòû äëÿ òåêñòóðíûõ ñìåøèâàíèé (ôóíêöèÿ TextureBlend)
|
||||
; New constants for texture stage blending (TextureBlend function)
|
||||
Const FE_ALPHACURRENT = (D3DTOP_BLENDCURRENTALPHA Shl 8) Or D3DTOP_SELECTARG1 ; = $1002 ïðîçðà÷íîñòü ïðåäûäóùåé òåêñòóðû äëÿ òåêóùåé
|
||||
Const FE_ALPHAMODULATE = (D3DTOP_MODULATE Shl 8) Or D3DTOP_MODULATE ; = $0404 óìíîæåíèå ïðîçðà÷íîñòè (èñïîëüçóåì åùå è òåêóùóþ ïðîçðà÷íîñòü)
|
||||
Const FE_BUMP = (D3DTOP_BUMPENVMAP Shl 8) Or D3DTOP_SELECTARG2 ; = $1603 òåêñòóðà èñêàæåíèé
|
||||
Const FE_BUMPLUM = (D3DTOP_BUMPENVMAPLUMINANCE Shl 8) Or D3DTOP_SELECTARG2 ; = $1703 òåêñòóðà èñêàæåíèé + êàíàë ÿðêîñòè
|
||||
Const FE_PROJECT = FETOP_PROJECT Or (D3DTOP_MODULATE Shl 8) Or D3DTOP_MODULATE ; = $010404 òåêñòóðà íàêëàäûâàåòñÿ êàê ïðîåêöèÿ (óìíîæåíèåì)
|
||||
Const FE_PROJECTSMOOTH = FETOP_PROJECT Or (D3DTOP_ADDSMOOTH Shl 8) Or D3DTOP_MODULATE ; = $010B04 òåêñòóðà íàêëàäûâàåòñÿ êàê ïðîåêöèÿ (ïëàâíûì ñëîæåíèåì)
|
||||
Const FE_MULTIPLY4X = (D3DTOP_MODULATE4X Shl 8)
|
||||
Const FE_ADDSIGNED = (D3DTOP_ADDSIGNED Shl 8)
|
||||
Const FE_ADDSIGNED2X = (D3DTOP_ADDSIGNED2X Shl 8)
|
||||
Const FE_ADDSMOOTH = (D3DTOP_ADDSMOOTH Shl 8)
|
||||
Const FE_SUB = (D3DTOP_SUBTRACT Shl 8)
|
||||
Const FE_SPECULAR0 = (D3DTOP_MODULATEALPHA_ADDCOLOR Shl 8)
|
||||
Const FE_SPECULAR1 = (D3DTOP_MODULATECOLOR_ADDALPHA Shl 8)
|
||||
Const FE_SPECULAR2 = (D3DTOP_MODULATEINVALPHA_ADDCOLOR Shl 8)
|
||||
Const FE_SPECULAR3 = (D3DTOP_MODULATEINVCOLOR_ADDALPHA Shl 8)
|
||||
|
||||
|
||||
|
||||
|
||||
; íîâûå êîíñòàíòû äëÿ áðàø (åíòèòè) ñìåøèâàíèé (ôóíêöèÿ BrushBlend è EntityBlend)
|
||||
; New constants for brush (entity) blending (BrushBlend and EntityBlend function)
|
||||
Const FE_INVALPHA = $010605
|
||||
Const FE_INVCOLOR = $010406
|
||||
Const FE_INVCOLORADD = $010402
|
||||
Const FE_NOALPHA = $000101
|
||||
|
||||
|
||||
|
||||
|
||||
; ãëîáàëüíûé òèï äëÿ ïîëó÷åíèÿ âîçìîæíîñòåé âèäåî-äðàéâåðà
|
||||
; Global type for Gfx-driver capabilities
|
||||
Type GfxDriverCapsEx_Type
|
||||
Field BrushBlendsSrc%
|
||||
Field BrushBlendsDest%
|
||||
Field TextureCaps%
|
||||
Field TextureBlends%
|
||||
Field TextureMaxStages%
|
||||
Field TextureMaxWidth%
|
||||
Field TextureMaxHeight%
|
||||
Field TextureMaxAspectRatio%
|
||||
Field ClipplanesMax%
|
||||
Field LightsMax%
|
||||
Field Bump%
|
||||
Field BumpLum%
|
||||
Field AnisotropyMax%
|
||||
End Type
|
||||
Global GfxDriverCapsEx.GfxDriverCapsEx_Type = New GfxDriverCapsEx_Type
|
||||
|
||||
|
||||
|
||||
|
||||
Type Matrix3D
|
||||
Field m11#, m12#, m13#, m14#
|
||||
Field m21#, m22#, m23#, m24#
|
||||
Field m31#, m32#, m33#, m34#
|
||||
Field m41#, m42#, m43#, m44#
|
||||
End Type
|
||||
|
||||
|
||||
|
||||
|
||||
; library system vars
|
||||
Global FE_PivotSys% = 0
|
||||
Global FE_InitExtFlag% = 0
|
||||
Global FE_InitPostprocessFlag% = 0
|
||||
Global FE_PostprocessTexture1% = 0
|
||||
Global FE_PostprocessTexture2% = 0
|
||||
Global FE_PostprocessTexture3% = 0
|
||||
Global FE_PostprocessTexture4% = 0
|
||||
Global FE_PostprocessTexture5% = 0
|
||||
|
||||
|
||||
|
||||
; ãëàâíàÿ ôóíêöèÿ èíèöèàëèçàöèè áèáëèîòåêè, îáÿçàòåëüíî çàïóñêàåòñÿ ïîñëå êîìàíäû Graphics3D
|
||||
; Main function for library initialising, must call after command Graphics3D
|
||||
|
||||
Function InitExt% ()
|
||||
If FE_VERSION<>ExtVersion() Then
|
||||
RuntimeError "ERROR! FastExstension library - Incorrect versions for FastExt.dll (v"+ExtVersion()+") And FastExt.bb (v"+FE_VERSION+")"
|
||||
Else
|
||||
DebugLog "Init FastExtension library v"+FE_VERSION+"successful"
|
||||
EndIf
|
||||
If FE_InitExtFlag=0 Then
|
||||
FE_InitExtFlag = 1
|
||||
FE_PivotSys = CreatePivot()
|
||||
DeInitPostprocess()
|
||||
InitExt_ ( SystemProperty("Direct3DDevice7"), BackBuffer(), GfxDriverCapsEx )
|
||||
EndIf
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
; ôóíêöèÿ äëÿ ðåíäåðèíãà îäíîãî åíòèòè (âñå åãî ÷èëäû òîæå áóäóò îòðåíäåðåíû, åñëè íå ñêðûòû)
|
||||
; Function for render single entity or entity with childrens
|
||||
Function RenderEntity% (entity%, camera%, clearViewport%=0, tween#=1.0)
|
||||
Return RenderEntity_ (entity, camera, tween, clearViewport, FE_PivotSys)
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
; ôóíêöèÿ äëÿ ðåíäåðèíãà ãðóïïû åíòèòåé (âñå åãî ÷èëäû òîæå áóäóò îòðåíäåðåíû, åñëè íå ñêðûòû)
|
||||
; Function for render group of entities (with childrens, if not hidden)
|
||||
Function RenderGroup% (group%, camera%, clearViewport%=0, tween#=1.0)
|
||||
Return RenderGroup_ (group, camera, tween, clearViewport, FE_PivotSys)
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Function TextureAnisotropy% (level%=0, index%=-1)
|
||||
Return TextureAnisotropy_ (level, index)
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Function TextureLodBias% (bias#=-0.2, index%=-1)
|
||||
Return TextureLodBias_ (bias, index)
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
; Äîïîëüíèòåëüíûå ôóíêöèè äëÿ ÊëèïÏëåéíîâ
|
||||
; Additional functions for ClipPlanes
|
||||
|
||||
Function CreateClipplane% (entity%=0, x1#=0, y1#=0, z1#=0, x2#=0, y2#=0, z2#=1, x3#=1, y3#=0, z3#=0)
|
||||
If entity<>0 Then
|
||||
TFormPoint 0, 0, 0,entity,0 : x1 = TFormedX() : y1 = TFormedY() : z1 = TFormedZ()
|
||||
TFormPoint 0, 0, 1,entity,0 : x2 = TFormedX() : y2 = TFormedY() : z2 = TFormedZ()
|
||||
TFormPoint 1, 0, 0,entity,0 : x3 = TFormedX() : y3 = TFormedY() : z3 = TFormedZ()
|
||||
EndIf
|
||||
Return CreateClipplane_ ( x1, y1, z1, x2, y2, z2, x3, y3, z3 )
|
||||
End Function
|
||||
|
||||
Function AlignClipplane% (plane%, entity%=0, x1#=0, y1#=0, z1#=0, x2#=0, y2#=0, z2#=1, x3#=1, y3#=0, z3#=0)
|
||||
If entity<>0 Then
|
||||
TFormPoint 0, 0, 0,entity,0 : x1 = TFormedX() : y1 = TFormedY() : z1 = TFormedZ()
|
||||
TFormPoint 0, 0, 1,entity,0 : x2 = TFormedX() : y2 = TFormedY() : z2 = TFormedZ()
|
||||
TFormPoint 1, 0, 0,entity,0 : x3 = TFormedX() : y3 = TFormedY() : z3 = TFormedZ()
|
||||
EndIf
|
||||
Return AlignClipplane_ ( plane, x1, y1, z1, x2, y2, z2, x3, y3, z3 )
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
; Äîïîëüíèòåëüíûå ôóíêöèè äëÿ Êàìåðû
|
||||
; Additional functions for Camera
|
||||
|
||||
Global MirrorCameraLast% = 0
|
||||
Global MirrorCameraX# = 0
|
||||
Global MirrorCameraY# = 0
|
||||
Global MirrorCameraZ# = 0
|
||||
Global MirrorCameraAX# = 0
|
||||
Global MirrorCameraAY# = 0
|
||||
Global MirrorCameraAZ# = 0
|
||||
Global MirrorCameraParent% = 0
|
||||
|
||||
Function MirrorCamera% (camera%=0, entity%=0)
|
||||
If camera<>0 Then
|
||||
MirrorCameraLast = camera
|
||||
MirrorCameraX# = EntityX(camera,1)
|
||||
MirrorCameraY# = EntityY(camera,1)
|
||||
MirrorCameraZ# = EntityZ(camera,1)
|
||||
MirrorCameraAX# = EntityPitch(camera,1)
|
||||
MirrorCameraAY# = EntityYaw(camera,1)
|
||||
MirrorCameraAZ# = EntityRoll(camera,1)
|
||||
If entity<>0 Then
|
||||
MirrorCameraParent = ParentEntity(camera)
|
||||
EntityParent camera, entity, 1
|
||||
PositionEntity camera, EntityX(camera), -EntityY(camera), EntityZ(camera)
|
||||
RotateEntity camera, -EntityPitch(camera), EntityYaw(camera), -EntityRoll(camera)
|
||||
EntityParent camera,0,1
|
||||
Else
|
||||
PositionEntity camera, MirrorCameraX, -MirrorCameraY, MirrorCameraZ, 1
|
||||
RotateEntity camera, -MirrorCameraAX, MirrorCameraAY, -MirrorCameraAZ, 1
|
||||
EndIf
|
||||
EndIf
|
||||
End Function
|
||||
|
||||
Function RestoreCamera% (camera%=0)
|
||||
If camera=0 Then camera=MirrorCameraLast
|
||||
If camera<>0 Then
|
||||
PositionEntity camera, MirrorCameraX, MirrorCameraY, MirrorCameraZ, 1
|
||||
RotateEntity camera, MirrorCameraAX, MirrorCameraAY, MirrorCameraAZ, 1
|
||||
If MirrorCameraParent<>0 Then EntityParent camera, MirrorCameraParent, 1
|
||||
EndIf
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
; ñòàðûå ôóíêöèè òåïåðü ñ íîâûìè âîçìîæíîñòÿìè
|
||||
; Old functions with NEW capabilities
|
||||
|
||||
Function SetBuffer% (buffer%)
|
||||
Return SetBuffer_ (buffer)
|
||||
End Function
|
||||
|
||||
Function GetBuffer% ()
|
||||
Return SetBuffer_ (-1)
|
||||
End Function
|
||||
|
||||
Function ClsColor% (red%, green%, blue%, alpha%=$FF, zValue#=1.0)
|
||||
Return ClsColor_ (red, green, blue, alpha, zValue)
|
||||
End Function
|
||||
|
||||
Function Cls% (clearColor%=1, clearZBuffer%=1)
|
||||
Return Cls_ (clearColor, clearZBuffer)
|
||||
End Function
|
||||
|
||||
Function WireFrame% (enable%=0)
|
||||
Return Wireframe_ (enable)
|
||||
End Function
|
||||
|
||||
Function Bump% (enable%=-1)
|
||||
Return Bump_ (enable)
|
||||
End Function
|
||||
|
||||
Function FreeTexture% (texture%)
|
||||
If texture<>0 Then
|
||||
Return FreeTexture_ (texture, TextureBuffer(texture))
|
||||
Else
|
||||
Return 0
|
||||
EndIf
|
||||
End Function
|
||||
|
||||
Function ColorFilter% (red%=1, green%=1, blue%=1, alpha%=1)
|
||||
Return ColorFilter_ (red, green, blue, alpha)
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Function TextureBlend% (texture%, blend%)
|
||||
TextureBlend_ texture, blend
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
; íîâûå ôóíêöèÿ äëÿ çàäàíèÿ ÑÂÎÈÕ òåêñòóðíûõ ñìåøèâàíèé (èñïîëüçóéòå òîëüêî D3DTOP_* êîíñòàíòû, ñì. èõ íèæå)
|
||||
; New function for custom texture blending (use D3DTOP_* constans only, see below)
|
||||
|
||||
Function TextureBlendCustom% (texture%, color_operation%, alpha_operation%=0, projection_flag%=0)
|
||||
If color_operation>24 Then color_operation=24
|
||||
If color_operation<1 Then color_operation=1
|
||||
If alpha_operation>24 Then alpha_operation=24
|
||||
If alpha_operation<0 Then alpha_operation=0
|
||||
projection_flag = projection_flag And $7
|
||||
TextureBlend texture, (projection_flag Shl 16) Or (color_operation Shl 8) Or alpha_operation
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
; íîâûå ôóíêöèè äëÿ ñîçäàíèÿ ÑÂÎÈÕ ñìåøèâàíèé ïðè ðåíäåðå îáúåêòîâ (èñïîëüçóéòå òîëüêî D3DBLEND_* êîíñòàíòû, ñì. èõ íèæå)
|
||||
; New functions for custom entity (brush) blending (use D3DBLEND_* constans only, see below)
|
||||
|
||||
Function EntityBlendCustom% (entity%, source_blend%=1, destination_blend%=1, alphablending_enable%=0)
|
||||
If source_blend>13 Then source_blend=13
|
||||
If source_blend<1 Then source_blend=1
|
||||
If destination_blend>13 Then destination_blend=13
|
||||
If destination_blend<1 Then destination_blend=1
|
||||
If alphablending_enable<>0 Then alphablending_enable=1
|
||||
EntityBlend entity, (alphablending_enable Shl 16) Or (source_blend Shl 8) Or destination_blend
|
||||
End Function
|
||||
|
||||
Function BrushBlendCustom% (brush%, source_blend%=1, destination_blend%=1, alphablending_enable%=0)
|
||||
If source_blend>13 Then source_blend=13
|
||||
If source_blend<1 Then source_blend=1
|
||||
If destination_blend>13 Then destination_blend=13
|
||||
If destination_blend<1 Then destination_blend=1
|
||||
If alphablending_enable<>0 Then alphablending_enable=1
|
||||
BrushBlend brush, (alphablending_enable Shl 16) Or (source_blend Shl 8) Or destination_blend
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Function ExecAndExit% (file$="", command$="", workingDir$="")
|
||||
ExecAndExit_ file, command, workingDir
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Function InitPostprocess% ()
|
||||
Local CurrentBuffer%, smallWidth%, smallHeight%
|
||||
If FE_InitPostprocessFlag=0
|
||||
smallWidth = GraphicsWidth()/3 : smallHeight = GraphicsHeight()/3
|
||||
FE_PostprocessTexture1 = CreateTexture ( GraphicsWidth(), GraphicsHeight(), 1 + 256 + FE_ExSIZE + FE_RENDER + FE_ZRENDER )
|
||||
FE_PostprocessTexture2 = CreateTexture ( smallWidth, smallHeight, 1 + 256 + FE_ExSIZE + FE_RENDER )
|
||||
FE_PostprocessTexture3 = CreateTexture ( 16, 16, 1 )
|
||||
FE_PostprocessTexture4 = CreateTexture ( smallWidth, smallHeight, 1 + 256 + FE_ExSIZE + FE_RENDER )
|
||||
FE_PostprocessTexture5 = CreateTexture ( GraphicsWidth(), GraphicsHeight(), 1 + 256 + FE_ExSIZE ) ; comment this string if MotionBlur not needed (not used)
|
||||
|
||||
CurrentBuffer = SetBuffer (TextureBuffer(FE_PostprocessTexture3))
|
||||
ClsColor 255,255,255 : Cls : SetBuffer BackBuffer()
|
||||
If InitPostprocess_ (BackBuffer(), TextureBuffer(FE_PostprocessTexture1), TextureBuffer(FE_PostprocessTexture2), TextureBuffer(FE_PostprocessTexture3), TextureBuffer(FE_PostprocessTexture4), TextureBuffer(FE_PostprocessTexture5))<>0 Then
|
||||
FE_InitPostprocessFlag = 1
|
||||
Else
|
||||
If FE_PostprocessTexture1<>0 Then FreeTexture FE_PostprocessTexture1
|
||||
If FE_PostprocessTexture2<>0 Then FreeTexture FE_PostprocessTexture2
|
||||
If FE_PostprocessTexture3<>0 Then FreeTexture FE_PostprocessTexture3
|
||||
If FE_PostprocessTexture4<>0 Then FreeTexture FE_PostprocessTexture4
|
||||
If FE_PostprocessTexture5<>0 Then FreeTexture FE_PostprocessTexture5
|
||||
EndIf
|
||||
SetBuffer CurrentBuffer
|
||||
EndIf
|
||||
Return FE_InitPostprocessFlag
|
||||
End Function
|
||||
|
||||
Function DeInitPostprocess% ()
|
||||
If FE_InitPostprocessFlag<>0 Then
|
||||
If FE_PostprocessTexture1<>0 Then FreeTexture FE_PostprocessTexture1
|
||||
If FE_PostprocessTexture2<>0 Then FreeTexture FE_PostprocessTexture2
|
||||
If FE_PostprocessTexture3<>0 Then FreeTexture FE_PostprocessTexture3
|
||||
If FE_PostprocessTexture4<>0 Then FreeTexture FE_PostprocessTexture4
|
||||
If FE_PostprocessTexture5<>0 Then FreeTexture FE_PostprocessTexture5
|
||||
FE_InitPostprocessFlag = 0
|
||||
EndIf
|
||||
End Function
|
||||
|
||||
Function RenderPostprocess% (flags%=0, x%=0, y%=0, width%=0, height%=0)
|
||||
If InitPostprocess()<>0 Then RenderPostprocess_ flags, x, y, width, height
|
||||
End Function
|
||||
|
||||
Function CustomPostprocessDOF% (near#=10.0, far#=100.0, direction%=1, level%=3, blurRadius#=0.35, quality%=1)
|
||||
CustomPostprocessDOF_ near, far, direction, level, blurRadius, quality
|
||||
End Function
|
||||
|
||||
Function CustomPostprocessGlow% (alpha#=1.0, darkPasses%=2, blurPasses%=4, blurRadius#=0.35, quality%=1, red%=255, green%=255, blue%=255, alphaTexture%=0)
|
||||
CustomPostprocessGlow_ alpha, darkPasses, blurPasses, blurRadius, quality, red, green, blue, alphaTexture
|
||||
End Function
|
||||
|
||||
Function CustomPostprocessBlur% (alpha#=1.0, blurPasses%=4, blurRadius#=0.35, quality%=1, red%=255, green%=255, blue%=255, alphaTexture%=0)
|
||||
CustomPostprocessBlur_ alpha, blurPasses, blurRadius, quality, red, green, blue, alphaTexture
|
||||
End Function
|
||||
|
||||
Function CustomPostprocessInverse% (alpha#=1.0, red%=255, green%=255, blue%=255, alphaTexture%=0)
|
||||
CustomPostprocessInverse_ alpha, red, green, blue, alphaTexture
|
||||
End Function
|
||||
|
||||
Function CustomPostprocessGrayscale% (alpha#=1.0, brightness#=1.0, inverse%=0, alphaTexture%=0)
|
||||
CustomPostprocessGrayscale_ alpha, brightness, inverse, alphaTexture
|
||||
End Function
|
||||
|
||||
Function CustomPostprocessContrast% (alpha#=1.0, method%=0, red%=255, green%=255, blue%=255, alphaTexture%=0)
|
||||
CustomPostprocessContrast_ alpha#, method, red, green, blue, alphaTexture
|
||||
End Function
|
||||
|
||||
Function CustomPostprocessBlurDirectional% (angle#=0, alpha#=1, blurPasses%=4, blurRadius#=0.35, quality%=1, red%=255, green%=255, blue%=255, alphaTexture%=0)
|
||||
CustomPostprocessBlurDirectional_ angle, alpha, blurPasses, blurRadius, quality, red, green, blue, alphaTexture
|
||||
End Function
|
||||
|
||||
Function CustomPostprocessBlurZoom% (x#=0.5, y#=0.5, zoomFactor#=105, alpha#=1, blurPasses%=4, quality%=1, red%=255, green%=255, blue%=255, alphaTexture%=0)
|
||||
CustomPostprocessBlurZoom_ x, y, zoomFactor, alpha, blurPasses, quality, red, green, blue, alphaTexture
|
||||
End Function
|
||||
|
||||
Function CustomPostprocessBlurSpin% (x#=0.5, y#=0.5, spinAngle#=4, alpha#=1, blurPasses%=4, quality%=1, red%=255, green%=255, blue%=255, alphaTexture%=0)
|
||||
CustomPostprocessBlurSpin_ x, y, spinAngle, alpha, blurPasses, quality, red, green, blue, alphaTexture
|
||||
End Function
|
||||
|
||||
Function CustomPostprocessBlurMotion% (alpha#=0.9, originX#=0, originY#=0, handleX#=0.5, handleY#=0.5, scaleX#=100, scaleY#=100, angle#=0, blend%=0, red%=255, green%=255, blue%=255, alphaTexture%=0)
|
||||
CustomPostprocessBlurMotion_ alpha, originX, originY, handleX, handleY, scaleX, scaleY, angle, blend, red, green, blue, alphaTexture
|
||||
End Function
|
||||
|
||||
Function CustomPostprocessOverlay% (alpha#=0.5, blend%=0, red%=255, green%=255, blue%=255, alphaTexture%=0)
|
||||
CustomPostprocessOverlay_ alpha, blend, red, green, blue, alphaTexture
|
||||
End Function
|
||||
|
||||
Function CustomPostprocessRays% (centerX#=0.5, centerY#=0.5, zoomFactor#=105, alpha#=1, darkPasses%=2, blurPasses%=4, quality%=1, red%=255, green%=255, blue%=255, alphaTexture%=0)
|
||||
CustomPostprocessRays_% (centerX, centerY, zoomFactor, alpha, darkPasses, blurPasses, quality, red, green, blue, alphaTexture)
|
||||
End Function
|
||||
|
||||
|
||||
Function DeInitExt% ()
|
||||
If FE_InitExtFlag<>0 Then
|
||||
FE_InitExtFlag = 0
|
||||
SetBuffer BackBuffer()
|
||||
FreeEntity FE_PivotSys
|
||||
DeInitPostprocess
|
||||
DeInitExt_
|
||||
EndIf
|
||||
End Function
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,122 @@
|
||||
Const ImpostorVariant = 0
|
||||
|
||||
Type Impostor
|
||||
Field Frames%
|
||||
Field FrameWidth%, FrameHeight%
|
||||
Field PitchFrames%, PitchMin#, PitchMax#
|
||||
Field YawFrames%, YawMin#, YawMax#
|
||||
Field Sheet%
|
||||
|
||||
Field Pivot%, Parent%
|
||||
Field Mesh%, Surface%
|
||||
|
||||
Field YawStep#, PitchStep#
|
||||
End Type
|
||||
|
||||
Function Impostor_Init.Impostor(Parent%=0)
|
||||
Local Instance.Impostor = New Impostor
|
||||
Instance\Pivot = CreatePivot(Parent)
|
||||
Instance\Mesh = CreateMesh(Instance\Pivot)
|
||||
Instance\Surface = CreateSurface(Instance\Mesh)
|
||||
Local V0,V1,V2,V3
|
||||
V0 = AddVertex(Instance\Surface, -1, 1, 0, 1, 0, 0)
|
||||
V1 = AddVertex(Instance\Surface, 1, 1, 0, 0, 0, 0)
|
||||
V2 = AddVertex(Instance\Surface, -1, -1, 0, 1, 1, 0)
|
||||
V3 = AddVertex(Instance\Surface, 1, -1, 0, 0, 1, 0)
|
||||
AddTriangle Instance\Surface, V0, V2, V1
|
||||
AddTriangle Instance\Surface, V1, V2, V3
|
||||
Return Instance
|
||||
End Function
|
||||
|
||||
Function Impostor_Load.Impostor(Path$, Flags%=1+4+16+32+256+512, Parent%=0)
|
||||
If FileType(Path) <> 1 Then
|
||||
RuntimeError "Impostor: Given <Path$> is not a file."
|
||||
Else
|
||||
Local Stream = ReadFile(Path)
|
||||
If Stream = 0 Then
|
||||
RuntimeError "Impostor: Unable to open given <Path$>."
|
||||
Else
|
||||
Local Instance.Impostor = Impostor_Init(Parent)
|
||||
|
||||
Instance\FrameWidth = ReadShort(Stream)
|
||||
Instance\FrameHeight = ReadShort(Stream)
|
||||
Instance\PitchFrames = ReadByte(Stream)
|
||||
Instance\PitchMin = ReadFloat(Stream)
|
||||
Instance\PitchMax = ReadFloat(Stream)
|
||||
Instance\YawFrames = ReadByte(Stream)
|
||||
Instance\YawMin = ReadFloat(Stream)
|
||||
Instance\YawMax = ReadFloat(Stream)
|
||||
|
||||
Local BaseName$ = Impostor_StripExtension(Path)
|
||||
Instance\Sheet = LoadAnimTexture(BaseName + "png", Flags, Instance\FrameWidth, Instance\FrameHeight, 0, Instance\PitchFrames * Instance\YawFrames)
|
||||
If Instance\Sheet = 0 Then RuntimeError "Impostor: Unable to open texture for given <Path$>."
|
||||
|
||||
Instance\YawStep = (Instance\YawMax - Instance\YawMin) / Instance\YawFrames
|
||||
Instance\PitchStep = (Instance\PitchMax - Instance\PitchMin) / Instance\PitchFrames
|
||||
|
||||
Return Instance
|
||||
EndIf
|
||||
EndIf
|
||||
End Function
|
||||
|
||||
Function Impostor_Create.Impostor(Mesh%, Diffuse%)
|
||||
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
Function Impostor_Update(Camera%)
|
||||
Local Instance.Impostor = Null
|
||||
For Instance = Each Impostor
|
||||
Impostor_UpdateSingle(Camera, Instance)
|
||||
Next
|
||||
End Function
|
||||
|
||||
Function Impostor_UpdateSingle(Camera%, Impostor.Impostor)
|
||||
; Calculate current Yaw frame and Pitch frame.
|
||||
PointEntity Impostor\Mesh, Camera, 0
|
||||
|
||||
Local Yaw# = Impostor_Math_MaxMin(EntityYaw(Impostor\Mesh), Impostor\YawMax, Impostor\YawMin) - Impostor\YawMin
|
||||
Local Pitch# = Impostor_Math_MaxMin(EntityPitch(Impostor\Mesh), Impostor\PitchMax, Impostor\PitchMin) - Impostor\PitchMin
|
||||
|
||||
Local YawFrame = Int(Yaw / Impostor\YawStep)
|
||||
Local PitchFrame = Floor(Pitch / Impostor\PitchStep)
|
||||
DebugLog YawFrame
|
||||
EntityTexture Impostor\Mesh, Impostor\Sheet, PitchFrame * Impostor\YawFrames + YawFrame, 0
|
||||
EntityFX Impostor\Mesh, 16
|
||||
RotateEntity Impostor\Mesh, Impostor\PitchMin - PitchFrame * Impostor\PitchStep, 180 + Impostor\YawMin + YawFrame * Impostor\YawStep, 0
|
||||
End Function
|
||||
|
||||
Function Impostor_StripExtension$(Path$)
|
||||
Local RPath$ = Path$
|
||||
For temp_Pos = Len(Path)-1 To 1 Step -1
|
||||
If Mid(Path, temp_Pos, 1) = "."
|
||||
RPath = Left(Path, temp_Pos)
|
||||
Exit
|
||||
EndIf
|
||||
Next
|
||||
Return RPath
|
||||
End Function
|
||||
|
||||
Function Impostor_Math_MaxMin#(Value#, Max#, Min#)
|
||||
If Value> Max Then Return Max
|
||||
If Value < Min Then Return Min
|
||||
Return Value
|
||||
End Function
|
||||
Function Impostor_Math_Max#(Value#, Max#)
|
||||
If Value> Max Then Return Max
|
||||
Return Value
|
||||
End Function
|
||||
Function Impostor_Math_Min#(Value#, Min#)
|
||||
If Value < Min Then Return Min
|
||||
Return Value
|
||||
End Function
|
||||
Function Impostor_Math_Clip#(Value#, Low#, High#)
|
||||
Local Out#, Diff#
|
||||
Diff = High-Low:Out = Value-Low
|
||||
If (Out >= Diff) Then Out = Out - Floor(Out/Diff)*Diff
|
||||
If (Out < 0) Then Out = Out - Floor(Out/Diff)*Diff
|
||||
Return Low+Out
|
||||
End Function
|
||||
;~IDEal Editor Parameters:
|
||||
;~C#Blitz3D
|
||||
@@ -0,0 +1,18 @@
|
||||
[IDEal Project file]
|
||||
<Settings>
|
||||
Version="1"
|
||||
Expanded="True"
|
||||
Icon=""
|
||||
MainFile="CreateImpostorTextures.bb"
|
||||
Compiler="Blitz3D"
|
||||
CommandLine=""
|
||||
</Settings>
|
||||
<Folders>
|
||||
</Folders>
|
||||
<Files>
|
||||
AbsPath="\CreateImpostorTextures.bb" PrjFolder="" Line="0" Column="0" Tip="0" Visible="False"
|
||||
AbsPath="\Example01_Cube.bb" PrjFolder="" Line="0" Column="0" Tip="0" Visible="False"
|
||||
AbsPath="\FastExt.bb" PrjFolder="" Line="0" Column="0" Tip="0" Visible="False"
|
||||
AbsPath="\FreeImage.bb" PrjFolder="" Line="0" Column="0" Tip="0" Visible="False"
|
||||
AbsPath="\Impostor.bb" PrjFolder="" Line="0" Column="0" Tip="0" Visible="False"
|
||||
</Files>
|
||||
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 1.4 MiB |
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 1.2 MiB |
@@ -0,0 +1,9 @@
|
||||
Impostor
|
||||
=======================
|
||||
|
||||
You know those distant objects that don't quite seem like a 3D object, but still turn with the view? That's an impostor, and this was supposed to be a Blitz3D implementation of that. Didn't work out as planned though, so here's the broken version that used FastExt to do its work.
|
||||
If you don't know where to get FastExt, google will help you.
|
||||
|
||||
License
|
||||
=======
|
||||
Impostor by Michael Fabian Dirks is licensed under the Creative Commons Attribution-ShareAlike 4.0 International License. To view a copy of this license, visit http://creativecommons.org/licenses/by-sa/4.0/.
|
||||
@@ -0,0 +1,41 @@
|
||||
Include "LevelOfDetail.bb"
|
||||
|
||||
Graphics3D 1024, 768, 0, 2
|
||||
SetBuffer BackBuffer()
|
||||
SeedRnd MilliSecs()
|
||||
|
||||
Timer = CreateTimer(60)
|
||||
Local eCamera = CreateCamera()
|
||||
|
||||
LoD_Initialize()
|
||||
|
||||
Local L0 = CreateSphere(16):HideEntity L0
|
||||
Local L1 = CreateSphere(8):HideEntity L1
|
||||
Local L2 = CreateSphere(4):HideEntity L2
|
||||
Local L3 = CreateSphere(2):HideEntity L3
|
||||
Local L4 = CreateSprite():HideEntity L4
|
||||
|
||||
For X = -10 To 10
|
||||
For Y = -10 To 10
|
||||
For Z = -10 To 10
|
||||
Local tEnt.LoDEntity = LoD_Create(L0, L1, L2, L3, L4)
|
||||
PositionEntity tEnt\Pivot, X*3, Y*3, Z*3
|
||||
LoD_EntityColor tEnt, Rand(0, 255), Rand(0, 255), Rand(0, 255)
|
||||
Next
|
||||
Next
|
||||
Next
|
||||
|
||||
|
||||
While Not KeyHit(1)
|
||||
|
||||
MoveEntity eCamera, KeyDown(32) - KeyDown(30), 0, KeyDown(17) - KeyDown(31)
|
||||
If MouseDown(1) Then RotateEntity eCamera, EntityPitch(eCamera) + MouseYSpeed()/4.0, EntityYaw(eCamera) -MouseXSpeed()/4.0, 0:MoveMouse 512,384
|
||||
|
||||
WireFrame MouseDown(2)
|
||||
|
||||
RenderWorld
|
||||
LoD_Update(eCamera)
|
||||
Text 0, 0, TrisRendered()
|
||||
Flip False
|
||||
; WaitTimer(Timer)
|
||||
Wend
|
||||
@@ -0,0 +1,163 @@
|
||||
Global LoD_Dist_Lv0# = 32, LoD_Dist_Lv1# = 64, LoD_Dist_Lv2# = 128, LoD_Dist_Lv3# = 256, LoD_Dist_Lv4# = 512
|
||||
Global LoD_Range# = 8
|
||||
|
||||
Type LoDEntity
|
||||
Field Pivot% = 0
|
||||
|
||||
; Levels
|
||||
Field LoDs%[5]
|
||||
|
||||
; Temporary Values
|
||||
Field Visible%[5]
|
||||
Field Fade#[5]
|
||||
End Type
|
||||
|
||||
Function LoD_Initialize(Dist_Range# = 8, Dist_Lv0# = 32, Dist_Lv1# = 64, Dist_Lv2# = 128, Dist_Lv3# = 256, Dist_Lv4# = 512)
|
||||
LoD_Range = Dist_Range
|
||||
|
||||
; Distance Limits
|
||||
LoD_Dist_Lv0 = Dist_Lv0
|
||||
LoD_Dist_Lv1 = Dist_Lv1
|
||||
LoD_Dist_Lv2 = Dist_Lv2
|
||||
LoD_Dist_Lv3 = Dist_Lv3
|
||||
LoD_Dist_Lv4 = Dist_Lv4
|
||||
End Function
|
||||
|
||||
Function LoD_Create.LoDEntity(Lv0, Lv1, Lv2, Lv3, Lv4)
|
||||
Local tInstance.LoDEntity = New LoDEntity
|
||||
tInstance\Pivot = CreatePivot()
|
||||
|
||||
; Copy Entities
|
||||
tInstance\LoDs[0] = CopyEntity(Lv0, tInstance\Pivot):HideEntity tInstance\LoDs[0]
|
||||
tInstance\LoDs[1] = CopyEntity(Lv1, tInstance\Pivot):HideEntity tInstance\LoDs[1]
|
||||
tInstance\LoDs[2] = CopyEntity(Lv2, tInstance\Pivot):HideEntity tInstance\LoDs[2]
|
||||
tInstance\LoDs[3] = CopyEntity(Lv3, tInstance\Pivot):HideEntity tInstance\LoDs[3]
|
||||
tInstance\LoDs[4] = CopyEntity(Lv4, tInstance\Pivot):HideEntity tInstance\LoDs[4]
|
||||
|
||||
Return tInstance
|
||||
End Function
|
||||
|
||||
Function LoD_EntityAlpha(tInstance.LoDEntity, Alpha#, Level=-1)
|
||||
If (Level = -1) Then
|
||||
EntityAlpha tInstance\LoDs[0], Alpha
|
||||
EntityAlpha tInstance\LoDs[1], Alpha
|
||||
EntityAlpha tInstance\LoDs[2], Alpha
|
||||
EntityAlpha tInstance\LoDs[3], Alpha
|
||||
EntityAlpha tInstance\LoDs[4], Alpha
|
||||
Else
|
||||
EntityAlpha tInstance\LoDs[Level], Alpha
|
||||
EndIf
|
||||
End Function
|
||||
|
||||
Function LoD_EntityBlend(tInstance.LoDEntity, Mode%, Level=-1)
|
||||
If (Level = -1) Then
|
||||
EntityBlend tInstance\LoDs[0], Mode
|
||||
EntityBlend tInstance\LoDs[1], Mode
|
||||
EntityBlend tInstance\LoDs[2], Mode
|
||||
EntityBlend tInstance\LoDs[3], Mode
|
||||
EntityBlend tInstance\LoDs[4], Mode
|
||||
Else
|
||||
EntityBlend tInstance\LoDs[Level], Mode
|
||||
EndIf
|
||||
End Function
|
||||
|
||||
Function LoD_EntityColor(tInstance.LoDEntity, Red#, Green#, Blue#, Level=-1)
|
||||
If (Level = -1) Then
|
||||
EntityColor tInstance\LoDs[0], Red, Green, Blue
|
||||
EntityColor tInstance\LoDs[1], Red, Green, Blue
|
||||
EntityColor tInstance\LoDs[2], Red, Green, Blue
|
||||
EntityColor tInstance\LoDs[3], Red, Green, Blue
|
||||
EntityColor tInstance\LoDs[4], Red, Green, Blue
|
||||
Else
|
||||
EntityColor tInstance\LoDs[Level], Red, Green, Blue
|
||||
EndIf
|
||||
End Function
|
||||
|
||||
Function LoD_EntityFX(tInstance.LoDEntity, FX%, Level=-1)
|
||||
If (Level = -1) Then
|
||||
EntityFX tInstance\LoDs[0], FX
|
||||
EntityFX tInstance\LoDs[1], FX
|
||||
EntityFX tInstance\LoDs[2], FX
|
||||
EntityFX tInstance\LoDs[3], FX
|
||||
EntityFX tInstance\LoDs[4], FX
|
||||
Else
|
||||
EntityFX tInstance\LoDs[Level], FX
|
||||
EndIf
|
||||
End Function
|
||||
|
||||
Function LoD_EntityShininess(tInstance.LoDEntity, Shininess#, Level=-1)
|
||||
If (Level = -1) Then
|
||||
EntityShininess tInstance\LoDs[0], Shininess
|
||||
EntityShininess tInstance\LoDs[1], Shininess
|
||||
EntityShininess tInstance\LoDs[2], Shininess
|
||||
EntityShininess tInstance\LoDs[3], Shininess
|
||||
EntityShininess tInstance\LoDs[4], Shininess
|
||||
Else
|
||||
EntityShininess tInstance\LoDs[Level], Shininess
|
||||
EndIf
|
||||
End Function
|
||||
|
||||
Function LoD_EntityTexture(tInstance.LoDEntity, Texture%, Frame%=0, Index%=0, Level=-1)
|
||||
If (Level = -1) Then
|
||||
EntityTexture tInstance\LoDs[0], Texture, Frame, Index
|
||||
EntityTexture tInstance\LoDs[1], Texture, Frame, Index
|
||||
EntityTexture tInstance\LoDs[2], Texture, Frame, Index
|
||||
EntityTexture tInstance\LoDs[3], Texture, Frame, Index
|
||||
EntityTexture tInstance\LoDs[4], Texture, Frame, Index
|
||||
Else
|
||||
EntityTexture tInstance\LoDs[Level], Texture, Frame, Index
|
||||
EndIf
|
||||
End Function
|
||||
|
||||
Function LoD_EntityLoD(tInstance.LoDEntity)
|
||||
For Level = 0 To 4
|
||||
If (tInstance\Visible[Level]) Then Return Level
|
||||
Next
|
||||
Return 5
|
||||
End Function
|
||||
|
||||
Function LoD_Update(eCamera, bDoFadeOut=False)
|
||||
For tInstance.LoDEntity = Each LoDEntity
|
||||
Local Dist# = EntityDistance(eCamera, tInstance\Pivot)
|
||||
|
||||
; LoD Level 1 (Very High)
|
||||
If (Dist > 0) And ((bDoFadeOut And (Dist < LoD_Dist_Lv0 + LoD_Range)) Or (bDoFadeOut = False And (Dist < LoD_Dist_Lv0))) Then
|
||||
If tInstance\Visible[0] = False Then tInstance\Visible[0] = True:ShowEntity tInstance\LoDs[0]
|
||||
If bDoFadeOut = True And (Dist > LoD_Dist_Lv0) Then EntityAlpha tInstance\LoDs[0], 1.0 - (Dist - LoD_Dist_Lv0) / LoD_Range
|
||||
Else
|
||||
If tInstance\Visible[0] = True Then tInstance\Visible[0] = False:HideEntity tInstance\LoDs[0]
|
||||
EndIf
|
||||
|
||||
; LoD Level 2 (High)
|
||||
If (Dist > LoD_Dist_Lv0) And ((bDoFadeOut And (Dist < LoD_Dist_Lv1 + LoD_Range)) Or (bDoFadeOut = False And (Dist < LoD_Dist_Lv1))) Then
|
||||
If tInstance\Visible[1] = False Then tInstance\Visible[1] = True:ShowEntity tInstance\LoDs[1]
|
||||
If bDoFadeOut = True And (Dist > LoD_Dist_Lv1) Then EntityAlpha tInstance\LoDs[1], 1.0 - (Dist - LoD_Dist_Lv1) / LoD_Range
|
||||
Else
|
||||
If tInstance\Visible[1] = True Then tInstance\Visible[1] = False:HideEntity tInstance\LoDs[1]
|
||||
EndIf
|
||||
|
||||
; LoD Level 3 (Normal)
|
||||
If (Dist > LoD_Dist_Lv1) And ((bDoFadeOut And (Dist < LoD_Dist_Lv2 + LoD_Range)) Or (bDoFadeOut = False And (Dist < LoD_Dist_Lv2))) Then
|
||||
If tInstance\Visible[2] = False Then tInstance\Visible[2] = True:ShowEntity tInstance\LoDs[2]
|
||||
If bDoFadeOut = True And (Dist > LoD_Dist_Lv2) Then EntityAlpha tInstance\LoDs[2], 1.0 - (Dist - LoD_Dist_Lv2) / LoD_Range
|
||||
Else
|
||||
If tInstance\Visible[2] = True Then tInstance\Visible[2] = False:HideEntity tInstance\LoDs[2]
|
||||
EndIf
|
||||
|
||||
; LoD Level 4 (Low)
|
||||
If (Dist > LoD_Dist_Lv2) And ((bDoFadeOut And (Dist < LoD_Dist_Lv3 + LoD_Range)) Or (bDoFadeOut = False And (Dist < LoD_Dist_Lv3))) Then
|
||||
If tInstance\Visible[3] = False Then tInstance\Visible[3] = True:ShowEntity tInstance\LoDs[3]
|
||||
If bDoFadeOut = True And (Dist > LoD_Dist_Lv3) Then EntityAlpha tInstance\LoDs[3], 1.0 - (Dist - LoD_Dist_Lv3) / LoD_Range
|
||||
Else
|
||||
If tInstance\Visible[3] = True Then tInstance\Visible[3] = False:HideEntity tInstance\LoDs[3]
|
||||
EndIf
|
||||
|
||||
; LoD Level 5 (Very Low) (Usually a Sprite)
|
||||
If (Dist > LoD_Dist_Lv3) And ((bDoFadeOut And (Dist < LoD_Dist_Lv4 + LoD_Range)) Or (bDoFadeOut = False And (Dist < LoD_Dist_Lv4))) Then
|
||||
If tInstance\Visible[4] = False Then tInstance\Visible[4] = True:ShowEntity tInstance\LoDs[4]
|
||||
If bDoFadeOut = True And (Dist > LoD_Dist_Lv4) Then EntityAlpha tInstance\LoDs[4], 1.0 - (Dist - LoD_Dist_Lv4) / LoD_Range
|
||||
Else
|
||||
If tInstance\Visible[4] = True Then tInstance\Visible[4] = False:HideEntity tInstance\LoDs[4]
|
||||
EndIf
|
||||
Next
|
||||
End Function
|
||||
@@ -0,0 +1,8 @@
|
||||
Level of Detail
|
||||
=======================
|
||||
|
||||
A library originally ment to add level of detail to Sirius Online, back when it was still using Blitz3D. Works somewhat okay, might require some tweaking. Oct-Tree solutions will work better in most cases, so use at your own risk.
|
||||
|
||||
License
|
||||
=======
|
||||
Level of Detail by Michael Fabian Dirks is licensed under the Creative Commons Attribution-ShareAlike 4.0 International License. To view a copy of this license, visit http://creativecommons.org/licenses/by-sa/4.0/.
|
||||
@@ -0,0 +1,8 @@
|
||||
Motion Blur
|
||||
=======================
|
||||
|
||||
This was a test at how good I could make a motion blur effect in Blitz3D, without much success in actual use. Blitz3D likes to resend all data instead of reuse, so frametime increased a lot. Still looks nice on single objects that require such types of blur.
|
||||
|
||||
License
|
||||
=======
|
||||
Motion Blur by Michael Fabian Dirks is licensed under the Creative Commons Attribution-ShareAlike 4.0 International License. To view a copy of this license, visit http://creativecommons.org/licenses/by-sa/4.0/.
|
||||
+42
@@ -0,0 +1,42 @@
|
||||
AppTitle "TrueMotion"
|
||||
Include "TrueMotion.bb"
|
||||
|
||||
Graphics3D 1024,768,0,2
|
||||
SetBuffer BackBuffer()
|
||||
SeedRnd MilliSecs()
|
||||
|
||||
Local eCamera = CreateCamera()
|
||||
|
||||
Local tCube = CreateTexture(128,128)
|
||||
SetBuffer TextureBuffer(tCube)
|
||||
Color 255, 255, 0
|
||||
Rect 0, 0, 64, 64
|
||||
Rect 64, 64, 64, 64
|
||||
Color 0, 127, 255
|
||||
Rect 64, 0, 64, 64
|
||||
Rect 0, 64, 64, 64
|
||||
|
||||
SetBuffer BackBuffer()
|
||||
|
||||
Local eCube = CreateCube()
|
||||
PositionEntity eCube, 0, 0, 3
|
||||
EntityTexture eCube, tCube
|
||||
|
||||
Local tInstance.TrueMotion = TrueMotion_Create(eCamera)
|
||||
|
||||
Timer = CreateTimer(60)
|
||||
|
||||
Global Msec
|
||||
While Not KeyHit(1)
|
||||
Cls
|
||||
|
||||
Msec = Msec + 10
|
||||
RotateEntity eCube, Cos(Msec/4.0)*30, 0, EntityRoll(eCube) + 16
|
||||
PositionEntity eCube, 0, Sin(Msec/4.0)*2, 4
|
||||
|
||||
TrueMotion_RenderWorld(tInstance, 32)
|
||||
Flip
|
||||
WaitTimer(Timer)
|
||||
Wend
|
||||
|
||||
End
|
||||
@@ -0,0 +1,51 @@
|
||||
Type TrueMotion
|
||||
Field Camera% = 0
|
||||
Field Mesh% = 0
|
||||
End Type
|
||||
|
||||
Function TrueMotion_Create.TrueMotion(Camera%)
|
||||
;Create TrueMotion Instance
|
||||
tInstance.TrueMotion = New TrueMotion
|
||||
|
||||
; Camera can't be Null or invalid
|
||||
If Camera = 0 Then
|
||||
RuntimeError "TrueMotion: Camera is Null."
|
||||
Else
|
||||
If EntityClass(Camera) <> "Camera" Then
|
||||
RuntimeError "TrueMotion: Camera is not of type <Camera>."
|
||||
Else
|
||||
tInstance\Camera = Camera
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
; Create Mesh
|
||||
tInstance\Mesh = CreateMesh(tInstance\Camera)
|
||||
sSurface = CreateSurface(tInstance\Mesh)
|
||||
AddVertex(sSurface, -1, 1, 0, 0, 0)
|
||||
AddVertex(sSurface, 1, 1, 0, 1, 0)
|
||||
AddVertex(sSurface, 1, -1, 0, 1, 1)
|
||||
AddVertex(sSurface, -1, -1, 0, 0, 1)
|
||||
AddTriangle(sSurface, 0, 1, 2)
|
||||
AddTriangle(sSurface, 0, 2, 3)
|
||||
|
||||
EntityOrder(tInstance\Mesh, -1)
|
||||
EntityColor(tInstance\Mesh, 0, 0, 0)
|
||||
PositionEntity(tInstance\Mesh, 0, 0, 1)
|
||||
HideEntity(tInstance\Mesh)
|
||||
|
||||
Return tInstance
|
||||
End Function
|
||||
|
||||
; Call this before after you have done your changes. It is a good practice to only let this effect affect nearby entities.
|
||||
Function TrueMotion_RenderWorld(tInstance.TrueMotion, Steps%=12)
|
||||
ShowEntity(tInstance\Mesh)
|
||||
EntityAlpha(tInstance\Mesh, 1.0/Steps)
|
||||
CameraClsMode(tInstance\Camera, 0, 1)
|
||||
For curStep = 0 To Steps - 1
|
||||
RenderWorld curStep/Float(Steps)
|
||||
Next
|
||||
HideEntity(tInstance\Mesh)
|
||||
RenderWorld 1
|
||||
CameraClsMode(tInstance\Camera, 1, 1)
|
||||
CaptureWorld
|
||||
End Function
|
||||
+42
@@ -0,0 +1,42 @@
|
||||
AppTitle "TrueMotion"
|
||||
Include "TrueMotion.bb"
|
||||
|
||||
Graphics3D 1024,768,0,2
|
||||
SetBuffer BackBuffer()
|
||||
SeedRnd MilliSecs()
|
||||
|
||||
Local eCamera = CreateCamera()
|
||||
|
||||
Local tCube = CreateTexture(128,128)
|
||||
SetBuffer TextureBuffer(tCube)
|
||||
Color 255, 255, 0
|
||||
Rect 0, 0, 64, 64
|
||||
Rect 64, 64, 64, 64
|
||||
Color 0, 127, 255
|
||||
Rect 64, 0, 64, 64
|
||||
Rect 0, 64, 64, 64
|
||||
|
||||
SetBuffer BackBuffer()
|
||||
|
||||
Local eCube = CreateCube()
|
||||
PositionEntity eCube, 0, 0, 3
|
||||
EntityTexture eCube, tCube
|
||||
|
||||
Local tInstance.TrueMotion = TrueMotion_Create(eCamera, 32)
|
||||
|
||||
Timer = CreateTimer(60)
|
||||
|
||||
Global Msec
|
||||
While Not KeyHit(1)
|
||||
Cls
|
||||
|
||||
Msec = Msec + 10
|
||||
RotateEntity eCube, Cos(Msec/4.0)*30, 0, EntityRoll(eCube) + 16
|
||||
PositionEntity eCube, 0, Sin(Msec/4.0)*2, 4
|
||||
|
||||
TrueMotion_RenderWorld(tInstance)
|
||||
Flip
|
||||
WaitTimer(Timer)
|
||||
Wend
|
||||
|
||||
End
|
||||
@@ -0,0 +1,82 @@
|
||||
Const TRUEMOTION_STEPS_MAX = 32
|
||||
|
||||
Type TrueMotion
|
||||
Field Camera% = 0
|
||||
|
||||
; Settings
|
||||
Field Steps% = 6
|
||||
Field SizeW% = 128
|
||||
Field SizeH% = 128
|
||||
|
||||
; Core Stuff
|
||||
Field Texture% = 0
|
||||
Field Mesh% = 0
|
||||
End Type
|
||||
|
||||
Function TrueMotion_Create.TrueMotion(Camera%, Steps%=12);, SizeW%=128, SizeH%=128, Steps%=5)
|
||||
;Create TrueMotion Instance
|
||||
tInstance.TrueMotion = New TrueMotion
|
||||
|
||||
; Camera can't be Null or invalid
|
||||
If Camera = 0 Then
|
||||
RuntimeError "TrueMotion: Camera is Null."
|
||||
Else
|
||||
If EntityClass(Camera) <> "Camera" Then
|
||||
RuntimeError "TrueMotion: Camera is not of type <Camera>."
|
||||
Else
|
||||
tInstance\Camera = Camera
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
; Limit <Steps> into 1-TRUEMOTION_STEPS_MAX to prevent too high values.
|
||||
If Steps < 1 Then
|
||||
tInstance\Steps = 1
|
||||
ElseIf Steps > TRUEMOTION_STEPS_MAX Then
|
||||
tInstance\Steps = TRUEMOTION_STEPS_MAX
|
||||
Else
|
||||
tInstance\Steps = Steps
|
||||
EndIf
|
||||
|
||||
; Limit <SizeW/H> to be 2^n and still below GraphicsWidth and -Height.
|
||||
If SizeW < 1 Then SizeW = 1
|
||||
If SizeW > GraphicsWidth() Then SizeW = GraphicsWidth()
|
||||
tInstance\SizeW = 2^Floor(Log(SizeW)/Log(2))
|
||||
If SizeH < 1 Then SizeH = 1
|
||||
If SizeH > GraphicsWidth() Then SizeH = GraphicsHeight()
|
||||
tInstance\SizeH = 2^Floor(Log(SizeH)/Log(2))
|
||||
|
||||
; Create Texture
|
||||
tInstance\Texture = CreateTexture(tInstance\SizeW, tInstance\SizeH, 305, tInstance\Steps)
|
||||
|
||||
; Create Mesh
|
||||
tInstance\Mesh = CreateMesh(tInstance\Camera)
|
||||
sSurface = CreateSurface(tInstance\Mesh)
|
||||
AddVertex(sSurface, -1, 1, 0, 0, 0)
|
||||
AddVertex(sSurface, 1, 1, 0, 1, 0)
|
||||
AddVertex(sSurface, 1, -1, 0, 1, 1)
|
||||
AddVertex(sSurface, -1, -1, 0, 0, 1)
|
||||
AddTriangle(sSurface, 0, 1, 2)
|
||||
AddTriangle(sSurface, 0, 2, 3)
|
||||
|
||||
EntityFX(tInstance\Mesh, 8)
|
||||
EntityTexture(tInstance\Mesh, tInstance\Texture, 0)
|
||||
EntityOrder(tInstance\Mesh, -1)
|
||||
EntityColor(tInstance\Mesh, 0, 0, 0)
|
||||
EntityAlpha(tInstance\Mesh, (1.0/(tInstance\Steps)))
|
||||
PositionEntity(tInstance\Mesh, 0, 0, 1)
|
||||
HideEntity(tInstance\Mesh)
|
||||
|
||||
Return tInstance
|
||||
End Function
|
||||
|
||||
; Call this before after you have done your changes. It is a good practice to only let this effect affect nearby entities.
|
||||
Function TrueMotion_RenderWorld(tInstance.TrueMotion)
|
||||
HideEntity(tInstance\Mesh)
|
||||
CameraClsMode(tInstance\Camera, 1, 1)
|
||||
For curStep = 0 To tInstance\Steps - 1
|
||||
RenderWorld curStep/Float(tInstance\Steps)
|
||||
Next
|
||||
ShowEntity(tInstance\Mesh)
|
||||
RenderWorld 1
|
||||
CaptureWorld
|
||||
End Function
|
||||
@@ -0,0 +1,267 @@
|
||||
;--------------------------------------------
|
||||
; Example
|
||||
;--------------------------------------------
|
||||
Include "../Advanced Text (Library)/AdvText.bb"
|
||||
Include "TiledSprite.bb"
|
||||
|
||||
Graphics3D 1280,720,32,2
|
||||
SetBuffer BackBuffer()
|
||||
|
||||
; Background
|
||||
Local FPlane = CreatePlane(16)
|
||||
RotateEntity FPlane, 270, 0, 0
|
||||
PositionEntity FPlane, 0, 0, 256, True
|
||||
EntityColor FPlane, 128, 128, 128
|
||||
|
||||
Local BPlane = CreatePlane(16)
|
||||
RotateEntity BPlane, 90, 0, 0
|
||||
PositionEntity BPlane, 0, 0, -256, True
|
||||
EntityColor BPlane, 0, 128, 190
|
||||
|
||||
Local LPlane = CreatePlane(16)
|
||||
RotateEntity LPlane, 90, 90, 0
|
||||
PositionEntity LPlane, 256, 0, 0, True
|
||||
EntityColor LPlane, 0, 128, 190
|
||||
|
||||
Local RPlane = CreatePlane(16)
|
||||
RotateEntity RPlane, 90, 270, 0
|
||||
PositionEntity RPlane, -256, 0, 0, True
|
||||
EntityColor RPlane, 0, 128, 190
|
||||
|
||||
Local DPlane = CreatePlane(16)
|
||||
RotateEntity DPlane, 0, 0, 0
|
||||
PositionEntity DPlane, 0, -256, 0, True
|
||||
EntityColor DPlane, 0, 128, 0
|
||||
|
||||
Local UPlane = CreatePlane(16)
|
||||
RotateEntity UPlane, 180, 0, 0
|
||||
PositionEntity UPlane, 0, 256, 0, True
|
||||
EntityColor UPlane, 0, 128, 190
|
||||
|
||||
; Camera
|
||||
Local eCameraPitch# = 0
|
||||
Local eCameraYaw# = 0
|
||||
Local eCameraZoom# = 1
|
||||
Local eCameraFOV# = 90.0
|
||||
Local eCameraFOVValue# = Tan( eCameraFOV / 2.0 )
|
||||
|
||||
Local eCameraCenter = CreatePivot()
|
||||
Local eCamera = CreateCamera(eCameraCenter)
|
||||
Local eCameraLight = CreateLight(3, eCamera)
|
||||
|
||||
PositionEntity eCamera, 0, 0, -eCameraZoom, False
|
||||
CameraRange eCamera, 0.1, 1024
|
||||
CameraZoom eCamera, 1.0 / eCameraFOVValue
|
||||
LightConeAngles eCameraLight, 10, 60
|
||||
LightColor eCameraLight, 64, 128, 255
|
||||
|
||||
; Sprite Texture Creation
|
||||
Global InvTex = LoadTexture("TiledSprite_Test01.fw.png", 1+2+8+16+32+256)
|
||||
Global InvBrush = CreateBrush(255.0, 255.0, 255.0)
|
||||
BrushTexture InvBrush, InvTex, 0, 0
|
||||
BrushFX InvBrush, 1+4+8
|
||||
|
||||
; Main Mesh
|
||||
Global InvMesh = CreateMesh(eCamera)
|
||||
PositionEntity InvMesh, 0, 0, 1
|
||||
EntityFX InvMesh, 1+4+8
|
||||
; Scale the Mesh according to ScreenWidth and FOV(Tan(FOV/2.0)).
|
||||
Local InvMeshScale# = (1 / (GraphicsWidth()/2.0)) * eCameraFOVValue
|
||||
ScaleEntity InvMesh, InvMeshScale, InvMeshScale, 1, True
|
||||
|
||||
;Hint: Order of Creation is Important for Sprites not sharing a mesh or a surface. If only sharing the surface, order of fill is important.
|
||||
|
||||
; Foreground Sprite
|
||||
Local InvFGSpriteBuilder.TSpriteBuilder = TSpriteBuilder_Create()
|
||||
TSpriteBuilder_Mesh(InvFGSpriteBuilder, InvMesh)
|
||||
TSpriteBuilder_Brush(InvFGSpriteBuilder, InvBrush)
|
||||
TSpriteBuilder_BrushSize(InvFGSpriteBuilder, 256, 256)
|
||||
TSpriteBuilder_Scale(InvFGSpriteBuilder, 0.5, 0.5)
|
||||
TSpriteBuilder_Padding(InvFGSpriteBuilder, 0, 0, 128, 128)
|
||||
TSpriteBuilder_Border(InvFGSpriteBuilder, 32, 32, 32, 32)
|
||||
TSpriteBuilder_BorderScale(InvFGSpriteBuilder, 0.5, 0.5)
|
||||
Local InvFGSprite.TSprite = TSprite_Create(InvFGSpriteBuilder)
|
||||
|
||||
; Inverted Gradient Sprite
|
||||
Local InvGradientSpriteBuilder.TSpriteBuilder = TSpriteBuilder_Create()
|
||||
TSpriteBuilder_Mesh(InvGradientSpriteBuilder, InvMesh)
|
||||
TSpriteBuilder_Brush(InvGradientSpriteBuilder, InvBrush)
|
||||
TSpriteBuilder_BrushSize(InvGradientSpriteBuilder, 256, 256)
|
||||
TSpriteBuilder_Scale(InvGradientSpriteBuilder, 0.5, 0.5)
|
||||
TSpriteBuilder_Padding(InvGradientSpriteBuilder, 128, 128, 0, 0)
|
||||
TSpriteBuilder_Border(InvGradientSpriteBuilder, 32, 32, 32, 32)
|
||||
TSpriteBuilder_BorderScale(InvGradientSpriteBuilder, 0.5, 0.5)
|
||||
Local InvGradientSprite.TSprite = TSprite_Create(InvGradientSpriteBuilder)
|
||||
|
||||
; Gradient Sprite
|
||||
Local GradientSpriteBuilder.TSpriteBuilder = TSpriteBuilder_Create()
|
||||
TSpriteBuilder_Mesh(GradientSpriteBuilder, InvMesh)
|
||||
TSpriteBuilder_Brush(GradientSpriteBuilder, InvBrush)
|
||||
TSpriteBuilder_BrushSize(GradientSpriteBuilder, 256, 256)
|
||||
TSpriteBuilder_Scale(GradientSpriteBuilder, 0.5, 0.5)
|
||||
TSpriteBuilder_Padding(GradientSpriteBuilder, 0, 128, 128, 0)
|
||||
TSpriteBuilder_Border(GradientSpriteBuilder, 32, 32, 32, 32)
|
||||
TSpriteBuilder_BorderScale(GradientSpriteBuilder, 0.5, 0.5)
|
||||
Local GradientSprite.TSprite = TSprite_Create(GradientSpriteBuilder)
|
||||
|
||||
; Background Sprite
|
||||
Local InvBGSpriteBuilder.TSpriteBuilder = TSpriteBuilder_Create()
|
||||
TSpriteBuilder_Mesh(InvBGSpriteBuilder, InvMesh, 0, True)
|
||||
TSpriteBuilder_Brush(InvBGSpriteBuilder, InvBrush)
|
||||
TSpriteBuilder_BrushSize(InvBGSpriteBuilder, 256, 256)
|
||||
TSpriteBuilder_Scale(InvBGSpriteBuilder, 0.5, 0.5)
|
||||
TSpriteBuilder_Padding(InvBGSpriteBuilder, 128, 0, 0, 128)
|
||||
TSpriteBuilder_Border(InvBGSpriteBuilder, 16, 16, 16, 16)
|
||||
TSpriteBuilder_BorderScale(InvBGSpriteBuilder, 0.5, 0.5)
|
||||
Local InvBGSprite.TSprite = TSprite_Create(InvBGSpriteBuilder)
|
||||
|
||||
; Other
|
||||
Global FPSTimer = CreateTimer(30)
|
||||
Local SpriteFillFlags = TSPRITE_BORDER_LFT + TSPRITE_BORDER_RGT + TSPRITE_BORDER_TOP + TSPRITE_BORDER_BTM
|
||||
Local X#=256,Y#=256,W#=128,H#=128, Change = True
|
||||
|
||||
; Loop
|
||||
While Not KeyHit(1)
|
||||
Local MsX = MouseX(), MsY = MouseY(), MsZ = MouseZ()
|
||||
Cls
|
||||
|
||||
If Change = True Then
|
||||
TSprite_Fill(GradientSprite, -GraphicsWidth()/2 + X, -GraphicsHeight()/2 +Y, W, H, 0, SpriteFillFlags)
|
||||
TSprite_Fill(InvGradientSprite, -GraphicsWidth()/2 + X + 4, -GraphicsHeight()/2 +Y + 4, W - 8, H - 8, 0, SpriteFillFlags)
|
||||
Change = False
|
||||
EndIf
|
||||
|
||||
WireFrame KeyDown(31)
|
||||
RenderWorld
|
||||
|
||||
; Camera Movement
|
||||
If MouseDown(1)
|
||||
If MouseHit(1) Then
|
||||
MoveMouse GraphicsWidth()/2, GraphicsHeight()/2
|
||||
Else
|
||||
eCameraPitch = eCameraPitch + (MouseYSpeed()/4.0)
|
||||
eCameraYaw = eCameraYaw - (MouseXSpeed()/4.0)
|
||||
EndIf
|
||||
|
||||
RotateEntity eCameraCenter, eCameraPitch, eCameraYaw, 0, True
|
||||
EndIf
|
||||
If MouseDown(2)
|
||||
If MouseHit(2) Then
|
||||
MoveMouse GraphicsWidth()/2, GraphicsHeight()/2
|
||||
Else
|
||||
eCameraZoom = eCameraZoom + (MouseYSpeed()/4.0) + (MouseXSpeed()/4.0)
|
||||
If eCameraZoom < 1.0 Then eCameraZoom = 1.0
|
||||
EndIf
|
||||
|
||||
PositionEntity eCamera, 0, 0, -eCameraZoom, False
|
||||
EndIf
|
||||
|
||||
; Position & Size
|
||||
If KeyDown(30) Then
|
||||
X = MsX
|
||||
Y = MsY
|
||||
Change = True
|
||||
EndIf
|
||||
|
||||
If KeyDown(32) Then
|
||||
If MsX < X+8 Then X = MsX-8
|
||||
If MsY < Y+8 Then Y = MsY-8
|
||||
|
||||
W = MsX - X
|
||||
H = MsY - Y
|
||||
If W < 16 Then W = 16
|
||||
If H < 16 Then H = 16
|
||||
|
||||
Change = True
|
||||
EndIf
|
||||
|
||||
; Update Status
|
||||
If KeyHit(2) Then SpriteFillFlags = SpriteFillFlags Xor TSPRITE_BORDER_LFT:Change = True
|
||||
If KeyHit(3) Then SpriteFillFlags = SpriteFillFlags Xor TSPRITE_BORDER_RGT:Change = True
|
||||
If KeyHit(4) Then SpriteFillFlags = SpriteFillFlags Xor TSPRITE_BORDER_TOP:Change = True
|
||||
If KeyHit(5) Then SpriteFillFlags = SpriteFillFlags Xor TSPRITE_BORDER_BTM:Change = True
|
||||
If KeyHit(16) Then SpriteFillFlags = SpriteFillFlags Xor TSPRITE_BORDEROUT_LFT:Change = True
|
||||
If KeyHit(17) Then SpriteFillFlags = SpriteFillFlags Xor TSPRITE_BORDEROUT_RGT:Change = True
|
||||
If KeyHit(18) Then SpriteFillFlags = SpriteFillFlags Xor TSPRITE_BORDEROUT_TOP:Change = True
|
||||
If KeyHit(19) Then SpriteFillFlags = SpriteFillFlags Xor TSPRITE_BORDEROUT_BTM:Change = True
|
||||
If KeyHit(6) Then SpriteFillFlags = SpriteFillFlags Xor TSPRITE_ROUNDDOWN_HORZ:Change = True
|
||||
If KeyHit(7) Then SpriteFillFlags = SpriteFillFlags Xor TSPRITE_ROUNDDOWN_VERT:Change = True
|
||||
If KeyHit(20) Then SpriteFillFlags = SpriteFillFlags Xor TSPRITE_PARTIAL_HORZ:Change = True
|
||||
If KeyHit(21) Then SpriteFillFlags = SpriteFillFlags Xor TSPRITE_PARTIAL_VERT:Change = True
|
||||
If KeyHit(34) Then SpriteFillFlags = SpriteFillFlags Xor TSPRITE_PARTIALCUT_HORZ:Change = True
|
||||
If KeyHit(35) Then SpriteFillFlags = SpriteFillFlags Xor TSPRITE_PARTIALCUT_VERT:Change = True
|
||||
If KeyHit(47) Then SpriteFillFlags = SpriteFillFlags Xor TSPRITE_FORCESINGLE_HORZ:Change = True
|
||||
If KeyHit(48) Then SpriteFillFlags = SpriteFillFlags Xor TSPRITE_FORCESINGLE_VERT:Change = True
|
||||
|
||||
; Show Boundaries
|
||||
If KeyDown(57)
|
||||
Color 255,128,0
|
||||
Rect X, Y, W, H, 0
|
||||
Color 0,128,255
|
||||
Rect X+8,Y+8,W-16,H-16,0
|
||||
Color 255,255,255
|
||||
EndIf
|
||||
|
||||
; Draw Some shit
|
||||
Viewport X+8, Y+8, W-16, H-16
|
||||
Local GUIText$ = "This simple technique allows you to fast transparent backgrounds." + Chr(10)
|
||||
GUIText = GUIText + "I saw this being used in Unity3D to reduce drawcalls made and " + Chr(10)
|
||||
GUIText = GUIText + "thought it would be a good idea to enhance it in a prototype " + Chr(10)
|
||||
GUIText = GUIText + "before i reimplement it using new features." + Chr(10) + Chr(10)
|
||||
GUIText = GUIText + "Maybe this is already used in Draw3D or will be integrated now." + Chr(10)
|
||||
GUIText = GUIText + "Doesn't matter to me, have fun with this piece of code!" + Chr(10)
|
||||
AdvText(X+8, Y+8, GUIText)
|
||||
Viewport 0, 0, GraphicsWidth(), GraphicsHeight()
|
||||
|
||||
; Draw Status
|
||||
If KeyDown(59) Then
|
||||
Local HelpText$ = "Key Function Status" + Chr(10)
|
||||
HelpText = HelpText + "-------------------------------" + Chr(10)
|
||||
HelpText = HelpText + "LMB Move Camera: " + RSet(Int(eCameraPitch*10)/10.0, 8) + ", " + RSet(Int(eCameraYaw*10)/10.0, 8) + Chr(10)
|
||||
HelpText = HelpText + "RMB Zoom Camera: " + RSet(Int(eCameraZoom*10)/10.0, 8) + Chr(10)
|
||||
HelpText = HelpText + "Spc Show Boundaries" + Chr(10)
|
||||
HelpText = HelpText + "A Set Position" + Chr(10)
|
||||
HelpText = HelpText + "D Set Size" + Chr(10)
|
||||
HelpText = HelpText + "S Show Wireframe" + Chr(10)
|
||||
HelpText = HelpText + "1 Border-Lft: "
|
||||
If SpriteFillFlags And TSPRITE_BORDER_LFT Then HelpText = HelpText + "|f00FF00On|f-1-1-1" + Chr(10) Else HelpText = HelpText + "|fFF0000Off|f-1-1-1" + Chr(10)
|
||||
HelpText = HelpText + "2 Border-Rgt: "
|
||||
If SpriteFillFlags And TSPRITE_BORDER_RGT Then HelpText = HelpText + "|f00FF00On|f-1-1-1" + Chr(10) Else HelpText = HelpText + "|fFF0000Off|f-1-1-1" + Chr(10)
|
||||
HelpText = HelpText + "3 Border-Top: "
|
||||
If SpriteFillFlags And TSPRITE_BORDER_TOP Then HelpText = HelpText + "|f00FF00On|f-1-1-1" + Chr(10) Else HelpText = HelpText + "|fFF0000Off|f-1-1-1" + Chr(10)
|
||||
HelpText = HelpText + "4 Border-Btm: "
|
||||
If SpriteFillFlags And TSPRITE_BORDER_BTM Then HelpText = HelpText + "|f00FF00On|f-1-1-1" + Chr(10) Else HelpText = HelpText + "|fFF0000Off|f-1-1-1" + Chr(10)
|
||||
HelpText = HelpText + "Q BorderOut-Lft: "
|
||||
If SpriteFillFlags And TSPRITE_BORDEROUT_LFT Then HelpText = HelpText + "|f00FF00On|f-1-1-1" + Chr(10) Else HelpText = HelpText + "|fFF0000Off|f-1-1-1" + Chr(10)
|
||||
HelpText = HelpText + "W BorderOut-Rgt: "
|
||||
If SpriteFillFlags And TSPRITE_BORDEROUT_RGT Then HelpText = HelpText + "|f00FF00On|f-1-1-1" + Chr(10) Else HelpText = HelpText + "|fFF0000Off|f-1-1-1" + Chr(10)
|
||||
HelpText = HelpText + "E BorderOut-Top: "
|
||||
If SpriteFillFlags And TSPRITE_BORDEROUT_TOP Then HelpText = HelpText + "|f00FF00On|f-1-1-1" + Chr(10) Else HelpText = HelpText + "|fFF0000Off|f-1-1-1" + Chr(10)
|
||||
HelpText = HelpText + "R BorderOut-Btm: "
|
||||
If SpriteFillFlags And TSPRITE_BORDEROUT_BTM Then HelpText = HelpText + "|f00FF00On|f-1-1-1" + Chr(10) Else HelpText = HelpText + "|fFF0000Off|f-1-1-1" + Chr(10)
|
||||
HelpText = HelpText + "5 RoundDown-Horz: "
|
||||
If SpriteFillFlags And TSPRITE_ROUNDDOWN_HORZ Then HelpText = HelpText + "|f00FF00On|f-1-1-1" + Chr(10) Else HelpText = HelpText + "|fFF0000Off|f-1-1-1" + Chr(10)
|
||||
HelpText = HelpText + "6 RoundDown-Vert: "
|
||||
If SpriteFillFlags And TSPRITE_ROUNDDOWN_VERT Then HelpText = HelpText + "|f00FF00On|f-1-1-1" + Chr(10) Else HelpText = HelpText + "|fFF0000Off|f-1-1-1" + Chr(10)
|
||||
HelpText = HelpText + "T Partial-Horz: "
|
||||
If SpriteFillFlags And TSPRITE_PARTIAL_HORZ Then HelpText = HelpText + "|f00FF00On|f-1-1-1" + Chr(10) Else HelpText = HelpText + "|fFF0000Off|f-1-1-1" + Chr(10)
|
||||
HelpText = HelpText + "Z Partial-Vert: "
|
||||
If SpriteFillFlags And TSPRITE_PARTIAL_VERT Then HelpText = HelpText + "|f00FF00On|f-1-1-1" + Chr(10) Else HelpText = HelpText + "|fFF0000Off|f-1-1-1" + Chr(10)
|
||||
HelpText = HelpText + "G PartialCut-Horz: "
|
||||
If SpriteFillFlags And TSPRITE_PARTIALCUT_HORZ Then HelpText = HelpText + "|f00FF00On|f-1-1-1" + Chr(10) Else HelpText = HelpText + "|fFF0000Off|f-1-1-1" + Chr(10)
|
||||
HelpText = HelpText + "H PartialCut-Vert: "
|
||||
If SpriteFillFlags And TSPRITE_PARTIALCUT_VERT Then HelpText = HelpText + "|f00FF00On|f-1-1-1" + Chr(10) Else HelpText = HelpText + "|fFF0000Off|f-1-1-1" + Chr(10)
|
||||
HelpText = HelpText + "V ForceSingle-Horz: "
|
||||
If SpriteFillFlags And TSPRITE_FORCESINGLE_HORZ Then HelpText = HelpText + "|f00FF00On|f-1-1-1" + Chr(10) Else HelpText = HelpText + "|fFF0000Off|f-1-1-1" + Chr(10)
|
||||
HelpText = HelpText + "B ForceSingle-Vert: "
|
||||
If SpriteFillFlags And TSPRITE_FORCESINGLE_VERT Then HelpText = HelpText + "|f00FF00On|f-1-1-1" + Chr(10) Else HelpText = HelpText + "|fFF0000Off|f-1-1-1" + Chr(10)
|
||||
|
||||
AdvText(10, 0, HelpText)
|
||||
Else
|
||||
Text 0, 0, "F1 to show Help"
|
||||
EndIf
|
||||
|
||||
WaitTimer FPSTimer:Flip 0
|
||||
Wend
|
||||
;~IDEal Editor Parameters:
|
||||
;~C#Blitz3D
|
||||
@@ -0,0 +1,9 @@
|
||||
TiledSprite
|
||||
=======================
|
||||
|
||||
Blitz3D didn't have a UI solution that worked well. There was Draw3D (& Draw3D2) which claimed to solve it, but in turn caused more issues than I had before it. Mainly the stupid Z-Ordering in Draw3D was annoying, as it didn't solve anything except add more data into RAM and VRAM. And it didn't work well for many things, such as skinned windows with stretched or repeating background, etc.
|
||||
This library adds some neat little functions that allow you to create a "Tiled Sprite". It does that by cutting up the original texture using new vertices instead of adding more textures to memory or using a fancy shader.
|
||||
|
||||
License
|
||||
=======
|
||||
TiledSprite by Michael Fabian Dirks is licensed under the Creative Commons Attribution-ShareAlike 4.0 International License. To view a copy of this license, visit http://creativecommons.org/licenses/by-sa/4.0/.
|
||||
@@ -0,0 +1,537 @@
|
||||
;--------------------------------------------
|
||||
; Constants
|
||||
;--------------------------------------------
|
||||
Const TSPRITE_BORDER_LFT% = 1 ; Enable border on the left side.
|
||||
Const TSPRITE_BORDER_RGT% = 2 ; Enable border on the right side.
|
||||
Const TSPRITE_BORDER_TOP% = 4 ; Enable border on the top side.
|
||||
Const TSPRITE_BORDER_BTM% = 8 ; Enable border on the bottom side.
|
||||
Const TSPRITE_BORDEROUT_LFT% = 16 ; Push the border outside the boundaries on the left side.
|
||||
Const TSPRITE_BORDEROUT_RGT% = 32 ; Push the border outside the boundaries on the right side.
|
||||
Const TSPRITE_BORDEROUT_TOP% = 64 ; Push the border outside the boundaries on the top side.
|
||||
Const TSPRITE_BORDEROUT_BTM% = 128 ; Push the border outside the boundaries on the bottom side.
|
||||
Const TSPRITE_ROUNDDOWN_HORZ% = 256 ; Round down instead of up horizontally (Disabled by TSPRITE_PARTIAL_HORZ).
|
||||
Const TSPRITE_ROUNDDOWN_VERT% = 512 ; Round down instead of up vertically (Disabled by TSPRITE_PARTIAL_VERT).
|
||||
Const TSPRITE_PARTIAL_HORZ% = 1024 ; Allow Partial scaling (last-element) instead of scaling all elements horizontally.
|
||||
Const TSPRITE_PARTIAL_VERT% = 2048 ; Allow Partial scaling (last-element) instead of scaling all elements vertically.
|
||||
Const TSPRITE_PARTIALCUT_HORZ% = 4096 ; Changes the mode of the Partial modifier to cutting, so that it doesn't scale horizontally.
|
||||
Const TSPRITE_PARTIALCUT_VERT% = 8192 ; Changes the mode of the Partial modifier to cutting, so that it doesn't scale vertically.
|
||||
Const TSPRITE_FORCESINGLE_HORZ% = 16384 ; Force to use only a single tile horizontally (for gradients and such).
|
||||
Const TSPRITE_FORCESINGLE_VERT% = 32768 ; Force to use only a single tile vertically (for gradients and such).
|
||||
|
||||
Const HINT_LEFT% = 0
|
||||
Const HINT_TOP% = 1
|
||||
Const HINT_RIGHT% = 2
|
||||
Const HINT_BOTTOM% = 3
|
||||
|
||||
;--------------------------------------------
|
||||
; Types
|
||||
;--------------------------------------------
|
||||
Type TSprite
|
||||
; Texture (Use this for animations).
|
||||
Field mTexture% = 0
|
||||
Field mTextureBrush% = 0
|
||||
|
||||
; Mesh & Surface
|
||||
Field mMesh% = 0
|
||||
Field mSurface% = 0
|
||||
Field mShareSurface% = False
|
||||
|
||||
; Padding & Border
|
||||
Field mPadding%[4]
|
||||
Field mBorder%[4]
|
||||
|
||||
; Outer & Inner Coordinates in Pixels
|
||||
Field mOuter%[4] ; Relative to mTexture in Pixels
|
||||
Field mInner%[4] ; Relative to mTexture in Pixels
|
||||
; Outer & Inner UV Coordinates in Texels
|
||||
Field mOuterUV#[4] ;Relative to mTexture in Texels
|
||||
Field mInnerUV#[4] ;Relative to mTexture in Texels
|
||||
|
||||
; Scale
|
||||
Field mScale#[2]
|
||||
Field mBorderScale#[2]
|
||||
End Type
|
||||
|
||||
Type TSpriteBuilder
|
||||
; Texture
|
||||
Field Width% = 0
|
||||
Field Height% = 0
|
||||
Field TextureBrush% = 0
|
||||
|
||||
; Mesh & Surface
|
||||
Field Mesh% = 0
|
||||
Field MeshSurface% = 0
|
||||
Field SharedSurface% = False
|
||||
|
||||
; Padding
|
||||
Field PaddingLeft% = 0
|
||||
Field PaddingTop% = 0
|
||||
Field PaddingRight% = 0
|
||||
Field PaddingBottom% = 0
|
||||
|
||||
; Border
|
||||
Field BorderLeft% = 0
|
||||
Field BorderTop% = 0
|
||||
Field BorderRight% = 0
|
||||
Field BorderBottom% = 0
|
||||
|
||||
; Scale
|
||||
Field ScaleX# = 1
|
||||
Field ScaleY# = 1
|
||||
Field BorderScaleX# = 1
|
||||
Field BorderScaleY# = 1
|
||||
|
||||
; Internal Flags
|
||||
Field OwnBrush% = True
|
||||
Field OwnMesh% = True
|
||||
Field OwnMeshSurface% = True
|
||||
End Type
|
||||
|
||||
;--------------------------------------------
|
||||
; Functions
|
||||
;--------------------------------------------
|
||||
; TSpriteBuilder
|
||||
Function TSpriteBuilder_Create.TSpriteBuilder()
|
||||
Local SpriteBuilder.TSpriteBuilder = New TSpriteBuilder
|
||||
SpriteBuilder\TextureBrush = CreateBrush(1.0, 1.0, 1.0)
|
||||
SpriteBuilder\Mesh = CreateMesh()
|
||||
SpriteBuilder\MeshSurface = CreateSurface(SpriteBuilder\Mesh)
|
||||
Return SpriteBuilder
|
||||
End Function
|
||||
|
||||
Function TSpriteBuilder_Padding.TSpriteBuilder(SpriteBuilder.TSpriteBuilder, PaddingLeft%, PaddingTop%, PaddingRight%, PaddingBottom%)
|
||||
If SpriteBuilder <> Null Then
|
||||
SpriteBuilder\PaddingLeft = PaddingLeft
|
||||
SpriteBuilder\PaddingTop = PaddingTop
|
||||
SpriteBuilder\PaddingRight = PaddingRight
|
||||
SpriteBuilder\PaddingBottom = PaddingBottom
|
||||
Return SpriteBuilder
|
||||
EndIf
|
||||
Return Null
|
||||
End Function
|
||||
|
||||
Function TSpriteBuilder_Scale.TSpriteBuilder(SpriteBuilder.TSpriteBuilder, ScaleX#, ScaleY#)
|
||||
If SpriteBuilder <> Null Then
|
||||
SpriteBuilder\ScaleX = ScaleX
|
||||
SpriteBuilder\ScaleY = ScaleY
|
||||
Return SpriteBuilder
|
||||
EndIf
|
||||
Return Null
|
||||
End Function
|
||||
|
||||
Function TSpriteBuilder_Border.TSpriteBuilder(SpriteBuilder.TSpriteBuilder, BorderLeft%, BorderTop%, BorderRight%, BorderBottom%)
|
||||
If SpriteBuilder <> Null Then
|
||||
SpriteBuilder\BorderLeft = BorderLeft
|
||||
SpriteBuilder\BorderTop = BorderTop
|
||||
SpriteBuilder\BorderRight = BorderRight
|
||||
SpriteBuilder\BorderBottom = BorderBottom
|
||||
Return SpriteBuilder
|
||||
EndIf
|
||||
Return Null
|
||||
End Function
|
||||
|
||||
Function TSpriteBuilder_BorderScale.TSpriteBuilder(SpriteBuilder.TSpriteBuilder, BorderScaleX#, BorderScaleY#)
|
||||
If SpriteBuilder <> Null Then
|
||||
SpriteBuilder\BorderScaleX = BorderScaleX
|
||||
SpriteBuilder\BorderScaleY = BorderScaleY
|
||||
Return SpriteBuilder
|
||||
EndIf
|
||||
Return Null
|
||||
End Function
|
||||
|
||||
Function TSpriteBuilder_Brush.TSpriteBuilder(SpriteBuilder.TSpriteBuilder, Brush%)
|
||||
If SpriteBuilder <> Null And Brush <> 0 Then
|
||||
If SpriteBuilder\OwnBrush = True And SpriteBuilder\TextureBrush <> 0 Then FreeBrush SpriteBuilder\TextureBrush
|
||||
SpriteBuilder\TextureBrush = Brush
|
||||
If SpriteBuilder\MeshSurface <> 0 Then PaintSurface SpriteBuilder\MeshSurface, SpriteBuilder\TextureBrush
|
||||
|
||||
Return SpriteBuilder
|
||||
EndIf
|
||||
Return Null
|
||||
End Function
|
||||
|
||||
Function TSpriteBuilder_BrushSize.TSpriteBuilder(SpriteBuilder.TSpriteBuilder, BrushW%, BrushH%)
|
||||
If SpriteBuilder <> Null And SpriteBuilder\TextureBrush <> 0 Then
|
||||
SpriteBuilder\Width = BrushW
|
||||
SpriteBuilder\Height = BrushH
|
||||
|
||||
Return SpriteBuilder
|
||||
EndIf
|
||||
Return Null
|
||||
End Function
|
||||
|
||||
Function TSpriteBuilder_BrushAlpha.TSpriteBuilder(SpriteBuilder.TSpriteBuilder, Alpha#)
|
||||
If SpriteBuilder <> Null And SpriteBuilder\TextureBrush <> 0 Then
|
||||
BrushAlpha SpriteBuilder\TextureBrush, Alpha
|
||||
Return SpriteBuilder
|
||||
EndIf
|
||||
Return Null
|
||||
End Function
|
||||
|
||||
Function TSpriteBuilder_BrushBlend.TSpriteBuilder(SpriteBuilder.TSpriteBuilder, Blend%)
|
||||
If SpriteBuilder <> Null And SpriteBuilder\TextureBrush <> 0 Then
|
||||
BrushBlend SpriteBuilder\TextureBrush, Blend
|
||||
Return SpriteBuilder
|
||||
EndIf
|
||||
Return Null
|
||||
End Function
|
||||
|
||||
Function TSpriteBuilder_BrushColor.TSpriteBuilder(SpriteBuilder.TSpriteBuilder, Red#, Green#, Blue#)
|
||||
If SpriteBuilder <> Null And SpriteBuilder\TextureBrush <> 0 Then
|
||||
BrushColor SpriteBuilder\TextureBrush, Red, Green, Blue
|
||||
Return SpriteBuilder
|
||||
EndIf
|
||||
Return Null
|
||||
End Function
|
||||
|
||||
Function TSpriteBuilder_BrushFX.TSpriteBuilder(SpriteBuilder.TSpriteBuilder, FX%)
|
||||
If SpriteBuilder <> Null And SpriteBuilder\TextureBrush <> 0 Then
|
||||
BrushFX SpriteBuilder\TextureBrush, FX
|
||||
Return SpriteBuilder
|
||||
EndIf
|
||||
Return Null
|
||||
End Function
|
||||
|
||||
Function TSpriteBuilder_BrushShininess.TSpriteBuilder(SpriteBuilder.TSpriteBuilder, Shininess#)
|
||||
If SpriteBuilder <> Null And SpriteBuilder\TextureBrush <> 0 Then
|
||||
BrushShininess SpriteBuilder\TextureBrush, Shininess
|
||||
Return SpriteBuilder
|
||||
EndIf
|
||||
Return Null
|
||||
End Function
|
||||
|
||||
Function TSpriteBuilder_BrushTexture.TSpriteBuilder(SpriteBuilder.TSpriteBuilder, Texture%, Frame% = 0, Index% = 0)
|
||||
If SpriteBuilder <> Null And Texture <> 0 Then
|
||||
BrushTexture SpriteBuilder\TextureBrush, Texture, Frame, Index
|
||||
SpriteBuilder\Width = TextureWidth(Texture)
|
||||
SpriteBuilder\Height = TextureHeight(Texture)
|
||||
|
||||
Return SpriteBuilder
|
||||
EndIf
|
||||
Return Null
|
||||
End Function
|
||||
|
||||
Function TSpriteBuilder_Mesh.TSpriteBuilder(SpriteBuilder.TSpriteBuilder, Mesh% = 0, MeshSurface% = 0, ShareSurface = False)
|
||||
If SpriteBuilder <> Null Then
|
||||
If SpriteBuilder\OwnMesh Then FreeEntity SpriteBuilder\Mesh
|
||||
If Mesh = 0 Then
|
||||
SpriteBuilder\Mesh = CreateMesh()
|
||||
SpriteBuilder\OwnMesh = True
|
||||
Else
|
||||
SpriteBuilder\Mesh = Mesh
|
||||
SpriteBuilder\OwnMesh = False
|
||||
EndIf
|
||||
TSpriteBuilder_MeshSurface(SpriteBuilder, MeshSurface, ShareSurface)
|
||||
|
||||
Return SpriteBuilder
|
||||
EndIf
|
||||
Return Null
|
||||
End Function
|
||||
|
||||
Function TSpriteBuilder_MeshSurface.TSpriteBuilder(SpriteBuilder.TSpriteBuilder, MeshSurface% = 0, ShareSurface% = False)
|
||||
If SpriteBuilder <> Null And SpriteBuilder\Mesh <> 0 Then
|
||||
If MeshSurface = 0 Then
|
||||
If SpriteBuilder\OwnMeshSurface = False Then SpriteBuilder\MeshSurface = CreateSurface(SpriteBuilder\Mesh, SpriteBuilder\TextureBrush)
|
||||
SpriteBuilder\OwnMeshSurface = True
|
||||
ElseIf MeshSurface <> 0 Then
|
||||
SpriteBuilder\MeshSurface = MeshSurface
|
||||
SpriteBuilder\OwnMeshSurface = False
|
||||
EndIf
|
||||
If SpriteBuilder\TextureBrush <> 0 Then PaintSurface SpriteBuilder\MeshSurface, SpriteBuilder\TextureBrush
|
||||
SpriteBuilder\SharedSurface = ShareSurface
|
||||
|
||||
Return SpriteBuilder
|
||||
EndIf
|
||||
Return Null
|
||||
End Function
|
||||
|
||||
Function TSpriteBuilder_Reset.TSpriteBuilder(SpriteBuilder.TSpriteBuilder)
|
||||
If SpriteBuilder <> Null Then
|
||||
If SpriteBuilder\OwnMesh Then FreeEntity SpriteBuilder\Mesh
|
||||
If SpriteBuilder\OwnBrush Then FreeBrush SpriteBuilder\TextureBrush
|
||||
|
||||
Delete SpriteBuilder
|
||||
Return New TSpriteBuilder
|
||||
EndIf
|
||||
End Function
|
||||
|
||||
; TSprite
|
||||
Function TSprite_Create.TSprite(SpriteBuilder.TSpriteBuilder)
|
||||
If SpriteBuilder <> Null And SpriteBuilder\Mesh <> 0 And SpriteBuilder\MeshSurface <> 0 And SpriteBuilder\TextureBrush <> 0 Then
|
||||
Local Sprite.TSprite = New TSprite
|
||||
Local Width# = SpriteBuilder\Width
|
||||
Local Height# = SpriteBuilder\Height
|
||||
|
||||
; Mesh & Surface.
|
||||
Sprite\mMesh = SpriteBuilder\Mesh
|
||||
Sprite\mSurface = SpriteBuilder\MeshSurface
|
||||
Sprite\mShareSurface = SpriteBuilder\SharedSurface
|
||||
|
||||
; Texture.
|
||||
Sprite\mTextureBrush = SpriteBuilder\TextureBrush
|
||||
|
||||
; Padding.
|
||||
Sprite\mPadding[0] = SpriteBuilder\PaddingLeft
|
||||
Sprite\mPadding[1] = SpriteBuilder\PaddingTop
|
||||
Sprite\mPadding[2] = SpriteBuilder\PaddingRight
|
||||
Sprite\mPadding[3] = SpriteBuilder\PaddingBottom
|
||||
|
||||
; Border.
|
||||
Sprite\mBorder[0] = SpriteBuilder\BorderLeft
|
||||
Sprite\mBorder[1] = SpriteBuilder\BorderTop
|
||||
Sprite\mBorder[2] = SpriteBuilder\BorderRight
|
||||
Sprite\mBorder[3] = SpriteBuilder\BorderBottom
|
||||
|
||||
; Scale.
|
||||
Sprite\mScale[0] = SpriteBuilder\ScaleX
|
||||
Sprite\mScale[1] = SpriteBuilder\ScaleY
|
||||
Sprite\mBorderScale[0] = SpriteBuilder\BorderScaleX
|
||||
Sprite\mBorderScale[1] = SpriteBuilder\BorderScaleY
|
||||
|
||||
; Calculate Outer Limits.
|
||||
Sprite\mOuter[0] = Sprite\mPadding[0]
|
||||
Sprite\mOuter[1] = Sprite\mPadding[1]
|
||||
Sprite\mOuter[2] = Width - Sprite\mPadding[2]
|
||||
Sprite\mOuter[3] = Height - Sprite\mPadding[3]
|
||||
|
||||
; Calculate Inner Limits.
|
||||
Sprite\mInner[0] = Sprite\mOuter[0] + Sprite\mBorder[0]
|
||||
Sprite\mInner[1] = Sprite\mOuter[1] + Sprite\mBorder[1]
|
||||
Sprite\mInner[2] = Sprite\mOuter[2] - Sprite\mBorder[2]
|
||||
Sprite\mInner[3] = Sprite\mOuter[3] - Sprite\mBorder[3]
|
||||
|
||||
; Convert Outer Limits to valid UV coordinates.
|
||||
Sprite\mOuterUV[0] = Sprite\mOuter[0] / Width
|
||||
Sprite\mOuterUV[1] = Sprite\mOuter[1] / Height
|
||||
Sprite\mOuterUV[2] = Sprite\mOuter[2] / Width
|
||||
Sprite\mOuterUV[3] = Sprite\mOuter[3] / Height
|
||||
|
||||
; Convert Inner Limits to valid UV coordinates.
|
||||
Sprite\mInnerUV[0] = Sprite\mInner[0] / Width
|
||||
Sprite\mInnerUV[1] = Sprite\mInner[1] / Height
|
||||
Sprite\mInnerUV[2] = Sprite\mInner[2] / Width
|
||||
Sprite\mInnerUV[3] = Sprite\mInner[3] / Height
|
||||
|
||||
Return Sprite
|
||||
EndIf
|
||||
Return Null
|
||||
End Function
|
||||
|
||||
Function TSprite_Fill(Sprite.TSprite, X#, Y#, Width#, Height#, Z#=0, Modes%=0)
|
||||
Local TileX%, TileXPos#, TileXPosE#, TileWidth#, TileHMult#, TileCountH#, TileCountH2, TempHMult#, TileUVLeft#, TileUVRight#
|
||||
Local TileY%, TileYPos#, TileYPosE#, TileHeight#, TileVMult#, TileCountV#, TileCountV2, TempVMult#, TileUVTop#, TileUVBottom#
|
||||
|
||||
If Sprite <> Null And Sprite\mSurface <> 0 And Width > 0 And Height > 0 Then
|
||||
If Sprite\mShareSurface = False Then ClearSurface(Sprite\mSurface)
|
||||
|
||||
; Translate Mode into easily used variables.
|
||||
Local BorderLft = ((Modes And TSPRITE_BORDER_LFT) > 0)
|
||||
Local BorderRgt = ((Modes And TSPRITE_BORDER_RGT) > 0)
|
||||
Local BorderTop = ((Modes And TSPRITE_BORDER_TOP) > 0)
|
||||
Local BorderBtm = ((Modes And TSPRITE_BORDER_BTM) > 0)
|
||||
Local BorderOutLft = (-1 + ((Modes And TSPRITE_BORDEROUT_LFT) > 0))
|
||||
Local BorderOutRgt = (-1 + ((Modes And TSPRITE_BORDEROUT_RGT) > 0))
|
||||
Local BorderOutTop = (-1 + ((Modes And TSPRITE_BORDEROUT_TOP) > 0))
|
||||
Local BorderOutBtm = (-1 + ((Modes And TSPRITE_BORDEROUT_BTM) > 0))
|
||||
Local RoundDownH = ((Modes And TSPRITE_ROUNDDOWN_HORZ) > 0)
|
||||
Local RoundDownV = ((Modes And TSPRITE_ROUNDDOWN_VERT) > 0)
|
||||
Local PartialH = ((Modes And TSPRITE_PARTIAL_HORZ) > 0)
|
||||
Local PartialV = ((Modes And TSPRITE_PARTIAL_VERT) > 0)
|
||||
Local PartialCutH = ((Modes And TSPRITE_PARTIALCUT_HORZ) > 0)
|
||||
Local PartialCutV = ((Modes And TSPRITE_PARTIALCUT_VERT) > 0)
|
||||
Local ForceSingleH = ((Modes And TSPRITE_FORCESINGLE_HORZ) > 0)
|
||||
Local ForceSingleV = ((Modes And TSPRITE_FORCESINGLE_VERT) > 0)
|
||||
|
||||
; Calculate scaled sizes.
|
||||
Local SpriteBorder#[4]
|
||||
SpriteBorder[0] = (Sprite\mBorder[0] * Sprite\mBorderScale[0]) * BorderLft
|
||||
SpriteBorder[2] = (Sprite\mBorder[2] * Sprite\mBorderScale[0]) * BorderRgt
|
||||
SpriteBorder[1] = (Sprite\mBorder[1] * Sprite\mBorderScale[0]) * BorderTop
|
||||
SpriteBorder[3] = (Sprite\mBorder[3] * Sprite\mBorderScale[0]) * BorderBtm
|
||||
Local SpriteSize#[2]
|
||||
SpriteSize[0] = (Sprite\mInner[2]-Sprite\mInner[0])*Sprite\mScale[0]
|
||||
SpriteSize[1] = (Sprite\mInner[3]-Sprite\mInner[1])*Sprite\mScale[1]
|
||||
|
||||
; Calculate real values.
|
||||
Local RealWidth# = Width + (SpriteBorder[0] * BorderOutLft) + (SpriteBorder[2] * BorderOutRgt)
|
||||
Local RealHeight# = Height + (SpriteBorder[1] * BorderOutTop) + (SpriteBorder[3] * BorderOutBtm)
|
||||
|
||||
; Recalculate scaled border if we are below minimum size.
|
||||
Local BorderScale#[4], BorderMaximum#[2], SizeScale#[2]
|
||||
BorderMaximum[0] = ((SpriteBorder[0] * -BorderOutLft) + (SpriteBorder[2] * -BorderOutRgt))
|
||||
BorderMaximum[1] = ((SpriteBorder[1] * -BorderOutTop) + (SpriteBorder[3] * -BorderOutBtm))
|
||||
If Width < BorderMaximum[0] Then
|
||||
SizeScale[0] = (Width / BorderMaximum[0])
|
||||
SpriteBorder[0] = SpriteBorder[0] * SizeScale[0]
|
||||
SpriteBorder[2] = SpriteBorder[2] * SizeScale[0]
|
||||
RealWidth = 0
|
||||
EndIf
|
||||
If Height < BorderMaximum[1] Then
|
||||
SizeScale[1] = (Height / BorderMaximum[1])
|
||||
SpriteBorder[1] = SpriteBorder[1] * SizeScale[1]
|
||||
SpriteBorder[3] = SpriteBorder[3] * SizeScale[1]
|
||||
RealHeight = 0
|
||||
EndIf
|
||||
|
||||
; Calculate Position
|
||||
Local RealX# = X - (SpriteBorder[0] * BorderOutLft)
|
||||
Local RealY# = -(Y - (SpriteBorder[1] * BorderOutTop))
|
||||
|
||||
; Calculate tiles.
|
||||
If ForceSingleH = 0 Then
|
||||
If RealWidth > 0 Then TileCountH = RealWidth / SpriteSize[0] Else TileCountH = 0
|
||||
Else
|
||||
TileCountH = 1
|
||||
EndIf
|
||||
If ForceSingleV = 0 Then
|
||||
If RealHeight > 0 Then TileCountV = RealHeight / SpriteSize[1] Else TileCountV = 0
|
||||
Else
|
||||
TileCountV = 1
|
||||
EndIf
|
||||
If PartialH = 1 Or RoundDownH = 0 Then TileCountH2 = Ceil(TileCountH) Else TileCountH2 = Floor(TileCountH)
|
||||
If PartialV = 1 Or RoundDownV = 0 Then TileCountV2 = Ceil(TileCountV) Else TileCountV2 = Floor(TileCountV)
|
||||
If PartialH = 1 Then TileWidth = (RealWidth / TileCountH) Else TileWidth = (RealWidth / TileCountH2)
|
||||
If PartialV = 1 Then TileHeight = (RealHeight / TileCountV) Else TileHeight = (RealHeight / TileCountV2)
|
||||
If (TileCountH2 < 0) Then TileCountH2 = 0 Else TileCountH2 = TileCountH2 - 1
|
||||
If (TileCountV2 < 0) Then TileCountV2 = 0 Else TileCountV2 = TileCountV2 - 1
|
||||
|
||||
; Calculate Partial scale
|
||||
If PartialH = 1 Then TileHMult = TileCountH - TileCountH2
|
||||
If PartialV = 1 Then TileVMult = TileCountV - TileCountV2
|
||||
|
||||
; Draw Corners
|
||||
If SpriteBorder[1] > 0 Then
|
||||
If (BorderTop And BorderLft And SpriteBorder[0] > 0) Then TSprite_CreateQuad(Sprite\mSurface, RealX - SpriteBorder[0], RealX, RealY + SpriteBorder[1], RealY, 0, 0, Sprite\mOuterUV[0], Sprite\mInnerUV[0], Sprite\mOuterUV[1], Sprite\mInnerUV[1])
|
||||
If (BorderTop And BorderRgt And SpriteBorder[2] > 0) Then TSprite_CreateQuad(Sprite\mSurface, RealX + RealWidth, RealX + RealWidth + SpriteBorder[2], RealY + SpriteBorder[1], RealY, Z, Z, Sprite\mInnerUV[2], Sprite\mOuterUV[2], Sprite\mOuterUV[1], Sprite\mInnerUV[1])
|
||||
EndIf
|
||||
If SpriteBorder[3] > 0 Then
|
||||
If (BorderBtm And BorderLft And SpriteBorder[0] > 0) Then TSprite_CreateQuad(Sprite\mSurface, RealX - SpriteBorder[0], RealX, RealY - RealHeight, RealY - RealHeight - SpriteBorder[3], Z, Z, Sprite\mOuterUV[0], Sprite\mInnerUV[0], Sprite\mInnerUV[3], Sprite\mOuterUV[3])
|
||||
If (BorderBtm And BorderRgt And SpriteBorder[2] > 0) Then TSprite_CreateQuad(Sprite\mSurface, RealX + RealWidth, RealX + RealWidth + SpriteBorder[2], RealY - RealHeight, RealY - RealHeight - SpriteBorder[1], Z, Z, Sprite\mInnerUV[2], Sprite\mOuterUV[2], Sprite\mInnerUV[3], Sprite\mOuterUV[3])
|
||||
EndIf
|
||||
|
||||
For TileX% = 0 To TileCountH2
|
||||
; Horizontal coordinates and UV.
|
||||
TileXPos = RealX + (TileX * TileWidth)
|
||||
TileXPosE = TileXPos + TileWidth
|
||||
TileUVLeft = Sprite\mInnerUV[0]
|
||||
TileUVRight = Sprite\mInnerUV[2]
|
||||
|
||||
; Support for partial horizontal tiles.
|
||||
If PartialH And TileX = TileCountH2 Then
|
||||
TileXPosE = TileXPos + (TileWidth * TileHMult)
|
||||
If PartialCutH Then TileUVRight = (TileUVLeft * (1-TileHMult)) + (TileUVRight * TileHMult)
|
||||
EndIf
|
||||
|
||||
For TileY% = 0 To TileCountV2
|
||||
; Vertical coordinates and UV.
|
||||
TileYPos = RealY - (TileY * TileHeight)
|
||||
TileYPosE = TileYPos - TileHeight
|
||||
TileUVTop = Sprite\mInnerUV[1]
|
||||
TileUVBottom = Sprite\mInnerUV[3]
|
||||
|
||||
; Support for partial vertical tiles.
|
||||
If PartialV And TileY = TileCountV2 Then
|
||||
TileYPosE = TileYPos - (TileHeight * TileVMult)
|
||||
If PartialCutV Then TileUVBottom = (TileUVTop * (1-TileVMult)) + (TileUVBottom * TileVMult)
|
||||
EndIf
|
||||
|
||||
; Tiles
|
||||
TSprite_CreateQuad(Sprite\mSurface, TileXPos, TileXPosE, TileYPos, TileYPosE, Z, Z, TileUVLeft, TileUVRight, TileUVTop, TileUVBottom)
|
||||
|
||||
Next
|
||||
|
||||
; Horizontal Border
|
||||
If (BorderTop) Then TSprite_CreateQuad(Sprite\mSurface, TileXPos, TileXPosE, RealY + SpriteBorder[1], RealY, Z, Z, TileUVLeft, TileUVRight, Sprite\mOuterUV[1], Sprite\mInnerUV[1])
|
||||
If (BorderBtm) Then TSprite_CreateQuad(Sprite\mSurface, TileXPos, TileXPosE, RealY - RealHeight, RealY - RealHeight - SpriteBorder[3], Z, Z, TileUVLeft, TileUVRight, Sprite\mInnerUV[3], Sprite\mOuterUV[3])
|
||||
Next
|
||||
|
||||
For TileY% = 0 To TileCountV2
|
||||
; Vertical coordinates and UV.
|
||||
TileYPos = RealY - (TileY * TileHeight)
|
||||
TileYPosE = TileYPos - TileHeight
|
||||
TileUVTop = Sprite\mInnerUV[1]
|
||||
TileUVBottom = Sprite\mInnerUV[3]
|
||||
|
||||
; Support for partial vertical tiles.
|
||||
If PartialV And TileY = TileCountV2 Then
|
||||
TileYPosE = TileYPos - (TileHeight * TileVMult)
|
||||
If PartialCutV Then TileUVBottom = (TileUVTop * (1-TileVMult)) + (TileUVBottom * TileVMult)
|
||||
EndIf
|
||||
|
||||
; Vertical Border
|
||||
If (BorderLft) Then TSprite_CreateQuad(Sprite\mSurface, RealX - SpriteBorder[0], RealX, TileYPos, TileYPosE, Z, Z, Sprite\mOuterUV[0], Sprite\mInnerUV[0], TileUVTop, TileUVBottom)
|
||||
If (BorderRgt) Then TSprite_CreateQuad(Sprite\mSurface, RealX + RealWidth, RealX + RealWidth + SpriteBorder[2], TileYPos, TileYPosE, Z, Z, Sprite\mInnerUV[2], Sprite\mOuterUV[2], TileUVTop, TileUVBottom)
|
||||
Next
|
||||
EndIf
|
||||
End Function
|
||||
|
||||
Function TSprite_CreateQuad(Surface%, X0#, X1#, Y0#, Y1#, Z0#, Z1#, U0# = 0, U1# = 0, V0# = 0, V1# = 0, W0# = 0, W1# = 0, TurnOrder% = 0, ShareVertices% = True)
|
||||
Local TrisOut% = 0
|
||||
|
||||
Local vTL, vBL, vTR, vBR
|
||||
vTL = AddVertex(Surface, X0, Y0, Z0, U0, V0, W0)
|
||||
vTR = AddVertex(Surface, X1, Y0, (Z0+Z1)/2, U1, V0, (W0+W1)/2)
|
||||
vBL = AddVertex(Surface, X0, Y1, (Z0+Z1)/2, U0, V1, (W0+W1)/2)
|
||||
vBR = AddVertex(Surface, X1, Y1, Z1, U1, V1, W1)
|
||||
|
||||
If ShareVertices Then
|
||||
If (TurnOrder) Then
|
||||
TrisOut = TrisOut + AddTriangle(Surface, vBL, vTL, vTR) Shl 16
|
||||
TrisOut = TrisOut + AddTriangle(Surface, vBL, vTR, vBR)
|
||||
Else
|
||||
TrisOut = TrisOut + AddTriangle(Surface, vTL, vTR, vBR) Shl 16
|
||||
TrisOut = TrisOut + AddTriangle(Surface, vTL, vBR, vBL)
|
||||
EndIf
|
||||
Else
|
||||
If TurnOrder Then
|
||||
Local vTR2, vBL2
|
||||
vTR2 = AddVertex(Surface, X1, Y0, (Z0+Z1)/2, U1, V0, (W0+W1)/2)
|
||||
vBL2 = AddVertex(Surface, X0, Y1, (Z0+Z1)/2, U0, V1, (W0+W1)/2)
|
||||
|
||||
TrisOut = TrisOut + AddTriangle(Surface, vBL, vTL, vTR) Shl 16
|
||||
TrisOut = TrisOut + AddTriangle(Surface, vBL2, vTR2, vBR)
|
||||
Else
|
||||
Local vTL2, vBR2
|
||||
vTL2 = AddVertex(Surface, X0, Y0, Z0, U0, V0, W0)
|
||||
vBR2 = AddVertex(Surface, X1, Y1, Z1, U1, V1, W1)
|
||||
|
||||
TrisOut = TrisOut + AddTriangle(Surface, vTL, vTR, vBR) Shl 16
|
||||
TrisOut = TrisOut + AddTriangle(Surface, vTL2, vBR2, vBL)
|
||||
EndIf
|
||||
EndIf
|
||||
Return TrisOut
|
||||
End Function
|
||||
|
||||
Function TSprite_CreateQuadEx(Surface%, X0#, X1#, Y0#, Y1#, Z0#, Z1#, U0# = 0, U1# = 0, V0# = 0, V1# = 0, W0# = 0, W1# = 0, ShareVertices% = True)
|
||||
Local vTL, vTR, vCC, vBL, vBR
|
||||
vTL = AddVertex(Surface, X0, Y0, Z0, U0, V0, W0)
|
||||
vTR = AddVertex(Surface, X1, Y0, (Z0+Z1)/2, U1, V0, (W0+W1)/2)
|
||||
vCC = AddVertex(Surface, (X0+X1)/2, (Y0+Y1)/2, (Z0+Z1)/2, (U0+U1)/2, (V0+V1)/2, (W0+W1)/2)
|
||||
vBL = AddVertex(Surface, X0, Y1, (Z0+Z1)/2, U0, V1, (W0+W1)/2)
|
||||
vBR = AddVertex(Surface, X1, Y1, Z1, U1, V1, W1)
|
||||
|
||||
If ShareVertices Then
|
||||
AddTriangle(Surface, vTL, vTR, vCC)
|
||||
AddTriangle(Surface, vBL, vTL, vCC)
|
||||
AddTriangle(Surface, vTR, vBR, vCC)
|
||||
AddTriangle(Surface, vBL, vBR, vCC)
|
||||
Else
|
||||
Local vTL2, vTR2, vBL2, vBR2, vCC2, vCC3, vCC4
|
||||
vTL2 = AddVertex(Surface, X0, Y0, Z0, U0, V0, W0)
|
||||
vTR2 = AddVertex(Surface, X1, Y0, (Z0+Z1)/2, U1, V0, (W0+W1)/2)
|
||||
vBL2 = AddVertex(Surface, X0, Y1, (Z0+Z1)/2, U0, V1, (W0+W1)/2)
|
||||
vBR2 = AddVertex(Surface, X1, Y1, Z1, U1, V1, W1)
|
||||
vCC2 = AddVertex(Surface, (X0+X1)/2, (Y0+Y1)/2, (Z0+Z1)/2, (U0+U1)/2, (V0+V1)/2, (W0+W1)/2)
|
||||
vCC3 = AddVertex(Surface, (X0+X1)/2, (Y0+Y1)/2, (Z0+Z1)/2, (U0+U1)/2, (V0+V1)/2, (W0+W1)/2)
|
||||
vCC4 = AddVertex(Surface, (X0+X1)/2, (Y0+Y1)/2, (Z0+Z1)/2, (U0+U1)/2, (V0+V1)/2, (W0+W1)/2)
|
||||
|
||||
AddTriangle(Surface, vTL, vTR, vCC)
|
||||
AddTriangle(Surface, vBL, vTL2, vCC2)
|
||||
AddTriangle(Surface, vTR2, vBR, vCC3)
|
||||
AddTriangle(Surface, vBL2, vBR2, vCC4)
|
||||
EndIf
|
||||
End Function
|
||||
;~IDEal Editor Parameters:
|
||||
;~F#1C#36#5D#65#70#79#84#8D#98#A2#AA#B2#BA#C2#CA#D5#E6#F7#102#1D3
|
||||
;~F#1F8
|
||||
;~C#Blitz3D
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 336 KiB |
Reference in New Issue
Block a user