Added frameDuration array.

max2d.mod/image.bmx

@@ -15,6 +15,7 @@ Type TImage
 
 	Field frames:TImageFrame[]
 	Field seqs:Int[]
+	Field frameDuration:Int[]
 	
 	Method _pad()
 	End Method
@@ -39,7 +40,7 @@ Type TImage
 		Return pixmaps[index]
 	End Method
 	
-	Method SetPixmap( index:Int,pixmap:TPixmap )
+	Method SetPixmap( index:Int,pixmap:TPixmap, duration:Int = 0 )
 		Assert index < seqs.length And index < frames.length And index < pixmaps.length Else "Index out of bounds"
 		If (flags & MASKEDIMAGE) And AlphaBitsPerPixel[pixmap.format]=0
 			pixmap=MaskPixmap( pixmap,mask_r,mask_g,mask_b )
@@ -49,6 +50,7 @@ Type TImage
 		pixmaps[index]=pixmap
 		seqs[index]=0
 		frames[index]=Null
+		frameDuration[index]=duration
 	End Method
 	
 	Function Create:TImage( width:Int,height:Int,frames:Int,flags:Int,mr:Int,mg:Int,mb:Int )
@@ -63,6 +65,7 @@ Type TImage
 		t.pixmaps=New TPixmap[frames]
 		t.frames=New TImageFrame[frames]
 		t.seqs=New Int[frames]
+		t.frameDuration=New Int[frames]
 		Return t
 	End Function