local function generateKeyframe(model)
	if not model.PrimaryPart then
		warn("プライマリパートが設定されていません")
		return
	end

	local rootPart = model.PrimaryPart:GetRootPart()

	if not rootPart then
		warn("ルートパートが見つかりませんでした")
		return
	end

	local partsAdded = {}
	partsAdded[rootPart] = true

	local function addPoses(part, parentPose)
		-- パートに接続されているすべてのジョイントを取得
		for _, joint in pairs(part:GetJoints()) do
			-- Motor6Dのみに興味があります
			if joint:IsA("Motor6D") then
				-- 接続されたパートを見つける
				local connectedPart = nil
				if joint.Part0 == part then
					connectedPart = joint.Part1
				elseif joint.Part1 == part then
					connectedPart = joint.Part0
				end
				if connectedPart then
					-- すでにこのパートを追加していないことを確認
					if not partsAdded[connectedPart] then
						partsAdded[connectedPart] = true
						-- ポーズを作成
						local pose = Instance.new("Pose")
						pose.Name = connectedPart.Name
						parentPose:AddSubPose(pose)
						-- 再帰
						addPoses(connectedPart, pose)
					end
				end
			end
		end
	end

	local keyframe = Instance.new("Keyframe")

	-- キーフレームを populate
	local rootPose = Instance.new("Pose")
	rootPose.Name = rootPart.Name
	addPoses(rootPart, rootPose)
	keyframe:AddPose(rootPose)

	return keyframe
end

local character = script.Parent

local keyframe = generateKeyframe(character)

print(keyframe)

local function resetPoses(parent)
	-- 両方の関数はGetChildrenと同等です
	local poses = parent:IsA("Keyframe") and parent:GetPoses() or parent:IsA("Pose") and parent:GetSubPoses()

	for _, pose in pairs(poses) do
		if pose:IsA("Pose") then
			pose.CFrame = CFrame.new()
			-- 再帰
			resetPoses(pose)
		end
	end
end