diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2018-04-06 18:19:14 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2018-04-06 18:19:14 +0200 |
| commit | 1238cc5fe7c59e276c92e5c5935744501f659c44 (patch) | |
| tree | 3226e284f5aa9dc8862b066dffcef27efb46883a | |
| parent | b033d698ed53d5fac2865c73cf79f08d4dd3cf7a (diff) | |
append-align: Use inexact numbers in modifiers.
| -rw-r--r-- | pict.scm | 20 |
1 files changed, 12 insertions, 8 deletions
@@ -679,21 +679,25 @@ the symbol XALIGN." 'x (match xalign ('left identity) ('center (lambda _ - (- (/ new-width 2) - (/ (pict-width pict) 2)))) + (exact->inexact + (- (/ new-width 2) + (/ (pict-width pict) 2))))) ('right (lambda _ - (- new-width - (pict-width pict)))) + (exact->inexact + (- new-width + (pict-width pict))))) ('offset (const xoffset)))) (attribute-modifier 'y (match yalign ('top identity) ('center (lambda _ - (- (/ new-height 2) - (/ (pict-height pict) 2)))) + (exact->inexact + (- (/ new-height 2) + (/ (pict-height pict) 2))))) ('bottom (lambda _ - (- new-height - (pict-height pict)))) + (exact->inexact + (- new-height + (pict-height pict))))) ('offset (const yoffset))))) (pict-sxml pict)))))) (make-pict |