Search Results

You could use my NormalizeGraphics function for this: NormalizeGraphics @ Graphics3D[Translate[Sphere[{0,0,0}],{1,0,0}]] //InputForm Graphics3D[Sphere[{1, 0, 0}, 1]]

edited to paint over axis below barcodes makeInset[i_,n_] := Inset[ Graphics[barcode[i]], Scaled[{-0.02,0},{0,i}], {0,0}, Scaled[{3.6,1}/n] ]; bplot[data_] := With[{n = Length[data]}, …

To have plots with the same width in a GraphicsColumn, they need to use the same ImagePadding and ImageSize specs. For example: GraphicsColumn[{ Plot[Sin[x], {x, 0, 1}, ImagePadding->30, ImageSiz …

I think you could use DiscretePlot: DiscretePlot[n^1.2, {n, 10}, AxesOrigin->{0,0}] DiscretePlot[Cos[n], {n,10}, AxesOrigin->{0,0}]

Use Texture: Graphics[ { Texture[Graphics[{smalls}, PlotRange->{{-10,10},{-10,10}}]], EdgeForm[Black], Polygon[ CirclePoints[{0,0}, 10, 120], VertexTextureCoordinates - … Use ImageMultiply: ImageMultiply[ Graphics[smalls, PlotRange->{{-10,10},{-10,10}}], Graphics[{White, EdgeForm[Black], Disk[{0,0},10]}, Background->None] ] (Addendum) $3$. …

How about: Show[ Graphics[ Polygon[ {{0,0},{1,0},{1,1},{0,1}}, VertexColors->{Opacity[0,Red],Opacity[1,Red],Opacity[1,Red],Opacity[0,Red]} ] ], Graphics …

The output if not always a graphics primitive. Sometimes the output of RegionIntersection is a BooleanRegion object, and these objects don't render inside of Graphics. … This can be fixed by using BoundaryDiscretizeRegion to convert to a BoundaryMeshRegion that does render inside of Graphics (in M12). …

In Mathematica 12 BoundaryMeshRegion objects can be used as a Graphics primitive. So, another idea is to use a BoundaryMeshRegion as your primitive. … b_BooleanRegion :> BoundaryDiscretizeRegion[b] ] }, Typeset`MakeBoxes[new, form, Graphics] ] Examples: Graphics[{Pink, EdgeForm[Blue], CutoutEllipse[{0,0}, {4,2}, .9 {1,2}]}] Graphics …

You can use the undocumented functions DynamicLocation and and DynamicName to do this (see this answer for more details): Graphics[ { Arrowheads[{-Medium,Medium}], Arrow[{ DynamicLocation …

You can use the ResourceFunction "GraphicsInformation" for this purpose: SeedRandom[1]; g = Graphics[{ Table[ Circle[RandomReal[{-10,10},2],RandomReal[{0,10},2],RandomReal[{0,2 π},2]], …

You can use ToExpression to turn a box expression into a normal expression. However, ToExpression doesn't work with RawBoxes, Cell or BoxData. So, the following might work for you: rawBoxesToExpressio …

The documentation says: Nested lists of graphics constructs can be given. Directive specifications such as GrayLevel remain in effect only until the end of the list that contains them. … So, include Dashed and the first circle in a nested list: Graphics[{Green, {Dashed, Circle[{0, 0}, .4]}, Black, Circle[{0, 0}, .5], FaceForm[], EdgeForm[Black], Rectangle[{-1, -1}, {1, 1}]}] …

You can use the ResourceFunction "SplineCurve" to do this: Show[ Graphics[{ Red, Arrowheads[{-.05,.05}], Arrow @ ResourceFunction["SplineCircle"][{0,0}, 1, {1, 0}, {0 Degree … , 90 Degree}] }], Graphics[{ Blue, Arrowheads[{-.05,.05}], Arrow @ ResourceFunction["SplineCircle"][{0,0}, 1.25, {1, 0}, {0 Degree, 270 Degree}] }], Graphics[{ …

It is possible to use a single call to ExportPacket to extract graphics information from multiple graphics objects. … Since the call to ExportPacket is the most time consuming part of the code, using a single call to ExportPacket will be much quicker than using graphicsInformation on multiple Graphics objects. …

For instance, compare: PlotRange[Graphics[{}, Axes->True]] "PlotRange" /. GraphicsInformation[Graphics[{}, Axes->True]] {{0., 1.}, {0., 1.}} {{-1.04167, 1.04167}, {-1.04, 1.04}} …