Fields

• _plotGCode :: [GCode]

  The generated G code. Use writeGCodeFile to store it to a file.

• _plotPreview :: Render ()

  Preview for the generated GCode. Use renderPreview to convert it to an SVG or PNG file, or render for more control in rendering.

• _plotBoundingBox :: BoundingBox

  The BoundingBox of the resulting plot.

• _totalBoundingBox :: BoundingBox

  The total BoundingBox of the preview, including origin and canvas.

  Example to show the entire bounding box in the preview:

  let bb = _plotBoundingBox result
      (w, h) = boundingBoxSize bb
      trafo = transformBoundingBox bb (BoundingBox zero (Vec2 w h)) def
  render previewFileName w h $ do
      'C.transform (toCairoMatrix trafo)
      _plotPreview result
  

• _plotInternals :: TinkeringInternals

  Internals calculated along the way. Useful for tinkering and testing.

Fields

• _feedrate :: Double

  Initial feedrate. Can be modified locally with withFeedrate. (default: 1000)

• _zTravelHeight :: Double

  During travel motion, keep the pen at this height (in absolute coordinates). (default: 1)

• _zDrawingHeight :: Double

  When drawing, keep the pen at this height (in absolute coordinates). (default: -1)

• _zLoweringFeedrate :: Maybe Double

  Use this feedrate for lowering the pen. On fast machines, lowering it at max speed might lead to unwanted vibrations. Nothing means as fast as possible. (default: Nothing)

• _finishMove :: Maybe FinishMove

  Do a final move after the drawing has ended. (default: Nothing)

• _previewDrawnShapesBoundingBox :: Bool

  At the beginning of the plot, trace the bounding box of all the GCode before actually drawing? Useful as a final check. (default: True)

• _canvasBoundingBox :: Maybe BoundingBox

  The canvas we’re painting on. Useful to check whether the pen leaves the drawing area. (default: Nothing)

  

  (image code)

  Expand

  >>> paper = boundingBox [zero, Vec2 300 200]
  >>> haskellLogo' = transform mirrorYCoords haskellLogo
  >>> geometry = transform (rotateAround (boundingBoxCenter paper) (deg 40) <> transformBoundingBox haskellLogo' (shrinkBoundingBox 10 paper) def) haskellLogo'
  >>> plotSettings = def { _canvasBoundingBox = Just paper }
  >>> plotResult = runPlot plotSettings (for_ geometry plot)
  >>> renderPreview "docs/haddock/Draw/Plotting/leaving_the_canvas.svg" 1 plotResult
  

• _previewPenWidth :: Double

  Use this line width in the preview. To get a realistic preview, match this value with the actual stroke width of your pen. (default: 1)

• _previewPenColor :: Color Double

  Use this color for drawings in the preview. To get a realistic preview, match this value with the actual color of your pen. (default: mma 1)

• _previewPenTravelColor :: Maybe (Color Double)

  Use this color for indicating pen travel in the preview. Nothing will disable pen travel preview. (default: Just (mma 0))

• _previewDecorate :: Bool

  Show additional decoration in the preview, like origin and bounding box. (default: True)

Fields

• _tinkeringSettings :: PlottingSettings

  The settings used to run the plot.

• _tinkeringWriterLog :: PlottingWriterLog

  Writer log, decorated with information only available after the plot finishes. The GCode has header and footer, the Cairo preview includes bounding boxes, etc.

• _tinkeringState :: PlottingState

  Final state after running the plot. Includes data such as the total pen travel distance.

Fields

• _plottedGCode :: DList GCode
   
• _penTravelDistance :: !Double
   
• _elementsDrawn :: !Int
   
• _plottingCairoPreview :: Render ()
   

Fields

• _penState :: !PenState
   
• _penXY :: !Vec2
   
• _drawingDistance :: !Double
   
• _drawnBoundingBox :: !BoundingBox
   

Fields

• _getStartEndPoint :: a -> (Vec2, Vec2)
   
• _flipObject :: Maybe (a -> a)
   
• _mergeObjects :: Maybe (a -> a -> Maybe a)