mailing-list for TeXmacs Users

[vincent douce <address@concealed>]

hello…

i have tried a lot but not understood where the problem was

;les variables

        (let ((q "0.866") (qm "-0.866"))

      (define (ligne-avec-style x1 x2 y1 y2 width);width formated du style "0.4ln"

            (with "dash-style" "10" "line-width" "0.4ln"

            (line (point x1 y1) (point x2 y2))

            );with

            );define

 (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")  ; macro does not work

;(,ligne-avec-style "-0.5" "-0.5" ,qm ,q "0.4ln"); macro does not work

;,(eval `(ligne-avec-style "-0.5" "-0.5" ,qm ,q "0.4ln")); macro does not work

;,(eval (ligne-avec-style "-0.5" "-0.5" qm q "0.4ln")); macro does not work

;(ligne-avec-style q q qm qm "0.4ln"); macro does not work, assez logique

;(ligne-avec-style "-0.5" "-0.5" ,qm ,q "0.4ln") ; macro does work but line not drawed

;(ligne-avec-style "-0.5" "-0.5" "-1" "1" "0.4ln"); macro does work but line not drawed

;(ligne-avec-style ,q ,q ,qm ,qm "0.4ln"); macro does work but line not drawed

        (with "dash-style" "10" "line-width" "0.4ln" (line (point ,qm "0.5") (point ,q "0.5")))

        );graphics

    );(with "gr-mode"

);(small-figure

 

)

                );let

like this the code works

but none of my attempt to create a function did work

i want to avoid to copy   (with "dash-style" "10" "line-width" « 0.4ln"

at each line…

Vincent