The right way to use svg?

The right way to use svg?

[Zhiwei Chen]

[-- Attachment #1: Type: text/plain, Size: 435 bytes --]


#+begin_src elisp
(require 'svg)

(let* ((text "Hello, world")
       (w (* (length text) (window-font-width)))
       (h (window-font-height))
       (svg (svg-create w h)))
  (svg-rectangle svg 0 0 w h :stroke "black" :fill "none")
  (svg-text svg text
            :x           0
            :y           (- h 4) ;; Why 4 here?
            :fill        "black")
  (insert-image (svg-image svg :scale 1 :ascent 'center)))
#+end_src


[-- Attachment #2: Screenshot --]
[-- Type: image/png, Size: 39779 bytes --]

[-- Attachment #3: Type: text/plain, Size: 219 bytes --]


My question is why it uses 4 rather than other number?

#+begin_src elisp
(list (window-font-width)
      (window-font-height))
;; => (10 21)
#+end_src

on my machine with 1920x1080 screen resolution.

-- 
Zhiwei Chen

Re: The right way to use svg?

[Lars Ingebrigtsen]

Zhiwei Chen <condy0919@gmail.com> writes:

>   (svg-text svg text
>             :x           0
>             :y           (- h 4) ;; Why 4 here?
>             :fill        "black")

I think I vaguely remember texts using a default anchor of "middle"?  So
perhaps you want

  :text-anchor "top"

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no

Re: The right way to use svg?

[Lars Ingebrigtsen]

Lars Ingebrigtsen <larsi@gnus.org> writes:

> Zhiwei Chen <condy0919@gmail.com> writes:
>
>>   (svg-text svg text
>>             :x           0
>>             :y           (- h 4) ;; Why 4 here?
>>             :fill        "black")
>
> I think I vaguely remember texts using a default anchor of "middle"?  So
> perhaps you want
>
>   :text-anchor "top"

No, never mind -- that can't be correct.  Hm.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no

Re: The right way to use svg?

[Nick Dokos]

Zhiwei Chen <condy0919@gmail.com> writes:

> #+begin_src elisp
> (require 'svg)
>
> (let* ((text "Hello, world")
>        (w (* (length text) (window-font-width)))
>        (h (window-font-height))
>        (svg (svg-create w h)))
>   (svg-rectangle svg 0 0 w h :stroke "black" :fill "none")
>   (svg-text svg text
>             :x           0
>             :y           (- h 4) ;; Why 4 here?
>             :fill        "black")
>   (insert-image (svg-image svg :scale 1 :ascent 'center)))
> #+end_src
>
>
>
>
> My question is why it uses 4 rather than other number?

Not quite sure what you are asking, but I don't think there is any
magic associated with 4: it was probably trial and error and was
chosen because it raises the text enough so that the comma doesn't
stick out below the bottom of the box and it doesn't get cropped.

5 or 6 should also work, but if you subtract too much, then the `H'
and the `l' will start sticking outside the box at the top and will
get cropped.

Basically, if you want to fit text inside a box, you need to know the
depth of the largest descender in your font (maybe the comma, maybe
the descender in `g' or `y' or 'j' or 'p' or 'q') and raise the text
in the box by that much (and of course make the box big enough so that
the text fits inside).

>
> #+begin_src elisp
> (list (window-font-width)
>       (window-font-height))
> ;; => (10 21)
> #+end_src
>
> on my machine with 1920x1080 screen resolution.

-- 
Nick

"There are only two hard problems in computer science: cache
invalidation, naming things, and off-by-one errors." -Martin Fowler