Define plot options (#1528)

This PR adds a comprehensive set of Graphics and Graphics3D options.
This will enable renderers - both core and non-core front-ends - to
implement the options without needing changes to core to pass them
through from Plot[3D] to Graphics[3D] to Graphics[3D]Box.

* Comprehensive set of options are added to Graphics and Graphics3D.
* Corresponding symbols are added to system symbols.
* A couple of test cases that were sensitive to the presence of the new
options in Graphics[3D] are adjusted.

This PR adds no new function beyond passing the options through. In
particular, no rendering code has been touched and no new rendering
function has been added.

Author: bdlucas1

mathics/builtin/box/graphics3d.py

@@ -20,7 +20,12 @@
     RGBColor,
     _ColorObject,
 )
-from mathics.builtin.drawing.graphics3d import Coords3D, Graphics3DElements, Style3D
+from mathics.builtin.drawing.graphics3d import (
+    Coords3D,
+    Graphics3D,
+    Graphics3DElements,
+    Style3D,
+)
 from mathics.builtin.drawing.graphics_internals import (
     GLOBALS3D,
     _GraphicsElementBox,
@@ -43,6 +48,7 @@ class Graphics3DBox(GraphicsBox):
     </dl>
     """
 
+    options = Graphics3D.options
     summary_text = "symbol used boxing Graphics3D expressions"
 
     def _prepare_elements(self, elements, options, max_width=None):

mathics/builtin/drawing/drawing_options.py

@@ -34,7 +34,7 @@ class Automatic(Builtin):
     graphical options:
 
     >> Cases[Options[Plot], HoldPattern[_ :> Automatic]]
-     = {Background :> Automatic, Exclusions :> Automatic, ImageSize :> Automatic, MaxRecursion :> Automatic, PlotRange :> Automatic, PlotRangePadding :> Automatic}
+     = {AxesOrigin :> Automatic, Background :> Automatic, BaselinePosition :> Automatic, ContentSelectable :> Automatic, CoordinatesToolOptions :> Automatic, Exclusions :> Automatic, FrameTicks :> Automatic, ImageSize :> Automatic, MaxRecursion :> Automatic, Method :> Automatic, PlotRange :> Automatic, PlotRangePadding :> Automatic, PlotRegion :> Automatic, PreserveImageOptions :> Automatic, Ticks :> Automatic}
     """
 
     summary_text = "graph option value to choose parameters automatically"

mathics/builtin/drawing/graphics3d.py

@@ -110,7 +110,30 @@ class Graphics3D(Graphics):
     summary_text = "a three-dimensional graphics image wrapper"
     options = Graphics.options.copy()
     options.update(
-        {"BoxRatios": "Automatic", "Lighting": "Automatic", "ViewPoint": "{1.3,-2.4,2}"}
+        {
+            "AxesEdge": "Automatic",
+            "BoxRatios": "Automatic",
+            "BoxStyle": "{}",
+            "Boxed": "True",
+            "ClipPlanes": "None",
+            "ClipPlanesStyle": "Automatic",
+            "ControllerLinking": "False",
+            "ControllerPath": "Automatic",
+            "FaceGrids": "None",
+            "FaceGridsStyle": "{}",
+            "Lighting": "Automatic",
+            "RotationAction": "Fit",
+            "SphericalRegion": "Automatic",
+            "TouchscreenAutoZoom": "False",
+            "ViewAngle": "Automatic",
+            "ViewCenter": "Automatic",
+            "ViewMatrix": "Automatic",
+            "ViewPoint": "{1.3,-2.4,2.}",
+            "ViewProjection": "Automatic",
+            "ViewRange": "All",
+            "ViewVector": "Automatic",
+            "ViewVertical": "{0,0,1}",
+        }
     )
 
     box_suffix = "3DBox"

mathics/builtin/graphics.py

@@ -55,14 +55,40 @@
 sort_order = "mathics.builtin.drawing-graphics"
 
 GRAPHICS_OPTIONS = {
+    "AlignmentPoint": "Center",
     "AspectRatio": "Automatic",
     "Axes": "False",
+    "AxesLabel": "None",
+    "AxesOrigin": "Automatic",
     "AxesStyle": "{}",
     "Background": "Automatic",
+    "BaseStyle": "{}",
+    "BaselinePosition": "Automatic",
+    "ContentSelectable": "Automatic",
+    "CoordinatesToolOptions": "Automatic",
+    "Epilog": "{}",
+    "FormatType": "TraditionalForm",
+    "Frame": "False",
+    "FrameLabel": "None",
+    "FrameStyle": "{}",
+    "FrameTicks": "Automatic",
+    "FrameTicksStyle": "{}",
+    "GridLines": "None",
+    "GridLinesStyle": "{}",
+    "ImageMargins": "0.",
+    "ImagePadding": "All",
     "ImageSize": "Automatic",
     "LabelStyle": "{}",
+    "Method": "Automatic",
+    "PlotLabel": "None",
     "PlotRange": "Automatic",
+    "PlotRangeClipping": "False",
     "PlotRangePadding": "Automatic",
+    "PlotRegion": "Automatic",
+    "PreserveImageOptions": "Automatic",
+    "Prolog": "{}",
+    "RotateLabel": "True",
+    "Ticks": "Automatic",
     "TicksStyle": "{}",
     "$OptionSyntax": "Ignore",
 }

mathics/core/systemsymbols.py

@@ -24,9 +24,10 @@
 
 # This list is sorted in alphabetic order.
 SymbolAborted = Symbol("System`$Aborted")
-SymbolAbsoluteTime = Symbol("AbsoluteTime")
 SymbolAbs = Symbol("System`Abs")
+SymbolAbsoluteTime = Symbol("AbsoluteTime")
 SymbolAccuracy = Symbol("System`Accuracy")
+SymbolAlignmentPoint = Symbol("System`AlignmentPoint")
 SymbolAll = Symbol("System`All")
 SymbolAlternatives = Symbol("System`Alternatives")
 SymbolAnd = Symbol("System`And")
@@ -40,18 +41,28 @@
 SymbolAssumptions = Symbol("System`$Assumptions")
 SymbolAttributes = Symbol("System`Attributes")
 SymbolAutomatic = Symbol("System`Automatic")
+SymbolAxesEdge = Symbol("System`AxesEdge")
+SymbolAxesLabel = Symbol("System`AxesLabel")
+SymbolAxesOrigin = Symbol("System`AxesOrigin")
 SymbolBaseForm = Symbol("System`BaseForm")
+SymbolBaseStyle = Symbol("System`BaseStyle")
+SymbolBaselinePosition = Symbol("System`BaselinePosition")
 SymbolBlack = Symbol("System`Black")
 SymbolBlank = Symbol("System`Blank")
 SymbolBlankNullSequence = Symbol("System`BlankNullSequence")
 SymbolBlankSequence = Symbol("System`BlankSequence")
 SymbolBlend = Symbol("System`Blend")
+SymbolBoxRatios = Symbol("System`BoxRatios")
+SymbolBoxStyle = Symbol("System`BoxStyle")
+SymbolBoxed = Symbol("System`Boxed")
 SymbolBreak = Symbol("System`Break")
 SymbolByteArray = Symbol("System`ByteArray")
 SymbolC = Symbol("System`C")
 SymbolCases = Symbol("System`Cases")
 SymbolCatalan = Symbol("System`Catalan")
 SymbolCeiling = Symbol("System`Ceiling")
+SymbolClipPlanes = Symbol("System`ClipPlanes")
+SymbolClipPlanesStyle = Symbol("System`ClipPlanesStyle")
 SymbolClusteringComponents = Symbol("System`ClusteringComponents")
 SymbolColorConvert = Symbol("System`ColorConvert")
 SymbolColorData = Symbol("System`ColorData")
@@ -64,9 +75,12 @@
 SymbolConditionalExpression = Symbol("System`ConditionalExpression")
 SymbolConjugate = Symbol("System`Conjugate")
 SymbolContainsOnly = Symbol("System`ContainsOnly")
+SymbolContentSelectable = Symbol("System`ContentSelectable")
 SymbolContext = Symbol("System`$Context")
 SymbolContextPath = Symbol("System`$ContextPath")
 SymbolContinue = Symbol("System`Continue")
+SymbolControllerLinking = Symbol("System`ControllerLinking")
+SymbolControllerPath = Symbol("System`ControllerPath")
 SymbolCos = Symbol("System`Cos")
 SymbolCosh = Symbol("System`Cosh")
 SymbolCot = Symbol("System`Cot")
@@ -87,6 +101,7 @@
 SymbolEndOfFile = Symbol("System`EndOfFile")
 SymbolEndOfLine = Symbol("System`EndOfLine")
 SymbolEndOfString = Symbol("System`EndOfString")
+SymbolEpilog = Symbol("System`Epilog")
 SymbolEqual = Symbol("System`Equal")
 SymbolEquivalent = Symbol("System`Equivalent")
 SymbolEulerGamma = Symbol("System`EulerGamma")
@@ -97,13 +112,17 @@
 SymbolExportString = Symbol("System`ExportString")
 SymbolExpression = Symbol("System`Expression")
 SymbolFaceForm = Symbol("System`FaceForm")
+SymbolFaceGrids = Symbol("System`FaceGrids")
+SymbolFaceGridsStyle = Symbol("System`FaceGridsStyle")
 SymbolFactorial = Symbol("System`Factorial")
 SymbolFailed = Symbol("System`$Failed")
 SymbolFindClusters = Symbol("System`FindClusters")
 SymbolFirst = Symbol("System`First")
 SymbolFloor = Symbol("System`Floor")
 SymbolFormat = Symbol("System`Format")
+SymbolFormatType = Symbol("System`FormatType")
 SymbolFractionBox = Symbol("System`FractionBox")
+SymbolFrameLabel = Symbol("System`FrameLabel")
 SymbolFull = Symbol("System`Full")
 SymbolFullForm = Symbol("System`FullForm")
 SymbolFunction = Symbol("System`Function")
@@ -126,6 +145,8 @@
 SymbolIf = Symbol("System`If")
 SymbolIm = Symbol("System`Im")
 SymbolImage = Symbol("System`Image")
+SymbolImageMargins = Symbol("System`ImageMargins")
+SymbolImagePadding = Symbol("System`ImagePadding")
 SymbolImplies = Symbol("System`Implies")
 SymbolIn = Symbol("System`In")
 SymbolIndeterminate = Symbol("System`Indeterminate")
@@ -137,14 +158,15 @@
 SymbolInputStream = Symbol("System`InputStream")
 SymbolInteger = Symbol("System`Integer")
 SymbolIntegrate = Symbol("System`Integrate")
+SymbolKey = Symbol("System`Key")
+SymbolKhinchin = Symbol("System`Khinchin")
 SymbolLast = Symbol("System`Last")
 SymbolLeft = Symbol("System`Left")
 SymbolLength = Symbol("System`Length")
 SymbolLess = Symbol("System`Less")
 SymbolLessEqual = Symbol("System`LessEqual")
-SymbolKey = Symbol("System`Key")
-SymbolKhinchin = Symbol("System`Khinchin")
 SymbolLetterCharacter = Symbol("System`LetterCharacter")
+SymbolLighting = Symbol("System`Lighting")
 SymbolLine = Symbol("System`Line")
 SymbolLog = Symbol("System`Log")
 SymbolLog10 = Symbol("System`Log10")
@@ -155,12 +177,12 @@
 SymbolMapAt = Symbol("System`MapAt")
 SymbolMapThread = Symbol("System`MapThread")
 SymbolMatchQ = Symbol("System`MatchQ")
-SymbolMatrixQ = Symbol("System`MatrixQ")
 SymbolMathMLForm = Symbol("System`MathMLForm")
 SymbolMatrixPower = Symbol("System`MatrixPower")
+SymbolMatrixQ = Symbol("System`MatrixQ")
 SymbolMax = Symbol("System`Max")
-SymbolMaxPrecision = Symbol("System`$MaxPrecision")
 SymbolMaxExtraPrecision = Symbol("System`$MaxExtraPrecision")
+SymbolMaxPrecision = Symbol("System`$MaxPrecision")
 SymbolMean = Symbol("System`Mean")
 SymbolMedian = Symbol("System`Median")
 SymbolMemberQ = Symbol("System`MemberQ")
@@ -179,8 +201,8 @@
 SymbolNot = Symbol("System`Not")
 SymbolNothing = Symbol("System`Nothing")
 SymbolNumberForm = Symbol("System`NumberForm")
-SymbolNumberString = Symbol("System`NumberString")
 SymbolNumberQ = Symbol("System`NumberQ")
+SymbolNumberString = Symbol("System`NumberString")
 SymbolNumericQ = Symbol("System`NumericQ")
 SymbolO = Symbol("System`O")
 SymbolOpacity = Symbol("System`Opacity")
@@ -191,9 +213,9 @@
 SymbolOptionsPattern = Symbol("System`OptionsPattern")
 SymbolOr = Symbol("System`Or")
 SymbolOut = Symbol("System`Out")
+SymbolOuter = Symbol("System`Outer")
 SymbolOutputForm = Symbol("System`OutputForm")
 SymbolOutputStream = Symbol("System`OutputStream")
-SymbolOuter = Symbol("System`Outer")
 SymbolOverflow = Symbol("System`Overflow")
 SymbolOwnValues = Symbol("System`OwnValues")
 SymbolPackages = Symbol("System`$Packages")
@@ -205,12 +227,17 @@
 SymbolPi = Symbol("System`Pi")
 SymbolPiecewise = Symbol("System`Piecewise")
 SymbolPlot = Symbol("System`Plot")
+SymbolPlotLabel = Symbol("System`PlotLabel")
+SymbolPlotRangeClipping = Symbol("System`PlotRangeClipping")
+SymbolPlotRegion = Symbol("System`PlotRegion")
 SymbolPlus = Symbol("System`Plus")
 SymbolPoint = Symbol("System`Point")
-SymbolPower = Symbol("System`Power")
 SymbolPolygon = Symbol("System`Polygon")
 SymbolPossibleZeroQ = Symbol("System`PossibleZeroQ")
+SymbolPower = Symbol("System`Power")
 SymbolPrecision = Symbol("System`Precision")
+SymbolPreserveImageOptions = Symbol("System`PreserveImageOptions")
+SymbolProlog = Symbol("System`Prolog")
 SymbolQuantity = Symbol("System`Quantity")
 SymbolQuiet = Symbol("System`Quiet")
 SymbolQuotient = Symbol("System`Quotient")
@@ -232,6 +259,7 @@
 SymbolReturn = Symbol("System`Return")
 SymbolReverse = Symbol("System`Reverse")
 SymbolRight = Symbol("System`Right")
+SymbolRotationAction = Symbol("System`RotationAction")
 SymbolRound = Symbol("System`Round")
 SymbolRow = Symbol("System`Row")
 SymbolRowBox = Symbol("System`RowBox")
@@ -251,6 +279,7 @@
 SymbolSort = Symbol("System`Sort")
 SymbolSortBy = Symbol("System`SortBy")
 SymbolSparseArray = Symbol("System`SparseArray")
+SymbolSphericalRegion = Symbol("System`SphericalRegion")
 SymbolSplit = Symbol("System`Split")
 SymbolSqrt = Symbol("System`Sqrt")
 SymbolSqrtBox = Symbol("System`SqrtBox")
@@ -269,22 +298,24 @@
 SymbolStringSplit = Symbol("System`StringSplit")
 SymbolStyle = Symbol("System`Style")
 SymbolSubValues = Symbol("System`SubValues")
-SymbolSubsetQ = Symbol("System`SubsetQ")
-SymbolSubtract = Symbol("System`Subtract")
 SymbolSubscriptBox = Symbol("System`SubscriptBox")
+SymbolSubsetQ = Symbol("System`SubsetQ")
 SymbolSubsuperscriptBox = Symbol("System`SubsuperscriptBox")
+SymbolSubtract = Symbol("System`Subtract")
 SymbolSuperscriptBox = Symbol("System`SuperscriptBox")
 SymbolTable = Symbol("System`Table")
 SymbolTake = Symbol("System`Take")
 SymbolTan = Symbol("System`Tan")
 SymbolTanh = Symbol("System`Tanh")
 SymbolTeXForm = Symbol("System`TeXForm")
-SymbolTimes = Symbol("System`Times")
-SymbolThrow = Symbol("System`Throw")
 SymbolThreshold = Symbol("System`Threshold")
+SymbolThrow = Symbol("System`Throw")
+SymbolTicks = Symbol("System`Ticks")
+SymbolTimes = Symbol("System`Times")
 SymbolToExpression = Symbol("System`ToExpression")
 SymbolToString = Symbol("System`ToString")
 SymbolTotal = Symbol("System`Total")
+SymbolTouchscreenAutoZoom = Symbol("System`TouchscreenAutoZoom")
 SymbolTraditionalForm = Symbol("System`TraditionalForm")
 SymbolTuples = Symbol("System`Tuples")
 SymbolUndefined = Symbol("System`Undefined")
@@ -294,6 +325,14 @@
 SymbolVariance = Symbol("System`Variance")
 SymbolVerbatim = Symbol("Verbatim")
 SymbolVertexColors = Symbol("VertexColors")
+SymbolViewAngle = Symbol("System`ViewAngle")
+SymbolViewCenter = Symbol("System`ViewCenter")
+SymbolViewMatrix = Symbol("System`ViewMatrix")
+SymbolViewPoint = Symbol("System`ViewPoint")
+SymbolViewProjection = Symbol("System`ViewProjection")
+SymbolViewRange = Symbol("System`ViewRange")
+SymbolViewVector = Symbol("System`ViewVector")
+SymbolViewVertical = Symbol("System`ViewVertical")
 SymbolWhitespace = Symbol("System`Whitespace")
 SymbolWhitespaceCharacter = Symbol("System`WhitespaceCharacter")
 SymbolWord = Symbol("System`Word")