GeoGebra Formatter

One problem with GeoGebra is that sometimes you have to deal with long long loooong definitions that are all on single lines. Sometimes it's hard to read, or create, these definitions -- especially when they contain nested commands and lists.

This tool solves this problem. Enter your one-line definition(s) below. Then click the right-pointing arrow button. You'll then see a nicely-formatted result in the box on the right.

You can also go the opposite direction: click the left-pointing arrow to convert nice text into one-line GeoGebra definitions.

(Click the "Clear!" button to remove the examples shown.)

Enter your one-line definition(s) here:

// The following are example definitions
// taken from real worksheets.
//
// Note: The blank lines between the
// definitions are for clarity only.

Liste2_1 = Sequence[Polygon[(a + k * Δx, 0), (a + (k + 1) * Δx, 0), (a + (k + 1) * Δx, f(a + (2 * k + 1) * Δx / 2)), (a + k * Δx, f(a + (2 * k + 1) * Δx / 2))], k, 0, n - 1]

LTeilPolynome = Sequence[Function[Polynomial[{Element[LPunkte, j], Element[LPunkte, j + 1], Element[LPunkte, j + 2]}], Element[LxWerte, j], Element[LxWerte, j + 2]], j, 1, 2 * n - 1, 2]

ww = If[theta < 0.5 * π, 20.0, If[theta < π, 5.0, If[theta < 2.0 * π, 3.0, 1.0]]]

Fi0 = Sequence[Sum[Sequence[Element[Q01, i] / Segment[Element[S11, j], Element[P01, i]], i, 1, N_Q]], j, 1, nx + 1]

liste1 = If[y(C - B) * y(B - A) > 0, {G, B, If[Defined[x(Element[liste2, 1])], Element[liste2, 1], If[Defined[x(Element[liste2, 2])], Element[liste2, 2], (0, 0)]]}, {E, B, J}]

Nicely-formatted output:

// The following are example definitions
// taken from real worksheets.
//
// Note: The blank lines between the
// definitions are for clarity only.

Liste2_1 = Sequence[
             Polygon[
               (a + k * Δx, 0),
               (a + (k + 1) * Δx, 0),
               (a + (k + 1) * Δx, f(a + (2 * k + 1) * Δx / 2)),
               (a + k * Δx, f(a + (2 * k + 1) * Δx / 2))
             ],
             k, 0, n - 1
           ]

liste2 = Sequence[
           Beziers[
             Element[liste1, k],
             If[
               k ≠ 1,
               Element[liste1, k],
               0.5 * (Element[liste1, 1] + Element[liste1, 2])
             ] + If[k ≟ 1, 0, 1] * 1 / 3 * (x(Element[liste1, k + 1] - Element[liste1, k]), 0),
             If[
               k ≠ Length[liste1] - 1,
               Element[liste1, k + 1],
               0.5 * (Element[
                        liste1,
                        Length[liste1] - 1
                      ] + Element[
                            liste1,
                            Length[liste1]
                          ])
             ] + If[
                   k ≟ Length[liste1] - 1,
                   0, -1
                 ] * 1 / 3 * (x(Element[liste1, k + 1] - Element[liste1, k]), 0),
             Element[liste1, k + 1]
           ],
           k,
           1,
           Length[liste1] - 1
         ]

R1numtext = Element[
              {"AB", "BC", "CA", "A'B'", "B'C'", "C'A'", "?"},
              IndexOf[
                signature,
                {
                  {1, 1, 0, 0, 0, 0},
                  {0, 1, 1, 0, 0, 0},
                  {1, 0, 1, 0, 0, 0},
                  {1, 1, 0, 1, 1, 0},
                  {0, 1, 1, 0, 1, 1},
                  {1, 0, 1, 1, 0, 1},
                  signature
                }
              ]
            ]

LTeilPolynome = Sequence[
                  Function[
                    Polynomial[
                      {
                        Element[LPunkte, j],
                        Element[LPunkte, j + 1],
                        Element[LPunkte, j + 2]
                      }
                    ],
                    Element[LxWerte, j],
                    Element[LxWerte, j + 2]
                  ],
                  j, 1, 2 * n - 1, 2
                ]

ww = If[
       theta < 0.5 * π,
       20.0,
       If[
         theta < π,
         5.0,
         If[theta < 2.0 * π, 3.0, 1.0]
       ]
     ]

Fi0 = Sequence[
        Sum[
          Sequence[
            Element[Q01, i] / Segment[
                                Element[S11, j],
                                Element[P01, i]
                              ],
            i, 1, N_Q
          ]
        ],
        j, 1, nx + 1
      ]

liste1 = If[
           y(C - B) * y(B - A) > 0,
           {
             G,
             B,
             If[
               Defined[
                 x(Element[liste2, 1])
               ],
               Element[liste2, 1],
               If[
                 Defined[
                   x(Element[liste2, 2])
                 ],
                 Element[liste2, 2],
                 (0, 0)
               ]
             ]
           },
           {E, B, J}
         ]

cronoMarks = {
               Sequence[
                 Segment[
                   cronoP0 + (2 * scale; s°),
                   cronoP0 + (1.9 * scale; s°)
                 ],
                 s, 0, 360, 6
               ],
               Sequence[
                 Segment[
                   cronoP0 + (2 * scale; s°),
                   cronoP0 + (1.75 * scale; s°)
                 ],
                 s, 0, 360, 30
               ],
               Sequence[
                 Segment[
                   cronoP2 + (0.6 * scale; s°),
                   cronoP2 + (0.55 * scale; s°)
                 ],
                 s, 0, 360, 6
               ],
               Sequence[
                 Segment[
                   cronoP2 + (0.6 * scale; s°),
                   cronoP2 + (0.5 * scale; s°)
                 ],
                 s, 0, 360, 30
               ]
             }

crono = "" + (If[
                hours < 1,
                "00",
                If[hours < 10, "0" * hours, "" * hours]
              ]) + ":" + (If[
                            minutes < 1,
                            "00",
                            If[minutes < 10, "0" * minutes, "" * minutes]
                          ]) + ":" + (If[
                                        seconds < 1,
                                        "00",
                                        If[seconds < 10, "0" * seconds, "" * seconds]
                                      ]) + "." + miliseconds + ""

Alternatively, type the URL of some .ggb (or .ggt) file whose protocol you wish to format: example1, example2, example3, example4.

How to use this tool

The obvious way to use this tool is to "copy" to clipboard your definition and then "paste" it into this page.

However, you may find this way tedious. Most browsers provide a shorcut: they let you mark the text (the GeoGebra definitions) with the mouse and then, via the context menu, send it to some search engine. The "trick" is to add this tool to the list of search engines your browser knows about. Here it is in action:

Here are instructions for the common browsers:

Browser: Opera

Go to "Preferences", then the "Search" tab, and "Add..." a new search engine; make its URL http://www.typo.co.il/~mooffie/ggb/formatter/?source=%s
That's all.

Browser: Firefox

Add this web-page to Firefox's list of search engines: The browser has a search box, usualy in the upper right corner; Clicking its dropdown menu would reveal a new item: "Add 'GeoGebra Formatter'". Click this item. Here's a screenshot showing this (click to enlarge):
Install an extension that lets you search the selcted text; Examples: ~~Context Search~~ or Selected Search. (2012-Jan-17: The "Context Search" extension is superior, but it has an unfortunate bug: it's limited to 150 characters; I've sent its developer a note. Stay tuned.)

Browser: Google Chrome

Install an extension that lets you search the selcted text; Examples: Context Menu Search or Context Search.
Add this web-page to your extension's list of search engines: Go to the extension's "options" screen and enter a URL similar to the one mentioned for the Opera browser (different extensions may have a slightly different syntax, so I can't provide exact instuctions; basically you'd change the %s to some other token).

Browser: Internet Explorer

Step #1 for Firefox is applicable to IE 7+ as well.
(I don't have access to IE so I don't know if anything more is needed.)

General notes about browser integration:

When using the context menu: Unfortunately, browsers don't send newline characters to a "search engine". As a result, if you select several definitions, this web-page will think it's a single definition and the output won't be as pretty. So make sure to select only one definition at a time.
When using the context menu: In some browsers/extensions you'll have to hold Shift down while clicking for the tool to open in a separate tab.

Contact

In you encounter any problems, email me.