Chronological Thread 

< Chronological >      < Thread >

---

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

---

• Wikipedia article, Giovanni Piredda, 09/23/2019
  • Re: Wikipedia article, TeXmacs, 09/27/2019
    • Re: Wikipedia article, Giovanni Piredda, 09/30/2019

---

Archive powered by MHonArc 2.6.19.