#================================================================================
#
# メイン
#
#================================================================================

#------------------------------------------------------------------------------------------------
# インポート
#------------------------------------------------------------------------------------------------
PluginPath = "C:\Program Files (x86)\AviSynth 2.5\plugins\"
Import(PluginPath + "txt60mc.avs")

#------------------------------------------------------------------------------------------------
# TSソースの設定
#------------------------------------------------------------------------------------------------
TSFilePath="Y:\hoge\hogehoge.m2ts"

#------------------------------------------------------------------------------------------------
# TSソース読み込み
#------------------------------------------------------------------------------------------------
LWLibavVideoSource(TSFilePath, cache=true, stream_index=-1, threads=0).AssumeFPS(30000,1001)
AudioDub(last, LWLibavAudioSource(TSFilePath, stream_index=1, av_sync=true))
#Histogram(mode="classic")
AssumeTFF()

#------------------------------------------------------------------------------------------------
# CMカット
#------------------------------------------------------------------------------------------------
Trim(2, 5784) ++ Trim(7584, 24455) ++ Trim(26255, 46004) ++ Trim(47804, 48551)

#------------------------------------------------------------------------------------------------
# インタレ解除
#------------------------------------------------------------------------------------------------
Audio=KillVideo() # 音声取り出し

c001=Trim(00000,05799).Deint24()
c002=Trim(05800,06689).txt60mcHybrid(4, txt_area=200, show=false, draft=false)
c003=Trim(06690,43152).Deint24()

c001++c002++c003

AudioDub(last, Audio) # 音声再結合

return last

#================================================================================
#
# 関数定義
#
#================================================================================

#------------------------------------------------------------------------------------------------
# Deint24
# 24fps区間をTDeint.TDecimateを用いてインタレ解除する
#------------------------------------------------------------------------------------------------
Function Deint24(clip c)
{
    return c.TDeint(mode=0, order=1, type=3, tryweave=true).TDecimate(mode=1, hybrid=0)
}