RTF writer: omit \bin in \pict.

According to the spec, this is not needed or wanted when
the data is in hexadecimal format, as it is here.
This commit is contained in:
John MacFarlane
2021-08-01 22:45:41 -06:00
parent c1ab55793b
commit f938378d00
2 changed files with 3 additions and 3 deletions
+1 -1
View File
@@ -64,7 +64,7 @@ rtfEmbedImage opts x@(Image attr _ (src,_)) = catchError
-- twip = 1/1440in = 1/20pt
where (xpx, ypx) = sizeInPixels sz
(xpt, ypt) = desiredSizeInPoints opts attr sz
let raw = "{\\pict" <> filetype <> sizeSpec <> "\\bin " <>
let raw = "{\\pict" <> filetype <> sizeSpec <> " " <>
T.concat bytes <> "}"
if B.null imgdata
then do
+2 -2
View File
File diff suppressed because one or more lines are too long