Re: scheme problem

Grégoire Lecerf <[email protected]> Thu, 26 Dec 2024 16:45:15 +0100

Newsgroups	gmane.editors.texmacs.user
Organization	Laboratoire d'informatique de l'École polyt echnique
Message-ID	<[email protected]>

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")))))