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
import textwrap

prs = Presentation()
prs.slide_width = Inches(13.333)
prs.slide_height = Inches(7.5)

# ── Colour palette ──────────────────────────────────────────────────────────
DARK_BLUE   = RGBColor(0x1A, 0x3A, 0x5C)   # deep navy
MID_BLUE    = RGBColor(0x1F, 0x6F, 0xB8)   # accent blue
LIGHT_BLUE  = RGBColor(0xD6, 0xE8, 0xF7)   # slide background
GOLD        = RGBColor(0xC8, 0x9A, 0x00)   # heading accent line
WHITE       = RGBColor(0xFF, 0xFF, 0xFF)
DARK_GREY   = RGBColor(0x2D, 0x2D, 0x2D)
MID_GREY    = RGBColor(0x55, 0x55, 0x55)
LIGHT_GREY  = RGBColor(0xF0, 0xF4, 0xF8)

def hex_color(r, g, b):
    return RGBColor(r, g, b)

# ── Helper: fill slide background ───────────────────────────────────────────
def fill_bg(slide, color):
    from pptx.oxml.ns import qn
    from lxml import etree
    bg = slide.background
    fill = bg.fill
    fill.solid()
    fill.fore_color.rgb = color

# ── Helper: add rectangle ────────────────────────────────────────────────────
def add_rect(slide, left, top, width, height, fill_color, line_color=None):
    shape = slide.shapes.add_shape(
        1,  # MSO_SHAPE_TYPE.RECTANGLE
        Inches(left), Inches(top), Inches(width), Inches(height)
    )
    shape.fill.solid()
    shape.fill.fore_color.rgb = fill_color
    if line_color:
        shape.line.color.rgb = line_color
        shape.line.width = Pt(0.75)
    else:
        shape.line.fill.background()
    return shape

# ── Helper: add textbox ──────────────────────────────────────────────────────
def add_text(slide, text, left, top, width, height,
             font_name="Calibri", font_size=18, bold=False, italic=False,
             color=DARK_GREY, align=PP_ALIGN.LEFT, wrap=True,
             v_anchor=MSO_ANCHOR.TOP):
    tb = slide.shapes.add_textbox(Inches(left), Inches(top), Inches(width), Inches(height))
    tf = tb.text_frame
    tf.word_wrap = wrap
    tf.vertical_anchor = v_anchor
    tf.margin_left  = Pt(4)
    tf.margin_right = Pt(4)
    tf.margin_top   = Pt(2)
    tf.margin_bottom= Pt(2)
    p = tf.paragraphs[0]
    p.alignment = align
    run = p.add_run()
    run.text = text
    run.font.name = font_name
    run.font.size = Pt(font_size)
    run.font.bold = bold
    run.font.italic = italic
    run.font.color.rgb = color
    return tb

def add_multiline(slide, lines, left, top, width, height,
                  font_name="Calibri", font_size=16, bold_first=False,
                  color=DARK_GREY, bullet=False, line_spacing_pt=None):
    """Add multiple lines in one textbox; first line optionally bold."""
    tb = slide.shapes.add_textbox(Inches(left), Inches(top), Inches(width), Inches(height))
    tf = tb.text_frame
    tf.word_wrap = True
    tf.margin_left  = Pt(4)
    tf.margin_right = Pt(4)
    tf.margin_top   = Pt(2)
    tf.margin_bottom= Pt(2)
    for i, line in enumerate(lines):
        p = tf.paragraphs[0] if i == 0 else tf.add_paragraph()
        if bullet and i > 0:
            p.text = ""
            run = p.add_run()
            run.text = "  \u2022  " + line
        else:
            run = p.add_run()
            run.text = line
        run.font.name = font_name
        run.font.size = Pt(font_size)
        run.font.bold = (bold_first and i == 0)
        run.font.color.rgb = color
        if line_spacing_pt:
            from pptx.util import Pt as _Pt
            p.line_spacing = _Pt(line_spacing_pt)
    return tb

# ═══════════════════════════════════════════════════════════════════════════
# SLIDE BUILDING
# ═══════════════════════════════════════════════════════════════════════════

slides_data = []

# ── Slide 1: Title ───────────────────────────────────────────────────────────
def make_title_slide():
    sl = prs.slides.add_slide(prs.slide_layouts[6])
    fill_bg(sl, DARK_BLUE)
    # Gold accent bar top
    add_rect(sl, 0, 0, 13.333, 0.25, GOLD)
    # Gold accent bar bottom
    add_rect(sl, 0, 7.25, 13.333, 0.25, GOLD)
    # White panel
    add_rect(sl, 0.8, 0.8, 11.7, 5.6, RGBColor(0xFF,0xFF,0xFF))
    # Main title
    add_text(sl, "COURT PROCEDURE", 1.0, 1.1, 11.3, 1.6,
             font_name="Calibri", font_size=54, bold=True, color=DARK_BLUE,
             align=PP_ALIGN.CENTER)
    add_text(sl, "Excluding Evidence", 1.0, 2.7, 11.3, 0.9,
             font_name="Calibri", font_size=34, bold=False, italic=True, color=MID_BLUE,
             align=PP_ALIGN.CENTER)
    add_text(sl, "Forensic Science  |  Medico-Legal Aspects", 1.0, 3.5, 11.3, 0.6,
             font_name="Calibri", font_size=22, bold=False, color=MID_GREY,
             align=PP_ALIGN.CENTER)
    add_rect(sl, 2.0, 4.2, 9.3, 0.06, GOLD)
    add_text(sl, "Reference: K.S. Narayan Reddy — The Essentials of Forensic Medicine & Toxicology (36th Ed.)",
             1.0, 4.35, 11.3, 0.45,
             font_name="Calibri", font_size=14, italic=True, color=MID_GREY,
             align=PP_ALIGN.CENTER)
    add_text(sl, "Reference: Gautam Biswas — Forensic Medicine & Toxicology for Medical Students (6th Ed.)",
             1.0, 4.8, 11.3, 0.45,
             font_name="Calibri", font_size=14, italic=True, color=MID_GREY,
             align=PP_ALIGN.CENTER)
    add_text(sl, "Subject: Forensic Science", 1.0, 5.5, 11.3, 0.4,
             font_name="Calibri", font_size=16, bold=True, color=DARK_BLUE,
             align=PP_ALIGN.CENTER)

make_title_slide()

# ── Content slide template ────────────────────────────────────────────────────
def content_slide(title, bullet_points, slide_no, subtitle=None, two_col=False, col1=None, col2=None):
    sl = prs.slides.add_slide(prs.slide_layouts[6])
    fill_bg(sl, LIGHT_GREY)
    # Header bar
    add_rect(sl, 0, 0, 13.333, 1.1, DARK_BLUE)
    # Gold accent under header
    add_rect(sl, 0, 1.1, 13.333, 0.06, GOLD)
    # Slide number badge
    add_rect(sl, 12.3, 0.1, 0.85, 0.6, GOLD)
    add_text(sl, str(slide_no), 12.3, 0.05, 0.85, 0.7,
             font_size=18, bold=True, color=DARK_BLUE, align=PP_ALIGN.CENTER)
    # Title
    add_text(sl, title, 0.3, 0.1, 11.7, 0.85,
             font_name="Calibri", font_size=30, bold=True, color=WHITE,
             align=PP_ALIGN.LEFT)
    if subtitle:
        add_text(sl, subtitle, 0.3, 0.78, 11.7, 0.38,
                 font_name="Calibri", font_size=15, italic=True, color=LIGHT_BLUE,
                 align=PP_ALIGN.LEFT)
    # Content area white panel
    add_rect(sl, 0.25, 1.25, 12.85, 6.0, WHITE)
    if two_col and col1 and col2:
        # Left column
        add_text(sl, col1[0], 0.4, 1.35, 6.1, 0.45,
                 font_size=14, bold=True, color=MID_BLUE)
        add_rect(sl, 0.4, 1.8, 6.1, 0.04, MID_BLUE)
        lines1 = col1[1:]
        y = 1.88
        for ln in lines1:
            add_text(sl, "\u2022  " + ln, 0.5, y, 5.9, 0.42, font_size=13.5, color=DARK_GREY)
            y += 0.42
        # Right column
        add_text(sl, col2[0], 6.85, 1.35, 6.1, 0.45,
                 font_size=14, bold=True, color=MID_BLUE)
        add_rect(sl, 6.85, 1.8, 6.1, 0.04, MID_BLUE)
        lines2 = col2[1:]
        y2 = 1.88
        for ln in lines2:
            add_text(sl, "\u2022  " + ln, 6.95, y2, 5.9, 0.42, font_size=13.5, color=DARK_GREY)
            y2 += 0.42
        # vertical divider
        add_rect(sl, 6.6, 1.3, 0.03, 5.8, LIGHT_BLUE)
    else:
        y = 1.35
        for bp in bullet_points:
            if bp.startswith("##"):
                # sub-heading
                add_text(sl, bp[2:].strip(), 0.4, y, 12.4, 0.42,
                         font_size=14, bold=True, color=MID_BLUE)
                add_rect(sl, 0.4, y+0.38, 12.4, 0.03, MID_BLUE)
                y += 0.48
            elif bp.startswith("--"):
                add_text(sl, "     \u25e6  " + bp[2:].strip(), 0.5, y, 12.2, 0.4,
                         font_size=13, italic=True, color=MID_GREY)
                y += 0.4
            else:
                add_text(sl, "\u2022  " + bp, 0.4, y, 12.4, 0.44,
                         font_size=14, color=DARK_GREY)
                y += 0.44
    return sl

# ── Section divider slide ─────────────────────────────────────────────────────
def section_slide(section_title, description=""):
    sl = prs.slides.add_slide(prs.slide_layouts[6])
    fill_bg(sl, DARK_BLUE)
    add_rect(sl, 0, 0, 13.333, 0.18, GOLD)
    add_rect(sl, 0, 7.32, 13.333, 0.18, GOLD)
    add_rect(sl, 0.6, 2.0, 12.1, 3.5, MID_BLUE)
    add_text(sl, section_title, 0.8, 2.3, 11.7, 1.8,
             font_name="Calibri", font_size=42, bold=True, color=WHITE,
             align=PP_ALIGN.CENTER, v_anchor=MSO_ANCHOR.MIDDLE)
    if description:
        add_text(sl, description, 0.8, 4.1, 11.7, 0.85,
                 font_name="Calibri", font_size=18, italic=True, color=LIGHT_BLUE,
                 align=PP_ALIGN.CENTER)
    return sl

# ─────────────────────────────────────────────────────────────────────────────
# SECTION 1: INTRODUCTION & OVERVIEW
# ─────────────────────────────────────────────────────────────────────────────
section_slide("SECTION 1", "Introduction to Court Procedure in Forensic Science")   # slide 2

content_slide("Overview of Court Procedure", [   # slide 3
    "Court procedure governs how legal proceedings are conducted in a court of law",
    "In forensic science, the doctor/expert plays a pivotal role in judicial proceedings",
    "Two major legal systems govern court procedure in India:",
    "-- Bharatiya Nagarik Suraksha Sanhita (BNSS) — replaced CrPC 2023",
    "-- Bharatiya Sakshya Adhiniyam (BSA) — replaced Indian Evidence Act",
    "Forensic expert must be familiar with court structure, hierarchy and procedure",
    "Reference: Reddy's Essentials of Forensic Medicine & Toxicology, 36th Ed.",
], 3)

content_slide("Structure of Indian Courts", [   # slide 4
    "## Criminal Courts (Hierarchy)",
    "Supreme Court of India — Apex court, final appellate authority",
    "High Court — Appellate & supervisory jurisdiction over subordinate courts",
    "Sessions Court — Tries serious offences (murder, rape, dacoity)",
    "Judicial Magistrate (1st Class) — Tries offences with up to 3 years imprisonment",
    "Executive Magistrate — Inquest, public nuisance; not empowered to try offences",
    "## Civil Courts",
    "High Court → District Court → Civil Judge → Munsiff's Court",
], 4)

content_slide("Role of Forensic Expert in Court", [   # slide 5
    "A doctor/forensic expert may appear in court as:",
    "-- Ordinary (Fact) Witness — gives factual observations",
    "-- Expert Witness — gives professional opinion on technical matters",
    "Forensic experts are called to provide medical evidence in:",
    "-- Criminal cases: homicide, sexual assault, poisoning, road accidents",
    "-- Civil cases: personal injury, mental capacity, age determination",
    "Expert testimony bridges the gap between medical findings and legal proceedings",
    "(Reddy, 36th Ed.; Gautam Biswas, 6th Ed.)",
], 5)

# ─────────────────────────────────────────────────────────────────────────────
# SECTION 2: SUMMONS & CONDUCT MONEY
# ─────────────────────────────────────────────────────────────────────────────
section_slide("SECTION 2", "Summons / Subpoena & Conduct Money")   # slide 6

content_slide("Summons / Subpoena", [   # slide 7
    "Subpoena (Latin: sub = under; poena = penalty) — court document compelling witness attendance",
    "Issued under Sections 63–71, BNSS (formerly Sec 61–69, CrPC)",
    "Specifies: date, time, place of attendance; case/crime number; accused's name",
    "Issued in writing, in duplicate, signed by presiding officer, bears court seal",
    "Served by police officer, court officer, public servant or registered post",
    "Subpoena duces tecum — also requires production of documents/records (Sec 94 & 195, BNSS)",
    "Government servant: served via head of department who returns it with endorsement",
], 7)

content_slide("Non-compliance with Summons", [   # slide 8
    "A summons MUST be obeyed — witness can be excused only for valid/urgent reason",
    "## Punishment for Non-attendance",
    "Civil case: liable to pay damages",
    "Criminal case: Court may issue notice under Sec 389, BNSS",
    "-- On hearing, fine OR imprisonment may be imposed",
    "-- Bailable or non-bailable warrant may be issued (Sec 206–208, BNS)",
    "Intentional non-attendance: imprisonment up to 1 month or fine or both (Sec 208, BNS)",
    "## Priority Rule",
    "Criminal Courts > Civil Courts; Higher Courts > Lower Courts",
], 8)

content_slide("Conduct Money", [   # slide 9
    "Definition: Fee paid to a witness at the time of serving summons in CIVIL cases",
    "Purpose: To meet expenses for attending court (travel, stay, etc.)",
    "If not paid / amount inadequate: doctor may inform the Judge before giving evidence",
    "The Judge then decides the appropriate amount to be paid",
    "## Criminal Cases",
    "No conduct money paid at the time of serving summons in criminal cases",
    "Doctor MUST attend — duty to the State for securing justice",
    "Non-attendance = Contempt of Court",
    "Conveyance charges & daily allowance can be claimed per government rules",
], 9)

# ─────────────────────────────────────────────────────────────────────────────
# SECTION 3: TYPES OF WITNESSES
# ─────────────────────────────────────────────────────────────────────────────
section_slide("SECTION 3", "Types of Witnesses in Court")   # slide 10

content_slide("Types of Witnesses", [],   # slide 11
              two_col=True,
              col1=["Ordinary / Fact Witness",
                    "Gives direct factual testimony",
                    "Testifies to personal observation",
                    "Cannot give opinion",
                    "e.g., Police officer, ambulance driver",
                    "Cross-examination on facts only",
                    "Fees as per court rules"],
              col2=["Expert Witness",
                    "Gives professional opinion",
                    "Qualified by education & experience",
                    "Opinion based on skill & knowledge",
                    "e.g., Forensic pathologist, toxicologist",
                    "Can be cross-examined on opinion",
                    "Court may accept/reject opinion"])

content_slide("Expert Witness — Key Features", [   # slide 12
    "An expert is a person who has special knowledge, skill and experience in a particular subject",
    "Expert witness provides OPINION, not direct factual evidence",
    "Court is NOT bound to accept expert opinion — it is advisory only",
    "Expert must state the basis/reasons for his opinion",
    "An expert witness may be called by prosecution, defence or by the court itself",
    "Qualifications, publications, experience may be challenged in cross-examination",
    "Expert evidence is admissible under Section 39, BSA (formerly Sec 45, Indian Evidence Act)",
    "(Ref: Reddy, 36th Ed.; Gautam Biswas, 6th Ed.)",
], 12)

content_slide("Other Categories of Witnesses", [   # slide 13
    "## Hostile Witness",
    "A witness who gives evidence unfavorable to the party calling him",
    "Court may permit cross-examination of its own witness declared hostile",
    "## Chance Witness",
    "A person who happened to be at the scene — not expected to be there",
    "## Court Witness",
    "Called by the court suo motu to elucidate any matter",
    "## Professional Secrecy",
    "Doctor generally not compelled to disclose confidential patient information",
    "Exception: Court may compel disclosure in the interest of justice",
], 13)

# ─────────────────────────────────────────────────────────────────────────────
# SECTION 4: OATH & AFFIRMATION
# ─────────────────────────────────────────────────────────────────────────────
section_slide("SECTION 4", "Oath, Affirmation & Recording of Evidence")   # slide 14

content_slide("Oath and Affirmation", [   # slide 15
    "Every witness must take an oath or solemn affirmation before giving evidence",
    "Governed by the Oaths Act, 1969",
    "Oath: A solemn declaration invoking a deity or sacred object as witness",
    "Affirmation: A solemn declaration without religious invocation (for atheists/non-believers)",
    "A witness who refuses both oath and affirmation cannot give evidence",
    "Perjury: False evidence given on oath — punishable under Section 229, BNS",
    "-- Imprisonment up to 7 years + fine",
    "A doctor giving false evidence in court commits perjury — professional misconduct",
], 15)

content_slide("Recording of Evidence — Process", [   # slide 16
    "Evidence is recorded in the language of the court or translated",
    "Witness speaks; the Judge or officer writes it down (may use stenography)",
    "After recording, the statement is read aloud to the witness",
    "If the witness agrees, he signs it; if not, objections are noted",
    "## Procedure in Higher Courts",
    "Sessions Court and above: statement is recorded verbatim",
    "Magistrate courts: summary recording permitted unless accused demands verbatim",
    "In India, evidence can be recorded via video-conferencing (post COVID reforms)",
], 16)

# ─────────────────────────────────────────────────────────────────────────────
# SECTION 5: EXAMINATION IN CHIEF
# ─────────────────────────────────────────────────────────────────────────────
section_slide("SECTION 5", "Examination-in-Chief, Cross-Examination & Re-Examination")   # slide 17

content_slide("Examination-in-Chief", [   # slide 18
    "Definition: The first examination of a witness by the party who called him",
    "Purpose: To elicit all facts favorable to the calling party",
    "Questions are asked by the lawyer who summoned the witness (prosecution/plaintiff)",
    "Leading questions are generally NOT permitted in examination-in-chief",
    "Leading question: One that suggests the desired answer to the witness",
    "Doctor should give clear, concise, truthful answers based on clinical findings",
    "Medical report / post-mortem report is referred to during examination-in-chief",
    "(Ref: Reddy, 36th Ed.; Sec 140–166, BSA)",
], 18)

content_slide("Cross-Examination", [   # slide 19
    "Definition: Examination of a witness by the OPPOSITE party after examination-in-chief",
    "Purpose: To discredit, contradict or weaken the witness's testimony",
    "Leading questions ARE permitted during cross-examination",
    "Counsel may question on any relevant matter including credibility of witness",
    "A doctor may be asked to explain apparent contradictions in the medical report",
    "Doctor should remain calm, composed and stick to medical facts",
    "Do NOT lose temper; if you do not know something, say so honestly",
    "Previous contradictory statements may be used to impeach credibility",
], 19)

content_slide("Re-Examination", [   # slide 20
    "Definition: Examination of a witness by the party who called him AFTER cross-examination",
    "Purpose: To clarify, explain or qualify answers given during cross-examination",
    "Confined only to matters arising out of cross-examination",
    "New matters may be introduced ONLY with court permission",
    "Further cross-examination may be allowed by the court after re-examination",
    "## Key Points for Doctors",
    "Re-examination allows clarification of ambiguous statements",
    "Doctor should not change earlier testimony without valid scientific reason",
], 20)

content_slide("Questions by the Court", [   # slide 21
    "The Judge may put any question to a witness at any time (Sec 140, BSA)",
    "Purpose: To clarify any matter in doubt, fill gaps in evidence",
    "Neither party can object to court questions; answers must be truthful",
    "Court questions carry significant weight in judgment",
    "## Types of Questions",
    "-- Questions to clarify medical terminology used by the doctor",
    "-- Questions on methodology of examination or test used",
    "-- Questions on probability and certainty of medical opinion",
    "Doctor must answer court questions with the same standard of honesty",
], 21)

# ─────────────────────────────────────────────────────────────────────────────
# SECTION 6: TYPES OF MEDICAL EVIDENCE
# ─────────────────────────────────────────────────────────────────────────────
section_slide("SECTION 6", "Medical Evidence — Types & Documentation")   # slide 22

content_slide("Types of Medical Evidence", [   # slide 23
    "## Oral Evidence",
    "Direct: Witness testifies to personally observed facts",
    "Indirect / Circumstantial: Inferences drawn from related facts",
    "Hearsay: Statement based on what another person said — generally inadmissible",
    "## Documentary Evidence (Sec 56–92, BNS; BSA Sec 56–92)",
    "Primary evidence: Original document produced for court inspection",
    "Secondary evidence: Certified copies, mechanical copies, oral accounts of contents",
    "Medical certificates, post-mortem reports, injury reports are documentary evidence",
], 23)

content_slide("Documentary Evidence — Medical Certificates", [   # slide 24
    "Accepted only if issued by a Qualified Registered Medical Practitioner (QRMP)",
    "Certificate of ill-health must state exact nature of illness",
    "Examine and certify for not more than 15 days; re-examine before reissuing",
    "Do NOT give certificates on advance date or back date (illegal)",
    "Certificate must be addressed to a specific person (employer, headmaster, etc.)",
    "Patient's signature/left thumb impression at bottom is mandatory",
    "Certificate is a legal document — false certification = professional misconduct",
    "(Ref: Reddy, 36th Ed.)",
], 24)

content_slide("Medico-Legal Reports as Evidence", [   # slide 25
    "Post-Mortem Report: Primary documentary evidence in cases of unnatural death",
    "Wound Certificate / Injury Certificate: Used in assault, road traffic accident cases",
    "Sexual Assault Examination Report: Used in rape and POCSO cases",
    "Toxicology Report: Used in poisoning cases",
    "Age Estimation Report: Used in juvenile justice, marriage, contract cases",
    "All reports must be: accurate, objective, free from bias",
    "Reports should be written in clear language understandable to non-medical judges",
    "Doctor who examined the victim MUST personally appear in court to prove the report",
], 25)

# ─────────────────────────────────────────────────────────────────────────────
# SECTION 7: CONDUCT OF DOCTOR IN WITNESS BOX
# ─────────────────────────────────────────────────────────────────────────────
section_slide("SECTION 7", "Conduct of the Doctor in the Witness Box")   # slide 26

content_slide("Preparation Before Attending Court", [   # slide 27
    "Re-read the medico-legal report / PM report before attending court",
    "Carry original notes, case sheets and relevant records",
    "Dress appropriately — formal attire; coat and tie preferred",
    "Arrive on time or slightly early; inform court if unavoidably delayed",
    "Do NOT discuss the case with lawyers, police or other parties while waiting",
    "Do NOT form an opinion about which side is 'right' before entering the witness box",
    "Bring all documents mentioned in the summons (subpoena duces tecum)",
], 27)

content_slide("Conduct Inside the Witness Box", [   # slide 28
    "Stand or sit straight; maintain dignified composure throughout",
    "Address the Judge as 'Your Honour' (Sessions) or 'Sir' (Magistrate)",
    "Listen to each question carefully before answering",
    "Answer only what is asked — do not volunteer extra information",
    "Use simple, clear language; avoid complex jargon unless asked",
    "If asked a question you do not understand, ask for it to be repeated or clarified",
    "If you do not know the answer, say 'I do not know' — never guess",
    "Never argue with the cross-examining counsel — remain calm and polite",
], 28)

content_slide("Do's and Don'ts for the Doctor as Witness", [],   # slide 29
              two_col=True,
              col1=["DO's",
                    "Speak clearly and audibly",
                    "Stick to your professional findings",
                    "Acknowledge uncertainty honestly",
                    "Refer to your report if permitted",
                    "Correct yourself if genuinely wrong",
                    "Be impartial — not for prosecution or defence",
                    "Maintain professional dignity at all times"],
              col2=["DON'Ts",
                    "Do NOT lose temper or get flustered",
                    "Do NOT exaggerate or minimize findings",
                    "Do NOT change opinion under pressure",
                    "Do NOT discuss case outside court",
                    "Do NOT accept favors from either party",
                    "Do NOT make sweeping/unsupported claims",
                    "Do NOT take sides — you serve justice only"])

content_slide("Handling Difficult Cross-Examination", [   # slide 30
    "Cross-examination may attempt to discredit your report or methodology",
    "Stay calm — counsel's aggressive tone does not invalidate your findings",
    "If medical opinion is challenged, explain the scientific basis clearly",
    "You may refer to authoritative textbooks (Reddy, Parikh, etc.) to support your view",
    "If a prior inconsistent statement is quoted, request to see the document",
    "If you had made an error, acknowledge it — honesty enhances credibility",
    "The court values objective, balanced evidence over adversarial testimony",
    "You may disagree with the questioner — but support your answer scientifically",
], 30)

# ─────────────────────────────────────────────────────────────────────────────
# SECTION 8: SPECIAL PROCEDURES
# ─────────────────────────────────────────────────────────────────────────────
section_slide("SECTION 8", "Special Procedures — Inquest, Dying Declaration & Contempt")   # slide 31

content_slide("Inquest Proceedings", [   # slide 32
    "Inquest: Formal inquiry into the cause and manner of death",
    "## Types of Inquest in India",
    "Police Inquest (Sec 194, BNSS): Conducted for all unnatural deaths — most common",
    "Magistrate's Inquest: Ordered when death occurs in police custody, jail, or public place",
    "Coroner's Inquest: Abolished in India except Mumbai (Mumbai Coroner's Act, 1871)",
    "Medical Examiner System: Used in USA — no equivalent in Indian law",
    "Doctor's role: Examines the dead body, provides cause of death, signs death certificate",
    "(Ref: Reddy, 36th Ed.; Gautam Biswas, 6th Ed.)",
], 32)

content_slide("Dying Declaration", [   # slide 33
    "Definition: Written/oral statement by a dying person about the cause/circumstances of death",
    "Admissible under Section 26, BSA (formerly Sec 32, Indian Evidence Act)",
    "Doctor's role: Certify that the person is conscious and of sound mind (compos mentis)",
    "If time permits: Executive Magistrate should record; otherwise doctor records with 2 witnesses",
    "Oath is NOT administered (dying persons are presumed to tell the truth)",
    "Recorded in declarant's own words — no leading questions",
    "Signed by declarant (signature/thumb impression), doctor and witnesses",
    "Admissible even if declarant was not under expectation of death at the time",
], 33)

content_slide("Contempt of Court", [   # slide 34
    "Contempt of Court: Willful disobedience or disregard of court's order or process",
    "## Types",
    "Civil contempt: Willful disobedience to court judgment, order, decree, direction",
    "Criminal contempt: Publication/act that scandalizes the court or interferes with proceedings",
    "## For Doctors",
    "Non-attendance to court summons without valid reason = contempt",
    "Revealing contents of a sealed report outside court = contempt",
    "False evidence under oath = perjury (Sec 229 BNS: imprisonment up to 7 years + fine)",
    "(Ref: Contempt of Courts Act, 1971)",
], 34)

# ─────────────────────────────────────────────────────────────────────────────
# SECTION 9: SPECIAL TOPICS
# ─────────────────────────────────────────────────────────────────────────────
section_slide("SECTION 9", "Second Opinion, Video Evidence & Technology in Court")   # slide 35

content_slide("Second Opinion & Contradiction of Expert Evidence", [   # slide 36
    "Court may seek a second expert opinion if the first is unclear or contradictory",
    "Opposing party may produce their own expert witness",
    "When two expert opinions conflict, the court weighs both against:",
    "-- Scientific reasoning and logic",
    "-- Supporting documentary evidence",
    "-- Cross-examination performance of each expert",
    "No expert's opinion is infallible — the court exercises its own judgment",
    "Medical consensus (textbooks, guidelines) helps resolve disputes",
    "(Ref: Reddy, 36th Ed.; Parikh's Forensic Medicine)",
], 36)

content_slide("Technology in Modern Court Proceedings", [   # slide 37
    "Video-conferencing: Witness may testify via video-link (post BNSS 2023 reform)",
    "Electronic records: Admissible as documentary evidence under BSA (Sec 57–59)",
    "Digital signatures and certified electronic copies accepted in court",
    "CCTV footage, dashcam video, phone recordings — forensic authentication required",
    "DNA evidence: Highly probative; admissibility governed by court discretion",
    "Lie-detector (polygraph), narco-analysis: Admissibility restricted by Supreme Court",
    "Brain Electrical Oscillation Signature (BEOS) / P300: Challenged constitutionally",
    "(Ref: Supreme Court of India guidelines on electronic evidence)",
], 37)

content_slide("BNSS 2023 Reforms Relevant to Court Procedure", [   # slide 38
    "Bharatiya Nagarik Suraksha Sanhita (BNSS) replaced CrPC effective July 1, 2024",
    "Bharatiya Sakshya Adhiniyam (BSA) replaced Indian Evidence Act",
    "Bharatiya Nyaya Sanhita (BNS) replaced Indian Penal Code (IPC)",
    "Key changes affecting forensic experts:",
    "-- Mandatory forensic examination in crimes punishable >7 years (Sec 176(3), BNSS)",
    "-- Compulsory video-recording of crime scenes and autopsies",
    "-- Audio-video recording of statements of witnesses",
    "-- Victim's right to be informed about case progress",
    "(Ref: Reddy's Essentials of Forensic Medicine & Toxicology, 36th Ed. 2026)",
], 38)

# ─────────────────────────────────────────────────────────────────────────────
# SECTION 10: SUMMARY & CONCLUSION
# ─────────────────────────────────────────────────────────────────────────────
section_slide("SECTION 10", "Summary & Key Points")   # slide 39

content_slide("Summary — Key Points", [   # slide 40
    "1. Summons/Subpoena compels attendance; non-compliance = contempt/fine/arrest",
    "2. Conduct money paid in civil cases only; conveyance allowed in criminal",
    "3. Types of witnesses: Fact witness vs Expert witness — distinct roles",
    "4. Oath/Affirmation mandatory — perjury punishable with up to 7 years imprisonment",
    "5. Examination sequence: Examination-in-Chief → Cross-Examination → Re-Examination → Court Q",
    "6. Medical evidence: Oral (direct, circumstantial, hearsay) + Documentary",
    "7. Doctor's conduct: Be impartial, calm, precise, honest — serve justice",
    "8. BNSS 2023: Mandatory forensic exam >7 yr offences; video-recording compulsory",
    "9. Dying declaration: Compos mentis certificate by doctor; no oath required",
    "10. Key refs: Reddy 36th Ed. 2026; Gautam Biswas 6th Ed. 2024",
], 40)

# ── Save ─────────────────────────────────────────────────────────────────────
out_path = "/tmp/workspace/court-procedure-ppt/Court_Procedure_Forensic_Science.pptx"
prs.save(out_path)
print(f"Saved: {out_path}")
print(f"Total slides: {len(prs.slides)}")

Successfully replaced 1 instance(s) of the string in '/tmp/workspace/court-procedure-ppt/build_ppt.py'

Successfully replaced 1 instance(s) of the string in '/tmp/workspace/court-procedure-ppt/build_ppt.py'

from reportlab.lib.pagesizes import A4
from reportlab.lib.units import mm
from reportlab.pdfgen import canvas
from reportlab.lib.colors import HexColor, white, Color

# ── Palette ──────────────────────────────────────────────────────────────────
NAVY      = HexColor("#1A3A5C")
BLUE      = HexColor("#1F6FB8")
LIGHTBLUE = HexColor("#D6E8F7")
GOLD      = HexColor("#C89A00")
WHITE     = white
DARK      = HexColor("#1E1E1E")
MIDGREY   = HexColor("#555555")
LIGHTGREY = HexColor("#F0F4F8")
GREEN_BG  = HexColor("#E8F5E9")
RED_BG    = HexColor("#FFEBEE")
AMBER_BG  = HexColor("#FFF8E1")
DARK_GREEN= HexColor("#1B5E20")
DARK_RED  = HexColor("#B71C1C")

W, H = A4   # 595.27 x 841.89 pts
MARGIN = 13 * mm

out = "/tmp/workspace/court-procedure-ppt/Doctor_Court_Quick_Reference.pdf"
c = canvas.Canvas(out, pagesize=A4)

# ── Helpers ───────────────────────────────────────────────────────────────────
def rect(x, y, w, h, fill, stroke=None, radius=0):
    c.setFillColor(fill)
    if stroke:
        c.setStrokeColor(stroke)
        c.setLineWidth(0.5)
    else:
        c.setStrokeColor(fill)
        c.setLineWidth(0)
    if radius:
        c.roundRect(x, y, w, h, radius, fill=1, stroke=1 if stroke else 0)
    else:
        c.rect(x, y, w, h, fill=1, stroke=1 if stroke else 0)

def txt(s, x, y, size=9, bold=False, color=DARK, align="left"):
    c.setFillColor(color)
    c.setFont("Helvetica-Bold" if bold else "Helvetica", size)
    if align == "center":
        c.drawCentredString(x, y, s)
    elif align == "right":
        c.drawRightString(x, y, s)
    else:
        c.drawString(x, y, s)

def section_hdr(label, x, y, w, h=13):
    rect(x, y, w, h, NAVY)
    txt(label.upper(), x + 4, y + 3.5, size=7.8, bold=True, color=GOLD)
    return y - 2

def bullets(items, x, y, col_w, size=7.5, lh=9.8):
    for item in items:
        if item.startswith("##"):
            txt(item[2:].strip(), x, y, size=7.8, bold=True, color=BLUE)
            y -= lh * 0.9
        else:
            txt("\u2022", x, y, size=8, bold=True, color=BLUE)
            txt(item, x + 9, y, size=size, color=DARK)
            y -= lh
    return y

# ─────────────────────────────────────────────────────────────────────────────
# BACKGROUND
# ─────────────────────────────────────────────────────────────────────────────
rect(0, 0, W, H, LIGHTGREY)

# ─────────────────────────────────────────────────────────────────────────────
# HEADER
# ─────────────────────────────────────────────────────────────────────────────
rect(0, H - 26*mm, W, 26*mm, NAVY)
rect(0, H - 27.2*mm, W, 1.2*mm, GOLD)
txt("DOCTOR IN COURT", W/2, H - 10*mm, size=17, bold=True, color=WHITE, align="center")
txt("Quick Reference Card  |  Court Procedure — Forensic Science",
    W/2, H - 16*mm, size=8.5, color=LIGHTBLUE, align="center")
txt("Ref: Reddy's Essentials of FM & Toxicology 36th Ed. (2026)  |  Gautam Biswas FM & Toxicology 6th Ed. (2024)",
    W/2, H - 21*mm, size=7, color=GOLD, align="center")

# ─────────────────────────────────────────────────────────────────────────────
# COLUMN LAYOUT
# ─────────────────────────────────────────────────────────────────────────────
col_w  = (W - 2*MARGIN - 4*mm) / 3
col1_x = MARGIN
col2_x = col1_x + col_w + 2*mm
col3_x = col2_x + col_w + 2*mm
top_y  = H - 28.5*mm

# ═══════════════════════════════════════════════════════════════════════════
# COLUMN 1
# ═══════════════════════════════════════════════════════════════════════════
cy = top_y

# --- SUMMONS ---
bh = 15.5*mm
rect(col1_x, cy - bh, col_w, bh, WHITE, stroke=BLUE, radius=2)
section_hdr("Summons / Subpoena", col1_x, cy - 0.5*mm, col_w)
bullets([
    "Written order compelling attendance in court",
    "Signed by presiding officer; bears court seal",
    "Served by police / court officer / reg. post",
    "Subpoena duces tecum: also bring documents",
    "Priority: Criminal > Civil; Higher > Lower court",
], col1_x + 3, cy - 5.5*mm, col_w - 6, size=7.5, lh=9.5)
cy -= bh + 2*mm

# --- CONDUCT MONEY ---
bh = 12.5*mm
rect(col1_x, cy - bh, col_w, bh, WHITE, stroke=BLUE, radius=2)
section_hdr("Conduct Money", col1_x, cy - 0.5*mm, col_w)
bullets([
    "Civil: Fee paid with summons for travel costs",
    "Inform judge if amount is inadequate",
    "Criminal: No upfront fee; claim conveyance later",
    "Non-attendance without reason = Contempt",
], col1_x + 3, cy - 5.5*mm, col_w - 6, size=7.5, lh=9.5)
cy -= bh + 2*mm

# --- TYPES OF WITNESSES ---
bh = 21*mm
rect(col1_x, cy - bh, col_w, bh, WHITE, stroke=BLUE, radius=2)
section_hdr("Types of Witnesses", col1_x, cy - 0.5*mm, col_w)
hw = (col_w - 6) / 2
rect(col1_x + 2, cy - 7*mm, hw, 5.5*mm, LIGHTBLUE, radius=1)
txt("Fact / Ordinary", col1_x + 4, cy - 4*mm, size=7, bold=True, color=NAVY)
rect(col1_x + 3 + hw, cy - 7*mm, hw, 5.5*mm, AMBER_BG, radius=1)
txt("Expert Witness", col1_x + 5 + hw, cy - 4*mm, size=7, bold=True, color=NAVY)
bullets([
    "Fact: Personal observations only; no opinion",
    "Expert: Opinion on technical/medical matters",
    "Expert evidence: Sec 39 BSA (Court not bound)",
    "Hostile witness: turned against calling party",
    "Court witness: called by judge sua sponte",
], col1_x + 3, cy - 9.5*mm, col_w - 6, size=7.5, lh=8.8)
cy -= bh + 2*mm

# --- OATH & PERJURY ---
bh = 11*mm
rect(col1_x, cy - bh, col_w, bh, WHITE, stroke=BLUE, radius=2)
section_hdr("Oath & Perjury", col1_x, cy - 0.5*mm, col_w)
bullets([
    "Oath / Affirmation mandatory — Oaths Act, 1969",
    "Perjury = false evidence under oath (Sec 229 BNS)",
    "Punishment: up to 7 years imprisonment + fine",
], col1_x + 3, cy - 5.5*mm, col_w - 6, size=7.5, lh=9.5)
cy -= bh + 2*mm

# --- TYPES OF EVIDENCE ---
bh = 19*mm
rect(col1_x, cy - bh, col_w, bh, WHITE, stroke=BLUE, radius=2)
section_hdr("Types of Medical Evidence", col1_x, cy - 0.5*mm, col_w)
bullets([
    "##Oral Evidence",
    "Direct: personally witnessed facts",
    "Circumstantial: inferred from related facts",
    "Hearsay: third-party statement — inadmissible",
    "##Documentary Evidence",
    "Primary: original document to court",
    "Secondary: certified copies, mechanical copies",
    "PM report, wound cert, SA report = documentary",
], col1_x + 3, cy - 5.5*mm, col_w - 6, size=7.5, lh=8.6)
cy -= bh + 2*mm

# ═══════════════════════════════════════════════════════════════════════════
# COLUMN 2
# ═══════════════════════════════════════════════════════════════════════════
cy = top_y

# --- EXAMINATION SEQUENCE ---
bh = 25*mm
rect(col2_x, cy - bh, col_w, bh, WHITE, stroke=BLUE, radius=2)
section_hdr("Examination Sequence in Court", col2_x, cy - 0.5*mm, col_w)

flow = [
    ("Examination-in-Chief", LIGHTBLUE, NAVY, "By party who summoned; NO leading questions"),
    ("Cross-Examination", RED_BG, DARK_RED, "By opposing party; leading questions ALLOWED"),
    ("Re-Examination", GREEN_BG, DARK_GREEN, "By calling party; confined to cross matters"),
    ("Court Questions", AMBER_BG, HexColor("#795548"), "Judge may ask anytime; must be answered honestly"),
]
bx = col2_x + 3
bboxw = col_w - 6
by = cy - 5*mm
for label, bg, fg, note in flow:
    rect(bx, by - 4.5*mm, bboxw, 4.5*mm, bg, stroke=fg, radius=1)
    txt(label, bx + 3, by - 3*mm, size=7, bold=True, color=fg)
    txt(note, bx + 3, by - 3*mm - 8, size=6.2, color=MIDGREY)
    by -= 5.5*mm

cy -= bh + 2*mm

# --- DO's AND DON'Ts ---
bh = 30*mm
rect(col2_x, cy - bh, col_w, bh, WHITE, stroke=BLUE, radius=2)
section_hdr("Conduct in the Witness Box", col2_x, cy - 0.5*mm, col_w)

hw2 = (col_w - 6) / 2
rect(col2_x + 2, cy - 6.5*mm, hw2, 5.5*mm, GREEN_BG, radius=1)
txt("\u2714  DO's", col2_x + 5, cy - 3.5*mm, size=7.5, bold=True, color=DARK_GREEN)
rect(col2_x + 4 + hw2, cy - 6.5*mm, hw2, 5.5*mm, RED_BG, radius=1)
txt("\u2718  DON'Ts", col2_x + 6 + hw2, cy - 3.5*mm, size=7.5, bold=True, color=DARK_RED)

dos = [
    "Be calm & composed",
    "Speak clearly & audibly",
    "Stick to your medical findings",
    "Say 'I don't know' if unsure",
    "Refer to report if permitted",
    "Be impartial — serve justice",
    "Address judge: 'Your Honour'",
    "Acknowledge genuine errors",
]
donts = [
    "Lose temper or get flustered",
    "Change opinion under pressure",
    "Volunteer extra information",
    "Exaggerate or minimise findings",
    "Accept favours from any party",
    "Discuss case outside court",
    "Take sides for prosecution/defence",
    "Make unsupported assertions",
]
dx = col2_x + 3
rx2 = col2_x + 4 + hw2
dy = cy - 9*mm
for d, r in zip(dos, donts):
    txt("\u2022", dx, dy, size=7.5, bold=True, color=DARK_GREEN)
    txt(d, dx + 7, dy, size=7, color=DARK)
    txt("\u2022", rx2, dy, size=7.5, bold=True, color=DARK_RED)
    txt(r, rx2 + 7, dy, size=7, color=DARK)
    dy -= 8.6
cy -= bh + 2*mm

# --- INQUEST ---
bh = 12*mm
rect(col2_x, cy - bh, col_w, bh, WHITE, stroke=BLUE, radius=2)
section_hdr("Inquest Types (India)", col2_x, cy - 0.5*mm, col_w)
bullets([
    "Police Inquest (Sec 194 BNSS): all unnatural deaths",
    "Magistrate Inquest: police custody / jail / public place",
    "Coroner's Inquest: only Mumbai (abolished elsewhere)",
    "Doctor's role: examine body, certify cause of death",
], col2_x + 3, cy - 5.5*mm, col_w - 6, size=7.5, lh=9.2)
cy -= bh + 2*mm

# --- MEDICAL CERTIFICATES ---
bh = 13*mm
rect(col2_x, cy - bh, col_w, bh, WHITE, stroke=BLUE, radius=2)
section_hdr("Medical Certificates in Court", col2_x, cy - 0.5*mm, col_w)
bullets([
    "Only QRMP-issued certificates accepted in court",
    "Certify for max 15 days; re-examine before reissuing",
    "No back-dated or advance-dated certificates (illegal)",
    "Patient signature / thumb impression mandatory",
    "False certification = professional misconduct",
], col2_x + 3, cy - 5.5*mm, col_w - 6, size=7.5, lh=9)
cy -= bh + 2*mm

# ═══════════════════════════════════════════════════════════════════════════
# COLUMN 3
# ═══════════════════════════════════════════════════════════════════════════
cy = top_y

# --- DYING DECLARATION ---
bh = 19*mm
rect(col3_x, cy - bh, col_w, bh, WHITE, stroke=BLUE, radius=2)
section_hdr("Dying Declaration (Sec 26 BSA)", col3_x, cy - 0.5*mm, col_w)
bullets([
    "Doctor certifies: conscious + compos mentis",
    "Executive Magistrate records if time permits",
    "Otherwise: doctor + 2 witnesses record it",
    "No oath administered (dying = presumed truthful)",
    "Verbatim recording; no leading questions",
    "Signed: declarant, doctor, 2 witnesses",
    "Admissible even without expectation of death",
], col3_x + 3, cy - 5.5*mm, col_w - 6, size=7.5, lh=9)
cy -= bh + 2*mm

# --- BNSS 2023 REFORMS ---
bh = 14*mm
rect(col3_x, cy - bh, col_w, bh, WHITE, stroke=BLUE, radius=2)
section_hdr("BNSS 2023 Reforms (eff. 1 Jul 2024)", col3_x, cy - 0.5*mm, col_w)
bullets([
    "CrPC \u2192 BNSS  |  IEA \u2192 BSA  |  IPC \u2192 BNS",
    "Sec 176(3): Mandatory forensic exam >7-yr offences",
    "Compulsory video-recording of autopsy & crime scene",
    "Audio-video recording of all witness statements",
    "E-records / digital signatures: admissible (BSA 57-59)",
], col3_x + 3, cy - 5.5*mm, col_w - 6, size=7.5, lh=9.2)
cy -= bh + 2*mm

# --- PRE-COURT CHECKLIST ---
bh = 20*mm
rect(col3_x, cy - bh, col_w, bh, WHITE, stroke=BLUE, radius=2)
section_hdr("Before Going to Court \u2014 Checklist", col3_x, cy - 0.5*mm, col_w)
checks = [
    "Re-read your ML report / PM report",
    "Carry original notes + case sheets",
    "Bring all documents in the summons",
    "Dress formally (coat recommended)",
    "Arrive early; inform court if delayed",
    "Do NOT discuss case with police / lawyers",
    "Know crime number and accused name",
]
cx2 = col3_x + 3
chy = cy - 5.5*mm
for chk in checks:
    rect(cx2, chy - 1*mm, 4.5, 4.5, WHITE, stroke=NAVY, radius=0.5)
    txt(chk, cx2 + 7, chy, size=7.5, color=DARK)
    chy -= 9
cy -= bh + 2*mm

# --- CONTEMPT & PERJURY WARNING ---
bh = 12*mm
rect(col3_x, cy - bh, col_w, bh, RED_BG, stroke=DARK_RED, radius=2)
section_hdr("\u26a0  Contempt & Perjury — Warning", col3_x, cy - 0.5*mm, col_w, h=13)
bullets([
    "Non-attendance without reason = Contempt of Court",
    "False evidence on oath = Perjury (Sec 229 BNS)",
    "Perjury: up to 7 years imprisonment + fine",
    "Revealing sealed report outside court = Contempt",
], col3_x + 3, cy - 5.5*mm, col_w - 6, size=7.5, lh=9)
cy -= bh + 2*mm

# --- KEY LEGAL SECTIONS TABLE ---
bh = 24*mm
rect(col3_x, cy - bh, col_w, bh, WHITE, stroke=BLUE, radius=2)
section_hdr("Key Legal Sections at a Glance", col3_x, cy - 0.5*mm, col_w)
law_data = [
    ("Sec 63-71 BNSS", "Summons issuance & service"),
    ("Sec 94 BNSS",    "Production of documents"),
    ("Sec 176(3) BNSS","Mandatory forensic exam >7yr"),
    ("Sec 39 BSA",     "Expert evidence admissibility"),
    ("Sec 26 BSA",     "Dying declaration"),
    ("Sec 57-59 BSA",  "Electronic records as evidence"),
    ("Sec 229 BNS",    "Perjury — 7 yrs imprisonment"),
    ("Sec 208 BNS",    "Non-attendance — fine/prison"),
]
lx = col3_x + 3
ly = cy - 5.5*mm
for sec, desc in law_data:
    rect(lx, ly - 1*mm, 28*mm, 5.5*mm, LIGHTBLUE, radius=1)
    txt(sec, lx + 1.5, ly + 0.5, size=6.5, bold=True, color=NAVY)
    txt(desc, lx + 29.5*mm, ly + 0.5, size=7, color=DARK)
    ly -= 8.5
cy -= bh + 2*mm

# ─────────────────────────────────────────────────────────────────────────────
# FOOTER
# ─────────────────────────────────────────────────────────────────────────────
rect(0, 0, W, 9*mm, NAVY)
rect(0, 9*mm, W, 0.8*mm, GOLD)
txt(
    "Ref: K.S. Narayan Reddy — Essentials of Forensic Medicine & Toxicology, 36th Ed. (2026)  |  "
    "Gautam Biswas — FM & Toxicology for Medical Students, 6th Ed. (2024)  |  "
    "BNSS / BSA / BNS effective 1 July 2024",
    W/2, 3.5*mm, size=6.2, color=LIGHTBLUE, align="center"
)

c.showPage()
c.save()
print("Saved:", out)