Grille d'images de style Haskell pour couvertures de livres

Une sorte de prompt expérimental. Je l'ai utilisé pour visualiser 4 classiques avec du riz et tous ces autres ingrédients. Grille 2x2, 16:9, fais ça pour 4 livres non protégés par le droit d'auteur : type Share = Float data Constituent = C { name :: Text, share :: Share } -- Σ shares = 1 (R₃) -- R₁+R₂ : une partition de la région de la forme qui préserve la mesure et se conforme à la frontière partition :: Region -> [Constituent] -> [SubRegion] -- |Ω_i| = share_i · |Ω| (préservant l'aire) -- Ω_i disjoints ; ∪Ω_i = Ω ; ∂(∪Ω_i) = ∂Ω (conforme à la forme, bord net) reads_as :: Image -> (Silhouette, Recipe) -- loin = la FORME, près = les proportions 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)