From 3f3b5d84676e0be14d133cf4887bf4b1431b5437 Mon Sep 17 00:00:00 2001
From: Pavel Zhur <completely.real@gmail.com>
Date: Mon, 5 Aug 2024 07:32:40 +0300
Subject: [PATCH 1/2] ItemsPerPage

---
 .../VExternal1/Main/SongsByChordsRequest.cs                 | 2 --
 .../VExternal1/Main/SongsByHeaderRequest.cs                 | 2 --
 .../VExternal1/PagedRequestBase.cs                          | 1 +
 .../VExternal1/Tonalities/LoopsRequest.cs                   | 2 --
 .../VExternal1/Tonalities/SongsRequest.cs                   | 2 --
 .../Functions/VExternal1/SongsByChords.cs                   | 4 ++--
 .../Functions/VExternal1/SongsByHeader.cs                   | 6 +++---
 .../Functions/VExternal1/TonalitiesLoops.cs                 | 4 ++--
 .../Functions/VExternal1/TonalitiesSongs.cs                 | 4 ++--
 .../HarmonyDB.Playground.Web/Views/Home/Loops.cshtml        | 2 +-
 .../Views/Home/SongsByChords.cshtml                         | 2 +-
 .../Views/Home/SongsByHeader.cshtml                         | 2 +-
 .../HarmonyDB.Playground.Web/Views/Tonalities/Loops.cshtml  | 2 +-
 .../HarmonyDB.Playground.Web/Views/Tonalities/Songs.cshtml  | 2 +-
 14 files changed, 15 insertions(+), 22 deletions(-)

diff --git a/HarmonyDB.Index/HarmonyDB.Index.Api.Model/VExternal1/Main/SongsByChordsRequest.cs b/HarmonyDB.Index/HarmonyDB.Index.Api.Model/VExternal1/Main/SongsByChordsRequest.cs
index 63713cec..6a3bad0d 100644
--- a/HarmonyDB.Index/HarmonyDB.Index.Api.Model/VExternal1/Main/SongsByChordsRequest.cs
+++ b/HarmonyDB.Index/HarmonyDB.Index.Api.Model/VExternal1/Main/SongsByChordsRequest.cs
@@ -10,8 +10,6 @@ public record SongsByChordsRequest : PagedRequestBase
 
     public int MinRating { get; init; } = 70;
 
-    public int SongsPerPage { get; init; } = 100;
-
     [JsonConverter(typeof(JsonStringEnumConverter))]
     public SongsByChordsRequestOrdering Ordering { get; init; } = SongsByChordsRequestOrdering.ByRating;
 }
\ No newline at end of file
diff --git a/HarmonyDB.Index/HarmonyDB.Index.Api.Model/VExternal1/Main/SongsByHeaderRequest.cs b/HarmonyDB.Index/HarmonyDB.Index.Api.Model/VExternal1/Main/SongsByHeaderRequest.cs
index fc5714d8..61955023 100644
--- a/HarmonyDB.Index/HarmonyDB.Index.Api.Model/VExternal1/Main/SongsByHeaderRequest.cs
+++ b/HarmonyDB.Index/HarmonyDB.Index.Api.Model/VExternal1/Main/SongsByHeaderRequest.cs
@@ -5,6 +5,4 @@ public record SongsByHeaderRequest : PagedRequestBase
     public required string Query { get; init; }
 
     public int MinRating { get; init; } = 70;
-
-    public int SongsPerPage { get; init; } = 100;
 }
\ No newline at end of file
diff --git a/HarmonyDB.Index/HarmonyDB.Index.Api.Model/VExternal1/PagedRequestBase.cs b/HarmonyDB.Index/HarmonyDB.Index.Api.Model/VExternal1/PagedRequestBase.cs
index 044a481d..4e46fd71 100644
--- a/HarmonyDB.Index/HarmonyDB.Index.Api.Model/VExternal1/PagedRequestBase.cs
+++ b/HarmonyDB.Index/HarmonyDB.Index.Api.Model/VExternal1/PagedRequestBase.cs
@@ -3,4 +3,5 @@ namespace HarmonyDB.Index.Api.Model.VExternal1;
 public record PagedRequestBase
 {
     public int PageNumber { get; init; } = 1;
+    public int ItemsPerPage { get; init; } = 100;
 }
\ No newline at end of file
diff --git a/HarmonyDB.Index/HarmonyDB.Index.Api.Model/VExternal1/Tonalities/LoopsRequest.cs b/HarmonyDB.Index/HarmonyDB.Index.Api.Model/VExternal1/Tonalities/LoopsRequest.cs
index d52f9968..147e2ca2 100644
--- a/HarmonyDB.Index/HarmonyDB.Index.Api.Model/VExternal1/Tonalities/LoopsRequest.cs
+++ b/HarmonyDB.Index/HarmonyDB.Index.Api.Model/VExternal1/Tonalities/LoopsRequest.cs
@@ -30,8 +30,6 @@ public record LoopsRequest : PagedRequestBase
 
     public RequestScaleFilter DetectedScaleFilter { get; init; } = RequestScaleFilter.Any;
 
-    public int LoopsPerPage { get; init; } = 100;
-
     [JsonConverter(typeof(JsonStringEnumConverter))]
     public LoopsRequestOrdering Ordering { get; init; } = LoopsRequestOrdering.SuccessionsDesc;
 }
\ No newline at end of file
diff --git a/HarmonyDB.Index/HarmonyDB.Index.Api.Model/VExternal1/Tonalities/SongsRequest.cs b/HarmonyDB.Index/HarmonyDB.Index.Api.Model/VExternal1/Tonalities/SongsRequest.cs
index fcee8029..28b31ee8 100644
--- a/HarmonyDB.Index/HarmonyDB.Index.Api.Model/VExternal1/Tonalities/SongsRequest.cs
+++ b/HarmonyDB.Index/HarmonyDB.Index.Api.Model/VExternal1/Tonalities/SongsRequest.cs
@@ -31,8 +31,6 @@ public record SongsRequest : PagedRequestBase
     public SongsRequestCorrectDetectionFilter CorrectDetectionFilter { get; init; } = SongsRequestCorrectDetectionFilter.Any;
 
     public SongsRequestKnownTonalityFilter KnownTonalityFilter { get; init; } = SongsRequestKnownTonalityFilter.Any;
-    
-    public int SongsPerPage { get; init; } = 100;
 
     [JsonConverter(typeof(JsonStringEnumConverter))]
     public SongsRequestOrdering Ordering { get; init; } = SongsRequestOrdering.TonalityConfidenceDesc;
diff --git a/HarmonyDB.Index/HarmonyDB.Index.Api/Functions/VExternal1/SongsByChords.cs b/HarmonyDB.Index/HarmonyDB.Index.Api/Functions/VExternal1/SongsByChords.cs
index 5db30112..2b820e77 100644
--- a/HarmonyDB.Index/HarmonyDB.Index.Api/Functions/VExternal1/SongsByChords.cs
+++ b/HarmonyDB.Index/HarmonyDB.Index.Api/Functions/VExternal1/SongsByChords.cs
@@ -90,14 +90,14 @@ protected override async Task<SongsByChordsResponse> Execute(SongsByChordsReques
 
         return new()
         {
-            Songs = results.Skip((request.PageNumber - 1) * request.SongsPerPage).Take(request.SongsPerPage).Select(x => new SongsByChordsResponseSong
+            Songs = results.Skip((request.PageNumber - 1) * request.ItemsPerPage).Take(request.ItemsPerPage).Select(x => new SongsByChordsResponseSong
             {
                 Header = x.h,
                 Coverage = x.coverage,
                 PredictedTonalityIndex = tonalitiesCache.Songs.GetValueOrDefault(x.h.ExternalId)?.TonalityProbabilities.ToLinear().GetPredictedTonality().ToIndex(),
             }).ToList(),
             Total = results.Count,
-            TotalPages = results.Count / request.SongsPerPage + (results.Count % request.SongsPerPage == 0 ? 0 : 1),
+            TotalPages = results.Count / request.ItemsPerPage + (results.Count % request.ItemsPerPage == 0 ? 0 : 1),
             CurrentPageNumber = request.PageNumber,
         };
     }
diff --git a/HarmonyDB.Index/HarmonyDB.Index.Api/Functions/VExternal1/SongsByHeader.cs b/HarmonyDB.Index/HarmonyDB.Index.Api/Functions/VExternal1/SongsByHeader.cs
index 450dfaf7..ace684f6 100644
--- a/HarmonyDB.Index/HarmonyDB.Index.Api/Functions/VExternal1/SongsByHeader.cs
+++ b/HarmonyDB.Index/HarmonyDB.Index.Api/Functions/VExternal1/SongsByHeader.cs
@@ -63,12 +63,12 @@ protected override async Task<SongsByHeaderResponse> Execute(SongsByHeaderReques
         return new()
         {
             Songs = results
-                .Skip((request.PageNumber - 1) * request.SongsPerPage)
-                .Take(request.SongsPerPage)
+                .Skip((request.PageNumber - 1) * request.ItemsPerPage)
+                .Take(request.ItemsPerPage)
                 .Select(x => new SongsByHeaderResponseSong(x, tonalitiesCache.Songs.GetValueOrDefault(x.ExternalId)?.TonalityProbabilities.ToLinear().GetPredictedTonality().ToIndex()))
                 .ToList(),
             Total = results.Count,
-            TotalPages = results.Count / request.SongsPerPage + (results.Count % request.SongsPerPage == 0 ? 0 : 1),
+            TotalPages = results.Count / request.ItemsPerPage + (results.Count % request.ItemsPerPage == 0 ? 0 : 1),
             CurrentPageNumber = request.PageNumber,
         };
     }
diff --git a/HarmonyDB.Index/HarmonyDB.Index.Api/Functions/VExternal1/TonalitiesLoops.cs b/HarmonyDB.Index/HarmonyDB.Index.Api/Functions/VExternal1/TonalitiesLoops.cs
index 5af78053..6ce1a893 100644
--- a/HarmonyDB.Index/HarmonyDB.Index.Api/Functions/VExternal1/TonalitiesLoops.cs
+++ b/HarmonyDB.Index/HarmonyDB.Index.Api/Functions/VExternal1/TonalitiesLoops.cs
@@ -129,9 +129,9 @@ protected override async Task<LoopsResponse> Execute(LoopsRequest request)
         return new()
         {
             Total = loops.Count,
-            TotalPages = loops.Count / request.LoopsPerPage + (loops.Count % request.LoopsPerPage == 0 ? 0 : 1),
+            TotalPages = loops.Count / request.ItemsPerPage + (loops.Count % request.ItemsPerPage == 0 ? 0 : 1),
             CurrentPageNumber = request.PageNumber,
-            Loops = orderedLoops.Skip((request.PageNumber - 1) * request.LoopsPerPage).Take(request.LoopsPerPage).ToList(),
+            Loops = orderedLoops.Skip((request.PageNumber - 1) * request.ItemsPerPage).Take(request.ItemsPerPage).ToList(),
             Distributions = new()
             {
                 TotalSongs = loops.GetPercentiles(x => x.TotalSongs),
diff --git a/HarmonyDB.Index/HarmonyDB.Index.Api/Functions/VExternal1/TonalitiesSongs.cs b/HarmonyDB.Index/HarmonyDB.Index.Api/Functions/VExternal1/TonalitiesSongs.cs
index 35238479..82da9959 100644
--- a/HarmonyDB.Index/HarmonyDB.Index.Api/Functions/VExternal1/TonalitiesSongs.cs
+++ b/HarmonyDB.Index/HarmonyDB.Index.Api/Functions/VExternal1/TonalitiesSongs.cs
@@ -156,9 +156,9 @@ protected override async Task<SongsResponse> Execute(SongsRequest request)
         return new()
         {
             Total = songs.Count,
-            TotalPages = songs.Count / request.SongsPerPage + (songs.Count % request.SongsPerPage == 0 ? 0 : 1),
+            TotalPages = songs.Count / request.ItemsPerPage + (songs.Count % request.ItemsPerPage == 0 ? 0 : 1),
             CurrentPageNumber = request.PageNumber,
-            Songs = orderedSongs.Skip((request.PageNumber - 1) * request.SongsPerPage).Take(request.SongsPerPage).ToList(),
+            Songs = orderedSongs.Skip((request.PageNumber - 1) * request.ItemsPerPage).Take(request.ItemsPerPage).ToList(),
             Distributions = new()
             {
                 Rating = songs.GetPercentiles(x => x.IndexHeader.Rating),
diff --git a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/Loops.cshtml b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/Loops.cshtml
index c7efa164..4b6ebf2f 100644
--- a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/Loops.cshtml
+++ b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/Loops.cshtml
@@ -42,7 +42,7 @@
         @ViewLocalizer["Min total successions"]: @Html.TextBoxFor(x => x.MinTotalSuccessions)
     </p>
     <p>
-        @ViewLocalizer["Loops Per Page"]: @Html.TextBoxFor(x => x.LoopsPerPage)
+        @ViewLocalizer["Loops Per Page"]: @Html.TextBoxFor(x => x.ItemsPerPage)
     </p>
     <p>
         @ViewLocalizer["Scale"]:
diff --git a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/SongsByChords.cshtml b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/SongsByChords.cshtml
index 405356eb..2a758f09 100644
--- a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/SongsByChords.cshtml
+++ b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/SongsByChords.cshtml
@@ -47,7 +47,7 @@
         @ViewLocalizer["Min rating (whole, 0–100)"]: @Html.TextBoxFor(x => x.MinRating)
     </p>
     <p>
-        @ViewLocalizer["Songs Per Page"]: @Html.TextBoxFor(x => x.SongsPerPage)
+        @ViewLocalizer["Songs Per Page"]: @Html.TextBoxFor(x => x.ItemsPerPage)
     </p>
     <p>
         <label>
diff --git a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/SongsByHeader.cshtml b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/SongsByHeader.cshtml
index 181984f5..16b0d003 100644
--- a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/SongsByHeader.cshtml
+++ b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/SongsByHeader.cshtml
@@ -31,7 +31,7 @@
         @ViewLocalizer["Min rating (whole, 0–100)"]: @Html.TextBoxFor(x => x.MinRating)
     </p>
     <p>
-        @ViewLocalizer["Songs Per Page"]: @Html.TextBoxFor(x => x.SongsPerPage)
+        @ViewLocalizer["Songs Per Page"]: @Html.TextBoxFor(x => x.ItemsPerPage)
     </p>
     <p>
         <label>
diff --git a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Tonalities/Loops.cshtml b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Tonalities/Loops.cshtml
index 1d2e3275..8d5d2762 100644
--- a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Tonalities/Loops.cshtml
+++ b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Tonalities/Loops.cshtml
@@ -70,7 +70,7 @@
         @Html.DropDownListFor(x => x.DetectedScaleFilter, Enum.GetValues<RequestScaleFilter>().Select(x => new SelectListItem(x.ToString(), x.ToString())))
     </p>
     <p>
-        @ViewLocalizer["Loops Per Page"]: @Html.TextBoxFor(x => x.LoopsPerPage)
+        @ViewLocalizer["Loops Per Page"]: @Html.TextBoxFor(x => x.ItemsPerPage)
     </p>
     <p>
         <label>
diff --git a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Tonalities/Songs.cshtml b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Tonalities/Songs.cshtml
index 1b679fb3..9498000b 100644
--- a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Tonalities/Songs.cshtml
+++ b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Tonalities/Songs.cshtml
@@ -76,7 +76,7 @@
         @Html.DropDownListFor(x => x.KnownScaleFilter, Enum.GetValues<RequestScaleFilter>().Select(x => new SelectListItem(x.ToString(), x.ToString())))
     </p>
     <p>
-        @ViewLocalizer["Songs Per Page"]: @Html.TextBoxFor(x => x.SongsPerPage)
+        @ViewLocalizer["Songs Per Page"]: @Html.TextBoxFor(x => x.ItemsPerPage)
     </p>
     <p>
         <label>

From e018edaaca2d9be8ebdcb7690f352b7c1aaf4589 Mon Sep 17 00:00:00 2001
From: Pavel Zhur <completely.real@gmail.com>
Date: Mon, 5 Aug 2024 07:58:32 +0300
Subject: [PATCH 2/2] limits applied

---
 .../Controllers/HomeController.cs             |  18 ++-
 .../Controllers/TonalitiesController.cs       |  14 +-
 .../HarmonyDB.Playground.Web/Program.cs       |   2 +
 .../Services/Limiter.cs                       |  27 ++++
 .../Views/Home/Loops.cshtml                   |  53 ++++----
 .../Views/Home/SongsByChords.cshtml           |  61 +++++----
 .../Views/Home/SongsByHeader.cshtml           |  49 ++++---
 .../Views/Shared/Limit.cshtml                 |   9 ++
 .../Views/Shared/Limit.ru.resx                | 123 ++++++++++++++++++
 .../Views/Shared/Trace.cshtml                 |   2 +-
 .../Views/Tonalities/Loops.cshtml             | 103 ++++++++-------
 .../Views/Tonalities/Songs.cshtml             |  97 +++++++-------
 12 files changed, 386 insertions(+), 172 deletions(-)
 create mode 100644 HarmonyDB.Playground/HarmonyDB.Playground.Web/Services/Limiter.cs
 create mode 100644 HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Shared/Limit.cshtml
 create mode 100644 HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Shared/Limit.ru.resx

diff --git a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Controllers/HomeController.cs b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Controllers/HomeController.cs
index 408b5d3b..e1c53e82 100644
--- a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Controllers/HomeController.cs
+++ b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Controllers/HomeController.cs
@@ -16,8 +16,10 @@
 using HarmonyDB.Index.Analysis.Models.CompactV1;
 using Microsoft.AspNetCore.Localization;
 using HarmonyDB.Index.Api.Model.VExternal1;
+using HarmonyDB.Index.Api.Model.VExternal1.Main;
 using HarmonyDB.Index.Api.Model.VExternal1.Tonalities;
 using HarmonyDB.Playground.Web.Models.Home;
+using HarmonyDB.Playground.Web.Services;
 using OneShelf.Common.Api.Common;
 
 namespace HarmonyDB.Playground.Web.Controllers;
@@ -33,8 +35,9 @@ public class HomeController : PlaygroundControllerBase
     private readonly ChordDataParser _chordDataParser;
     private readonly InputParser _inputParser;
     private readonly ProgressionsVisualizer _progressionsVisualizer;
+    private readonly Limiter _limiter;
 
-    public HomeController(ILogger<HomeController> logger, IndexApiClient indexApiClient, SourceApiClient sourceApiClient, ProgressionsSearch progressionsSearch, ProgressionsBuilder progressionsBuilder, ChordDataParser chordDataParser, InputParser inputParser, ProgressionsVisualizer progressionsVisualizer, IndexExtractor indexExtractor)
+    public HomeController(ILogger<HomeController> logger, IndexApiClient indexApiClient, SourceApiClient sourceApiClient, ProgressionsSearch progressionsSearch, ProgressionsBuilder progressionsBuilder, ChordDataParser chordDataParser, InputParser inputParser, ProgressionsVisualizer progressionsVisualizer, IndexExtractor indexExtractor, Limiter limiter)
     {
         _logger = logger;
         _indexApiClient = indexApiClient;
@@ -45,6 +48,7 @@ public HomeController(ILogger<HomeController> logger, IndexApiClient indexApiCli
         _inputParser = inputParser;
         _progressionsVisualizer = progressionsVisualizer;
         _indexExtractor = indexExtractor;
+        _limiter = limiter;
     }
 
     public IActionResult MyIp()
@@ -157,7 +161,9 @@ public async Task<IActionResult> SongsByChords([FromQuery]SongsByChordsModel son
                     ViewBag.Trace = new ApiTraceBag();
                 }
 
-                ViewBag.Response = await _indexApiClient.SongsByChords(songsByChordsModel, ViewBag.Trace);
+                var response = await _indexApiClient.SongsByChords(songsByChordsModel, ViewBag.Trace);
+                ViewBag.Response = response;
+                ViewBag.Limit = _limiter.CheckLimit(songsByChordsModel, response, Limiter.MaxSongs);
             }
 
             songsByChordsModel.JustForm = false;
@@ -183,7 +189,9 @@ public async Task<IActionResult> SongsByHeader([FromQuery]SongsByHeaderModel son
                     ViewBag.Trace = new ApiTraceBag();
                 }
 
-                ViewBag.Response = await _indexApiClient.SongsByHeader(songsByHeaderModel, ViewBag.Trace);
+                var response = await _indexApiClient.SongsByHeader(songsByHeaderModel, ViewBag.Trace);
+                ViewBag.Response = response;
+                ViewBag.Limit = _limiter.CheckLimit(songsByHeaderModel, response, Limiter.MaxSongs);
             }
 
             songsByHeaderModel.JustForm = false;
@@ -208,7 +216,9 @@ public async Task<IActionResult> Loops([FromQuery] LoopsModel loopsModel)
                     ViewBag.Trace = new ApiTraceBag();
                 }
 
-                ViewBag.Response = await _indexApiClient.TonalitiesLoops(loopsModel, ViewBag.Trace);
+                var response = await _indexApiClient.TonalitiesLoops(loopsModel, ViewBag.Trace);
+                ViewBag.Response = response;
+                ViewBag.Limit = _limiter.CheckLimit(loopsModel, response, Limiter.MaxProgressions);
             }
 
             loopsModel.JustForm = false;
diff --git a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Controllers/TonalitiesController.cs b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Controllers/TonalitiesController.cs
index 65476008..d46c668e 100644
--- a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Controllers/TonalitiesController.cs
+++ b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Controllers/TonalitiesController.cs
@@ -16,6 +16,8 @@
 using HarmonyDB.Index.Api.Model.VExternal1;
 using HarmonyDB.Playground.Web.Models.Tonalities;
 using OneShelf.Common.Api.Common;
+using HarmonyDB.Playground.Web.Models.Home;
+using HarmonyDB.Playground.Web.Services;
 
 namespace HarmonyDB.Playground.Web.Controllers;
 
@@ -23,11 +25,13 @@ public class TonalitiesController : PlaygroundControllerBase
 {
     private readonly ILogger<TonalitiesController> _logger;
     private readonly IndexApiClient _indexApiClient;
+    private readonly Limiter _limiter;
 
-    public TonalitiesController(ILogger<TonalitiesController> logger, IndexApiClient indexApiClient)
+    public TonalitiesController(ILogger<TonalitiesController> logger, IndexApiClient indexApiClient, Limiter limiter)
     {
         _logger = logger;
         _indexApiClient = indexApiClient;
+        _limiter = limiter;
     }
 
     public IActionResult Index()
@@ -53,7 +57,9 @@ public async Task<IActionResult> Loops(StructureLoopsModel model)
                     ViewBag.Trace = new ApiTraceBag();
                 }
 
-                ViewBag.Response = await _indexApiClient.TonalitiesLoops(model, ViewBag.Trace);
+                var response = await _indexApiClient.TonalitiesLoops(model, ViewBag.Trace);
+                ViewBag.Response = response;
+                ViewBag.Limit = _limiter.CheckLimit(model, response, Limiter.MaxProgressions);
             }
 
             model.JustForm = false;
@@ -78,7 +84,9 @@ public async Task<IActionResult> Songs(StructureSongsModel model)
                     ViewBag.Trace = new ApiTraceBag();
                 }
 
-                ViewBag.Response = await _indexApiClient.TonalitiesSongs(model, ViewBag.Trace);
+                var response = await _indexApiClient.TonalitiesSongs(model, ViewBag.Trace);
+                ViewBag.Response = response;
+                ViewBag.Limit = _limiter.CheckLimit(model, response, Limiter.MaxSongs);
             }
 
             model.JustForm = false;
diff --git a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Program.cs b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Program.cs
index a059376f..53a5e336 100644
--- a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Program.cs
+++ b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Program.cs
@@ -2,6 +2,7 @@
 using HarmonyDB.Index.Analysis;
 using HarmonyDB.Index.Api.Client;
 using HarmonyDB.Playground.Web.Models;
+using HarmonyDB.Playground.Web.Services;
 using HarmonyDB.Source.Api.Client;
 using Microsoft.AspNetCore.Localization.Routing;
 using Microsoft.AspNetCore.Mvc;
@@ -26,6 +27,7 @@ public static void Main(string[] args)
                 .AddIndexApiClient(builder.Configuration)
                 .AddSourceApiClient(builder.Configuration)
                 .AddIndexAnalysis()
+                .AddScoped<Limiter>()
                 .Configure<PlaygroundOptions>(o => builder.Configuration.GetSection(nameof(PlaygroundOptions)).Bind(o));
 
             const string defaultCulture = "en";
diff --git a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Services/Limiter.cs b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Services/Limiter.cs
new file mode 100644
index 00000000..b0065957
--- /dev/null
+++ b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Services/Limiter.cs
@@ -0,0 +1,27 @@
+using HarmonyDB.Index.Api.Model.VExternal1;
+
+namespace HarmonyDB.Playground.Web.Services;
+
+public class Limiter
+{
+    public const int MaxSongs = 300;
+    public const int MaxProgressions = 200;
+
+    public int? CheckLimit(PagedRequestBase request, PagedResponseBase response, int limit)
+    {
+        var fromIndex = (request.PageNumber - 1) * request.ItemsPerPage;
+        var toIndex = request.PageNumber * request.ItemsPerPage - 1;
+
+        if (toIndex < limit)
+        {
+            return null;
+        }
+
+        if (fromIndex >= response.Total - limit)
+        {
+            return null;
+        }
+
+        return limit;
+    }
+}
\ No newline at end of file
diff --git a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/Loops.cshtml b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/Loops.cshtml
index 4b6ebf2f..1427d281 100644
--- a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/Loops.cshtml
+++ b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/Loops.cshtml
@@ -66,8 +66,14 @@
 
     @await Html.PartialAsync("Paging", Model)
 
-    <table class="table table-bordered table-sm">
-        <thead>
+    @if (ViewBag.Limit != null)
+    {
+        @await Html.PartialAsync("Limit", (int)ViewBag.Limit)
+    }
+    else
+    {
+        <table class="table table-bordered table-sm">
+            <thead>
             <tr class="fw-bold">
                 <td>@ViewLocalizer["Progression"]</td>
                 <td>@ViewLocalizer["Degrees"]</td>
@@ -78,27 +84,28 @@
                 <td class="my-vertical">@ViewLocalizer["Total Occurrences"]</td>
                 <td class="my-vertical">@ViewLocalizer["Total Successions"]</td>
             </tr>
-        </thead>
-        @foreach (var loop in response.Loops)
-        {
-            var predicted = loop.Probabilities.GetPredictedTonality();
-            var secondPredicted = loop.Probabilities.GetSecondPredictedTonality(out var secondConfidence);
-            <tr>
-                <td>@Html.ActionLink(loop.Normalized.GetTitle(predicted), "SongsByChords", new SongsByChordsModel { Query = loop.Normalized.GetTitle(predicted, true), JustForm = true })</td>
-                <td>@loop.Normalized.GetFunctionsTitle(predicted)</td>
-                <td class="fw-bold">@predicted.ToLoopTonalityTitle(predicted)</td>
-                <td class="text-end">@loop.Probabilities.TonalityConfidence().ToString("P0")</td>
-                <td class="fw-bold">@secondPredicted.ToLoopTonalityTitle(predicted)</td>
-                <td class="text-end">@secondConfidence.ToString("P0")</td>
-                <td>@loop.Normalized.GetTitle(secondPredicted)</td>
-                <td>@loop.Normalized.GetFunctionsTitle(secondPredicted)</td>
-                <td class="text-end">@loop.Length</td>
-                <td class="text-end">@loop.TotalSongs.ToString("N0")</td>
-                <td class="text-end">@loop.TotalOccurrences.ToString("N0")</td>
-                <td class="text-end">@loop.TotalSuccessions.ToString("N0")</td>
-            </tr>
-        }
-    </table>
+            </thead>
+            @foreach (var loop in response.Loops)
+            {
+                var predicted = loop.Probabilities.GetPredictedTonality();
+                var secondPredicted = loop.Probabilities.GetSecondPredictedTonality(out var secondConfidence);
+                <tr>
+                    <td>@Html.ActionLink(loop.Normalized.GetTitle(predicted), "SongsByChords", new SongsByChordsModel { Query = loop.Normalized.GetTitle(predicted, true), JustForm = true })</td>
+                    <td>@loop.Normalized.GetFunctionsTitle(predicted)</td>
+                    <td class="fw-bold">@predicted.ToLoopTonalityTitle(predicted)</td>
+                    <td class="text-end">@loop.Probabilities.TonalityConfidence().ToString("P0")</td>
+                    <td class="fw-bold">@secondPredicted.ToLoopTonalityTitle(predicted)</td>
+                    <td class="text-end">@secondConfidence.ToString("P0")</td>
+                    <td>@loop.Normalized.GetTitle(secondPredicted)</td>
+                    <td>@loop.Normalized.GetFunctionsTitle(secondPredicted)</td>
+                    <td class="text-end">@loop.Length</td>
+                    <td class="text-end">@loop.TotalSongs.ToString("N0")</td>
+                    <td class="text-end">@loop.TotalOccurrences.ToString("N0")</td>
+                    <td class="text-end">@loop.TotalSuccessions.ToString("N0")</td>
+                </tr>
+            }
+        </table>
+    }
 
     @await Html.PartialAsync("Paging", Model)
 }
diff --git a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/SongsByChords.cshtml b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/SongsByChords.cshtml
index 2a758f09..ed199713 100644
--- a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/SongsByChords.cshtml
+++ b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/SongsByChords.cshtml
@@ -67,37 +67,44 @@
 
     @await Html.PartialAsync("Paging", Model)
 
-    <table class="table table-bordered table-sm">
-        <thead>
-        <tr class="fw-bold">
-            <td rowspan="2">@ViewLocalizer["Song"]</td>
-            <td rowspan="2">@ViewLocalizer["Source"]</td>
-            <td colspan="2">@ViewLocalizer["Tonality"]</td>
-            <td rowspan="2">@ViewLocalizer["Rating"]</td>
-            <td rowspan="2">@ViewLocalizer["Coverage"]</td>
-        </tr>
-        <tr>
-            <td>@ViewLocalizer["Metadata"]</td>
-            <td>
-                @ViewLocalizer["Predicted"]
-                @await Html.PartialAsync("Badge", BadgeModel.Beta)
-            </td>
-        </tr>
-        </thead>
-        @foreach (var song in response.Songs)
-        {
+    @if (ViewBag.Limit != null)
+    {
+        @await Html.PartialAsync("Limit", (int)ViewBag.Limit)
+    }
+    else
+    {
+        <table class="table table-bordered table-sm">
+            <thead>
+            <tr class="fw-bold">
+                <td rowspan="2">@ViewLocalizer["Song"]</td>
+                <td rowspan="2">@ViewLocalizer["Source"]</td>
+                <td colspan="2">@ViewLocalizer["Tonality"]</td>
+                <td rowspan="2">@ViewLocalizer["Rating"]</td>
+                <td rowspan="2">@ViewLocalizer["Coverage"]</td>
+            </tr>
             <tr>
+                <td>@ViewLocalizer["Metadata"]</td>
                 <td>
-                    @string.Join(", ", song.Header.Artists ?? Enumerable.Empty<string>()) – @Html.ActionLink(song.Header.Title, "Song", "Home", new SongModel { ExternalId = song.Header.ExternalId, Highlight = Model.Query })
+                    @ViewLocalizer["Predicted"]
+                    @await Html.PartialAsync("Badge", BadgeModel.Beta)
                 </td>
-                <td>@song.Header.Source</td>
-                <td>@song.Header.BestTonality?.Tonality.TryParseBestTonality()?.ToSongTonalityTitle()</td>
-                <td>@song.PredictedTonalityIndex?.ToSongTonalityTitle()</td>
-                <td class="text-end">@((int)(song.Header.Rating ?? 0))%</td>
-                <td class="text-end">@song.Coverage.ToString("P0")</td>
             </tr>
-        }
-    </table>
+            </thead>
+            @foreach (var song in response.Songs)
+            {
+                <tr>
+                    <td>
+                        @string.Join(", ", song.Header.Artists ?? Enumerable.Empty<string>()) – @Html.ActionLink(song.Header.Title, "Song", "Home", new SongModel { ExternalId = song.Header.ExternalId, Highlight = Model.Query })
+                    </td>
+                    <td>@song.Header.Source</td>
+                    <td>@song.Header.BestTonality?.Tonality.TryParseBestTonality()?.ToSongTonalityTitle()</td>
+                    <td>@song.PredictedTonalityIndex?.ToSongTonalityTitle()</td>
+                    <td class="text-end">@((int)(song.Header.Rating ?? 0))%</td>
+                    <td class="text-end">@song.Coverage.ToString("P0")</td>
+                </tr>
+            }
+        </table>
+    }
 
     @await Html.PartialAsync("Paging", Model)
 }
diff --git a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/SongsByHeader.cshtml b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/SongsByHeader.cshtml
index 16b0d003..77e0c128 100644
--- a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/SongsByHeader.cshtml
+++ b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Home/SongsByHeader.cshtml
@@ -51,8 +51,14 @@
 
     @await Html.PartialAsync("Paging", Model)
 
-    <table class="table table-bordered table-sm">
-        <thead>
+    @if (ViewBag.Limit != null)
+    {
+        @await Html.PartialAsync("Limit", (int)ViewBag.Limit)
+    }
+    else
+    {
+        <table class="table table-bordered table-sm">
+            <thead>
             <tr class="fw-bold">
                 <td rowspan="2">@ViewLocalizer["Song"]</td>
                 <td rowspan="2">@ViewLocalizer["Source"]</td>
@@ -66,26 +72,27 @@
                     @await Html.PartialAsync("Badge", BadgeModel.Beta)
                 </td>
             </tr>
-        </thead>
-        @foreach (var (song, predictedTonalityIndex) in response.Songs)
-        {
-            <tr>
-                <td>
-                    @foreach (var (fragment, isHighlighted) in SearchHighlightingTools.GetFragments(Model.Query, string.Join(", ", song.Artists ?? Enumerable.Empty<string>())))
-                    {<span class="@(isHighlighted ? "search-highlighted" : null)">@fragment</span>}
-                    <span> – </span>
-                    <a href="@Url.Action("Song", new SongModel { ExternalId = song.ExternalId })">
-                        @foreach (var (fragment, isHighlighted) in SearchHighlightingTools.GetFragments(Model.Query, song.Title!))
+            </thead>
+            @foreach (var (song, predictedTonalityIndex) in response.Songs)
+            {
+                <tr>
+                    <td>
+                        @foreach (var (fragment, isHighlighted) in SearchHighlightingTools.GetFragments(Model.Query, string.Join(", ", song.Artists ?? Enumerable.Empty<string>())))
                         {<span class="@(isHighlighted ? "search-highlighted" : null)">@fragment</span>}
-                    </a>
-                </td>
-                <td>@song.Source</td>
-                <td>@song.BestTonality?.Tonality.TryParseBestTonality()?.ToSongTonalityTitle()</td>
-                <td>@predictedTonalityIndex?.ToSongTonalityTitle()</td>
-                <td class="text-end">@((int)(song.Rating ?? 0))%</td>
-            </tr>
-        }
-    </table>
+                        <span> – </span>
+                        <a href="@Url.Action("Song", new SongModel { ExternalId = song.ExternalId })">
+                            @foreach (var (fragment, isHighlighted) in SearchHighlightingTools.GetFragments(Model.Query, song.Title!))
+                            {<span class="@(isHighlighted ? "search-highlighted" : null)">@fragment</span>}
+                        </a>
+                    </td>
+                    <td>@song.Source</td>
+                    <td>@song.BestTonality?.Tonality.TryParseBestTonality()?.ToSongTonalityTitle()</td>
+                    <td>@predictedTonalityIndex?.ToSongTonalityTitle()</td>
+                    <td class="text-end">@((int)(song.Rating ?? 0))%</td>
+                </tr>
+            }
+        </table>
+    }
 
     @await Html.PartialAsync("Paging", Model)
 }
diff --git a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Shared/Limit.cshtml b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Shared/Limit.cshtml
new file mode 100644
index 00000000..4e14c396
--- /dev/null
+++ b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Shared/Limit.cshtml
@@ -0,0 +1,9 @@
+@model int
+@using Microsoft.AspNetCore.Mvc.Localization
+@inject IViewLocalizer ViewLocalizer
+
+<div class="alert alert-warning" role="alert">
+    <p>
+        @ViewLocalizer["Only the first and the last {0} results are available in the playground. To access more, please contact the developers.", Model]
+    </p>
+</div>
\ No newline at end of file
diff --git a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Shared/Limit.ru.resx b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Shared/Limit.ru.resx
new file mode 100644
index 00000000..5afc782e
--- /dev/null
+++ b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Shared/Limit.ru.resx
@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <data name="Only the first and the last {0} results are available in the playground. To access more, please contact the developers." xml:space="preserve">
+    <value>Только первые и последние {0} результатов доступны в песочнице. Чтобы получить доступ к остальным, пожалуйста, свяжитесь с разработчиками.</value>
+  </data>
+</root>
\ No newline at end of file
diff --git a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Shared/Trace.cshtml b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Shared/Trace.cshtml
index fdcc1250..8084dad4 100644
--- a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Shared/Trace.cshtml
+++ b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Shared/Trace.cshtml
@@ -6,7 +6,7 @@
     ApiTraceBag? trace = ViewBag.Trace;
 }
 
-@if (trace != null)
+@if (trace != null && ViewBag.Limit == null)
 {
     <h3 class="mt-4">@ViewLocalizer["Trace"]</h3>
     @foreach (var request in trace.Requests)
diff --git a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Tonalities/Loops.cshtml b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Tonalities/Loops.cshtml
index 8d5d2762..110334ac 100644
--- a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Tonalities/Loops.cshtml
+++ b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Tonalities/Loops.cshtml
@@ -108,8 +108,14 @@
 
     @await Html.PartialAsync("Paging", Model)
 
-    <table class="table table-bordered table-sm">
-        <thead>
+    @if (ViewBag.Limit != null)
+    {
+        @await Html.PartialAsync("Limit", (int)ViewBag.Limit)
+    }
+    else
+    {
+        <table class="table table-bordered table-sm">
+            <thead>
             <tr class="fw-bold">
                 <td>@ViewLocalizer["Progression"]</td>
                 @if (Model.ViewMode == StructureViewMode.Interpreted)
@@ -128,52 +134,53 @@
                 <td class="my-vertical">@ViewLocalizer["Tonic Score"]</td>
                 <td class="my-vertical">@ViewLocalizer["Scale Score"]</td>
             </tr>
-        </thead>
-        @foreach (var loop in response.Loops)
-        {
-            <tr>
-                @{
-                    var predicted = loop.Probabilities.GetPredictedTonality();
-                    var secondPredicted = loop.Probabilities.GetSecondPredictedTonality(out var secondConfidence);
-                    var relativeToPredicted = predicted.GetRelativeScale(false);
-                    var predictedViewMode = Model.ViewMode == StructureViewMode.Interpreted ? predicted.OnceAsNullable() : null;
-                }
-
-                <td>@Html.ActionLink(loop.Normalized.GetTitle(predictedViewMode), "Loop", new StructureLoopModel { Normalized = loop.Normalized })</td>
-                @if (Model.ViewMode == StructureViewMode.Interpreted)
-                {
-                    <td>@loop.Normalized.GetFunctionsTitle(predicted)</td>
-                }
-                <td class="fw-bold">@predicted.ToLoopTonalityTitle(predictedViewMode)</td>
-                <td class="text-end">@loop.Probabilities.TonalityConfidence().ToString("P0")</td>
-                <td class="fw-bold">@secondPredicted.ToLoopTonalityTitle(predictedViewMode)</td>
-                <td class="text-end">@secondConfidence.ToString("P0")</td>
-                @if (Model.ViewMode == StructureViewMode.Interpreted)
-                {
-                    <td>@loop.Normalized.GetTitle(secondPredicted)</td>
-                    <td>@loop.Normalized.GetFunctionsTitle(secondPredicted)</td>
-                }
-                @if (secondPredicted != relativeToPredicted)
-                {
-                    <td class="fw-bold">@relativeToPredicted.ToLoopTonalityTitle(predictedViewMode)</td>
-                    <td class="text-end">@loop.Probabilities[relativeToPredicted.ToIndex()].ToString("P0")</td>
-                }
-                else
-                {
-                    <td></td>
-                    <td></td>
-                }
-                <td class="text-end">@loop.TonicScore.ToString("P0")</td>
-                <td class="text-end">@loop.Length</td>
-                <td class="text-end">@loop.TotalSongs.ToString("N0")</td>
-                <td class="text-end">@loop.TotalOccurrences.ToString("N0")</td>
-                <td class="text-end">@loop.TotalSuccessions.ToString("N0")</td>
-                <td class="text-end">@loop.AverageCoverage.ToString("P0")</td>
-                <td class="text-end">@loop.Probabilities.TonicConfidence(false).ToString("P0")</td>
-                <td class="text-end">@loop.ScaleScore.ToString("P0")</td>
-            </tr>
-        }
-    </table>
+            </thead>
+            @foreach (var loop in response.Loops)
+            {
+                <tr>
+                    @{
+                        var predicted = loop.Probabilities.GetPredictedTonality();
+                        var secondPredicted = loop.Probabilities.GetSecondPredictedTonality(out var secondConfidence);
+                        var relativeToPredicted = predicted.GetRelativeScale(false);
+                        var predictedViewMode = Model.ViewMode == StructureViewMode.Interpreted ? predicted.OnceAsNullable() : null;
+                    }
+
+                    <td>@Html.ActionLink(loop.Normalized.GetTitle(predictedViewMode), "Loop", new StructureLoopModel { Normalized = loop.Normalized })</td>
+                    @if (Model.ViewMode == StructureViewMode.Interpreted)
+                    {
+                        <td>@loop.Normalized.GetFunctionsTitle(predicted)</td>
+                    }
+                    <td class="fw-bold">@predicted.ToLoopTonalityTitle(predictedViewMode)</td>
+                    <td class="text-end">@loop.Probabilities.TonalityConfidence().ToString("P0")</td>
+                    <td class="fw-bold">@secondPredicted.ToLoopTonalityTitle(predictedViewMode)</td>
+                    <td class="text-end">@secondConfidence.ToString("P0")</td>
+                    @if (Model.ViewMode == StructureViewMode.Interpreted)
+                    {
+                        <td>@loop.Normalized.GetTitle(secondPredicted)</td>
+                        <td>@loop.Normalized.GetFunctionsTitle(secondPredicted)</td>
+                    }
+                    @if (secondPredicted != relativeToPredicted)
+                    {
+                        <td class="fw-bold">@relativeToPredicted.ToLoopTonalityTitle(predictedViewMode)</td>
+                        <td class="text-end">@loop.Probabilities[relativeToPredicted.ToIndex()].ToString("P0")</td>
+                    }
+                    else
+                    {
+                        <td></td>
+                        <td></td>
+                    }
+                    <td class="text-end">@loop.TonicScore.ToString("P0")</td>
+                    <td class="text-end">@loop.Length</td>
+                    <td class="text-end">@loop.TotalSongs.ToString("N0")</td>
+                    <td class="text-end">@loop.TotalOccurrences.ToString("N0")</td>
+                    <td class="text-end">@loop.TotalSuccessions.ToString("N0")</td>
+                    <td class="text-end">@loop.AverageCoverage.ToString("P0")</td>
+                    <td class="text-end">@loop.Probabilities.TonicConfidence(false).ToString("P0")</td>
+                    <td class="text-end">@loop.ScaleScore.ToString("P0")</td>
+                </tr>
+            }
+        </table>
+    }
 
     @await Html.PartialAsync("Paging", Model)
 }
diff --git a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Tonalities/Songs.cshtml b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Tonalities/Songs.cshtml
index 9498000b..65c17437 100644
--- a/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Tonalities/Songs.cshtml
+++ b/HarmonyDB.Playground/HarmonyDB.Playground.Web/Views/Tonalities/Songs.cshtml
@@ -166,9 +166,15 @@
     </div>
 
     @await Html.PartialAsync("Paging", Model)
-
-    <table class="table table-bordered table-sm">
-        <thead>
+    
+    @if (ViewBag.Limit != null)
+    {
+        @await Html.PartialAsync("Limit", (int)ViewBag.Limit)
+    }
+    else
+    {
+        <table class="table table-bordered table-sm">
+            <thead>
             <tr class="fw-bold">
                 <td>@ViewLocalizer["Song"]</td>
                 <td>@ViewLocalizer["Source"]</td>
@@ -183,48 +189,49 @@
                 <td>@ViewLocalizer["Tonic Score"]</td>
                 <td>@ViewLocalizer["Scale Score"]</td>
             </tr>
-        </thead>
-        @foreach (var song in response.Songs)
-        {
-            <tr>
-                <td>
-                    @string.Join(", ", song.IndexHeader.Artists ?? Enumerable.Empty<string>()) – @Html.ActionLink(song.IndexHeader.Title, "Song", new StructureSongModel
-                                                                                    {
-                                                                                        ExternalId = song.IndexHeader.ExternalId
-                                                                                    })
-                </td>
-                <td>@song.IndexHeader.Source</td>
-                <td>
-                    <b>@song.KnownTonalityIndex?.ToSongTonalityTitle()</b>
-                </td>
-                <td>@song.IndexHeader.BestTonality?.IsReliable</td>
-                <td class="text-end">@((int)(song.IndexHeader.Rating ?? 0))%</td>
-                <td class="text-end">@song.TotalLoops.ToString("N0")</td>
-                @{
-                    var predicted = song.Probabilities.GetPredictedTonality();
-                    var secondPredicted = song.Probabilities.GetSecondPredictedTonality(out var secondConfidence);
-                    var relativeToPredicted = predicted.GetRelativeScale(true);
-                }
-                <td class="fw-bold">@predicted.ToSongTonalityTitle()</td>
-                <td class="text-end">@song.Probabilities.TonalityConfidence().ToString("P0")</td>
-                <td class="fw-bold">@secondPredicted.ToSongTonalityTitle()</td>
-                <td class="text-end">@secondConfidence.ToString("P0")</td>
-                @if (secondPredicted != relativeToPredicted)
-                {
-                    <td class="fw-bold">@relativeToPredicted.ToSongTonalityTitle()</td>
-                    <td class="text-end">@song.Probabilities[relativeToPredicted.ToIndex()].ToString("P0")</td>
-                }
-                else
-                {
-                    <td></td>
-                    <td></td>
-                }
-                <td class="text-end">@song.Probabilities.TonicConfidence(true).ToString("P0")</td>
-                <td class="text-end">@song.ScaleScore.ToString("P0")</td>
-                <td class="text-end">@song.TonicScore.ToString("P0")</td>
-            </tr>
-        }
-    </table>
+            </thead>
+            @foreach (var song in response.Songs)
+            {
+                <tr>
+                    <td>
+                        @string.Join(", ", song.IndexHeader.Artists ?? Enumerable.Empty<string>()) – @Html.ActionLink(song.IndexHeader.Title, "Song", new StructureSongModel
+                                                                                                     {
+                                                                                                         ExternalId = song.IndexHeader.ExternalId
+                                                                                                     })
+                    </td>
+                    <td>@song.IndexHeader.Source</td>
+                    <td>
+                        <b>@song.KnownTonalityIndex?.ToSongTonalityTitle()</b>
+                    </td>
+                    <td>@song.IndexHeader.BestTonality?.IsReliable</td>
+                    <td class="text-end">@((int)(song.IndexHeader.Rating ?? 0))%</td>
+                    <td class="text-end">@song.TotalLoops.ToString("N0")</td>
+                    @{
+                        var predicted = song.Probabilities.GetPredictedTonality();
+                        var secondPredicted = song.Probabilities.GetSecondPredictedTonality(out var secondConfidence);
+                        var relativeToPredicted = predicted.GetRelativeScale(true);
+                    }
+                    <td class="fw-bold">@predicted.ToSongTonalityTitle()</td>
+                    <td class="text-end">@song.Probabilities.TonalityConfidence().ToString("P0")</td>
+                    <td class="fw-bold">@secondPredicted.ToSongTonalityTitle()</td>
+                    <td class="text-end">@secondConfidence.ToString("P0")</td>
+                    @if (secondPredicted != relativeToPredicted)
+                    {
+                        <td class="fw-bold">@relativeToPredicted.ToSongTonalityTitle()</td>
+                        <td class="text-end">@song.Probabilities[relativeToPredicted.ToIndex()].ToString("P0")</td>
+                    }
+                    else
+                    {
+                        <td></td>
+                        <td></td>
+                    }
+                    <td class="text-end">@song.Probabilities.TonicConfidence(true).ToString("P0")</td>
+                    <td class="text-end">@song.ScaleScore.ToString("P0")</td>
+                    <td class="text-end">@song.TonicScore.ToString("P0")</td>
+                </tr>
+            }
+        </table>
+    }
 
     @await Html.PartialAsync("Paging", Model)
 }