Paper Relief Hierarchical Composition

2x2 grid, 16:9, do this for {argument name="subject" default="4 famous emperors and their kingdoms"}: type PaperColor = Sepia | Cream | Parchment | Shadow data Material = AgedPaper PaperColor -- B₁: Everything in the scene MUST be of type Material data SceneElement = Figure Material | Prop Material | Page Material | Text Material -- B₂: The Z-Stack enforces physical depth data ZStack = Stack [SceneElement] -- Ordered from background (z=0) to foreground (z=n) -- B₄: Lighting is a function that takes the Z-Stack and produces sharp layered shadows raking_light :: ZStack -> Image raking_light stack = apply_directional_light stack (angle=Low, softness=Soft, shadow_sharpness=High) render :: ScientistArchetype -> Quote -> Image render s q = let figure = Figure (AgedPaper Cream) -- The scientist is made of paper pages = Page (AgedPaper Sepia) text = Text (AgedPaper Parchment) -- The quote is cut from paper in raking_light (Stack [pages, text, figure, pages])