Hybrid Visual Style Generator with SQL Arrays

WITH moves(i, name) AS ( SELECT row_number() OVER ()-1, v FROM unnest(ARRAY[ 'Swiss International Style','Soviet Constructivism','Psychedelic 1960s Rock Poster', 'Japanese City Pop Advertising','Bauhaus Exhibition Poster','Art Nouveau Lithograph', 'Brutalist Typography Poster','1980s Cyberpunk Flyer','Italian Futurist Manifesto', 'Minimalist Museum Poster','French New Wave Cinema Poster','Punk Xerox Flyer', 'Memphis Design','Vintage Travel Poster','Contemporary Fashion Campaign']) v ), graph(i, name) AS ( SELECT row_number() OVER ()-1, v FROM unnest(ARRAY[ 'Oversized Grid Typography','Torn Paper Collage','Airbrushed Gradient Field','Risograph Halftone', 'Screenprint Misregistration','Photocopy Distortion','Editorial Magazine Layout','Modular Type Blocks', 'Diagonal Constructivist Geometry','Neon Signage Layering','Hand-Lettered Ornament','Archival Stamp System', 'Folded Brochure Logic','Ticket Stub Composition','Billboard Cropping']) v ), -- FIXED sampler: disjoint ranges distinct; both indices used; no clobber; seeded (G4) rolls AS ( SELECT (SELECT name FROM moves WHERE i = floor(random()*8)::int) AS m1, (SELECT name FROM moves WHERE i = 8 + floor(random()*7)::int) AS m2, (SELECT name FROM graph WHERE i = floor(random()*7)::int) AS g1, (SELECT name FROM graph WHERE i = 7 + floor(random()*8)::int) AS g2 -- CHECK (m1<>m2 AND g1<>g2) ), -- G1: channel-wise dominance fusion into ONE row (the shared genotype) fusion AS ( SELECT master('grid'), master('color'), master('typography'), master('texture'), master('ornament'), reduce_inks(pal(m1)||pal(m2), proc(master('texture'))) AS palette, name_grammar(master('color'), master('grid')) AS identity FROM rolls ), -- LEFT = phenotype (stylize + authentic process), RIGHT = genotype SELECTed from the SAME fusion row (G3) left AS ( SELECT stylize_preserving(InputA, fusion) || print_process(fusion.texture) AS poster FROM fusion -- CHECK ( iou(sil(InputA), sil(poster)) >= :tau ) -- G2 ), right AS ( SELECT spec_panel('dark_grey','white', texture=>NULL, lines=>ARRAY[ 'Poster Identity: '||fusion.identity, 'Poster Movement: Fuse '||fusion.m1||' with '||fusion.m2||'.', 'Graphic System: Build the layout using '||fusion.g1||' and '||fusion.g2||'.', 'Palette: '||fusion.palette||' Print: '||fusion.texture, 'Composition: Preserve subject silhouette and major scene layout.', 'Typography: Bold, intentional, era-appropriate hierarchy.', 'Print Texture: Authentic ink, paper, registration, aging.'] ) AS panel FROM fusion, rolls ) SELECT sheet_2to1(left.poster, right.panel) AS asset_sheet FROM left, right, fusion -- CHECK ( extract_tokens(left.poster) = printed_tokens(right.panel) ) -- G3 truth -- CHECK ( aspect = '2:1' AND right.panel.texture IS NULL ) -- G5 -- CHECK ( all of m1,m2,g1,g2 contribute >=1 token to left.poster ) -- G4 -- forbidden rows (duplicate roll / unused element / lying spec / textured right / wrong aspect / -- re-posed subject / flat digital) violate a CHECK never selected ;