from pptx import Presentation

from pptx.util import Inches

# Create a PowerPoint presentation

ppt = Presentation()

# Slide 1: Title Slide

slide_layout = ppt.slide_layouts[0] # Title Slide Layout

slide = ppt.slides.add_slide(slide_layout)

title = slide.shapes.title

subtitle = slide.placeholders[1]

title.text = "Transport of Carbon Dioxide & Hamburger Phenomenon"

subtitle.text = "A Detailed Explanation"

# Slide 2: Introduction to CO2 Transport

slide_layout = ppt.slide_layouts[1] # Title and Content Layout

slide = ppt.slides.add_slide(slide_layout)

title = slide.shapes.title

content = slide.placeholders[1]

title.text = "Introduction to Carbon Dioxide Transport"

content.text = "Carbon dioxide is transported in the blood through three main mechanisms:\n\n"

content.text += "1. Dissolved in plasma (7-10%)\n"

content.text += "2. Bound to hemoglobin as carbaminohemoglobin (20-30%)\n"

content.text += "3. As bicarbonate ions (HCO3-) (60-70%)\n\n"

content.text += "The majority of CO2 is carried as bicarbonate ions in the plasma."

# Slide 3: CO2 Transport in Detail

slide = ppt.slides.add_slide(slide_layout)

title = slide.shapes.title

content = slide.placeholders[1]

title.text = "Detailed CO2 Transport Mechanisms"

content.text = "1. Dissolved in Plasma: A small percentage of CO2 dissolves directly into plasma.\n"

content.text += "2. Carbaminohemoglobin: CO2 binds to hemoglobin at different sites than O2.\n"

content.text += "3. Bicarbonate Formation: CO2 reacts with water in RBCs to form carbonic acid, which dissociates into H+ and HCO3-."

# Slide 4: Hamburger Phenomenon (Chloride Shift)

slide = ppt.slides.add_slide(slide_layout)

title = slide.shapes.title

content = slide.placeholders[1]

title.text = "Hamburger Phenomenon (Chloride Shift)"

content.text = "• Inside RBCs, CO2 combines with H2O to form HCO3- and H+.\n"

content.text += "• HCO3- diffuses into plasma, and Cl- enters the RBC to maintain electrochemical balance.\n"

content.text += "• This process is called the 'Chloride Shift' or 'Hamburger Phenomenon'."

# Slide 5: Reverse Chloride Shift

slide = ppt.slides.add_slide(slide_layout)

title = slide.shapes.title

content = slide.placeholders[1]

title.text = "Reverse Chloride Shift"

content.text = "• In the lungs, HCO3- reenters RBCs, and Cl- moves out.\n"

content.text += "• HCO3- combines with H+ to form H2CO3, which breaks into CO2 and H2O.\n"

content.text += "• CO2 is then exhaled through the lungs."

# Slide 6: Conclusion

slide = ppt.slides.add_slide(slide_layout)

title = slide.shapes.title

content = slide.placeholders[1]

title.text = "Conclusion"

content.text = "• CO2 transport occurs through plasma, hemoglobin, and bicarbonate ions.\n"

content.text += "• The Hamburger phenomenon helps maintain ionic balance during CO2 transport.\n"

content.text += "• The reverse chloride shift facilitates CO2 exhalation in the lungs."

# Save the PowerPoint file

ppt_filename = "/mnt/data/CO2_Transport_Hamburger_Phenomenon.pptx"

ppt.save(ppt_filename)

ppt_filename