Haskell风格图像网格提示，用于书籍封面

这算是一种实验性的提示词。我用它来可视化4部经典作品，搭配米饭和其他各种配料。 2x2网格，16:9，对4本不受版权限制的书籍执行此操作：type Share = Float data Constituent = C { name :: Text, share :: Share } -- Σ shares = 1 (R₃) -- R₁+R₂：对形状区域进行划分，保持度量并贴合边界 partition :: Region -> [Constituent] -> [SubRegion] -- |Ω_i| = share_i · |Ω| （面积保持） -- disjoint Ω_i ; ∪Ω_i = Ω ; ∂(∪Ω_i) = ∂Ω （形状贴合，边缘干净） reads_as :: Image -> (Silhouette, Recipe) -- 远处看是轮廓，近处看是配料比例 forbidden :: [Regex] forbidden = [ /equal_sized_parts/ , /wrong_proportions/ , /missing_component/ , /broken_silhouette/ , /overlap/ , /tilt/ , /hands/ , /glare/ ] render :: Subject -> Shape -> Image render s sh = let d = constituents s; Ω = region sh in assert (sum (share <$> d)==1 && measure_preserving (partition Ω d) Ω) $ flat_lay (partition Ω d) overhead_softbox matte soft_shadows (tiny_pct d)