4 texidoc = "The markup-commands @code{\\draw-dashed-line} and
5 @code{\\draw-dotted-line} should print the same visual length as
10 #(define-scheme-function (parser location x-nmbr y-nmbr)(number? number?)
13 (let* ((x-lngth (if (positive? x-nmbr)
16 (dest (cons x-lngth y-nmbr))
17 (x-strg (number->string x-lngth))
18 (y-strg (number->string y-nmbr))
21 " \\draw-dotted-line #'("
28 " \\draw-dashed-line #'("
41 #:override '(baseline-skip . 0)
46 ((#:draw-dotted-line dest)
47 #:vcenter (#:fontsize -4 txt-1))
50 ((#:draw-dashed-line dest)
51 #:vcenter (#:fontsize -4 txt-2))
52 ;; default solid-line:
55 #:vcenter (#:fontsize -4 txt-3))
57 (iota (abs x-nmbr)))))