Sugerencia de relevo em papel para qualquer tema (GPT Image 2)

2x2 grid, 16:9, faça isso para 4 imperadores famosos e seus reinos: type PaperColor = Sepia | Cream | Parchment | Shadow data Material = AgedPaper PaperColor -- B₁: Tudo na cena DEVE ser do tipo Material data SceneElement = Figure Material | Page Material | Text Material | Prop Material -- B₂: A Z-Stack impõe profundidade física data ZStack = Stack [SceneElement] -- Ordenado do fundo (z=0) para o primeiro plano (z=n) -- B₄: A iluminação é uma função que recebe a Z-Stack e produz sombras nítidas em camadas raking_light :: ZStack -> Image raking_light stack = apply_directional_light stack (angle=Low, softness=Soft, shadow_sharpness=Sharp) render :: ScientistArchetype -> Quote -> Image render s q = let figureFigure = Figure (AgedPaper Cream) -- O cientista é feito de papel page = Page (AgedPaper Sepia) text = Text (AgedPaper Parchment) -- A citação é cortada do papel in raking_light (Stack [page, text, figure, page])