Data.GCode.Utils

GCode pretty-printing functions

Utilities for manipulating and filtering GCode

Documentation

isG :: Code -> Bool

True if Code is a G-code

isM :: Code -> Bool

True if Code is a M-code

isGN :: Int -> Code -> Bool

True if Code is a G{N} code

isGNs :: Int -> Int -> Code -> Bool

True if Code is a G{N}.{sub} code

isMN :: Int -> Code -> Bool

True if Code is a M{N} code

isMNs :: Int -> Int -> Code -> Bool

True if Code is a M{N}.{sub} code

isG0 :: Code -> Bool

True if Code is a G0 code

isRapid :: Code -> Bool

True if Code is a G0 (rapid move) code, alias to isG0

isG1 :: Code -> Bool

True if Code is a G1 code

isMove :: Code -> Bool

True if Code is a G1 (move) code, alias to isG1

isG2 :: Code -> Bool

True if Code is a G2 code

isArcCW :: Code -> Bool

True if Code is a G2 (clockwise circular move) code, alias to isG2

isG3 :: Code -> Bool

True if Code is a G3 code

isArcCCW :: Code -> Bool

True if Code is a G3 (counter-clockwise circular move) code, alias to isG3

isG4 :: Code -> Bool

True if Code is a G4 code

isDwell :: Code -> Bool

True if Code is a G4 (dwell) code, alias to isG4

isG5 :: Code -> Bool

True if Code is a G5 code

isCubicSpline :: Code -> Bool

True if Code is a G5 (cubic spline) code, alias to isG5

isG5s1 :: Code -> Bool

True if Code is a G5.1 code

isQuadSpline :: Code -> Bool

True if Code is a G5.1 (quadratic spline) code, alias to isG5s1

isG5s2 :: Code -> Bool

True if Code is a G5.2 code

isNURBS :: Code -> Bool

True if Code is a G5.2 (NURBS) code, alias to isG5s2

isXYZplane :: Code -> Bool

True if Code is a G17 (select XYZ plane) code

isXZYplane :: Code -> Bool

True if Code is a G18 (select XZY plane) code

isYZXplane :: Code -> Bool

True if Code is a G19 (select YZX plane) code

groupPlane :: [Code -> Bool]

isInch :: Code -> Bool

True if Code is a G20 (inch mode) code

isMM :: Code -> Bool

True if Code is a G21 (millimeter mode) code

groupUnits :: [Code -> Bool]

isG33 :: Code -> Bool

True if Code is a G33 code

isSpindleSync :: Code -> Bool

True if Code is a G33 (spindle synchronized motion) code, alias to isG33

isG33s1 :: Code -> Bool

True if Code is a G33.1 code

isRigidTap :: Code -> Bool

True if Code is a G33.1 (rigit tapping) code, alias to isG33s1

isG38 :: Code -> Bool

True if Code is a G38 code

isProbe :: Code -> Bool

True if Code is a G38 (probe) code, alias to isG38

groupMotion :: [Code -> Bool]

isDrillingCycleCB :: Code -> Bool

True if Code is a G73 (drilling cycle, chip breaking) code

isThreadingCycle :: Code -> Bool

True if Code is a G76 (threading cycle) code

isDrillingCycleCancel :: Code -> Bool

True if Code is a G80 (cancel drilling cycle) code

isDrillingCycle :: Code -> Bool

True if Code is a G81 (drilling cycle) code

isDrillingCycleDwell :: Code -> Bool

True if Code is a G82 (drilling cycle, dwell) code

isDrillingCyclePeck :: Code -> Bool

True if Code is a G83 (drilling cycle, pecky) code

isBoringCycle :: Code -> Bool

True if Code is a G85 (boring cycle, feed out) code

isBoringCycleDwell :: Code -> Bool

True if Code is a G89 (boring cycle, dwell, feed out) code

groupCycles :: [Code -> Bool]

isAbsolute :: Code -> Bool

True if Code is a G90 (absolute mode) code

isRelative :: Code -> Bool

True if Code is a G91 (relative mode) code

isArcAbsolute :: Code -> Bool

True if Code is a G90.1 (absolute arc mode) code

isArcRelative :: Code -> Bool

True if Code is a G91.1 (relative arc mode) code

isLatheDiameter :: Code -> Bool

True if Code is a G7 (lathe diameter mode) code

isLatheRadius :: Code -> Bool

True if Code is a G8 (lathe radius mode) code

groupDistance :: [Code -> Bool]

isInverseTime :: Code -> Bool

True if Code is a G93 (inverse time mode) code

isUnitsPerMinute :: Code -> Bool

True if Code is a G94 (units per minute time mode) code

isUnitsPerRevolution :: Code -> Bool

True if Code is a G95 (units per revolution time mode) code

groupFeedRateMode :: [Code -> Bool]

isSpindleCW :: Code -> Bool

True if Code is a M3 (spindle start clockwise) code

isSpindleCCW :: Code -> Bool

True if Code is a M4 (spindle start counter-clockwise) code

isSpindleStop :: Code -> Bool

True if Code is a M5 (spindle stop) code

groupSpindleControl :: [Code -> Bool]

isCoolantMist :: Code -> Bool

True if Code is a M7 (turn mist coolant on) code

isCoolantFlood :: Code -> Bool

True if Code is a M8 (turn flood coolant on) code

isCoolantStop :: Code -> Bool

True if Code is a M9 (turn all coolant off) code

groupCoolantControl :: [Code -> Bool]

isToolLength :: Code -> Bool

True if Code is a G43 (tool length offset) code

isToolLengthDynamic :: Code -> Bool

True if Code is a G43.1 (dynamic tool length offset) code

isToolLengthAdd :: Code -> Bool

True if Code is a G43.2 (apply additional tool length offset) code

isToolLengthCancel :: Code -> Bool

True if Code is a G49 (cancel tool length offset) code

groupToolLengthOffset :: [Code -> Bool]

isPause :: Code -> Bool

True if Code is a M0 (pause) code

isOptionalPause :: Code -> Bool

True if Code is a M1 (optional pause) code

isEnd :: Code -> Bool

True if Code is a M2 (program end) code

isExchange :: Code -> Bool

True if Code is a M30 (exchange pallet shuttles) code

groupStopping :: [Code -> Bool]

groups :: [[Code -> Bool]]

hasAxis :: AxisDesignator -> Code -> Bool

True if Code has a coordinate in axis a

getAxis :: AxisDesignator -> Code -> Maybe Double

getAxes :: [AxisDesignator] -> Code -> [Maybe Double]

getAxesToList :: Code -> [(AxisDesignator, Double)]

hasX :: Code -> Bool

True if Code contains X axis

hasY :: Code -> Bool

True if Code contains Y axis

hasZ :: Code -> Bool

True if Code contains Z axis

hasE :: Code -> Bool

True if Code contains E axis

hasParam :: ParamDesignator -> Code -> Bool

True if Code contains parameter with ParamDesignator

getParam :: ParamDesignator -> Code -> Maybe Double

hasFeedrate :: Code -> Bool

True if Code contains feedrate parameter (e.g. G0 F3000)

gcodes :: [Code] -> [Code]

Filter G-codes

mcodes :: [Code] -> [Code]

Filter M-codes

rapids :: [Code] -> [Code]

Filter rapid moves

moves :: [Code] -> [Code]

Filter moves

replaceClass :: Class -> Code -> Code

Replace Class of Code (e.g. for chaning G0 to M0)

replaceCode :: Int -> Code -> Code

Replace code value of Code (e.g. for chaning G0 to G1)

replaceAxis :: AxisDesignator -> Double -> Code -> Code

Replace axis with AxisDesignator in Code returning new Code

modifyAxis :: AxisDesignator -> (Double -> Double) -> Code -> Code

modifyAxes :: [AxisDesignator] -> (Double -> Double) -> Code -> Code

hasXY :: Code -> Bool

modifyXY :: (Double -> Double -> (Double, Double)) -> Code -> Code

addReplaceAxis :: AxisDesignator -> Double -> Code -> Code

Replace or add axis with AxisDesignator in Code returning new Code

replaceX :: Double -> Code -> Code

Replace X axis coordnate

replaceY :: Double -> Code -> Code

Replace Y axis coordinate

replaceZ :: Double -> Code -> Code

Replace Z axis coordinate

replaceE :: Double -> Code -> Code

Replace E axis coordinate

addReplaceX :: Double -> Code -> Code

Replace or add X axis coordinate

addReplaceY :: Double -> Code -> Code

Replace or add Y axis coordinate

addReplaceZ :: Double -> Code -> Code

Replace or add Z axis coordinate

addReplaceE :: Double -> Code -> Code

Replace or add E axis coordinate

replaceParam :: ParamDesignator -> Double -> Code -> Code

Replace parameter with ParamDesignator in Code returning new Code

modifyParam :: ParamDesignator -> (Double -> Double) -> Code -> Code

addReplaceParam :: ParamDesignator -> Double -> Code -> Code

Replace or add parameter with ParamDesignator in Code returning new Code

replaceFeedrate :: Double -> Code -> Code

Replace feedrate (F parameter) in Code returning new Code

modifyFeedrate :: (Double -> Double) -> Code -> Code

travel :: Code -> Double

Sum of all axis distances of this Code

inGroup :: Foldable t1 => t2 -> t1 (t2 -> Bool) -> Bool

Test if Code belongs to group g

known :: Code -> Bool

Test if Code belongs to any group

updateModals :: [Maybe Code] -> Code -> [Maybe Code]

appendAxes :: Code -> Code -> Code

incomplete :: Code -> Bool

totalize :: GCode -> GCode

type Evaluator a = State [Maybe Code] a

totalizer :: GCode -> Evaluator GCode

totalize' :: GCode -> (GCode, [Maybe Code])

updateFromEffect :: [Maybe Code] -> Code -> Code

updateIncompleteFromEffect :: [Maybe Code] -> Code -> Code

emptyGroups :: [Maybe a]

appendOnlyAxes :: Ord k => Map k a -> Map k a -> Map k a

rot :: Floating b => b -> b -> b -> (b, b)

roundprec :: (Fractional a2, Integral b, RealFrac a1) => b -> a1 -> a2

updateLimitsCode :: Limits -> Code -> Limits

updateLimits :: Limits -> Axes -> Limits