mailing-list for TeXmacs Users

[Grégoire Lecerf <address@concealed>]

Dear Vincent,

I hope that the code below will help.

Best wishes,
Grégoire.

(define q "0.866")

(define qm "-0.866")

(define (ligne-avec-style x1 x2 y1 y2 width)
  ‘(with "dash-style" "10" "line-width" ,width
    (line (point ,x1 ,y1) (point ,x2 ,y2))))

(insert ‘(small-figure
  (with
    "gr-mode" (tuple "edit" "math-at")
    "gr-frame" (tuple "scale" "1cm" (tuple "0.5gw" "0.5gh"))
    "gr-geometry" (tuple "geometry" "3.5cm" "3.2cm")
    "gr-line-width" "0.5ln"
    (graphics "" ,(ligne-avec-style "-0.5" "-0.5" qm q "0.4ln")))))