@@ -202,7 +202,7 @@ image_width HorizJoin { output_width = w } = w
202image_width VertJoin { output_width = w } = w
202image_width VertJoin { output_width = w } = w
203image_width BGFill { output_width = w } = w
203image_width BGFill { output_width = w } = w
204image_width EmptyImage = 0
204image_width EmptyImage = 0
205−image_width ( Translation _v i ) = image_width i
205+image_width ( Translation _v i ) = toEnum $ max 0 $ (fst _v +) $ fromEnum $ image_width i
207-- | The height of an Image. This is the number of display rows the image will occupy.
207-- | The height of an Image. This is the number of display rows the image will occupy.
208image_height :: Image -> Word
208image_height :: Image -> Word
@@ -211,7 +211,7 @@ image_height HorizJoin { output_height = r } = r
211image_height VertJoin { output_height = r } = r
211image_height VertJoin { output_height = r } = r
212image_height BGFill { output_height = r } = r
212image_height BGFill { output_height = r } = r
213image_height EmptyImage = 0
213image_height EmptyImage = 0
214−image_height ( Translation _v i ) = image_height i
214+image_height ( Translation _v i ) = toEnum $ max 0 $ (snd _v +) $ fromEnum $ image_height i
216-- | Combines two images side by side.
216-- | Combines two images side by side.