Four Legendary Founders Rendered in Vibrant Screenprint 2x2 Grid

2x2 grid, 16:9, do this for 4 legendary founders: data InkPortrait = Ip { features :: [Trait], face_fill :: None }        -- Y₁: line only
data SwirlField = F { palette :: PeriodPalette, coverage :: FullBleed, halo :: FaceZone }  -- Y₂
flows_around :: SwirlField -> InkPortrait -> Bool
flows_around f p = support f ∩ face_zone p = ∅                          -- swirls never over the face

data Title = T { words :: [(Word, FlatColor)] } ; data Badge = B { era :: Decade, typeface :: Groovy }  -- Y₃
data Milestone = M { year :: Year, icon :: Icon, caption :: Line }
chronological :: [Milestone] -> Bool ; real :: [Milestone] -> Subject -> Bool   -- Y₄

forbidden :: [Regex]
forbidden = [ /color_filled_face/ , /plain_background/ , /off_period_palette/ , /no_era_badge/ ,
              /fabricated_milestones/ , /lorem/ , /illegible/ , /modern_type/ , /swirls_over_portrait/ ]

render :: Subject -> Image
render s = let spec = infer s
           in  assert (flows_around (field spec)(portrait spec) && chronological (milestones spec)
                       && real (milestones spec) s) $
               screenprint (portrait spec)(field spec)(title spec)(badge spec)(footer spec)