function Create()
		
	InBright = self:AddInput("Brightness", "Brightness", {
		LINKID_DataType    = "Number",
		INPID_InputControl = "SliderControl",
		INP_MaxScale       = 1.0,
		INP_MinScale       = -1.0,
		INP_Default        = 0.0,
		})

	InContrast = self:AddInput("Contrast", "Contrast", {
		LINKID_DataType    = "Number",
		INPID_InputControl = "SliderControl",
		INP_MaxScale       = 1.0,
		INP_MinScale       = -1.0,
		INP_Default        = 0.0,
		})
		
	InSaturation = self:AddInput("Saturation", "Saturation", {
		LINKID_DataType    = "Number",
		INPID_InputControl = "SliderControl",
		INP_MaxScale       = 5.0,
		INP_MinScale       = 0.0,
		INP_Default        = 1.0,
		ICD_Center         = 1,
		})
	
	InImage = self:AddInput("Input", "Input", {
		LINKID_DataType = "Image",
		LINK_Main       = 1,
		})
 
	OutImage = self:AddOutput("Output", "Output", {
		LINKID_DataType = "Image",
		LINK_Main       = 1,
		})	
 
end

self:BeginControlNest("ネストラベル", "TestNest", false)	-- ネストの開始(第3引数は初期状態で開くかどうか)
InSlider = self:AddInput("スライダー", "SliderInput", {
	LINKID_DataType = "Number",
	INPID_InputControl = "SliderControl",
	INP_MaxScale = 6.0,	
	INP_MinScale = 1.0,
	INP_Default = 1.0,
	IC_Steps = 1.0,
})
self:EndControlNest()

function nest2_add()
	nest2 = self:BeginControlNest("Nest2", "Nest2", true, {})
	InLabel3 = self:AddInput("label3", "Label3", {
		LINKID_DataType = "Text",
		INPID_InputControl = "LabelControl",
	})
	self:EndControlNest()
end


function Create()
	nest1 = self:BeginControlNest("Nest1", "Nest1", true, {})
	InLabel1 = self:AddInput("label1", "Label1", {
		LINKID_DataType = "Text",
		INPID_InputControl = "LabelControl",
	})
	
	InLabel2 = self:AddInput("label2", "Label2", {
		LINKID_DataType = "Text",
		INPID_InputControl = "LabelControl",
	})
	
	nest2_add()	-- 関数でネスト追加
	self:EndControlNest()
end

function Create()
    InSlider = self:AddInput("スライダー", "SliderInput", {
        LINKID_DataType = "Number",
        INPID_InputControl = "SliderControl",
        INP_MaxScale = 6.0,	
        INP_MinScale = 1.0,
        INP_Default = 1.0,
        IC_Steps = 1.0,
    })
    self:AddControlPage("新ページ")    -- 新しいページを追加
    InSliderClone = self:CloneInput(InSlider, "SliderInput_Clone", {    -- コントロール複製。第3引数の属性テーブルを忘れないように注意
        INP_DoNotifyChanged = false,	-- オリジナルのみ処理できれば良いので無効化
        INP_InteractivePassive = true,	-- オリジナルの変更と合わせて Process イベントが無駄に2回走るので Passive 化
    })
end

-- self:RemoveControlPage("Controls")    -- コントロールページの削除
self:AddControlPage("Controls", { CT_Visible = false })    -- コントロールページを非表示
self:AddControlPage("新ページ")

function Create()
    NumPageIndex = self:AddControlPage("New Page")    -- ページ追加、番号保存
    InSlider = self:AddInput("スライダー", "SliderInput", {
    	LINKID_DataType = "Number",
    	INPID_InputControl = "SliderControl",
    	INP_MaxScale = 6.0,	
    	INP_MinScale = 1.0,
    	INP_Default = 1.0,
    	IC_Steps = 1.0,
    })
end

function NotifyChanged(inp, param, time)
    if inp:GetAttr("IC_ControlPage") == NumPageIndex then
        print(inp:GetAttr("LINKS_Name") .. "のページ番号" .. NumPageIndex)
    end
end

function Process(req)
    print("再生フレーム：" .. req.Time)
    OutValue:Set(req, Number(1))
end

	if req:IsPreCalc() then	-- 事前計算
		local img_precalc = Image({IMG_Like = out, IMG_NoData = true})	-- ダミーデータ生成
		OutImage:Set(req, img_precalc)
	else
		OutImage:Set(req, out)
	end

function Process(req)
    local clip = Clip(filename, false)		-- 画像ファイル読み込み設定
    clip:Open()
    local img = clip:GetFrame(0)            -- 画像フレーム読み込み
    clip:Close()

    OutImage:Set(req, img)    -- 画像出力
end

function Process(req)
    local filename = self.Comp:MapPath(InFile:GetValue(req).Value)	-- ファイルパス取得
    local frame = tonumber(filename:match(".?(%d+)%.%w+$"))  -- ファイル名末尾の数値取得
    if frame == nil then    -- シーケンシャルファイルではない場合、0を指定
        frame = 0
    end

    local clip = Clip(filename, false)		-- 画像ファイル読み込み設定
    clip:Open()
    local img = clip:GetFrame(frame)            -- 画像フレーム読み込み
    clip:Close()

    OutImage:Set(req, img)    -- 画像出力
end

-- 検索対象となるファイル名リスト（テスト用）
local filenamelist = {"Test12345.jpg", "TestExtend10000.jpg", "Test9999", "Test128.jpg", "Test99999.jpg"}

-- ファイルパスをフォルダパス、拡張子、拡張子なしのファイル名に分割し、ファイル名末尾の数値を検索
local filepath = "C:/TestDir1/dir2/Test12345.jpg"    -- 検索対象ファイルパス（テスト用）
local dirpath = filepath:sub(1, -filepath:reverse():find("/"))
local ext = filepath:sub(-filepath:reverse():find("%."))
local filename = filepath:sub(#dirpath+1, -(#ext+1))
local num_pos, num_len = filename:reverse():find("%d+")

-- ファイル名末尾が数値の場合、数値がシーケンシャルファイルの中で何番目になるかソートして調べる
-- ファイル名末尾が数値ではない場合は 0
local idx = 0
if num_pos == 1 then
    local commonname = filename:sub(1, num_len-1)
    local filenumber = tonumber(filename:sub(-num_len, -1))
    
    local ptrn = commonname .. "%d+" .. ext
    local numberlist = {}
    for i,v in ipairs(filenamelist) do
        if v:match(ptrn) then
            numberlist[#numberlist+1] = tonumber(v:match("%d+"))
        end
    end

    table.sort(numberlist)    -- 数値ソート

    for i,v in ipairs(numberlist) do
        if v == filenumber then
            idx = i - 1
            break
        end
    end
end

print(idx)    -- 結果は 2-1 = 1 となる

-- ファイルパスをフォルダパス、拡張子、拡張子なしのファイル名に分割し、ファイル名末尾の数値を検索
local filepath = InFile:GetSource(0).Value    -- ファイルパス

local dirpath = filepath:sub(1, -filepath:reverse():find("/"))  -- フォルダパス
local ext = filepath:sub(-filepath:reverse():find("%."))        -- 拡張子
local filename = filepath:sub(#dirpath+1, -(#ext+1))            -- 拡張子抜きのファイル名
local num_pos, num_len = filename:reverse():find("%d+")         -- ファイル名の数値の出現位置と長さ

-- ファイル名末尾が数値の場合、数値がシーケンシャルファイルの中で何番目になるかソートして調べる
-- ファイル名末尾が数値ではない場合は 0
local idx = 0
if num_pos == 1 then
    local commonname = filename:sub(1, num_len-1)
    local filenumber = tonumber(filename:sub(-num_len, -1))

    -- 同名のシーケンシャルファイルから数値抽出
    local ptrn = commonname .. "%d+" .. ext
    local numberlist = {}
    for i,v in ipairs(readdir(dirpath .. "*" .. ext)) do
        if v.Name:match(ptrn) then
            numberlist[#numberlist+1] = tonumber(v.Name:match("%d+"))
        end
    end

    table.sort(numberlist)

    for i,v in ipairs(numberlist) do
        if v == filenumber then
            idx = i - 1
            break
        end
    end
end

-- クリップを開いて画像読み込み
local clip = Clip(filepath, false)
clip:Open()
local img = clip:GetFrame(idx)    -- 画像フレーム読み込み
clip:Close()

local exe_str = string.format([[
dump(resolve)
local project = resolve:GetProjectManager():GetCurrentProject()
dump(project:GetName())
local tl = project:GetCurrentTimeline()
dump(tl:GetName())
]])
self.Comp:Execute(exe_str)

local exe_str = string.format([[
	tool = comp:FindTool("%s")    -- ノード名で参照してノードを取得する
	print("FuseName : " .. tool.Name)
]], self.Name)
self.Comp:Execute(exe_str)

tool = comp:FindTool("NodeName")    -- 属性名を取得したいノード名をここで指定
input = tool.ControlName          -- コントロールはメンバー参照か、
-- input = tool["ControlName"]  -- テーブルのキー指定で参照可能
dump(input:GetAttrs())     -- GetAttrs を引数なしで実行すると全属性が表示される

function NotifyChanged(inp, param, time)
	print("TestFuse_NotifyChanged開始==================")
	dump(inp:GetAttr("LINKID_ID"))
	dump(param.Value)
	
	local exe_str = string.format([[
dump(resolve)
local project = resolve:GetProjectManager():GetCurrentProject()
dump(project:GetName())
local tl = project:GetCurrentTimeline()
dump(tl:GetName())
	]])
	self.Comp:Execute(exe_str)
	
	print("TestFuse_NotifyChanged終了==================")
end

    
    elseif inp == StartButton and param.Value == 1 then
        print("StartButton NotifyChanged =============")
        if self:GetData("ExecuteStep") == nil then
            local exe_str = string.format([[
                print("実行ステップ：1回目")
                tool = comp:FindTool("%s")
                tool:SetData("ExecuteStep", 1)    -- 次の処理ステップ設定
                tool:SetInput("%s", 1)            -- コントロール操作
            ]], self.Name, "StartButton")
            self.Comp:Execute(exe_str)
        elseif self:GetData("ExecuteStep") == 1 then
            local exe_str = string.format([[
                print("実行ステップ：2回目")

                tool = comp:FindTool("%s")
                tool:SetData("ExecuteStep", 2)    -- 次の処理ステップ設定
                tool:SetInput("%s", 1)            -- コントロール操作
            ]], self.Name, "StartButton")
            self.Comp:Execute(exe_str)
        elseif self:GetData("ExecuteStep") == 2 then
            local exe_str = string.format([[
                print("実行ステップ：3回目")

                tool = comp:FindTool("%s")
                tool:SetData("ExecuteStep")    -- 処理ステップ削除(次実行時は最初から)
                tool:SetInput("%s", 0)        -- コントロール操作（最後の操作なので 0 に戻しておく）
            ]], self.Name, "StartButton")
            self.Comp:Execute(exe_str)
        end

ComboIDControl:SetAttrs({CCS_AddString = "文字列", CCID_AddID ="add_id"})
MultiButtonIDControl:SetAttrs({MBTNC_AddButton = "文字列", MBTNCID_AddID ="add_id"})

cnt = cnt + 1  -- 実行したカウント（ID重複回避用） 
MultiIDTest:SetAttrs({MBTNC_AddButton = "Add_"..cnt, MBTNCID_AddID = "AddID_"..cnt})    -- マルチIDボタンに選択肢の追加
-- ページを切り替えて追加したアイテムを表示できるようにする		
local exe_str = string.format([[
    tool = comp:FindTool("%s")
    tool:ShowControlPage("Common")
    tool:ShowControlPage("Controls")
]], self.Name)
self.Comp:Execute(exe_str)

ImageParams = [[
    int src_size[2];    // 入力画像サイズ
    int dst_size[2];    // 出力画像サイズ
]]

StraightSource = [[
    __KERNEL__ void StraightKernel(__CONSTANTREF__ ImageParams *params, __TEXTURE2D__ src, __TEXTURE2D_WRITE__ dst)
    {
        DEFINE_KERNEL_ITERATORS_XY(x, y)    // 処理座標 x, y を取得
        if (x < params->src_size[0] && x < params->dst_size[0]     // 入力・出力画像サイズ内なら処理
            && y < params->src_size[1] && y < params->dst_size[1]){
            float4 col = _tex2DVec4(src, x, y);    // 入力画像の座標(x,y)のピクセル RGBA を取得
            _tex2DVec4Write(dst, x, y, col);        // 出力画像の座標(x,y)にピクセル RGBA を設定
        }
    }
]]

StraightSource = [[
    // ユーザ関数定義（ここではRGBAにそれぞれ0.5をかける）
    __DEVICE__ float4 harf_color(float4 col)
    {
        float old_col[4] = {col.x, col.y, col.z, col, w};  // float4 は float 型を4つ持っており、最初から順番に x, y, z, w のメンバーに格納される
        float4 new_col = to_float4_v(old_col);             // to_float4_v は配列 → float4 へ変換する関数
        new_col *= 0.5f;    // RGBA 全てに 0.5 を乗算
        return new_col;
    }

    // カーネル処理関数
    __KERNEL__ void StraightKernel(__CONSTANTREF__ ImageParams *params, __TEXTURE2D__ src, __TEXTURE2D_WRITE__ dst)
    {
    // ... 処理
    }
]]

float4 col = _tex2DVec4(src, x, y);
float4 new_col = to_float4(col.x, col.y, col.z, col.w);

-- ノード作成
local node = DVIPComputeNode(req, "StraightKernel", StraightSource, "ImageParams", ImageParams)

-- パラメータの設定
local params = node:GetParamBlock(ImageParams)
params.src_size = {[0] = src.Width, [1] = src.Height}
params.dst_size = {[0] = out.Width, [1] = out.Height}
node:SetParamBlock(params)

-- カーネル関数の引数の内、入力・出力用イメージを設定
node:AddInput("src", src)    -- 参照イメージ設定
node:AddOutput("dst", out)   -- 出力先イメージ設定

-- ノード実行
local success = node:RunSession(req)

-- ノードのエラーログ表示
if not success then
    print(node:GetErrorLog())
end

local node = DVIPComputeNode(req, "KernelName", KernelSource, "ParamsName", ParamBlock)

local params = node:GetParamBlock(ParamBlock)  -- パラメータ設定用変数取得
params.src_size = {[0] = src.Width, [1] = src.Height}  -- パラメータへ値を格納
node:SetParamBlock(params)  -- ノードにパラメータセット

node:AddInput("src", src)    -- 参照イメージ設定
node:AddOutput("dst", out)   -- 出力先イメージ設定

local success = node:RunSession(req)

print(node:GetErrorLog())

--[[
    DCTL で入力画像をそのまま出力するテストコード
--]]
FuRegisterClass("DCTLStraight", CT_Tool, {
    --REGS_Name           = "DCTLStraight",    -- Fuse 名
    REGS_Category       = "Fuses",
    REGS_OpIconString   = "DST",
    REGS_OpDescription  = "DCTLテスト用",
    REGID_DataType      = "Image",
    REGID_InputDataType = "Image",
    -- REG_TimeVariant     = true,
    -- REGB_Unpredictable    = true,        -- キャッシュを持たない
    REG_NoCommonCtrls = true,
    REG_NoPreCalcProcess = true,    -- 事前計算あり
    -- REG_Fuse_NoEdit - false,        -- 編集ボタン不可視化
    -- REG_Fuse_NoReload = false,    -- リロードボタン不可視化
    REG_Version = 1.0,
})

--=============================================================
-- DCTL用パラメータ
ImageParams = [[
    int src_size[2];
    int dst_size[2];
]]

--=============================================================
-- 渡された画像をそのまま出力する処理ソース
StraightSource = [[
    __KERNEL__ void StraightKernel(__CONSTANTREF__ ImageParams *params,
        __TEXTURE2D__ src, __TEXTURE2D_WRITE__ dst)
    {
        DEFINE_KERNEL_ITERATORS_XY(x, y)
        if (x < params->src_size[0] && x < params->dst_size[0] 
                && y < params->src_size[1] && y < params->dst_size[1]){
            float4 col = _tex2DVec4(src, x, y);    
            _tex2DVec4Write(dst, x, y, col);
        }
    }
]]

--=============================================================


function Create()

    InFile = self:AddInput("画像ファイル", "File", {
        LINKID_DataType = "Text",
        INPID_InputControl = "FileControl",
        FC_IsSaver = false,        -- 存在しないパスを指定可能か
        FCS_FilterString = "PNGファイル (*.png)|*.png|",    -- ファイルフィルタ
        INP_Required = true,    -- 入力がなければ Process関数 を実行しない
        INP_DoNotifyChanged = true,
        INP_External = false,    -- キーフレーム、モディファイア追加不可
    })

    OutImage = self:AddOutput("Output", "Output", {
        LINKID_DataType = "Image",
        LINK_Main = 1,
    })
end

function Process(req)
    local filepath = InFile:GetSource(0).Value    -- 入力画像ファイルパス
    if not fileexists(filepath) then
        local out = Image({IMG_Width = 1, IMG_Height = 1})
        out:Fill(Pixel({R=1, G=0, B=0, A=0}))
        print("ファイルが存在しません")
        return
    end

    -- 入力画像読み込み（今回はシーケンシャルファイルの場合、一番小さい番号のファイルを参照する）
    local clip = Clip(filepath, false)
    clip:Open()
    local src = clip:GetFrame(0)
    clip:Close()
    print("ファイル読み込み完了")

    if req:IsPreCalc() then    -- 事前計算
        print("事前計算")
        local out = Image({ IMG_Like = src,        -- 入力画像の属性コピー
                            IMG_NoData = true,    -- ダミーデータ指定（ピクセルデータ用のメモリ確保をしない）
                        })
        OutImage:Set(req, out)
        return
    end

    -- 出力画像初期化
    local out = Image({ IMG_Width = src.Width,    -- 入力画像と同じサイズの Image 作成
                        IMG_Height = src.Height,
                    })
    out:Fill(Pixel({R=0, G=0, B=0, A=0}))    -- 透明ピクセルで塗りつぶし

    local node = DVIPComputeNode(req, "StraightKernel", StraightSource, "ImageParams", ImageParams)

    if node then
        local params = node:GetParamBlock(ImageParams)  -- パラメータの設定
        params.src_size = {[0] = src.Width, [1] = src.Height}
        params.dst_size = {[0] = out.Width, [1] = out.Height}
        node:SetParamBlock(params)

        node:AddInput("src", src) -- 参照イメージ設定
        node:AddOutput("dst", out)      -- 出力先イメージ設定
        local success = node:RunSession(req)

        print("DCTL処理結果：" .. tostring(success))
        print(node:GetErrorLog())        -- ノードのエラーログ表示
    else
        print("ノード作成に失敗しました")
    end
    OutImage:Set(req, out)
end

node:AddSampler("SamplerName", filterMode, addressMode, normCoordMode)

node:AddSampler("RowSampler", TEX_FILTER_MODE_ LINEAR, TEX_ADDRESS_MODE_CLAMP, TEX_NORMALIZED_COORDS_FALSE)

-- DCTL用パラメータの雛形
VariableParams = [[
    int arr_size;
    int arr[%d][2];
]]

local SetParams = string.format(VariableParams, 10)  -- 配列サイズを10に置換

local node = DVIPComputeNode(req, "TestKernel", TestSource, "VariableParams", SetParams)  -- 配列サイズを書き換えたパラメータでノード作成
local params = node:GetParamBlock(SetParams)  -- パラメータの設定時も置換後の文字列を使用
-- パラメータに値格納
params.arr_size = 10
for i=0, 9 do
    params.arr[i] = i
end
node:SetParamBlock(params)

KernelSource = [[
    __KERNEL__ void MultiKernel(
        __CONSTANTREF__ VariableParams *params,
        __TEXTURE2D__ %s,                        // <- 引数部分
        __TEXTURE2D_WRITE__ dst)
    {
        __TEXTURE2D__ src_arr[] = {%s};           // <- 引数を格納する配列部分
        DEFINE_KERNEL_ITERATORS_XY(x, y)
        if(x < params->dst_size[0] && y < params->dst_size[1]){
            float4 col = _tex2DVec4(src_arr[0], x, y);  // 適当に最初の画像のピクセル取得
            _tex2DVec4Write(dst, x, y, col);
        }
    }
]]

-- 入力画像の格納（Input から取得する、あるいは Clip 関数で読み込むなど）
src_imgs = {}    -- 入力画像リスト
for i=1, 10 do
    src_imgs[i] = self:FindInput("ImageInput_" .. i):GetSource(req.Time)    -- 再生フレームの画像取得
end
-- 入力画像の引数設定
img_args = {}    -- 引数名リスト
for i=1, #src_imgs do
    img_args[i] = "src" .. i - 1
end
-- ソース文字列書き換え
local SetSource = string.format(
                               KernelSource,
                               table.concat(img_args, ", __TEXTURE2D__ "),
                               table.concat(img_args, ", ")
                          )

-- パラメータ文字列書き換え
local SetParams = string.format(VariableParams, #src_imgs)

-- ノード作成
local node = DVIPComputeNode(req, "MultiKernel", SetSource, "VariableParams", SetParams)
-- パラメータに値格納
local params = node:GetParamBlock(SetParams)
params.arr_size = #src_imgs
for i=1, #src_imgs do
    params.arr[i-1] = i
end
node:SetParamBlock(params)

-- 入力画像の設定
for i=1, #src_imgs do
    node:AddInput(img_args[i], src_imgs[i])
end
node:AddOutput("dst", out)      -- 出力先イメージ設定

-- 画像からRGBA情報を取得し、格納する
local scanline = img:GetScanLine()  -- RGBA 配列取得
local rgba = {r={}, g={}, b={}, a={}}
for h=0, img.Height-1 do
    for _, v in pairs(rgba) do
        v[h+1] = {}
    end
    for w=0, img.Width-1 do
        rgba.r[h+1][w+1] = scanline[h][w*4]
        rgba.g[h+1][w+1] = scanline[h][w*4+1]
        rgba.b[h+1][w+1] = scanline[h][w*4+2]
        rgba.a[h+1][w+1] = scanline[h][w*4+3]
    end
end

--RRGGBBAA
00000000
01010101
02020202

-- ～ これを画像の 高さ×幅 の分だけ繰り返し ～

FEFEFEFE
FFFFFFFF

-- RGBA 情報を2桁の16進数に変換して結合していく（1行につき1px）
-- Image:_FromHexString(str) ではY座標が上から読み込んでいくようなので、上下逆にして格納・結合する
local hex_colors = {}
for h=1, img.Height do
    local row = {}
    for w=1, img.Width do
        -- RGBA の値を「2*byte数」桁の16進数文字列に変換
        -- (IMG_Depth に応じてチャンネル数や1チャンネル当たりのバイト数が異なるので適切なものを選択。今回は1チャンネルのみのものは考慮しない)
        local format = {[5] = "%02x%02x%02x%02x",    -- 1px につき 4ch, 1ch あたり 8bit(int)
                        [6] = "%04x%04x%04x%04x",    -- 1px につき 4ch, 1ch あたり16bit(int)
                        [7] = "%04x%04x%04x%04x",    -- 1px につき 4ch, 1ch あたり16bit(float)
                        [8] = "%08x%08x%08x%08x"}    -- 1px につき 4ch, 1ch あたり32bit(float)
        local px = string.format(format[img.Depth],
                                rgba.r[h][w],
                                rgba.g[h][w],
                                rgba.b[h][w],
                                rgba.a[h][w]
                )
        row[w] = px
    end
    hex_colors[img.Height-h] = table.concat(row, "\n")    -- 1行分格納
 end
-- 画像の属性とRGBA配列(16進数×4の文字列)を格納
self:SetData("ImageAttr", {IMG_Width = img.Width, IMG_Height = img.Height, IMG_Depth = img.Depth})
self:SetData("ImageColorHexString", table.concat(hex_colors, "\n"))

--=============================================================

--[[
    指定画像をコード
--]]
FuRegisterClass("Image2RGBAArray", CT_Tool, {
    --REGS_Name           = "DCTLStraight",    -- Fuse 名
    REGS_Category       = "Fuses",
    REGS_OpIconString   = "I2A",
    REGS_OpDescription  = "DCTLテスト用",
    REGID_DataType      = "Image",
    REGID_InputDataType = "Image",
    -- REG_TimeVariant     = true,
    -- REGB_Unpredictable    = true,        -- キャッシュを持たない
    REG_NoCommonCtrls = true,
    REG_NoPreCalcProcess = true,    -- 事前計算あり
    -- REG_Fuse_NoEdit - false,        -- 編集ボタン不可視化
    -- REG_Fuse_NoReload = false,    -- リロードボタン不可視化
    REG_Version = 1.0,
})

--=============================================================
--=============================================================


function Create()

    InFile = self:AddInput("画像ファイル", "File", {
        LINKID_DataType = "Text",
        INPID_InputControl = "FileControl",
        FC_IsSaver = false,        -- 存在しないパスを指定可能か
        FCS_FilterString = "PNGファイル (*.png)|*.png|",    -- ファイルフィルタ
        INP_Required = true,    -- 入力がなければ Process関数 を実行しない
        INP_DoNotifyChanged = true,
        INP_External = false,    -- キーフレーム、モディファイア追加不可
    })

    OutImage = self:AddOutput("Output", "Output", {
        LINKID_DataType = "Image",
        LINK_Main = 1,
    })
end


function NotifyChanged(inp, param, time)
    if inp == InFile then
        if not fileexists(param.Value) then
            print("ファイルが存在しません")
            return
        end

        -- 入力画像読み込み（今回はシーケンシャルファイルの場合、一番小さい番号のファイルを参照する）
        local clip = Clip(param.Value, false)
        clip:Open()
        local img = clip:GetFrame(0)
        clip:Close()

        -- 画像からRGBA情報を取得し、格納する
        local scanline = img:GetScanLine()
        dump(scanline)
        local rgba = {r={}, g={}, b={}, a={}}
        for h=0, img.Height-1 do
            for _, v in pairs(rgba) do
                v[h+1] = {}
            end
            for w=0, img.Width-1 do
                rgba.r[h+1][w+1] = scanline[h][w*4]
                rgba.g[h+1][w+1] = scanline[h][w*4+1]
                rgba.b[h+1][w+1] = scanline[h][w*4+2]
                rgba.a[h+1][w+1] = scanline[h][w*4+3]
            end
        end

        -- RGBA 情報を2桁の16進数に変換して結合していく（1行につき1px）
        -- Image:_FromHexString(str) ではY座標が上から読み込んでいくようなので、上下逆にして格納・結合する
        local hex_colors = {}
        for h=1, img.Height do
            local row = {}
            for w=1, img.Width do
                -- RGBA の値を2桁の16進数文字列に変換
                -- (IMG_Depth に応じてチャンネル数や1チャンネル当たりのバイト数が異なるので適切なものを選択。今回は1チャンネルのみのものは考慮しない)
                local format = {[5] = "%02x%02x%02x%02x",    -- 1px につき 4ch, 1ch あたり 8bit(int)
                                [6] = "%04x%04x%04x%04x",    -- 1px につき 4ch, 1ch あたり16bit(int)
                                [7] = "%04x%04x%04x%04x",    -- 1px につき 4ch, 1ch あたり16bit(float)
                                [8] = "%08x%08x%08x%08x"}    -- 1px につき 4ch, 1ch あたり32bit(float)
                local px = string.format(format[img.Depth],
                                        rgba.r[h][w],
                                        rgba.g[h][w],
                                        rgba.b[h][w],
                                        rgba.a[h][w]
                        )
                row[w] = px
            end
            hex_colors[img.Height-h] = table.concat(row, "\n")    -- 1行分格納
        end
        -- 画像の属性とRGBA配列(16進数×4の文字列)を格納
        self:SetData("ImageAttr", {IMG_Width = img.Width, IMG_Height = img.Height, IMG_Depth = img.Depth})
        self:SetData("ImageColorHexString", table.concat(hex_colors, "\n"))
    end
end


function Process(req)
    local filepath = InFile:GetSource(0).Value    -- 入力画像ファイルパス
    if not fileexists(filepath) then
        local out = Image({IMG_Width = 1, IMG_Height = 1})
        out:Fill(Pixel({R=1, G=0, B=0, A=0}))
        print("ファイルが存在しません")
        return
    end

    -- 画像属性読み込み、初期化
    local img_attr = self:GetData("ImageAttr")
    local out = Image(img_attr)

    -- RGBA配列→画像変換
    out:_FromHexString(self:GetData("ImageColorHexString"))
    
    OutImage:Set(req, out)
end

local ffi = require("ffi")
ffi.cdef [[
void free(void *p);
]]

--[[
    このモディファイアはPNGイメージを読み込んで表示します。
--]]
FuRegisterClass("ImageFromMemoryTest", CT_Tool, {
    REGS_Category       = "Fuses",
    REGS_OpIconString   = "IFMT",
    REGS_OpDescription  = "FromMemoryテスト用",
    -- REG_TimeVariant     = true,
    REGID_DataType      = "Image",
    REGID_InputDataType = "Image",
    REG_NoCommonCtrls = true,
    REG_NoPreCalcProcess = true,    -- 事前計算あり
    -- REG_Fuse_NoEdit - false,
    -- REG_Fuse_NoReload = false,
    REG_Version = 1.0,
})

function Create()
    
    InFile = self:AddInput("画像ファイル", "File", {
        LINKID_DataType = "Text",
        INPID_InputControl = "FileControl",
        FC_IsSaver = false,        -- 存在しないパスを指定可能か
        FCS_FilterString = "PNGファイル (*.png)|*.png|",    -- ファイルフィルタ
        INP_Required = true,    -- 入力がなければ Process関数 を実行しない
        INP_DoNotifyChanged = true,
        INP_External = false,    -- キーフレーム、モディファイア追加不可
    })

    OutImage = self:AddOutput("Output", "Output", {
        LINKID_DataType = "Image",
        LINK_Main = 1,
        })

end


function NotifyChanged(inp, param, time)
    if inp == InFile then
        if not fileexists(param.Value) then
            print("ファイルが存在しません")
            return
        end

        -- 入力画像読み込み（今回はシーケンシャルファイルの場合、一番小さい番号のファイルを参照する）
        print("ファイル読み込み")
        local clip = Clip(param.Value, false)
        clip:Open()
        local img = clip:GetFrame(0)
        clip:Close()

        -- ピクセル情報を取得し、SetData で格納
        local scanline = img:GetScanLine()
        local px_arr = {}
        for h=0, img.Height-1 do
            local line = {}
            for w=0, img.Width-1 do
                -- ①1byte/ch のデータを 4byte のデータ型にまとめる（こっちの方が高速）
                line[w] = 
                    scanline[h][w*4]
                    + bit.lshift(scanline[h][w*4+1], 8)
                    + bit.lshift(scanline[h][w*4+2], 16)
                    + bit.lshift(scanline[h][w*4+3], 24)
                -- -- ②もちろん、1byte のデータのまま保存しても良い
                -- line[w] = {
                --     scanline[h][w*4],
                --     scanline[h][w*4+1],
                --     scanline[h][w*4+2],
                --     scanline[h][w*4+3],
                -- }
            end
            px_arr[h] = line
        end

        -- ピクセルデータを保存
        self:SetData("PixelData", px_arr)
        self:SetData("Size.Y", #px_arr+1)
        self:SetData("Size.X", #px_arr[0]+1)
        print("ファイル読み込み完了")
    end
end


function Process(req)

    local width = self:GetData("Size.X")
    local height = self:GetData("Size.Y")

    if req:IsPreCalc() then    -- 事前計算
        local out = Image({    
            IMG_Width = width,
            IMG_Height = height,
            IMG_NoData = true,    -- ダミーデータ指定（ピクセルデータ用のメモリ確保をしない）
        })
        OutImage:Set(req, out)
        return
    end

    
    -- 背景画像初期化
    local out = Image({
        IMG_Width = width,
        IMG_Height = height,
        IMG_Depth = 5,            -- 4ch, 1byte/ch (大きいほど_FromMemory() での変換時に負荷がかかる)
    })
    out:Fill(Pixel({R=0,G=0,B=0,A=1}))


    local px_arr = self:GetData("PixelData")
    -- メモリ確保・データ格納
    local ch_num = 4    -- Ch数
    local ch_byte = 1    -- Chごとのサイズ
    -- ① 1ピクセル 4ch 分のデータサイズの型にキャスト
    local adr = ffi.cast("unsigned int *", ffi.C.malloc(height * width * ch_num * ch_byte))
    -- -- ② 1ch ずつ格納する場合は 1byte/ch となるように 1byte 分のデータサイズの型にキャスト
    -- local adr = ffi.cast("uint8 *", ffi.C.malloc(height * width * ch_num * ch_byte))
    for h=0, height-1 do
        for w=0, width-1 do
            -- ① 1 ピクセル 4ch 分を 一気に格納
            adr[h*width+w] = px_arr[h][w]
            
            -- -- ② 1ch ずつ格納する場合はこちら
            -- adr[(h*width+w)*ch_num] = px_arr[h][w][1]
            -- adr[(h*width+w)*ch_num+1] = px_arr[h][w][2]
            -- adr[(h*width+w)*ch_num+2] = px_arr[h][w][3]
            -- adr[(h*width+w)*ch_num+3] = px_arr[h][w][4]
        end    
    end

    -- 画像描画
    -- 第1引数：変換するメモリアドレス
    -- 第2引数：フォーマット。例："RGBA8"。
    --         省略した場合、"BGRA8" が適用される？
    -- 第3引数：画像を上から描画するか（デフォルトは false （下から描画する））
    out:_FromMemory(adr, "RGBA8", true)
    ffi.C.free(adr)    -- メモリ解放
    
    OutImage:Set(req, out)
    
end

ComboIDTest = self:AddInput("コンボIDボックス", "ComboIDTest", {
    LINKID_DataType = "FuID",
    INPID_InputControl = "ComboIDControl",
    INP_DoNotifyChanged = true,
    {CCS_AddString = "一", CCID_AddID = "One_ID"},
    {CCS_AddString = "二", CCID_AddID = "Two_ID"},
    {CCS_AddString = "三", CCID_AddID = "Three_ID"},
    {CCS_AddSeparator=""},    -- 代入する値は空文字列で良い（どうせ選択できないので）
    {CCS_AddString = "四", CCID_AddID = "Four_ID"},
    {CCS_AddString = "五"},                        -- IDを設定していない場合、AddStringで設定した文字列を取得する
    INPID_DefaultID = "Four_ID",
})

function OnConnected(link, old, new)
    dump(link)  -- 接続、あるいは切断が起きたコントール
    dump(old)   -- これまで接続されてたノードあるいはモディファイアの出力
    dump(new) -- これから接続されるノードあるいはモディファイアの出力

    -- コントロールA に接続されたモディファイアが切断された場合
    if link == ControlA and new == nil then
        local exe_str = string.format([[
            tool = comp:FindTool("%s")  -- ノード取得
            modifier_output = tool["ControlB"]:GetConnectedOutput()  -- モディファイア消去防止用コントロールBに接続されたモディファイアのアウトプット取得
            dump(modifier_output)
            if modifier_output ~= nil then
                tool["%s"]:ConnectTo(modifier_output)  -- モディファイア再接続
            end
        ]], self.Name, link.ID)
        self.Comp:Execute(exe_str)
    end
end

--[[
	このモディファイアは GetSource(time) によって NotifyChanged イベントが発火するかの確認用 Fuse です。
--]]
FuRegisterClass("NotifyChangedTestFuse", CT_Tool, {
	--REGS_Name		   = "TestFuse",
	REGS_Category	   = "Fuses",
	REGS_OpIconString   = "Test",
	REGS_OpDescription  = "テスト用",
	-- REG_TimeVariant	 = true,
	REGID_DataType	  = "Image",
	REGID_InputDataType = "Image",
	REG_NoCommonCtrls = true,
	REG_NoPreCalcProcess = true,	-- 事前計算あり
	-- REG_Fuse_NoEdit - false,
	-- REG_Fuse_NoReload = false,
	REG_Version = 1.0,
})

function Create()
	Test1 = self:AddInput("Test1", "Test1", {
		LINKID_DataType = "Number",
		INPID_InputControl = "CheckboxControl",
		INP_Integer = true,
		INP_Default = 1,
		INP_DoNotifyChanged = true,
	})
	Test2 = self:AddInput("Test2", "Test2", {
		LINKID_DataType = "Number",
		INPID_InputControl = "CheckboxControl",
		INP_Integer = true,
		INP_Default = 1,
		INP_DoNotifyChanged = true,
	})
	Test3 = self:AddInput("Test3", "Test3", {
		LINKID_DataType = "Number",
		INPID_InputControl = "CheckboxControl",
		INP_Integer = true,
		INP_Default = 1,
		INP_DoNotifyChanged = true,
	})


	OutImage = self:AddOutput("Output", "Output", {
		LINKID_DataType = "Image",
		LINK_Main = 1,
	})

end

function NotifyChanged(inp, param, time)
	print("○　NotifyChanged イベント======================")
	-- nil の場合は処理をしない（コンボボックスの未選択の場合など）
	if param == nil then
		print("param : nil")
		print("○　NotifyChanged イベント 終了======================")
		return
	end
	if self:GetData("ProcessFlg") then
		print("プロセス処理中フラグ："..tostring(self:GetData("ProcessFlg")))
	end
	print("変化コントロール："..inp:GetAttr("LINKS_Name"))
	dump("変更後の値："..param.Value)

	-- Test3 で Test1 を参照することで、NotifyChangedイベントの割り込みを確認
	if inp == Test3 then
		print("Test1の値："..Test1:GetSource(time).Value)
	end


	print("○　NotifyChanged イベント 終了======================")
end

function Process(req)
	print()
	print("◇　Process イベント＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝")
	self:SetData("ProcessFlg", true)
	print("Test1の値："..Test1:GetSource(req.Time).Value)	-- モディファイア設定コントロール参照
	-- print("Test2の値："..Test2:GetSource(req.Time).Value)	-- エクスプレッション設定コントロール参照
	
	self:SetData("ProcessFlg", false)
	print("◇　Process イベント終了＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝")
end

--[[
	このモディファイアは GetSource(time) によって NotifyChanged イベントが発火するかの確認用 Fuse です。
--]]
FuRegisterClass("NotifyChangedTestFuse", CT_Tool, {
	--REGS_Name		   = "TestFuse",
	REGS_Category	   = "Fuses",
	REGS_OpIconString   = "Test",
	REGS_OpDescription  = "テスト用",
	-- REG_TimeVariant	 = true,
	REGID_DataType	  = "Image",
	REGID_InputDataType = "Image",
	REG_NoCommonCtrls = true,
	REG_NoPreCalcProcess = true,	-- 事前計算あり
	-- REG_Fuse_NoEdit - false,
	-- REG_Fuse_NoReload = false,
	REG_Version = 1.0,
})

function Create()
	Test1 = self:AddInput("Test1", "Test1", {
		LINKID_DataType = "Number",
		INPID_InputControl = "CheckboxControl",
		INP_Integer = true,
		INP_Default = 1,
		INP_DoNotifyChanged = true,
			INP_SplineType = "StepIn",	-- キースプラインの設定タイプを StepIn に指定
	})
	Test2 = self:AddInput("Test2", "Test2", {
		LINKID_DataType = "Number",
		INPID_InputControl = "CheckboxControl",
		INP_Integer = true,
		INP_Default = 1,
		INP_DoNotifyChanged = true,
	})
	Test3 = self:AddInput("Test3", "Test3", {
		LINKID_DataType = "Number",
		INPID_InputControl = "CheckboxControl",
		INP_Integer = true,
		INP_Default = 1,
		INP_DoNotifyChanged = true,
	})


	OutImage = self:AddOutput("Output", "Output", {
		LINKID_DataType = "Image",
		LINK_Main = 1,
	})

end

function NotifyChanged(inp, param, time)
	-- イベントの深さをカウントアップ
	local event_cnt = self:GetData("EventCount")
	if event_cnt == nil then
		event_cnt = 1
	else
		event_cnt = event_cnt + 1
	end
	self:SetData("EventCount", event_cnt)
	print("○　NotifyChanged イベント：[".. event_cnt .."]======================")

	-- イベントの深さカウントが 2 以上なら割り込み処理と判断し、処理を中断
	if event_cnt > 1 then
		print("イベントの深さが 2 以上です。")
		print("割り込み処理として判断し、処理を中断します")
		goto GOTO_NOTIFYCHANGED_EVENT_END	-- イベント最後までスキップ
	end

	-- nil の場合は処理をしない（コンボボックスの未選択の場合など）
	if param == nil then
		print("param : nil")
		goto GOTO_NOTIFYCHANGED_EVENT_END	-- イベント最後までスキップ
	end
	if self:GetData("ProcessFlg") then
		print("プロセス処理中フラグ："..tostring(self:GetData("ProcessFlg")))
	end
	print("変化コントロール："..inp:GetAttr("LINKS_Name"))
	dump("変更後の値："..param.Value)


	-- Test3 で Test1 を参照することで、NotifyChangedイベントの割り込みを確認
	if inp == Test3 then
		print("Test1の値："..Test1:GetSource(time).Value)
	end
	

::GOTO_NOTIFYCHANGED_EVENT_END::
	print("○　NotifyChanged イベント：[".. event_cnt .."] 終了======================")
	-- NotifyChanged イベントの深さをカウントダウン
	self:SetData("EventCount", event_cnt-1)
end

function Process(req)
	-- イベントの深さをカウントアップ
	local event_cnt = self:GetData("EventCount")
	if event_cnt == nil then
		event_cnt = 1
	else
		event_cnt = event_cnt + 1
	end
	self:SetData("EventCount", event_cnt)

	print()
	print("◇　Process イベント＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝")
	self:SetData("ProcessFlg", true)
	print("Test1の値："..Test1:GetSource(req.Time).Value)	-- モディファイア設定コントロール参照
	-- print("Test2の値："..Test2:GetSource(req.Time).Value)	-- エクスプレッション設定コントロール参照
	
	self:SetData("ProcessFlg", false)
	print("◇　Process イベント終了＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝")

	-- NotifyChanged イベントの深さをカウントダウン
	self:SetData("EventCount", event_cnt-1)
end