from pptx import Presentation
from pptx.util import Inches, Pt, Emu
from pptx.dml.color import RGBColor
from pptx.enum.text import PP_ALIGN, MSO_ANCHOR
from pptx.util import Inches, Pt
from io import BytesIO

# ── Palette ────────────────────────────────────────────────────────────────────
TEAL        = RGBColor(0x00, 0x7A, 0x87)   # header / accent
TEAL_LIGHT  = RGBColor(0xE0, 0xF4, 0xF6)   # slide background tint
WHITE       = RGBColor(0xFF, 0xFF, 0xFF)
DARK        = RGBColor(0x1A, 0x1A, 0x2E)
ORANGE      = RGBColor(0xFF, 0x6F, 0x00)   # highlight / age badge
GRAY_BG     = RGBColor(0xF4, 0xF7, 0xF9)
GRAY_TEXT   = RGBColor(0x55, 0x55, 0x66)
GREEN       = RGBColor(0x2E, 0x7D, 0x32)

W = Inches(13.333)
H = Inches(7.5)

prs = Presentation()
prs.slide_width  = W
prs.slide_height = H
blank = prs.slide_layouts[6]

# ── Helpers ────────────────────────────────────────────────────────────────────

def bg(slide, color):
    """Fill slide background."""
    fill = slide.background.fill
    fill.solid()
    fill.fore_color.rgb = color

def rect(slide, l, t, w, h, color, radius=False):
    shape = slide.shapes.add_shape(
        1,  # MSO_SHAPE_TYPE.RECTANGLE
        Inches(l), Inches(t), Inches(w), Inches(h)
    )
    shape.fill.solid()
    shape.fill.fore_color.rgb = color
    shape.line.fill.background()
    return shape

def textbox(slide, l, t, w, h, text, size, bold=False, color=None,
            align=PP_ALIGN.LEFT, wrap=True, italic=False):
    tb = slide.shapes.add_textbox(Inches(l), Inches(t), Inches(w), Inches(h))
    tf = tb.text_frame
    tf.word_wrap = wrap
    tf.margin_left  = Pt(2)
    tf.margin_right = Pt(2)
    tf.margin_top   = Pt(2)
    tf.margin_bottom= Pt(2)
    for i, line in enumerate(text.split('\n')):
        if i == 0:
            p = tf.paragraphs[0]
        else:
            p = tf.add_paragraph()
        p.alignment = align
        run = p.add_run()
        run.text = line
        run.font.size  = Pt(size)
        run.font.bold  = bold
        run.font.italic= italic
        if color:
            run.font.color.rgb = color

def header_bar(slide, title, subtitle=None):
    """Teal top bar with white title."""
    rect(slide, 0, 0, 13.333, 1.15, TEAL)
    textbox(slide, 0.3, 0.05, 12.7, 0.7, title, 30, bold=True,
            color=WHITE, align=PP_ALIGN.LEFT)
    if subtitle:
        textbox(slide, 0.3, 0.72, 12.7, 0.4, subtitle, 14, bold=False,
                color=RGBColor(0xCC, 0xEE, 0xF2), align=PP_ALIGN.LEFT)

def bullet_box(slide, l, t, w, h, items, title=None,
               bg_color=GRAY_BG, title_color=TEAL, text_color=DARK,
               font_size=15, title_size=17):
    rect(slide, l, t, w, h, bg_color)
    y_off = t + 0.12
    if title:
        textbox(slide, l+0.15, y_off, w-0.25, 0.42, title, title_size,
                bold=True, color=title_color)
        y_off += 0.42
    for item in items:
        textbox(slide, l+0.25, y_off, w-0.35, 0.4,
                "● " + item, font_size, color=text_color)
        y_off += 0.42

def age_badge(slide, l, t, label):
    rect(slide, l, t, 2.0, 0.45, ORANGE)
    textbox(slide, l, t, 2.0, 0.45, label, 14, bold=True,
            color=WHITE, align=PP_ALIGN.CENTER)


# ══════════════════════════════════════════════════════════════════════════════
# SLIDE 1 — TITLE SLIDE
# ══════════════════════════════════════════════════════════════════════════════
s = prs.slides.add_slide(blank)
bg(s, TEAL)
rect(s, 0, 0, 13.333, 7.5, TEAL)  # solid bg

# White card in centre
rect(s, 1.2, 1.3, 10.9, 4.8, WHITE)

textbox(s, 1.4, 1.55, 10.5, 1.0,
        "Developmental Stages of Play", 36, bold=True, color=TEAL,
        align=PP_ALIGN.CENTER)
textbox(s, 1.4, 2.55, 10.5, 0.6,
        "Parental Implications & Clinical Practice", 24, bold=False,
        color=DARK, align=PP_ALIGN.CENTER, italic=True)

# Divider
rect(s, 3.5, 3.25, 6.3, 0.06, ORANGE)

textbox(s, 1.4, 3.45, 10.5, 0.45,
        "A Seminar for Parents and Clinicians", 17,
        color=GRAY_TEXT, align=PP_ALIGN.CENTER)
textbox(s, 1.4, 3.95, 10.5, 0.45,
        "Presented by a Developmental Pediatrician", 16,
        color=GRAY_TEXT, align=PP_ALIGN.CENTER)
textbox(s, 1.4, 4.5, 10.5, 0.45,
        "July 2026", 14, color=GRAY_TEXT, align=PP_ALIGN.CENTER, italic=True)

# Bottom strip
rect(s, 0, 6.8, 13.333, 0.7, ORANGE)
textbox(s, 0, 6.83, 13.333, 0.45,
        "Play is not just fun — it is the work of childhood.",
        15, bold=True, color=WHITE, align=PP_ALIGN.CENTER)


# ══════════════════════════════════════════════════════════════════════════════
# SLIDE 2 — LEARNING OBJECTIVES
# ══════════════════════════════════════════════════════════════════════════════
s = prs.slides.add_slide(blank)
bg(s, WHITE)
header_bar(s, "Learning Objectives",
           "By the end of this seminar, participants will be able to:")

objectives = [
    "Describe the developmental stages of play from birth to school age",
    "Explain how each stage links to cognitive, social, and emotional milestones",
    "Identify parental behaviors that support (or hinder) play development",
    "Recognise red flags that may signal developmental delay",
    "Apply play-based guidance in clinical consultations and parent education",
]
for i, obj in enumerate(objectives):
    y = 1.3 + i * 1.05
    rect(s, 0.5, y, 12.3, 0.85, TEAL_LIGHT)
    # number circle
    rect(s, 0.55, y+0.05, 0.5, 0.5, TEAL)
    textbox(s, 0.55, y+0.05, 0.5, 0.5, str(i+1), 17, bold=True,
            color=WHITE, align=PP_ALIGN.CENTER)
    textbox(s, 1.2, y+0.1, 11.3, 0.65, obj, 17, color=DARK)


# ══════════════════════════════════════════════════════════════════════════════
# SLIDE 3 — WHY PLAY MATTERS
# ══════════════════════════════════════════════════════════════════════════════
s = prs.slides.add_slide(blank)
bg(s, WHITE)
header_bar(s, "Why Play Matters",
           "Play is the primary vehicle for child learning and development")

domains = [
    ("🧠 Cognitive", ["Problem-solving & reasoning", "Language acquisition", "Executive function", "Attention & memory"]),
    ("❤️ Emotional", ["Emotional regulation", "Self-esteem & confidence", "Resilience", "Coping with anxiety"]),
    ("🤝 Social", ["Turn-taking & sharing", "Empathy & perspective-taking", "Conflict resolution", "Peer relationships"]),
    ("💪 Physical", ["Gross & fine motor skills", "Sensory integration", "Body awareness", "Hand-eye coordination"]),
]

cols = [(0.3, TEAL), (3.6, GREEN), (6.9, ORANGE), (10.2, RGBColor(0x55, 0x33, 0x99))]
for (domain_title, items), (x_pos, col) in zip(domains, cols):
    rect(s, x_pos, 1.3, 2.95, 5.6, GRAY_BG)
    rect(s, x_pos, 1.3, 2.95, 0.55, col)
    textbox(s, x_pos+0.1, 1.32, 2.75, 0.5, domain_title, 16,
            bold=True, color=WHITE, align=PP_ALIGN.CENTER)
    for i, item in enumerate(items):
        textbox(s, x_pos+0.15, 1.98+i*0.82, 2.65, 0.6,
                "▸ " + item, 13, color=DARK)

# Source note
textbox(s, 0.3, 7.1, 12.0, 0.35,
        "Sources: Kaplan & Sadock's Synopsis of Psychiatry; AAP 2018 Play Policy Statement",
        10, color=GRAY_TEXT, italic=True)


# ══════════════════════════════════════════════════════════════════════════════
# SLIDE 4 — OVERVIEW TABLE of STAGES
# ══════════════════════════════════════════════════════════════════════════════
s = prs.slides.add_slide(blank)
bg(s, WHITE)
header_bar(s, "Developmental Stages of Play: Overview",
           "Age-by-age progression — all ages are approximate")

headers = ["Stage", "Age", "Key Features", "Cognitive Link"]
col_w   = [2.2, 1.6, 5.5, 3.7]
col_x   = [0.25, 2.5, 4.15, 9.7]

# Header row
for txt, cx, cw in zip(headers, col_x, col_w):
    rect(s, cx, 1.25, cw-0.05, 0.5, TEAL)
    textbox(s, cx+0.05, 1.28, cw-0.1, 0.44, txt, 15,
            bold=True, color=WHITE, align=PP_ALIGN.CENTER)

rows = [
    ("Sensorimotor",  "0–12 mo",
     "Mouthing, banging, dropping, exploring object properties",
     "Piaget Stage 1 — learning through senses & movement"),
    ("Functional",    "12–18 mo",
     "Uses objects per function: comb to hair, phone to ear",
     "Object permanence; cause-and-effect understanding"),
    ("Parallel",      "18mo–3 yr",
     "Plays alongside (not with) other children; no interaction",
     "Early symbolic capacity; egocentrism prominent"),
    ("Early Symbolic","18mo–3 yr",
     "Pretend with own body; uses one object to represent another",
     "Pre-operational thought; emerging language"),
    ("Complex Symbolic","30 mo+",
     "Dramatic sequences; imaginary objects; assigns roles to others",
     "Advanced symbolic thought; theory of mind beginning"),
    ("Cooperative",   "4–6 yr",
     "Group games with rules, shared goals, negotiation",
     "Concrete operational thought; moral reasoning emerges"),
]

row_colors = [GRAY_BG, WHITE, GRAY_BG, WHITE, GRAY_BG, WHITE]
for i, (stage, age, features, cog) in enumerate(rows):
    y = 1.85 + i * 0.85
    rc = row_colors[i]
    for cx, cw in zip(col_x, col_w):
        rect(s, cx, y, cw-0.05, 0.78, rc)
    textbox(s, col_x[0]+0.05, y+0.05, col_w[0]-0.1, 0.68, stage, 13, bold=True, color=TEAL)
    textbox(s, col_x[1]+0.05, y+0.05, col_w[1]-0.1, 0.68, age, 13, bold=True, color=ORANGE)
    textbox(s, col_x[2]+0.05, y+0.05, col_w[2]-0.1, 0.68, features, 12, color=DARK)
    textbox(s, col_x[3]+0.05, y+0.05, col_w[3]-0.1, 0.68, cog, 12, color=GRAY_TEXT, italic=True)


# ══════════════════════════════════════════════════════════════════════════════
# SLIDE 5 — SENSORIMOTOR PLAY (0–12 months)
# ══════════════════════════════════════════════════════════════════════════════
s = prs.slides.add_slide(blank)
bg(s, WHITE)
header_bar(s, "Stage 1: Sensorimotor Play",
           "Birth to 12 months — Learning through the body")

age_badge(s, 0.3, 1.3, "0 – 12 months")

# What it looks like
bullet_box(s, 0.3, 1.88, 6.0, 2.9,
    ["Mouthing, banging, shaking, dropping toys",
     "Exploring moving parts — poking, pulling",
     "Peek-a-boo; sound imitation games with caregiver",
     "Social smile (6 wks); laughter (4 mo); object permanence (8–12 mo)",
     "Solitary or with familiar caregiver"],
    title="What Play Looks Like", bg_color=TEAL_LIGHT)

# Parental implications
bullet_box(s, 6.55, 1.88, 6.5, 2.9,
    ["Respond promptly to vocalisations — builds secure attachment",
     "Floor time: supervised tummy time from Day 1",
     "Offer rattles, soft toys with textures, mirrors",
     "Talk, sing, narrate your actions — language wiring begins NOW",
     "Limit screens entirely (< 18 months per AAP guidelines)"],
    title="Parental Implications", bg_color=RGBColor(0xFF, 0xF3, 0xE0))

# Red flags
rect(s, 0.3, 4.95, 12.75, 0.75, RGBColor(0xFF, 0xEB, 0xEE))
textbox(s, 0.4, 5.0, 12.5, 0.65,
        "🚩 Red Flags: No social smile by 3 months | No babbling by 12 months | Not reaching for objects | "
        "No interest in faces | No response to name by 9 months",
        13, color=RGBColor(0xB7, 0x1C, 0x1C))

textbox(s, 0.3, 5.82, 12.5, 0.45,
        "Key developmental link: Sensorimotor play is the foundation of Piaget's Stage 1 — all learning"
        " flows from sensory experience and motor action.",
        12, color=GRAY_TEXT, italic=True)


# ══════════════════════════════════════════════════════════════════════════════
# SLIDE 6 — FUNCTIONAL PLAY (12–18 months)
# ══════════════════════════════════════════════════════════════════════════════
s = prs.slides.add_slide(blank)
bg(s, WHITE)
header_bar(s, "Stage 2: Functional Play",
           "12 to 18 months — Objects used for their purpose")

age_badge(s, 0.3, 1.3, "12 – 18 months")

bullet_box(s, 0.3, 1.88, 6.0, 3.1,
    ["Pushes toy car, touches comb to hair, holds phone to ear",
     "Stacks blocks, bangs drums with intent",
     "Begins imitating household actions (sweeping, stirring)",
     "10–12 words by 12 months",
     "Points to share interest (proto-declarative pointing)"],
    title="What Play Looks Like", bg_color=TEAL_LIGHT)

bullet_box(s, 6.55, 1.88, 6.5, 3.1,
    ["Name objects during play: 'That's a cup — we drink from it!'",
     "Allow safe exploration — child-proof rather than restrict",
     "Follow the child's lead (child-directed play)",
     "Read board books together daily",
     "Encourage imitation games — clapping, waving",
     "Avoid over-directing; let the child problem-solve"],
    title="Parental Implications", bg_color=RGBColor(0xFF, 0xF3, 0xE0))

rect(s, 0.3, 5.15, 12.75, 0.65, RGBColor(0xFF, 0xEB, 0xEE))
textbox(s, 0.4, 5.2, 12.5, 0.55,
        "🚩 Red Flags: No single words by 16 months | Not imitating actions | No pointing by 14 months | "
        "No functional use of objects",
        13, color=RGBColor(0xB7, 0x1C, 0x1C))

textbox(s, 0.3, 5.95, 12.5, 0.45,
        "Key developmental link: Functional play signals object permanence and early understanding of cause-effect."
        " It is a precursor to symbolic representation.",
        12, color=GRAY_TEXT, italic=True)


# ══════════════════════════════════════════════════════════════════════════════
# SLIDE 7 — PARALLEL PLAY & EARLY SYMBOLIC (18 months – 3 years)
# ══════════════════════════════════════════════════════════════════════════════
s = prs.slides.add_slide(blank)
bg(s, WHITE)
header_bar(s, "Stages 3 & 4: Parallel Play and Early Symbolic Play",
           "18 months to 3 years — Side by side, and into the imagination")

age_badge(s, 0.3, 1.3, "18 mo – 3 years")

# Left: parallel play
bullet_box(s, 0.3, 1.88, 6.1, 2.55,
    ["Plays alongside another child — no real interaction",
     "Both children may use same toys without sharing",
     "Begins to notice and mimic peers",
     "Associative play emerges by age 3 (same toys, mild interaction)"],
    title="Parallel Play", bg_color=TEAL_LIGHT)

# Right: early symbolic
bullet_box(s, 6.55, 1.88, 6.5, 2.55,
    ["Pretends to eat / sleep using own body",
     "'Feeds' doll or mother — other as agent",
     "Block becomes a car — object substitution",
     "Sequences activities: 'cook then eat'"],
    title="Early Symbolic Play", bg_color=RGBColor(0xE8, 0xF5, 0xE9))

# Parental implications spanning full width
rect(s, 0.3, 4.6, 12.75, 1.8, RGBColor(0xFF, 0xF3, 0xE0))
textbox(s, 0.4, 4.65, 12.5, 0.4, "Parental Implications", 16, bold=True, color=ORANGE)
lines = [
    "● Arrange play dates — parallel play is developmentally normal; do not force sharing before age 3–4",
    "● Supply open-ended toys: blocks, dolls, play kitchen, soft animals",
    "● Join in pretend play — take a cup of 'tea'; narrate what the child does",
    "● Limit screen time; 18–24 month-olds learn language better from people than screens",
    "● Use play to prepare for transitions: 'let's pretend we're going to the doctor' before appointments",
]
for i, line in enumerate(lines):
    textbox(s, 0.45, 5.1 + i*0.32, 12.3, 0.3, line, 13, color=DARK)

rect(s, 0.3, 6.52, 12.75, 0.65, RGBColor(0xFF, 0xEB, 0xEE))
textbox(s, 0.4, 6.55, 12.5, 0.55,
        "🚩 Red Flags: No pretend play by 18 months | No two-word phrases by 24 months | "
        "No interest in other children | Stereotyped/repetitive play only",
        13, color=RGBColor(0xB7, 0x1C, 0x1C))


# ══════════════════════════════════════════════════════════════════════════════
# SLIDE 8 — COMPLEX SYMBOLIC / DRAMATIC PLAY (30 months – 5 years)
# ══════════════════════════════════════════════════════════════════════════════
s = prs.slides.add_slide(blank)
bg(s, WHITE)
header_bar(s, "Stage 5: Complex Symbolic & Dramatic Play",
           "30 months to 5 years — Scripts, roles, and narrative")

age_badge(s, 0.3, 1.3, "30 mo – 5 years")

bullet_box(s, 0.3, 1.88, 5.9, 3.2,
    ["Plans and acts out dramatic play sequences",
     "Uses imaginary objects (invisible tea, pretend fire)",
     "Assigns roles to others: 'You be the patient'",
     "Develops narrative arcs: beginning-middle-end",
     "Imaginary companions common (up to 50% of children, 3–10 yr)",
     "Drawings add arms, legs, torso progressively"],
    title="What Play Looks Like", bg_color=TEAL_LIGHT)

bullet_box(s, 6.45, 1.88, 6.6, 3.2,
    ["Participate without taking over — be a supporting character",
     "Ask open questions: 'What happens next in your story?'",
     "Accept and encourage imaginary companions — developmentally healthy",
     "Provide dress-up clothes, puppets, art materials",
     "Use play to process fears and transitions",
     "Read narrative picture books — expands play vocabulary",
     "Co-view and discuss TV — if any screen time at all"],
    title="Parental Implications", bg_color=RGBColor(0xFF, 0xF3, 0xE0))

rect(s, 0.3, 5.25, 12.75, 0.65, RGBColor(0xFF, 0xEB, 0xEE))
textbox(s, 0.4, 5.3, 12.5, 0.55,
        "🚩 Red Flags: No complex pretend by 36 months | Cannot take on another's role | "
        "Cannot sequence 3-step play scenarios | Persistent solitary rigid play",
        13, color=RGBColor(0xB7, 0x1C, 0x1C))

textbox(s, 0.3, 6.05, 12.5, 0.9,
        "Clinical note: By age 2.5–3, doll/animal play reveals themes of family life — nurturance, "
        "discipline, sibling dynamics, even experiences of abuse. Kaplan & Sadock caution examiners to view "
        "play as a possible combination of re-enactment, fears, and fantasy — not literal disclosure.",
        12, color=GRAY_TEXT, italic=True)


# ══════════════════════════════════════════════════════════════════════════════
# SLIDE 9 — COOPERATIVE / RULE-BASED PLAY (School Age)
# ══════════════════════════════════════════════════════════════════════════════
s = prs.slides.add_slide(blank)
bg(s, WHITE)
header_bar(s, "Stage 6: Cooperative & Rule-Based Play",
           "4 to 8 years — Games with rules, teams, and moral reasoning")

age_badge(s, 0.3, 1.3, "4 – 8 years")

bullet_box(s, 0.3, 1.88, 5.9, 3.35,
    ["Group games with rules and shared goals",
     "Competitive play; winning and losing matter",
     "Complex two-against-one social dynamics",
     "Rivalries, secrets, alliances form",
     "Board games, sports, structured playground games",
     "Play reflects Piaget's concrete operational stage",
     "Moral sense of 'right/wrong' — rules seen as absolute"],
    title="What Play Looks Like", bg_color=TEAL_LIGHT)

bullet_box(s, 6.45, 1.88, 6.6, 3.35,
    ["Teach sportsmanship: how to win graciously AND lose",
     "Allow unstructured outdoor play — critical for executive function",
     "Do not over-schedule with structured activities",
     "Monitor peer relationships — bullying and exclusion emerge here",
     "Encourage mixed-age play when possible",
     "Recess is non-negotiable — AAP 2026 policy statement reaffirmed",
     "Limit competitive gaming before child can regulate frustration"],
    title="Parental Implications", bg_color=RGBColor(0xFF, 0xF3, 0xE0))

rect(s, 0.3, 5.38, 12.75, 0.65, RGBColor(0xFF, 0xEB, 0xEE))
textbox(s, 0.4, 5.42, 12.5, 0.55,
        "🚩 Red Flags: Cannot follow rules of simple games by age 5 | "
        "Severe difficulty with peer relationships | Rigid need for sameness in play | "
        "Aggression that escalates beyond play context",
        13, color=RGBColor(0xB7, 0x1C, 0x1C))

textbox(s, 0.3, 6.12, 12.5, 0.45,
        "Evidence: AAP 2026 'Crucial Role of Recess' policy statement (Pediatrics, PMID 42107976) "
        "reaffirms that recess improves attention, social-emotional learning, and academic outcomes.",
        12, color=GRAY_TEXT, italic=True)


# ══════════════════════════════════════════════════════════════════════════════
# SLIDE 10 — PARENTAL ROLES ACROSS STAGES
# ══════════════════════════════════════════════════════════════════════════════
s = prs.slides.add_slide(blank)
bg(s, WHITE)
header_bar(s, "The Parent's Role Across All Stages",
           "From partner to facilitator — the parental role evolves with the child")

roles = [
    ("PLAYMATE\n(0–18 mo)", TEAL,
     ["Be present and responsive", "Respond to every coo and gesture",
      "Imitate the child", "Narrate play aloud"]),
    ("CO-PLAYER\n(18 mo–4 yr)", GREEN,
     ["Join dramatic play as a character", "Follow child's lead", 
      "Expand play without taking over", "Name emotions in play"]),
    ("STAGE MANAGER\n(3–6 yr)", ORANGE,
     ["Provide props and time", "Set safe boundaries",
      "Stay available but step back", "Encourage peer play"]),
    ("FACILITATOR\n(6 yr+)", RGBColor(0x55, 0x33, 0x99),
     ["Ensure unstructured time", "Resist over-scheduling",
      "Model sportsmanship", "Advocate for recess at school"]),
]

for i, (title, col, pts) in enumerate(roles):
    x = 0.3 + i * 3.25
    rect(s, x, 1.3, 3.1, 5.6, GRAY_BG)
    rect(s, x, 1.3, 3.1, 0.8, col)
    textbox(s, x+0.05, 1.33, 3.0, 0.74, title, 14, bold=True,
            color=WHITE, align=PP_ALIGN.CENTER)
    for j, pt in enumerate(pts):
        textbox(s, x+0.15, 2.22 + j*0.9, 2.8, 0.8,
                "▸ " + pt, 13, color=DARK)

textbox(s, 0.3, 7.05, 12.75, 0.38,
        "Source: Kaplan & Sadock's Synopsis of Psychiatry, 12th ed.; "
        "Schneider et al. 2022 (PMID 35586226) — parent-child play and externalizing/internalizing behavior problems.",
        10, color=GRAY_TEXT, italic=True)


# ══════════════════════════════════════════════════════════════════════════════
# SLIDE 11 — PLAY AND ATTACHMENT
# ══════════════════════════════════════════════════════════════════════════════
s = prs.slides.add_slide(blank)
bg(s, WHITE)
header_bar(s, "Play and Attachment: The Foundation",
           "Secure attachment enables richer, more exploratory play")

# Attachment triangle
rect(s, 0.3, 1.3, 8.0, 5.5, TEAL_LIGHT)
textbox(s, 0.45, 1.38, 7.7, 0.45, "The Secure Base → Play Exploration Loop", 17, bold=True, color=TEAL)

attach_points = [
    ("Secure attachment (sensitive caregiving)", 
     "Child explores freely, returns to caregiver as safe base"),
    ("Attuned play interactions",
     "Builds emotional regulation and stress-response systems"),
    ("Responsive caregiving during play",
     "Scaffolds language, problem-solving, and self-confidence"),
    ("Physical play (rough-housing, tickling)",
     "Regulates arousal; builds body awareness and emotional tolerance"),
    ("Reading and joint attention during play",
     "Strongest predictor of early vocabulary and literacy"),
]
for i, (cause, effect) in enumerate(attach_points):
    y = 1.95 + i * 0.9
    rect(s, 0.4, y, 3.8, 0.75, TEAL)
    textbox(s, 0.48, y+0.06, 3.7, 0.65, cause, 12, bold=True, color=WHITE)
    textbox(s, 4.35, y+0.1, 3.7, 0.65, "→  " + effect, 12, color=DARK)

# Right panel: warning signs in play
rect(s, 8.55, 1.3, 4.5, 5.5, RGBColor(0xFF, 0xEB, 0xEE))
textbox(s, 8.65, 1.38, 4.3, 0.45,
        "Attachment Concerns in Play", 15, bold=True, color=RGBColor(0xB7, 0x1C, 0x1C))
warnings = [
    "Child does not use parent as safe base",
    "No checking back during exploration",
    "Indiscriminate play with strangers",
    "Frozen / hypervigilant during play",
    "No pleasure or affect during play",
    "Restricted or chaotic play themes",
    "Aggression that ruptures play",
    "No repair after disruption",
]
for i, w in enumerate(warnings):
    textbox(s, 8.65, 1.95 + i*0.55, 4.2, 0.5,
            "⚠ " + w, 12, color=RGBColor(0x7F, 0x00, 0x00))

textbox(s, 0.3, 6.97, 12.7, 0.38,
        "Source: Kaplan & Sadock's Comprehensive Textbook of Psychiatry — Infant & Toddler Mental Status Examination, Section X.",
        10, color=GRAY_TEXT, italic=True)


# ══════════════════════════════════════════════════════════════════════════════
# SLIDE 12 — SCREEN TIME & PLAY
# ══════════════════════════════════════════════════════════════════════════════
s = prs.slides.add_slide(blank)
bg(s, WHITE)
header_bar(s, "Screens vs. Play: What Parents Need to Know",
           "Current guidance and the evidence base")

# AAP guidelines box
rect(s, 0.3, 1.3, 5.9, 5.8, TEAL_LIGHT)
textbox(s, 0.45, 1.38, 5.6, 0.45, "AAP Screen Time Guidelines", 17, bold=True, color=TEAL)

guidelines = [
    ("< 18 months", "Avoid screen use except video-chatting with family"),
    ("18–24 months", "High-quality programming only; watch together, discuss"),
    ("2–5 years", "Limit to 1 hr/day of high-quality content; co-view"),
    ("6+ years", "Consistent limits; screens should not displace sleep, play, homework, or physical activity"),
]
y_g = 1.95
for age, rec in guidelines:
    rect(s, 0.4, y_g, 1.7, 0.7, ORANGE)
    textbox(s, 0.42, y_g+0.06, 1.66, 0.58, age, 12, bold=True, color=WHITE, align=PP_ALIGN.CENTER)
    textbox(s, 2.2, y_g+0.06, 3.8, 0.65, rec, 13, color=DARK)
    y_g += 0.88

# Evidence
rect(s, 0.3, 5.55, 5.9, 1.5, GRAY_BG)
textbox(s, 0.45, 5.62, 5.6, 0.4, "Evidence Note", 14, bold=True, color=TEAL)
textbox(s, 0.45, 6.05, 5.6, 0.9,
        "Bal et al. 2024 (PMID 39724067): Higher screen time associated with delayed language development "
        "and reduced executive function in systematic review of 34 studies.",
        12, color=DARK)

# Right panel: what to do instead
rect(s, 6.45, 1.3, 6.6, 5.8, RGBColor(0xE8, 0xF5, 0xE9))
textbox(s, 6.6, 1.38, 6.3, 0.45, "Replace Screens With Play", 17, bold=True, color=GREEN)

alternatives = [
    "Sensory bins (rice, water, sand, playdough)",
    "Building & stacking (blocks, Duplo, Magnatiles)",
    "Art and drawing materials — freely available",
    "Outdoor unstructured time every day",
    "Board games and puzzles (age-appropriate)",
    "Pretend / dramatic play corner at home",
    "Shared book reading (min. 15 min/day)",
    "Music — singing, instruments, dancing",
    "Cooking together (functional + symbolic play)",
]
for i, a in enumerate(alternatives):
    textbox(s, 6.6, 1.95 + i*0.57, 6.2, 0.5,
            "✓ " + a, 13, color=DARK)


# ══════════════════════════════════════════════════════════════════════════════
# SLIDE 13 — PLAY DEPRIVATION & RED FLAGS
# ══════════════════════════════════════════════════════════════════════════════
s = prs.slides.add_slide(blank)
bg(s, WHITE)
header_bar(s, "When Play Is Impaired: Red Flags and Clinical Action",
           "Early identification enables early intervention")

# Full red flags table
rect(s, 0.3, 1.3, 12.75, 0.55, RGBColor(0xB7, 0x1C, 0x1C))
for txt, cx, cw in zip(["Age", "Expected Play", "Red Flag", "Consider"],
                        [0.35, 1.55, 4.4, 9.4],
                        [1.1, 2.7, 4.8, 3.6]):
    textbox(s, cx, 1.33, cw, 0.46, txt, 14, bold=True, color=WHITE)

red_rows = [
    ("3 months", "Social play (smile, coo)", "No social smile; no response to faces",
     "Hearing screen; autism concerns; depression in caregiver"),
    ("12 months", "Sensorimotor; object play", "No pointing; not responding to name",
     "Autism spectrum; hearing loss; developmental delay"),
    ("18 months", "Functional + early symbolic", "No pretend play; no single words",
     "ASD screen (M-CHAT-R); speech-language referral"),
    ("24 months", "Parallel + symbolic", "No two-word phrases; isolated play",
     "Developmental evaluation; ASD; language disorder"),
    ("36 months", "Complex symbolic", "Rigid/stereotyped play only; no social play",
     "ASD; intellectual disability; trauma assessment"),
    ("5 years", "Cooperative, rule-based", "Cannot follow game rules; extreme aggression",
     "ADHD; ODD; attachment disorder; trauma"),
]

row_cols = [GRAY_BG, WHITE, GRAY_BG, WHITE, GRAY_BG, WHITE]
for i, (age, exp, flag, action) in enumerate(red_rows):
    y = 1.92 + i * 0.82
    for cx, cw, rc in zip([0.35, 1.55, 4.4, 9.4],
                           [1.1, 2.7, 4.8, 3.6],
                           [row_cols[i]]*4):
        rect(s, cx, y, cw, 0.75, rc)
    textbox(s, 0.38, y+0.05, 1.05, 0.65, age, 12, bold=True, color=TEAL)
    textbox(s, 1.58, y+0.05, 2.65, 0.65, exp, 12, color=DARK)
    textbox(s, 4.43, y+0.05, 4.75, 0.65, flag, 12, bold=True, color=RGBColor(0xB7, 0x1C, 0x1C))
    textbox(s, 9.43, y+0.05, 3.5, 0.65, action, 11, color=GRAY_TEXT, italic=True)


# ══════════════════════════════════════════════════════════════════════════════
# SLIDE 14 — PLAY IN SPECIAL POPULATIONS
# ══════════════════════════════════════════════════════════════════════════════
s = prs.slides.add_slide(blank)
bg(s, WHITE)
header_bar(s, "Play in Special Populations",
           "Adapting play guidance for children with additional needs")

populations = [
    ("ASD", TEAL, [
        "Play often restricted to sensorimotor/functional",
        "Weak symbolic and cooperative play development",
        "Joint attention deficits interfere with shared play",
        "Intervention: ESDM, PRT, child-directed approaches",
        "Parents: be patient; enter child's preferred play first",
    ]),
    ("ADHD", GREEN, [
        "Short attention span disrupts sequential play",
        "Impulsivity leads to rule violations in group play",
        "Emotional dysregulation: exits games when losing",
        "Intervention: structured play with clear rules",
        "Parents: shorter play sessions; immediate praise",
    ]),
    ("Developmental\nDelay", ORANGE, [
        "Play stage may lag 6–12 months behind chronological age",
        "Adapt expectations to developmental (not chronological) age",
        "Use play-based therapy (OT, SLP, developmental therapist)",
        "Open-ended sensory toys often most engaging",
        "Parents: celebrate each stage achieved, however late",
    ]),
    ("Trauma /\nACE Exposure", RGBColor(0x55, 0x33, 0x99), [
        "Play themes may reflect traumatic events",
        "Hypervigilance; difficulty entering free play",
        "Repetitive re-enactment (not always pathological)",
        "Examiners: do not interpret play too literally",
        "Referral for trauma-focused play therapy (TF-CBT)",
    ]),
]

for i, (pop, col, pts) in enumerate(populations):
    x = 0.3 + i * 3.25
    rect(s, x, 1.3, 3.1, 5.75, GRAY_BG)
    rect(s, x, 1.3, 3.1, 0.68, col)
    textbox(s, x+0.05, 1.33, 3.0, 0.62, pop, 15, bold=True,
            color=WHITE, align=PP_ALIGN.CENTER)
    for j, pt in enumerate(pts):
        textbox(s, x+0.12, 2.1 + j*0.96, 2.85, 0.85,
                "▸ " + pt, 12, color=DARK)


# ══════════════════════════════════════════════════════════════════════════════
# SLIDE 15 — THE CLINICIAN'S ROLE
# ══════════════════════════════════════════════════════════════════════════════
s = prs.slides.add_slide(blank)
bg(s, WHITE)
header_bar(s, "The Clinician's Role: Play Guidance at Every Visit",
           "Integrating play promotion into developmental surveillance")

rect(s, 0.3, 1.3, 12.75, 0.55, TEAL)
for txt, cx, cw in zip(["Well-Visit Age", "Play Assessment", "Anticipatory Guidance for Parents"],
                        [0.35, 2.65, 6.1],
                        [2.2, 3.35, 6.6]):
    textbox(s, cx, 1.33, cw, 0.46, txt, 14, bold=True, color=WHITE)

visit_rows = [
    ("2–4 month",
     "Social smile, vocalisations, response to faces",
     "Talk and sing during every feed; tummy time; no screens"),
    ("9 month",
     "Object permanence, peek-a-boo, vocalising",
     "Floor play 30 min/day; name objects; read board books"),
    ("12 month",
     "Functional play, pointing, single words",
     "Follow child's lead; offer cause-effect toys; limit screens"),
    ("18 month",
     "Early symbolic play, imitation",
     "Pretend play together; open-ended toys; co-read daily"),
    ("24 month",
     "Parallel play, two-word phrases, complex symbolic",
     "Arrange play dates; dramatic play corner; reduce screens"),
    ("3 year",
     "Dramatic play, roles, narrative",
     "Dress-up box; ask about imaginary friends; outdoor play"),
    ("4–5 year",
     "Cooperative play, rule-based games",
     "Board games; unstructured outdoor time; limit structured activities"),
    ("6–8 year",
     "Rule-based sports and games, team play",
     "Protect recess; model sportsmanship; monitor peer dynamics"),
]

row_cols = [GRAY_BG, WHITE] * 4
for i, (visit, assess, guidance) in enumerate(visit_rows):
    y = 1.92 + i * 0.64
    for cx, cw, rc in zip([0.35, 2.65, 6.1],
                           [2.2, 3.35, 6.6],
                           [row_cols[i]]*3):
        rect(s, cx, y, cw, 0.58, rc)
    textbox(s, 0.38, y+0.05, 2.1, 0.5, visit, 12, bold=True, color=TEAL)
    textbox(s, 2.68, y+0.05, 3.25, 0.5, assess, 12, color=DARK)
    textbox(s, 6.13, y+0.05, 6.5, 0.5, guidance, 12, color=GRAY_TEXT)


# ══════════════════════════════════════════════════════════════════════════════
# SLIDE 16 — KEY MESSAGES TAKE HOME
# ══════════════════════════════════════════════════════════════════════════════
s = prs.slides.add_slide(blank)
bg(s, TEAL)

rect(s, 0, 0, 13.333, 1.15, RGBColor(0x00, 0x4D, 0x5C))
textbox(s, 0.3, 0.07, 12.7, 0.75, "Key Take-Home Messages", 32, bold=True,
        color=WHITE, align=PP_ALIGN.CENTER)
textbox(s, 0.3, 0.75, 12.7, 0.35, "For parents and clinicians alike", 15,
        color=RGBColor(0xCC, 0xEE, 0xF2), align=PP_ALIGN.CENTER, italic=True)

messages = [
    ("1", "Play IS development", "It is not a break from learning — it IS the learning."),
    ("2", "Follow the child", "Child-directed play builds autonomy, motivation, and self-regulation."),
    ("3", "Stages are sequential", "Each stage is a prerequisite for the next; you cannot rush symbolic play."),
    ("4", "Parent presence matters", "Responsive, warm play interactions build secure attachment and brain architecture."),
    ("5", "Protect unstructured time", "Over-scheduling is a risk factor. Children need free play every single day."),
    ("6", "Screens displace play", "Every screen hour is a missed play hour. Enforce age-appropriate limits."),
    ("7", "Red flags need action", "Delayed play milestones warrant developmental screening — early is better."),
]

for i, (num, title, body) in enumerate(messages):
    row = i % 4
    col = i // 4
    x = 0.25 + col * 6.6
    y = 1.3 + row * 1.5
    rect(s, x, y, 6.3, 1.35, WHITE)
    rect(s, x, y, 0.6, 1.35, ORANGE)
    textbox(s, x, y, 0.6, 1.35, num, 22, bold=True, color=WHITE, align=PP_ALIGN.CENTER)
    textbox(s, x+0.7, y+0.08, 5.45, 0.45, title, 16, bold=True, color=TEAL)
    textbox(s, x+0.7, y+0.55, 5.45, 0.65, body, 13, color=DARK)

# bottom strip
rect(s, 0, 7.1, 13.333, 0.4, ORANGE)
textbox(s, 0, 7.13, 13.333, 0.35,
        "\"The ability to play is one of the principal criteria of mental health.\" — Donald Winnicott",
        13, bold=True, color=WHITE, align=PP_ALIGN.CENTER, italic=True)


# ══════════════════════════════════════════════════════════════════════════════
# SLIDE 17 — REFERENCES
# ══════════════════════════════════════════════════════════════════════════════
s = prs.slides.add_slide(blank)
bg(s, WHITE)
header_bar(s, "References & Further Reading")

refs = [
    "1.  Kaplan & Sadock's Comprehensive Textbook of Psychiatry, 11th ed. "
    "(Sadock BJ, Sadock VA, Ruiz P). Section on Infant & Toddler Mental Status Examination — Play.",
    "2.  Kaplan & Sadock's Synopsis of Psychiatry, 12th ed. Developmental Milestones — "
    "Preschool and School-Age Play.",
    "3.  American Academy of Pediatrics (AAP). 'The Power of Play: A Pediatric Role in Enhancing "
    "Development in Young Children.' Pediatrics 2018; 142(3): e20182058.",
    "4.  Murray R et al. 'The Crucial Role of Recess in School: Policy Statement.' "
    "Pediatrics 2026; PMID 42107976.",
    "5.  Schneider M, Falkenberg I, Berger P. 'Parent-Child Play and the Emergence of Externalizing "
    "and Internalizing Behavior Problems in Childhood: A Systematic Review.' "
    "Front Psychol 2022; PMID 35586226.",
    "6.  Bal M et al. 'Examining the relationship between language development, executive function, "
    "and screen time: A Systematic Review.' PLoS One 2024; PMID 39724067.",
    "7.  Piaget J. The Construction of Reality in the Child. Basic Books, 1954.",
    "8.  Winnicott DW. Playing and Reality. Tavistock Publications, 1971.",
    "9.  Greenspan SI, Wieder S. Engaging Autism. Da Capo Press, 2006.",
]

for i, ref in enumerate(refs):
    y = 1.35 + i * 0.62
    textbox(s, 0.4, y, 12.5, 0.55, ref, 12, color=DARK)

rect(s, 0, 7.1, 13.333, 0.4, TEAL)
textbox(s, 0, 7.13, 13.333, 0.35,
        "Seminar prepared using Kaplan & Sadock's textbooks; AAP policy statements; PubMed-indexed systematic reviews (2022–2026)",
        12, color=WHITE, align=PP_ALIGN.CENTER, italic=True)


# ── SAVE ──────────────────────────────────────────────────────────────────────
out = "/tmp/workspace/play-seminar/Developmental_Stages_of_Play_Seminar.pptx"
buf = BytesIO()
prs.save(buf)
with open(out, "wb") as f:
    f.write(buf.getvalue())
print(f"Saved: {out}")
print(f"Slides: {len(prs.slides)}")