mailing-list for TeXmacs Users

[TeXmacs <address@hidden>]

Hi Giovanni,

Thanks for this work.  This is definitely an improvement.

Please find a proposal to shorten the graphics example a bit attached;
it would be nice to keep the same indentation; you may re-add the comments.

I will keep thinking about other suggestions.

Best wishes, --Joris



On Mon, Sep 23, 2019 at 10:43:43AM +0200, Giovanni Piredda wrote:
> I have expanded the Wikipedia article (both the English and Italian
> versions). I have added information about typesestting, macros,
> Scheme and graphics, and also added that there is a group of
> collaborators around JvdH that maintains the program (I think that a
> mention of collaboration could beget further collaboration).
> 
> The article would benefit from a review. I have copied (with minimal
> adaptations) part of what I wrote from Massimiliano's presentation
> at the Guile and Guix days this June 
> (https://www.iam.uni-bonn.de/fileadmin/user_upload/gubinelli/texmacs/talk-texmacs-guile-strasbourg-june-2019.pdf)
> and there are things that I understand faintly, so that I might have
> written something wrong; in addition to this, Wikipedia recommends
> not copying :-) so that a bit of re-elaboration of the text is due I
> think - I will do myself but a review is again helpful. The new
> section is the one with the title "Typesetting and document
> control".
> 
> I have tried to put in an example of graphics that is short enough
> to be ok for an encyclopedia article but looks nice as well. Perhaps
> that can be improved too, it looks a bit long to me.
> 
> 
> Giovanni
> 
> 
<TeXmacs|1.99.11>

<style|generic>

<\body>
  <\session|scheme|default>
    <\input|Scheme] >
      (define pi (acos -1))
    </input>

    <\input|Scheme] >
      (define (pt x y)

      \ \ `(point ,(number-\<gtr\>string x) ,(number-\<gtr\>string y)))
    </input>

    <\input|Scheme] >
      (define xC (- (* 2 (cos (/ pi 3)))))
    </input>

    <\input|Scheme] >
      (define yC (* 2 (sin (/ pi 3))))
    </input>

    <\input|Scheme] >
      (define pA (pt -2 0))
    </input>

    <\input|Scheme] >
      (define pB (pt 2 0))
    </input>

    <\input|Scheme] >
      (define pC (pt xC yC))
    </input>

    <\input|Scheme] >
      (define tA (pt -2.3 -0.5))
    </input>

    <\input|Scheme] >
      (define tB (pt 2.1 -0.5))
    </input>

    <\input|Scheme] >
      (define tC (pt (- xC 0.2) (+ yC 0.2)))
    </input>

    <\unfolded-io|Scheme] >
      (stree-\<gtr\>tree

      \ `(with "gr-geometry" (tuple "geometry" "400px" "300px" "center")

      \ \ \ \ (graphics

      \ \ \ \ \ \ (with "color" "blue" \ (text-at (TeXmacs) ,(pt -0.55
      -0.75)))

      \ \ \ \ \ \ (with "color" "black" (arc ,pA ,pC ,pB))

      \ \ \ \ \ \ (with "color" "black" (line ,pA ,pB))

      \ \ \ \ \ \ (with "color" "red" \ \ (cline ,pA ,pB ,pC))

      \ \ \ \ \ \ (with "color" "black" (text-at "A" ,tA))

      \ \ \ \ \ \ (with "color" "black" (text-at "B" ,tB))

      \ \ \ \ \ \ (with "color" "black" (text-at "C" ,tC)))))
    <|unfolded-io>
      
<text|<with|gr-geometry|<tuple|geometry|400px|300px|center>|<graphics|<with|color|blue|<text-at|<TeXmacs>|<point|-0.55|-0.75>>>|<with|color|black|<arc|<point|-2|0>|<point|-1.0|1.73205080756888>|<point|2|0>>>|<with|color|black|<line|<point|-2|0>|<point|2|0>>>|<with|color|red|<cline|<point|-2|0>|<point|2|0>|<point|-1.0|1.73205080756888>>>|<with|color|black|<text-at|A|<point|-2.3|-0.5>>>|<with|color|black|<text-at|B|<point|2.1|-0.5>>>|<with|color|black|<text-at|C|<point|-1.2|1.93205080756888>>>>>>
    </unfolded-io>

    <\input|Scheme] >
      \;
    </input>
  </session>
</body>

<initial|<\collection>
</collection>>