From e31fbabbd72a3b739cb7d9e987137c12a89be2c6 Mon Sep 17 00:00:00 2001
From: Thomas Bernard <miniupnp@free.fr>
Date: Wed, 7 Feb 2018 21:36:07 +0100
Subject: [PATCH] Load_IFF() parse Deluxe Paint ANimation (DPAN) chunk

---
 src/fileformats.c | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/src/fileformats.c b/src/fileformats.c
index 6c985e17..fe8960da 100644
--- a/src/fileformats.c
+++ b/src/fileformats.c
@@ -765,6 +765,20 @@ void Load_IFF(T_IO_Context * context)
 
           fseek(IFF_file, (section_size+1)&~1, SEEK_CUR);  // Skip remaining bytes
         }
+        else if (memcmp(section, "DPAN", 4) == 0) // Deluxe Paint ANimation
+        {
+          word version;
+          word frame_count;
+          dword flags;
+          if (section_size >= 8)
+          {
+            Read_word_be(IFF_file, &version);
+            Read_word_be(IFF_file, &frame_count);
+            Read_dword_be(IFF_file, &flags);
+            section_size -= 8;
+          }
+          fseek(IFF_file, (section_size+1)&~1, SEEK_CUR);  // Skip remaining bytes
+        }
         else if (memcmp(section, "DLTA", 4) == 0) // Animation DeLTA
         {
           int i, plane;