41 lines
725 B
Plaintext
41 lines
725 B
Plaintext
|
#東方弾幕風[Stage]
|
|||
|
|
#ScriptVersion[3]
|
|||
|
|
#Title["SamplePS01"]
|
|||
|
|
#Text["SamplePS01：ピクセルシェーダ：モノトーン"]
|
|||
|
|
#Background["script/default_system/Default_Background_IceMountain.txt"]
|
|||
|
|
|
|||
|
|
@Initialize
|
|||
|
|
{
|
|||
|
|
TSamplePS1();
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
@MainLoop
|
|||
|
|
{
|
|||
|
|
yield;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
task TSamplePS1
|
|||
|
|
{
|
|||
|
|
//パス設定
|
|||
|
|
let dir = GetCurrentScriptDirectory();
|
|||
|
|
let pathShader = dir ~ "SamplePS01_HLSL.txt";
|
|||
|
|
|
|||
|
|
//シェーダ生成
|
|||
|
|
let objShader = ObjShader_Create();
|
|||
|
|
ObjShader_SetShaderF(objShader, pathShader);
|
|||
|
|
ObjShader_SetTechnique(objShader, "TecMonotone");
|
|||
|
|
|
|||
|
|
loop
|
|||
|
|
{
|
|||
|
|
//特定の描画優先度にシェーダを適応
|
|||
|
|
SetShaderI(objShader, 0, 100);
|
|||
|
|
loop(180){yield;}
|
|||
|
|
|
|||
|
|
//シェーダ解除
|
|||
|
|
ResetShaderI(0, 100);
|
|||
|
|
loop(180){yield;}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
|