|
: [4 D/ s8 U9 ]/ H 我的专栏目录:
6 v, `# L( j, W
& H: P0 C( u3 K0 b* R: Z& N 简介:
* u* R- O1 W8 Z& r O# w' s 海洋这个要素在游戏里占比越来越多,开放世界的游戏要求角色能上天入地下水。目前游戏里做海洋的方法就那几种。(1)预烘焙法(2)Gerstner wave(3)FFT海洋。预烘焙法可以是实现烘焙好DisplacementMap或者是FFT的运算结果。Gerstner wave可以在GPU或者CPU上算。FFT的话就是拿海洋频率模型算出Displacement。 % H9 @4 J, } W* h1 M
【1】基础环境搭建
: i8 ]2 ^% v# O" y( I8 |2 b 在开始研究之前我们需要先搭建起我们的环境。我选择在ComputeShader种完成各种计算,然后在顶点着色器种直接Sample前面的ComputeShader的波形计算结果。不要把波形的计算塞到VertexShader里。把波形计算独立出来还有个好处就是我能把波形的结果储存起来拿给其它效果使用,比如制作浮力部分的时候我们就需要知道海面波形的信息,如果塞VertexShader里就拿不到这些信息了。
$ T* d$ t' Y7 A# r! x 搭建ComputeShader的方法前面我的文章有提到,这里我就直接贴代码了。使用的引擎版本是4.21.0,如果引擎更新了新版本可能代码有一点区别。FFT部分我会给出4.22的代码。 7 u% f4 F/ i: S
如果不是在Unreal中实现或者不想做这么复杂,可以直接跳过这部分。 + l7 t" K/ n! n- d9 M8 [$ c& v
( I5 G- X0 H* y! v# }
5 } c" Z) ]+ S. D6 H SDHOcean.build.cs
: K" x; V1 C) V# {9 [+ Q // Copyright 1998-2018 Epic Games, Inc. All Rights Reserved.; P8 l7 i& [) R4 @' r* B$ _: U
; C. |& [. G! X- V# @. Q+ k using UnrealBuildTool;
# G( M; ]2 n2 s
+ b: i, J& A! I" ]0 o# n2 y# N public class SDHOcean : ModuleRules
. w0 x3 ]& J/ O* n {
: o# ^& c2 U' I; C. ]0 y6 y _ public SDHOcean(ReadOnlyTargetRules Target) : base(Target)+ k$ O6 H: U6 h/ e
{7 K* K* w2 p" \" Z
PCHUsage = ModuleRules.PCHUsageMode.UseExplicitOrSharedPCHs;0 g u# U$ ~/ t2 ?' W
8 W: \$ `3 u- p b: L PublicIncludePaths.AddRange(
+ _! ]. k" [/ V) g) l1 Y new string[] {
" O" J9 W, k) p# C, _" Z# g // ... add public include paths required here ...
/ \; J0 V' X5 b* K1 O v }
7 w* c7 X6 @) T: M5 ~ );! @2 E+ y! S( U f! y" l `4 J- ?
/ p' C9 J) \% U2 [0 r. I) \
' a! S) H2 X( J5 e
PrivateIncludePaths.AddRange(7 }' G9 U4 n t* h
new string[] {
) K& ^: _# o/ H, |) E2 T+ a // ... add other private include paths required here ...: \$ ?6 f" R2 U1 z7 ^
}
4 X% X9 F2 _- |2 { );
5 \; x' b! {( [ I6 {- Z/ g
- f# P7 `3 w: V1 o& E7 [4 a3 a" V1 M1 R3 R$ Z& y# P+ e/ s
PublicDependencyModuleNames.AddRange(5 x, H6 ^& j8 Y' T
new string[]( p8 m+ D7 ?; q/ g
{
4 n7 }" j! Z- A" P5 x8 ] "Core",& \" h' }, I# z% @- m/ o
"CoreUObject",! V. B! D7 f+ X! z# l! o
"Engine",7 c. y: h W8 T) v% ?% g5 ^
"RHI",7 j2 _8 M% q2 x2 `. w/ X; e0 {
"Engine",, ~4 a4 K* ?6 @& M! e3 M1 K/ ]. t
"RenderCore",* ]% M( q! U) L5 h q7 C2 d! M8 v
"ShaderCore",4 J/ a& k9 d- i! z% ~& z3 F7 [4 _
// ... add other public dependencies that you statically link with here ...
W/ J0 W4 k/ i* n) L% Y$ M: Z& s }
d: o; r" X+ B4 s' x2 h% P2 f* Q );$ U+ _ h' S- H8 }# }! d7 I( t
. I/ u$ w. i$ f
9 r3 F% z: H% t PrivateDependencyModuleNames.AddRange(
: \5 q% u4 f$ s( B' g8 A new string[]+ M' P1 T* [& g q/ |/ A1 p
{; [2 v$ m( |+ y& @
"CoreUObject",
* ~, H& N/ P. `1 \9 g/ a "Engine",
- g9 R1 f# M1 W" o "Slate",
V% ~& i, K5 y( y' O "SlateCore",
. q% l8 ?5 T0 t+ d) } "UnrealEd",1 y0 {, `2 u& J1 W
"Projects",( i [8 _( c5 G4 A' G
// ... add private dependencies that you statically link with here ...! [) E' ?; Z4 I3 J* U" i
}, x5 W; R P) b
);
, t, w/ p. }5 S# }* G0 b4 T
, Y7 R" B. ^, s; t3 O
$ t8 ^" d w. V+ y DynamicallyLoadedModuleNames.AddRange(
, S6 @; ?" S8 v new string[]# h# ]! J$ G3 n8 p1 E
{
9 U4 J8 y9 v; h+ X: y% s // ... add any modules that your module loads dynamically here ...: x+ Z! E% b3 v0 H1 _) O7 z
}5 p- ]6 V5 |3 U. k! r& N
);) q, c7 @4 A' D7 B/ u6 w, W
}
' i1 S3 q/ r# e }
, N$ e& n3 D/ r' H5 @% m SDHOcean.h
/ O! ?" w1 `- R: V5 ~5 h- X9 `1 s // Copyright 1998-2018 Epic Games, Inc. All Rights Reserved.1 H" U2 }: d& ?+ Z
! T' N8 K* o' E1 I* s6 ?
#pragma once
, C- Y6 G' h( P0 ]! Q/ C5 j n% s5 }0 X( G
#include "CoreMinimal.h"; @. C0 X) ^. t! P
#include "Modules/ModuleManager.h"" b8 ?$ Y8 y7 T% a+ Q. ~9 l0 Y; u
#include "Interfaces/IPluginManager.h"
6 Q& q+ @, [( U #include "Misc/Paths.h"
7 p* _" B; o7 o! e9 Y #include "Modules/ModuleManager.h"# D) B; o2 L( ^/ O7 e# U' |1 W
* V8 o: v7 i2 T0 `& e
class FSDHOceanModule : public IModuleInterface
* a% Z" R0 ~1 |( n" i: r {1 i* g9 J, |& W
public:% U0 T1 c6 S0 e/ `$ Y
( A" u$ ?4 ^4 u2 j ] f3 j$ n0 O /** IModuleInterface implementation */$ n' a0 x5 E& p' n5 D/ k, w
virtual void StartupModule() override;, N% ]" @1 ^$ o& q: Q
virtual void ShutdownModule() override;
9 u1 |* `# `( f5 ~# O. r };
; t8 ]7 r7 |4 G. M" o1 D SDHOcean.cpp 7 f" {3 _( h3 e: j* y
// Copyright 1998-2018 Epic Games, Inc. All Rights Reserved., [( @7 E2 e. a3 i0 p/ l8 Y
1 }" F: \' P& j( y- D6 ^
#include "SDHOcean.h"
- S$ q8 \! M( ` z% f+ t5 F8 b: [% E2 K* ~5 [- O
#define LOCTEXT_NAMESPACE "FSDHOceanModule"& N4 ~3 W5 j% m* ?, h
5 ]2 b! O: H# G) A; V void FSDHOceanModule::StartupModule(). [$ k) {4 @8 Z- {# ~
{
: {2 T! H0 \" l- F' a; S. Y b // This code will execute after your module is loaded into memory; the exact timing is specified in the .uplugin file per-module
& r% I0 `7 Y- Z2 g T FString PluginShaderDir = FPaths::Combine(IPluginManager::Get().FindPlugin(TEXT("SDHOcean"))->GetBaseDir(), TEXT("Shaders"));+ y9 ]5 O p7 v6 V
AddShaderSourceDirectoryMapping(TEXT("/Plugin/SDHOcean"), PluginShaderDir);
# Y$ Q$ `" l. I, z* l3 P }& r) P6 ^+ ]8 }+ L
( X6 n8 ^: n" M; @6 f4 ^
void FSDHOceanModule::ShutdownModule()
: n" W; P8 G. G {
0 ]) K1 h( B# F6 k5 ]8 Y$ _3 x // This function may be called during shutdown to clean up your module. For modules that support dynamic reloading,) r Q l; \2 e _: ^1 h5 T1 t8 Y
// we call this function before unloading the module.
. `0 q" I( S1 E2 h) R }
5 e) N, g8 `, E; Z' {- B
# ?6 G% E' @/ y# e& N2 s #undef LOCTEXT_NAMESPACE. }- A i# a p- y, q9 ]/ j
3 ]& I; n- W2 l( O7 X IMPLEMENT_MODULE(FSDHOceanModule, SDHOcean) 4 n8 h5 b6 E/ a9 b% E2 z* s
Ocean.h $ F0 t3 [7 k2 u4 A! W" S
#pragma once
. t! f% `5 V3 O9 Y. m( X
7 C6 B$ g+ V, e7 p" Q4 ^ #include "CoreMinimal.h"
$ j/ g, H; Z% |) P* U #include "UObject/ObjectMacros.h"5 V" M- a/ E! V# J9 W$ }8 I$ S0 X
#include "Runtime/Engine/Classes/Components/ActorComponent.h"
% i2 F* c/ V$ F$ f; z/ n #include "Engine/Classes/Engine/TextureRenderTarget2D.h"
: F) M7 T1 T2 ?3 p #include "Ocean.generated.h"3 `1 P8 ]2 g; F" \+ m, J- G
6 W0 r0 M7 Q& \1 b9 p! C2 t \
typedef TRefCountPtr<class FRHITexture2D> FTexture2DRHIRef;
0 r# D/ Y- R0 G* E typedef TRefCountPtr<class FRHIUnorderedAccessView> FUnorderedAccessViewRHIRef;
* t* {6 }5 T0 |2 ?. m7 @ typedef TRefCountPtr<class FRHIStructuredBuffer> FStructuredBufferRHIRef;7 ]: e: g( m, d o. d, u# I
class FRHITexture;9 O1 n1 e8 g7 R+ b
class FRHIUnorderedAccessView;7 b7 o8 O! F$ q/ U/ o4 u9 s' O
class FRHICommandListImmediate;% Q. x, E% Q' _" x4 Z' o& G
( B+ O8 v8 H. ?9 }/ u, p
USTRUCT(BlueprintType)
2 @6 I$ f3 Q) c8 f struct FOceanBasicStructData_GameThread! M% o' e1 q8 j/ ]4 A
{1 N8 B# W$ q5 y5 Z
GENERATED_USTRUCT_BODY()
- f1 M1 W" ~! [1 f% D( e& N" O( v8 `6 P# n/ w) K
FOceanBasicStructData_GameThread(){}0 l3 |& b3 C1 x: a2 l4 J+ q( r
5 r2 b( m2 i! Y, _1 L4 ?6 b0 M# y# r- ~
UPROPERTY(BlueprintReadWrite, EditAnywhere)
/ `9 Y( a T" `( a: r FVector4 OceanTime_GameThread;
* \6 }4 |1 O6 o! L; f; G };
8 m& V2 k- k; m; v& U. j$ j7 ~1 a) x* F0 Q3 L
UCLASS(hidecategories = (Object, LOD, Physics, Collision), editinlinenew, meta = (BlueprintSpawnableComponent), ClassGroup = Rendering, DisplayName = "OceanRenderComp")
4 u1 O* X3 v2 o& U# f. _+ g- U class SDHOCEAN_API UOceanRenderComponent : public UActorComponent
# h+ }6 L; b* f2 M {) ?7 m Y; n4 z( ~& e& C
GENERATED_BODY()' {6 P5 ?8 t- z- p$ c
- p# O) U4 X E! v0 _( J! s) `3 c
public:
% o4 @4 L1 M. k' q7 h% ]; m% Y
% A) m9 S/ ]2 m/ \( W UOceanRenderComponent(const FObjectInitializer& ObjectInitializer);/ @3 m$ ~; P* W
//~ Begin UActorComponent Interface.' z9 y! I* |7 f9 L
virtual void OnRegister() override;
/ U, _9 C. `3 F# q* V# c virtual void TickComponent(float DeltaTime, enum ELevelTick TickType, FActorComponentTickFunction *ThisTickFunction) override;
; C" t2 Y% n- e+ U$ Z( N% m/ Z# a
8 U& O. |% o6 o* B UPROPERTY(BlueprintReadWrite, EditAnywhere, Category = "OceanComponent")
: C8 r5 f9 |" K# y; Y- q+ o9 }% z3 v UTextureRenderTarget2D* OutputRenderTarget2D;
1 F4 W% T7 p8 i4 d% i2 G! C3 d G
//UniformData for Ocean render. v( p- K$ m" P. j
UPROPERTY(BlueprintReadWrite, EditAnywhere, Category = "OceanComponent")8 ?7 D$ G# _8 V. D( R$ s
FOceanBasicStructData_GameThread OceanUniformDataBuffer;
$ x9 s: |# f( _# _) m! q. Y n( k& Y+ E, M+ c! {5 b! F* a
int32 TargetSize;
6 B9 @! B) x# d7 S) ? ETextureRenderTargetFormat RenderTargetFormat;
* H& J }/ Z% {2 E% @0 P
9 C' R5 o( l" i0 h private:8 p( a5 x: e7 @, k2 B1 e; E
$ x. H4 Y& H& G' a9 a, c8 V //Render ocean render thread
( G; J# t" r- ^- q5 w void OceanCalculating_GameThread();5 O4 s$ H, j7 l0 I5 F
void OceanCalculating_RenderThread) ~2 i! E! T) a+ y/ C8 z
(4 s$ V) g! I! H+ P2 X; v
FRHICommandListImmediate& RHICmdList,$ q1 P8 M5 x1 `7 N! {& U; z+ v+ x2 [
ERHIFeatureLevel::Type FeatureLevel,
$ K/ |5 b q( v7 ?% n6 _4 W FRHITexture* OutputRenderTarget,8 Z, N0 V3 J: h1 M5 ]/ q9 I6 s
int32 SurfaceSize,
C! N; S9 i0 s8 d# H const FOceanBasicStructData_GameThread& OceanUniformData
2 O0 e7 @& A ~& |' q0 K );
4 d* M) z* G- B4 Y; D, I' e! N# z/ l. E4 n2 ^9 e' S
FTexture2DRHIRef OutputTexture;- N% U9 G; n' t/ {7 _( m
FUnorderedAccessViewRHIRef OutputTextureUAV;4 U4 O* c0 K! `! l4 b+ T. U
};2 B, F% Q$ r6 ~, J z/ D
) j7 \: L0 @; P: v4 V Ocean.cpp
& o3 v i9 v7 A2 D+ B #include "SDHOcean/Public/Ocean.h"* W0 W! @5 H# c- T( @
" P+ L0 H4 _" n2 x+ M6 F
#include "ShaderCore/Public/GlobalShader.h"
: e9 | p3 d6 }+ i/ y" L) o, ~! P0 M. w9 N( k: c0 T$ L
#include "Classes/Engine/World.h"* S* b9 w. W! k: L
#include "Public/GlobalShader.h"
% s: ? n; Q% H" k #include "Public/PipelineStateCache.h". ]' d" U# }6 q3 O3 `3 g& Y' N
#include "Public/RHIStaticStates.h"
4 ?# ?- Q* h. v' U- d/ Q( [ #include "Public/SceneUtils.h"
8 Z+ g* e$ k5 p( D #include "Public/SceneInterface.h"
2 r1 l. F! E' A( a #include "Public/ShaderParameterUtils.h"
2 y- v5 D# w; {: a$ l% C #include "Public/Logging/MessageLog.h"
8 v9 y: {% u* a6 c/ B #include "Public/Internationalization/Internationalization.h"
4 h1 v/ ~ K1 ? #include "Public/StaticBoundShaderState.h"
1 S- g) U' u$ J0 Z #include "RHI/Public/RHICommandList.h"
7 F' x& o5 e% k- I& Z7 D' V1 _ #include "RHI/Public/RHIResources.h"* R- y; {2 [( c# a' n
#include "Engine/Classes/Kismet/KismetRenderingLibrary.h"8 z. a& q: p" H; p1 e) G2 y: D
#include "Runtime/Engine/Classes/Kismet/GameplayStatics.h"$ h C$ N0 k0 k2 t" \2 O
2 E( s- e9 h# A3 ?5 g! y/ j4 ?
#define LOCTEXT_NAMESPACE "SDHOcean"
3 ]& `+ b/ {+ u& j' c& ]( u' W" s f* @: b& n3 m" j
BEGIN_UNIFORM_BUFFER_STRUCT(FOceanBasicStructData, ) ^1 X$ Y3 L. x2 X9 Z2 \' w
UNIFORM_MEMBER(FVector4, OceanTime)* Z* y% ?0 K( {. G) s
END_UNIFORM_BUFFER_STRUCT(FOceanBasicStructData)# P; V3 \% Y7 u) i5 R Y
# U) m! S: D0 \$ |/ T% y# G
IMPLEMENT_UNIFORM_BUFFER_STRUCT(FOceanBasicStructData, TEXT("OceanBasicStructData"))( \1 ?- O( d2 L6 `- r4 P! I8 M
9 t7 `3 j; v3 ~8 G' T. {+ B class FOceeanCSShader : public FGlobalShader+ d. |$ J: p) T& \9 |
{. ^# _+ `6 }3 O6 M4 G
/ q( a {7 G) T+ U6 G
DECLARE_SHADER_TYPE(FOceeanCSShader, Global)& U7 [% f% v* d6 e& B- p
0 E5 v. }. m! X' f$ F1 `" u b
public:4 V% x2 O. i" n' Y' w' X+ x
/ y) q8 a1 x- Y2 h( @" k+ M( ` FOceeanCSShader() {}/ A3 c" `7 o ]7 {
FOceeanCSShader(const ShaderMetaType::CompiledShaderInitializerType& Initializer)* ^; F% k9 H. q% P6 Z
: FGlobalShader(Initializer)* `$ ]; |; O' `) W* ?" ~
{/ ?$ X# d1 c$ _3 g- p
//TODO Bind pramerter here
5 y4 \" m g4 ?/ F OutputBufferSurface.Bind(Initializer.ParameterMap, TEXT("OutputBufferSurface"));
/ @3 r6 c! W% h$ ~! G SurfaceClearColor.Bind(Initializer.ParameterMap, TEXT("SurfaceClearColor"));
7 A9 r1 ^+ ^ c$ y% \) r7 d$ P: e1 h } M' m2 G. m4 x+ v4 m( y9 E; U j
//----------------------------------------------------//
6 O+ R& j6 i% c) n6 C static bool ShouldCache(EShaderPlatform PlateForm)
' S- g1 [. Q$ W4 e1 |7 ?, w4 n {$ u P6 ?2 k U+ D
return IsFeatureLevelSupported(PlateForm, ERHIFeatureLevel::SM5);
/ ], N# D* c9 n. o0 O }2 ]4 n X; ?3 B/ E7 Q2 P% w) e
//----------------------------------------------------//2 K) Z/ `7 ?. y7 P
static bool ShouldCompilePermutation(const FGlobalShaderPermutationParameters& Parameters)
9 J& i0 }6 I" K v0 d {
R/ `% }9 L0 X E8 | return IsFeatureLevelSupported(Parameters.Platform, ERHIFeatureLevel::SM5);
) I2 E: a* a7 [: N- w0 D( g }
5 S4 y2 K1 r- q6 Y3 V' ~5 p* K //----------------------------------------------------//
9 ]5 e, ~9 f/ y" G5 ~! c: T* Z9 Z1 E static void ModifyCompilationEnvironment(const FGlobalShaderPermutationParameters& Parameters, FShaderCompilerEnvironment& OutEnvironment)7 a7 l$ P" R8 @9 g. m
{" a( y- n R+ u7 O" E2 P6 b; v
FGlobalShader::ModifyCompilationEnvironment(Parameters, OutEnvironment);/ E, H# {5 D- A; A
//Define micro here
$ _2 T' i1 o- j8 e# e$ I //OutEnvironment.SetDefine(TEXT("TEST_MICRO"), 1);8 r7 ?( Y+ K+ _! g0 p
}
}) S0 F; Y* f! p5 z& O* j/ f //----------------------------------------------------//
5 o: K8 L- W9 `$ _3 Q+ z7 t! X* u3 x; D
void SetSurface(FRHICommandList& RHICmdList,& _5 L- G) G' {* z$ x
FUnorderedAccessViewRHIRef& OutputUAV,. ?: Y5 r# q$ A% {8 X* E- X! K
const FLinearColor ClearColor! _. i1 D5 z, v
)3 X& r8 y( N; d
{
3 ^/ X4 S9 e' m5 H //set the UAV
* ^- [1 X- f. w6 U: F; \* Z+ v FComputeShaderRHIParamRef ComputeShaderRHI = GetComputeShader();
! W. U5 e/ ^# e7 Q7 f: i; N6 d2 d7 h if (OutputBufferSurface.IsBound())
8 q* Y- G5 c$ G$ s% o' W) m9 r RHICmdList.SetUAVParameter(ComputeShaderRHI, OutputBufferSurface.GetBaseIndex(), OutputUAV);
$ p. _3 G3 h; ^- K# E if (SurfaceClearColor.IsBound())
7 x4 h* j, R3 M$ R; C7 t; j; { //RHICmdList.SetShaderParameter(GetComputeShader(), SurfaceClearColor.GetBufferIndex(), SurfaceClearColor.GetBaseIndex(), SurfaceClearColor.GetNumBytes(), ClearColor);+ ^* e& {% H9 g1 f) n! i x
SetShaderValue(RHICmdList, GetComputeShader(), SurfaceClearColor, ClearColor);
( o7 F0 B3 f' c3 }% Y, ~ }
/ [8 ?+ V0 Y; ]) Q8 _: b. e
- F; D1 H; N* `4 E( N0 ~ void SetOceanUniformBuffer(FRHICommandList& RHICmdList, const FOceanBasicStructData_GameThread& OceanStructData): M3 W+ P: K( d$ }0 t8 Z1 r: ^5 s
{, M O1 G& a5 w& t9 b7 A/ c
FOceanBasicStructData UniformData;
& h+ {+ M; p* O; R5 f UniformData.OceanTime = OceanStructData.OceanTime_GameThread;
8 z9 ]/ g" _: L SetUniformBufferParameterImmediate(RHICmdList, GetComputeShader(), GetUniformBufferParameter<FOceanBasicStructData>(), UniformData);6 {/ s& r9 ?# ~+ y: H# R3 [3 F
}5 @2 u: I$ h7 c) l; v
R. [- `# w9 E/ { @' D5 p
void UnBindBuffers(FRHICommandList& RHICmdList)
! J, {0 _+ x0 W* f- Y- j/ G {
& s* m8 U; m, ]" A/ l8 N$ ` FComputeShaderRHIParamRef ComputeShaderRHI = GetComputeShader();
* S: a3 d) a; }# L9 s( p+ i0 J. p) z" Y" q3 S
if (OutputBufferSurface.IsBound())0 |, X2 W7 ~% w1 P$ H2 G# W
RHICmdList.SetUAVParameter(ComputeShaderRHI, OutputBufferSurface.GetBaseIndex(), FUnorderedAccessViewRHIRef());6 P4 B( u5 c% [- v: w/ C
}
& q# R$ a: h+ X8 X# a9 Z* K
7 A% o5 \/ b8 Y) h virtual bool Serialize(FArchive& Ar) override" P4 S& u. h- S+ P
{
* G8 O* _+ K6 Z% `& ]( B% ^ `& [! ~1 N$ K- c bool bShaderHasOutdatedParameters = FGlobalShader::Serialize(Ar);
2 Z$ I8 V. |# O/ e //Serrilize something here1 z: b2 g$ Z( z$ j7 e3 C
Ar << OutputBufferSurface << SurfaceClearColor;9 L6 e1 e5 C/ T! E! x/ J! D: l g
return bShaderHasOutdatedParameters;
% p; `' c' K2 n. `" T; C }
h) @4 Q$ D$ Z3 b" B6 }7 X. o$ y% u, k: x, s% i! y
private:' B! M" t; P& L$ \' a7 Z
& c; Z) g* O' |' i- O5 V9 P+ H FShaderResourceParameter OutputBufferSurface;
, M# H. H1 i r FShaderParameter SurfaceClearColor;
% I; Q O, e4 v0 X- b };
, B/ V6 e3 D% }2 y' x/ c; J, \* l/ n( b, O" u
IMPLEMENT_SHADER_TYPE(, FOceeanCSShader, TEXT("/Plugin/SDHOcean/Ocean.usf"), TEXT("OceanMainCS"), SF_Compute)" F+ ], o/ M2 x. k9 m- x: J
7 t8 S3 l/ N/ U& O5 J
void UOceanRenderComponent::OceanCalculating_RenderThread$ r6 Y! r, C' y% B0 j) |0 S
($ n( c" H) ^; H. ? `
FRHICommandListImmediate& RHICmdList,
2 F) u3 M5 f5 R6 E" i0 ? ERHIFeatureLevel::Type FeatureLevel,$ j% w* S: {" q/ ?. m# O
FRHITexture* OutputRenderTarget,/ A) G( @" A# u' R, |
int32 SurfaceSize,7 e u, N. x8 c2 D* |
const FOceanBasicStructData_GameThread& OceanUniformData
$ b V/ O& j' Y3 i9 Y0 o# X+ z+ ^ )
0 k4 X0 a# ^* [; ~ {- N9 \& N6 j# ], p6 q* G
check(IsInRenderingThread());' t( B; A* q' O ]
check(OutputRenderTarget);, h$ T' b, A/ c2 Z5 q
$ Z/ U- k0 H2 [ TShaderMapRef<FOceeanCSShader>OceanComputeShader(GetGlobalShaderMap(FeatureLevel));
7 j' c( ~* {3 A! t6 G9 B8 H3 w$ h RHICmdList.SetComputeShader(OceanComputeShader->GetComputeShader());
- V4 ^6 Y) R; P6 }; h# ]( Q
3 z! K3 S6 r+ S: O- N- s: _ if (OutputTexture.IsValid() == false)
2 O" X- E3 W# b3 ] {
0 B1 _' }/ ~6 P/ k! ~% T if (OutputTexture.IsValid())5 `, b# r$ `, d8 u" m* u
OutputTexture->Release(); S' O U- i! l" ~3 w
if (OutputTextureUAV.IsValid())
0 C9 |3 u% s9 i/ A' l OutputTextureUAV->Release();
2 P/ \/ w$ Q8 w+ |. o2 M' R+ Z6 \" q! {/ ^/ c" E
FRHIResourceCreateInfo CreateInfo;
, e3 T: ]4 ]% W. }3 Z5 n( ` K OutputTexture = RHICreateTexture2D(SurfaceSize, SurfaceSize, PF_FloatRGBA, 1, 1, TexCreate_ShaderResource | TexCreate_UAV, CreateInfo);- F L7 H& @) ?3 K' e
OutputTextureUAV = RHICreateUnorderedAccessView(OutputTexture);6 d0 H4 @+ I8 b
$ j0 D$ Q" a' i0 |- j }
9 u$ W! ^, |4 s9 P
6 F3 R. ]; y# a! R- @! r9 c1 W. b4 ? OceanComputeShader->SetSurface(RHICmdList, OutputTextureUAV, FLinearColor(1,1,1,1));1 B* Q# q0 D+ z' R
OceanComputeShader->SetOceanUniformBuffer(RHICmdList ,OceanUniformData);9 E6 s J! k5 Z
/ h. i) K: }4 m" t/ H( l0 o
DispatchComputeShader(RHICmdList, *OceanComputeShader, SurfaceSize / 32, SurfaceSize / 32, 1);
) m1 {' M! T/ @$ f4 m OceanComputeShader->UnBindBuffers(RHICmdList);4 M4 |+ D( t0 V$ ^! R% Q, e& V
# O: P# E# @' u9 e+ ~5 [" S$ g5 \ RHICmdList.CopyToResolveTarget(OutputTexture, OutputRenderTarget, FResolveParams());
. r$ r: p( H5 S* i; v' e) i7 { //FRHICopyTextureInfo copyinfo(SurfaceSize, SurfaceSize);8 z0 q+ A E5 d+ i4 w
//RHICmdList.CopyTexture(OutputTexture, OutputRenderTarget, copyinfo);
H+ T: }+ M' q6 { }
' C9 ]/ ?# H" Y& E9 P* O3 k- P( \8 O4 L+ w: Z
UOceanRenderComponent::UOceanRenderComponent(const FObjectInitializer& ObjectInitializer)5 z& U$ z3 q4 L6 ~2 e" E$ f% ^
:Super(ObjectInitializer)
1 ?; r# t& _3 n) S9 s C {
9 U5 E: v2 W" V6 `, F PrimaryComponentTick.bCanEverTick = true;4 }: U3 I2 c6 n) [9 e
bTickInEditor = true;
$ L Q/ j- v6 v5 n# b bAutoActivate = true;
0 T% X& r+ r3 J& E) t
/ ]" n! s, s1 ?( W: i2 x RenderTargetFormat = RTF_RGBA32f;
4 o- q$ r5 |9 ]; D7 E }
$ N! [: L" E. m& l8 k
& g! n, j! ^ M6 K4 S& H5 R void UOceanRenderComponent::OnRegister()! \ a% |3 `4 L% t4 }, g
{
/ g. z: H, Y3 M) f1 a: Z4 T4 V Super::OnRegister();2 w8 S1 F" u( p
}
5 g( |8 ?+ f4 ~( N
1 l. {6 n- b4 V7 I2 N' L1 w: s void UOceanRenderComponent::TickComponent(float DeltaTime, enum ELevelTick TickType, FActorComponentTickFunction *ThisTickFunction)0 u: Z* J* b" C0 ?# @3 V+ d
{- I' P8 x- t1 P! }, }8 k+ m6 J+ n
Super::TickComponent(DeltaTime, TickType, ThisTickFunction);; |. o2 p1 o, x, q7 ^: c5 l9 P
/ P0 J, F* T* a8 E. y& E: K, ?# ] //Tick render the ocean
* q# e }/ n. x3 Z OceanCalculating_GameThread();; p. k4 Z1 j* V/ h
}
" d$ u! ~" ?9 U/ u6 z) T7 k
0 j" d$ S! L9 Y$ o* a9 k; F) A void UOceanRenderComponent::OceanCalculating_GameThread()
/ |, P7 t) g! m: M/ O8 t- }, ]( L. s0 r$ w0 V {
+ m1 X# {3 J, I/ l, n& a! y, i$ V1 G UWorld* world = GetWorld();/ L0 }5 T" f' ?" n9 a5 c+ F
ERHIFeatureLevel::Type FeatureLevel = world->Scene->GetFeatureLevel();' i7 C8 H5 n h9 k
checkf(FeatureLevel == ERHIFeatureLevel::SM5, TEXT("Only surpport SM5"));
/ W. `+ A5 I) `: i
: K# g, F/ o1 Z: Q0 q/ e9 O7 H if (OutputRenderTarget2D == nullptr) return;. q0 l2 z m0 V
, q1 T" D* I' h( V) |
//Using front RT to render,back buffer store last frame imformation& q2 q2 \7 g; ]1 x- [( K7 M
UKismetRenderingLibrary::ClearRenderTarget2D(world, OutputRenderTarget2D);0 \. G; Y) a2 x% l" `9 _
6 _/ M5 X# I$ ? FTextureReferenceRHIRef OutputRenderTargetTextureRHI = OutputRenderTarget2D->TextureReference.TextureReferenceRHI;+ F1 [# H& Q ]" P$ c& R
/ m1 U& n) c! `0 A: }5 e+ @ checkf(OutputRenderTargetTextureRHI != nullptr, TEXT("Cant get render target %d texture"));# D/ |, S4 l6 V' H# a
! K/ t' i1 b3 k8 I- n7 ~6 J FRHITexture* RenderTargetTextureRef = OutputRenderTargetTextureRHI->GetTextureReference()->GetReferencedTexture();
7 C6 p' ^8 E- \$ R1 J TargetSize = OutputRenderTarget2D->SizeX;
& z% V' Z+ u! a+ l3 l
& I9 E7 i" Y0 @3 T/ D6 R X G# h //Update the uniform buffer1 d3 S! W; Z/ y/ C( ~4 n8 L9 E9 A
OceanUniformDataBuffer.OceanTime_GameThread.X = UGameplayStatics::GetRealTimeSeconds(GetWorld());
7 N, V2 q, D# u1 F
}: s: h/ B6 V, B! R, x9 R& y( \5 i ENQUEUE_RENDER_COMMAND(OceanRenderCommand)
6 h% {1 O! R; R* W6 F! F (
1 v- Z" k+ B7 h7 F' A/ `* O [FeatureLevel, RenderTargetTextureRef, this](FRHICommandListImmediate& RHICmdList)9 _+ n& H" E9 ^) S$ x, r
{& ^& B. y b, s+ k1 _
OceanCalculating_RenderThread
3 Y1 r3 Y3 u4 _ (/ a# F1 I3 I! V) f& u1 u
RHICmdList,
, D; k6 M" N7 C, T3 Z! g FeatureLevel,
: W% l2 t1 l1 |: ?, W( r% q RenderTargetTextureRef,: s( Y3 d, U U' _6 E
this->TargetSize,6 D" l7 z0 Z, m3 B; U( L( j
this->OceanUniformDataBuffer8 L' W) L7 x, Q% e$ C, b
);6 R$ p0 D6 e, y) I% e& H0 ^$ G5 B
}* U, r( d$ {$ t% Z: O
);- Y5 p4 D. ^3 |/ p0 p; D2 F' {; L% R
}- u C. ~5 Q) r& o
- b# Y8 B( m6 L. r/ ~
#undef LOCTEXT_NAMESPACE ( j5 Z S# ~7 M
Ocean.usf * Y6 O% `& {: c
#include "/Engine/Private/Common.ush"
9 R7 F" Y5 ~. E3 n
+ o! S- Y* q6 X! i0 l F( X" `* n RWTexture2D<float4> OutputBufferSurface;
8 B4 {" j0 a7 V `6 l c' A1 r float4 SurfaceClearColor;
w2 n# y, {3 \6 D( w3 ]: Z
$ c- d8 U7 I- f& u. l+ ] struct OceanUniform
: X2 X- _4 n% R0 _! w- Y- n: d9 o. p {
. p( P2 u; \2 S1 R& l! h! j2 f float Time;
/ M2 @, o4 ^. I1 l2 X0 D+ v% t1 i* x };, @- t0 ~4 z1 ]9 g# P) G9 N0 T! H
void InitOceanUniform(out OceanUniform uniformval)" k+ V8 ]3 U( y9 J7 T9 d; _% ~
{
: Z- U$ e! e$ r$ q' D Z, h" Z7 } uniformval.Time = OceanBasicStructData.OceanTime.x;1 e1 H0 [8 u9 X( s* N! G' O% t- n
}& ~% ?0 p6 C: B/ k$ u
' L$ r: U2 D& V [numthreads(32, 32, 1)]) `- E# A" o3 L2 ]/ [" b3 x
void OceanMainCS(uint3 ThreadId : SV_DispatchThreadID)
$ Q' W2 r% {' o/ Q( W6 r {
( ?7 [& c8 h) V5 K1 P4 W9 y //Set up some variables we are going to need
4 ?! L/ ]; C) a9 Q- M //The size of outputsurface and input surface is same
/ z6 L" H" }, I2 y& @ float sizeX, sizeY;
" i u f: x6 P OutputBufferSurface.GetDimensions(sizeX, sizeY);+ f. f D6 }8 f0 a, P8 P
9 h! D: x" q2 g2 ]( Y/ h: i1 |( @ OceanUniform OceanUniformVal;
3 r) T7 I) u& y+ k6 t) F; z InitOceanUniform(OceanUniformVal);. G* e* q p- Z
4 f' F3 ^1 s8 b% v$ i2 h float2 iResolution = float2(sizeX, sizeY);
# n3 J* b$ w$ l! f& ? float2 UV = (ThreadId.xy / iResolution.xy) * 50.0f;' }; Q) k1 u9 T
) v; G6 v. A9 L float4 Output = float4(1.0f, 1.0f, 1.0f, 1.0f);
0 |' N1 h! l5 T6 @$ E
1 I- z' @. v0 _$ c" P- Y Output.xyz = float3(sin(UV.x + OceanUniformVal.Time), 0, 0);
, A4 F; j! I: r8 [: _ \0 A" Z9 z) D
8 N N% Y) ~1 g! {9 m OutputBufferSurface[ThreadId.xy] = Output;/ \+ C2 S h' p+ g
}
( I X2 q( ]5 a* k G& d( H 我这里做了个UniformBuffer然后拿到系统的时间,把系统的时间变量塞到我的Compute shader中。
3 u) n3 `. O6 O: b0 J. S) ]
n" j2 [" ?7 h5 j2 B! c 直接把值采出来连到VertexPositionOffset上就可以把我们的ComputeShader的结果传到顶点着色器了。
& ^% Q7 [7 N: ? 【2】Gerstner Wave
: N6 V7 b O# m 在Gerstner Waves之前,先使用正玄波变形的方法模拟。对正玄波进行变形属于经验性的方法,把正弦波变形让它的形状更接近水浪。 . z3 U+ Y6 a1 Q7 e9 h$ K$ f
2 p, y/ S e% _: i, {: C) A! q) Q u
F(x)=2(\frac{sin(x) + 1}{2})^{k} " u" {5 \/ D% E* P! C. C# f- T
下面先来制作正玄波水面
- {. ~9 F8 m$ m
; Z1 Y& n3 n( d 于是乎我们可以得到如下效果 # T6 v' i# G: z2 Y" I1 M1 I2 w
% {8 {/ D2 c& z2 Q k4 y, Y% P
+ r6 C/ x* m9 f% D) f% ~6 p5 E( J 7 R% k% j( S6 f; Q- Y/ ~4 A. m0 {' G
有了基础的波形后,剩下就是让海面变化更丰富。想让海面变丰富那就是多叠几层波 # t7 v( F" T) J, `9 b( t7 M
3 R& N7 L! B, y5 m3 g 5 s2 X5 l8 i1 n0 R
3 B: Q; U8 s4 [- d Q5 d
Output.z = 0.5 * pow((sin(WaveLength * Speed + dot(direction, UV * 0.8) * WaveLength) + 1) / 2, 2.5f);
, X1 u! z% u% G( F6 z Output.z += 0.2 * pow((sin(WaveLength * Speed * 0.8f + dot(float2(0.8, 0.1), UV * 0.9) * WaveLength) + 1) / 2, 2.5f);
+ Y2 N* p' T0 F4 M- G Output.z += 0.15 * sin(WaveLength * Speed * 1.2f + dot(float2(-0.8, -0.1), UV) * WaveLength * 1.3f);
8 _7 l6 Y v4 l# E4 C3 h1 _: Z Output.z += 0.1 * sin(WaveLength * Speed * 1.2f + dot(float2(0.6, -0.5), UV) * WaveLength * 1.5f); A% }. c% W Y3 ]* Z* r) B- O7 \
Output.z += 0.1 * sin(WaveLength * Speed * 0.5f + dot(float2(0.5, -0.1), UV) * WaveLength * 1.5f);" p. W% d3 |4 U! U
- q3 Y9 N$ y8 b, t9 v% x# I4 p
Output.y = 0.5 * pow((cos(WaveLength * Speed + dot(direction, UV * 0.8) * WaveLength) + 1) / 2, 2.5f);
) Q- E+ G/ v1 `! r- c+ U Output.y += 0.2 * pow((cos(WaveLength * Speed * 0.8f + dot(float2(0.8, 0.1), UV * 0.9) * WaveLength) + 1) / 2, 2.5f);
1 H/ n7 B) ?2 B! Y Output.y += 0.15 * cos(WaveLength * Speed * 1.2f + dot(float2(-0.8, -0.1), UV) * WaveLength * 1.3f);
, i" B0 B/ A8 u- C Output.y += 0.1 * cos(WaveLength * Speed * 1.2f + dot(float2(0.6, -0.5), UV) * WaveLength * 1.5f);
( @; h" e3 d Q, O* I9 @( b Output.y += 0.1 * cos(WaveLength * Speed * 0.5f + dot(float2(0.5, -0.1), UV) * WaveLength * 1.5f);
) k$ H8 [) d, ~8 M% r/ c" M6 M9 T& @, n3 B
Output.z = 0.5 * pow((cos(WaveLength * Speed + dot(direction, UV * 0.8) * WaveLength) + 1) / 2, 2.5f);
0 G- P3 m" G% o6 ^: g$ G Output.z += 0.2 * pow((cos(WaveLength * Speed * 0.8f + dot(float2(0.8, 0.1), UV * 0.9) * WaveLength) + 1) / 2, 2.5f);: y9 r7 m5 G& X. n B+ e
Output.z += 0.15 * cos(WaveLength * Speed * 1.2f + dot(float2(-0.8, -0.1), UV) * WaveLength * 1.3f);3 k6 j X" @ j" l* Y4 }4 a
Output.z += 0.1 * cos(WaveLength * Speed * 1.2f + dot(float2(0.6, -0.5), UV) * WaveLength * 1.5f);' r' s; b* E6 ]# w& e
Output.z += 0.1 * cos(WaveLength * Speed * 0.5f + dot(float2(0.5, -0.1), UV) * WaveLength * 1.5f);
& ?0 k$ m# [) R$ l1 {& b7 T e5 K+ k* l3 g! j
OutputBufferSurface[ThreadId.xy] = Output;
/ i' } K: p# ?+ _ | 可以看到正玄波水面波浪比较平,无法模拟出水波的波峰陡峭的特点。因此我们需要使用新的模拟模型:Gerstner Wave。 - W5 u- \/ Z2 C, g
3 |# x3 n/ f" g3 e9 W9 `. J1 w" X
# Q* o% B% q* G" F * L6 k+ i* n" r" }7 U$ ~8 j: b
PositionOffset: 3 L5 @1 ?- A! j0 F% h! C; v
$ ^, \: P( | _3 A$ q6 | Normal:
7 B, a, W% m6 t! c& v/ C; z: L
C9 a* R5 q( @8 @/ `0 b Gerstner Wave是周期重力波欧拉方程的解, 其描述的是拥有无限深度且不可压缩的流体表面的波形 。
* e n8 X# Q0 } ( v* U8 N$ ]7 g- e" a- j" s/ c
3 C5 E) _" l' a; o' n9 c
6 R/ D9 o6 o5 h$ [ 代码如下: & C# B8 }! u" P' W/ Q" G
; p! R) ?, u7 v) z' j
想要更好的效果可以优化下参数和多叠几层波,反正Computeshader里算这种东西很快的啦。
4 w, {3 q7 c6 A) [! T 【3】FFT海面理论推导
5 L* r' P7 a- w4 [ FFT海面的核心思路是我们通过一系列测量得到真实海面的波的频率然后把这些频率通过FFT变换到时域然后计算出置换贴图。下面来公式推导 8 M; k/ o, T) j5 l! {, R
设波的高度为水平方向的位置和时间的关系 h(X,t) 。在水平方向上 X= (x,z) 根据Tessendorf J.2001的论文我们可以得到如下公式 " j5 M! W$ F! B5 r8 u |3 i, r
h(X,t)=\sum_{K}^{}{x}\tilde{h}(K,t)e^{iK\cdot X}
/ ]5 n0 z/ K# A f( i: @ 其中 K 代表波正在运动的二维水平方向, K = (k_{x}, K_{y}) 。
9 u' z" A \# `$ q2 K" _. |. I- ^# U$ f k_{x} = 2\pi/L_{x} , k_{y} = 2\pi m/L_{y} 。 3 j0 [! x# U$ V S9 D0 z/ X* f) _
n 是水平方向的Domain Resolution。 m 是竖直方向的Domain Resolution
( X- p; Y( v( J3 k- e) @/ y$ } 所以 K 的范围是: 9 b( T g% b/ h1 E9 k2 I7 q( p
K=(2\pi/L_{x},2\pi m/L_{y})
/ Q) Z" D/ B4 s4 n6 l7 \$ y* p The fft process generates the height field at discrete points 0 F5 }; i, |* v/ E9 Z+ k3 z4 t
X = (nL_{x}/N, mL_{z}/N)
1 `! V+ e# T0 M* O! I v
2 K$ ^4 V9 A* n 按照上面的公式可以渲染得到下面一张图: 8 ?: g+ H( T3 `$ v8 G( w4 Z
3 ^1 n: u" B' Y) e
(2)然后需要用高斯分布生成一个Phillips spectrum $ B* b; j, f0 d) w2 r
8 T( L4 l( B, f7 ? , [1 s& `$ q/ z1 P/ @- b
会得到如下效果 0 Q+ ~8 E' p5 _# ?2 A: O
& w7 |! D9 U1 m# E
把它和gauss分布结合后得到如下效果: ( S6 @- _0 w/ n; y3 e, `2 i
2 G2 D' n( D# b 然后现在我们有了海面的频谱图。下一步需要进行IFFT变换,但是在做变换前我们需要一个OmegaTexture做蝶形变换
" `+ C( I- m; u5 M I
! k, |1 `" l* ]$ p4 I: `3 d* N 7 r7 a& N* @) @% q1 r
(3)然后做IFFT变换生成Displacement,然后生成高度图和normal
0 V6 E# ~6 O7 i) t/ `
' e1 @3 t$ }4 _0 u& o 最后把这些生成的图弄到渲染管线种作为渲染资源渲染海面即可。下面就根据这上面的步骤来生成我们的海面。
- T6 D' U( t: |2 K 下一卷我将给出具体FFT实现。
' d. k9 `# d" D% W: K Enjoy it。 % Q: N5 c& ^/ t! j
Next:
6 E: k7 _- d6 F 【参考资料】
) c$ X+ ^& B/ l; Y3 y 【1】Ocean Shader with Gerstner Waves 6 Y. t" m8 v1 I2 R; X
【2】音速键盘猫:Shader相册第6期 --- 实时水面模拟与渲染(一) - C, j, I! a, G9 s
【3】https://labs.karmaninteractive.com/ocean-simulation-pt-1-introduction-df134a47150
! V# Z% B: M6 D, U 【4】Ocean simulation part one: using the discrete Fourier transform 3 ? R- K8 Y2 }5 I9 b/ m
【5】Ocean simulation part two: using the fast Fourier transform 3 c- }, C/ ~' Q9 m8 [
【6】https://www.slideshare.net/Codemotion/an-introduction-to-realistic-ocean-rendering-through-fft-fabio-suriano-codemotion-rome-2017
) t9 Y8 P8 m# _. X 【7】海洋模擬 FFT算法實現--基於GPU的基2快速傅里葉變換 2維FFT算法實現--基於GPU的基2快速二維傅里葉變換 【pbrt】使用openFrameworks調用pbrt
1 Q, X/ M4 ^9 m2 I) P* A9 k1 ? 【8】白霂凡:一小时学会快速傅里叶变换(Fast Fourier Transform) r7 D. p! ?7 ~6 F
【9】海面模拟以及渲染(计算着色器、FFT、Reflection Matrix) " S) v( c' l6 D+ R& P
【10】wubugui/Jerry-Tessendorf-2004 + o; F. ~* U M+ X# J3 ?% U
【11】http://evasion.imag.fr/~Fabrice.Neyret/images/fluids-nuages/waves/Jonathan/articlesCG/waterslides2001.pdf
, z8 Q0 _6 U7 k# Y7 J6 s& F7 t 【12】https://dsqiu.iteye.com/blog/1636299 8 O: J- W) k, n- n% A
【13】https://www.bilibili.com/video/av19141078?t=1053
) r' _1 H3 ?* o* l 傅里叶变换基础教程(如果对傅里叶变换完全不清楚的建议按顺序看完下面的链接) 3 h! [2 L$ {# \. b- V: @- e: B7 V9 f
【14】Heinrich:傅里叶分析之掐死教程(完整版)更新于2014.06.06 5 R" I9 n- `( ^9 a
【15】https://www.bilibili.com/video/av34364399/?spm_id_from=333.788.videocard.0 V2 I7 a& ?* s2 {9 C
【16】https://www.bilibili.com/video/av34556069/?spm_id_from=333.788.videocard.0 5 H4 k* K* {! A% {# c: } E9 C! ^, n
【17】https://www.bilibili.com/video/av34845617/?spm_id_from=333.788.videocard.0
* m3 a( Z4 {. ^! Q, | 【18】https://www.bilibili.com/video/av35047004/?spm_id_from=333.788.videocard.0 1 a+ W, D4 n: O- a; x, [- `3 d
【19】https://www.bilibili.com/video/av35810587/?spm_id_from=333.788.videocard.0
0 ?* v+ J# ?, }& r8 | 【20】https://www.bilibili.com/video/av36343956/?spm_id_from=333.788.videocard.0 ( f9 e& e* B2 ? h
/ x. b# r; s* ?5 z p6 Y1 ~# V2 c _2 `
) z. ?2 d( T- x" R
3 O( r# f/ U) y2 W& W- M; I |