Test Point and Ellipse

Author: rocky

mathics/builtin/inout.py

@@ -2063,25 +2063,25 @@ def apply_mathml(self, expr, evaluation) -> Expression:
 
         boxes = MakeBoxes(expr).evaluate(evaluation)
         try:
-            xml = boxes.boxes_to_mathml(evaluation=evaluation)
+            mathml = boxes.boxes_to_mathml(evaluation=evaluation)
         except BoxError:
             evaluation.message(
                 "General",
                 "notboxes",
                 Expression("FullForm", boxes).evaluate(evaluation),
             )
-            xml = ""
-        is_a_picture = xml[:6] == "<mtext"
+            mathml = ""
+        is_a_picture = mathml[:6] == "<mtext"
 
-        # mathml = '<math><mstyle displaystyle="true">%s</mstyle></math>' % xml
+        # mathml = '<math><mstyle displaystyle="true">%s</mstyle></math>' % mathml
         # #convert_box(boxes)
         query = evaluation.parse("Settings`$UseSansSerif")
         usesansserif = query.evaluate(evaluation).to_python()
         if not is_a_picture:
             if isinstance(usesansserif, bool) and usesansserif:
-                xml = '<mstyle mathvariant="sans-serif">%s</mstyle>' % xml
+                mathml = '<mstyle mathvariant="sans-serif">%s</mstyle>' % mathml
 
-        mathml = '<math display="block">%s</math>' % xml  # convert_box(boxes)
+        mathml = '<math display="block">%s</math>' % mathml  # convert_box(boxes)
         return Expression("RowBox", Expression(SymbolList, String(mathml)))
 
 

test/test_formatter.py

@@ -0,0 +1,86 @@
+import re
+from mathics.core.expression import Symbol, Integer0, Expression
+from mathics.core.evaluation import Evaluation
+from mathics.session import MathicsSession
+from mathics.builtin.inout import MakeBoxes
+from mathics.core.formatter import lookup_method
+
+session = MathicsSession(add_builtin=True, catch_interrupt=False)
+evaluation = Evaluation(session.definitions)
+
+GraphicsSymbol = Symbol("Graphics")
+ListSymbol = Symbol("List")
+
+svg_wrapper_pat = r"""^\s*
+\s*<svg xmlns:svg="http://www.w3.org/2000/svg"
+\s*xmlns="http://www.w3.org/2000/svg"
+\s*version="1\.1"
+"""
+
+
+def extract_svg_body(svg):
+    matches = re.match(svg_wrapper_pat, svg)
+    body = svg[len(matches.group(0)) :]
+    assert matches
+    view_inner_match = re.match(r"^\s+viewBox=.*\n\s+(.*)", body)
+    assert view_inner_match
+    inner_svg = view_inner_match.group(1)
+    print(inner_svg)
+    return inner_svg
+
+
+def get_svg(expression):
+    options = {}
+    boxes = MakeBoxes(expression).evaluate(evaluation)
+
+    # Would be nice to DRY this boilerplate from boxes_to_mathml
+
+    leaves = boxes._leaves
+    elements, calc_dimensions = boxes._prepare_elements(
+        leaves, options=options, neg_y=True
+    )
+    xmin, xmax, ymin, ymax, w, h, width, height = calc_dimensions()
+    data = (elements, xmin, xmax, ymin, ymax, w, h, width, height)
+
+    format_fn = lookup_method(boxes, "svg")
+    return format_fn(boxes, leaves, data=data, options=options)
+
+
+def test_svg_circle():
+    expression = Expression(
+        GraphicsSymbol,
+        Expression("Circle", Expression(ListSymbol, Integer0, Integer0)),
+    )
+
+    svg = get_svg(expression)
+    inner_svg = extract_svg_body(svg)
+
+    # Circles are implemented as ellipses with equal major and minor axes.
+    # Check for that.
+    matches = re.match(
+        r'^<ellipse cx="(\S+)" cy="(\S+)" rx="(\S+)" ry="(\S+)" .*/>', inner_svg
+    )
+    assert matches
+    assert matches.group(1) == matches.group(2) == matches.group(3)
+
+def test_svg_point():
+    expression = Expression(
+        GraphicsSymbol,
+        Expression("Point", Expression(ListSymbol, Integer0, Integer0)),
+    )
+
+    svg = get_svg(expression)
+    inner_svg = extract_svg_body(svg)
+
+    # Circles are implemented as ellipses with equal major and minor axes.
+    # Check for that.
+    print(inner_svg)
+    matches = re.match(
+        r'^<circle cx="(\S+)" cy="(\S+)" r="(\S+)" .*/>', inner_svg
+    )
+    assert matches
+    assert matches.group(1) == matches.group(2)
+
+
+if __name__ == "__main__":
+    test_svg_point()