Michael Fabian Dirks
227 lines
6.1 KiB
BlitzBasic
227 lines
6.1 KiB
BlitzBasic
;[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 |