Safe Haskell	None
Language	Haskell2010

Data.GCode.Canon

Synopsis

data Plane
- = XY
- | YZ
- | ZX
- | UV
- | WU
- | VW
data CutterCompenstationSide
type Speed = Double
type Seconds = Double
data RotationDirection
- = ClockWise
- | CounterClockWise
data LengthUnit
- = Inches
- | MilliMeters
- | CentiMeters
- | Meters
data HeaterType
- = HeatedExtruder
- | HeatedBed
- | HeatedChamber
data Heater = Heater HeaterType (Maybe Int)
data CompensationMode
- = NoCompensation
- | LengthTable
- | Dynamic Axes
- | Add Int
data ArcParams = ArcParams {
- arcFirstEnd :: Double
- arcSecondEnd :: Double
- arcFirstAxis :: Double
- arcSecondAxis :: Double
- arcRotation :: Int
- arcAxisEndPoint :: Double
- arcA :: Double
- arcB :: Double
- arcC :: Double
- arcU :: Double
- arcV :: Double
- arcW :: Double
}
data Canon
- = StraightTraverse Axes
- | StraightFeed Axes
- | StraightProbe Axes
- | SetCoords Axes
- | ArcFeed ArcParams
- | ProgramEnd
- | SetFeedRate Speed
- | SetTraverseRate Speed
- | PlaneSelect Plane
- | PauseSeconds Double
- | SpindleStart {
  - spindleDirection :: RotationDirection
  - spindleWaitForSpeed :: Bool
  }
- | SpindleStop
- | SpindleSpeed Speed
- | CoolantMist
- | CoolantFlood
- | CoolantStop
- | ToolSelect Int
- | ToolChange
- | ToolLengthCompensation CompensationMode
- | FanOn
- | FanOff
- | SetTemperature Heater Double
- | SetTemperatureWait Heater Double
- | CancelWaitTemperature
- | LevelBed
- | DisableMotors Axes
- | DisplayMessage ByteString
- | Comment ByteString
data CanonState = CanonState {
- canonPosition :: Axes
- canonTraverseRate :: Speed
- canonFeedRate :: Speed
- canonPlane :: Plane
}
initCanonState :: CanonState
stepCanon :: CanonState -> Canon -> CanonState
evalCanon :: (CanonState -> CanonState -> Canon -> [a]) -> [Canon] -> [a]

Documentation

data Plane Source #

Constructors

XY
YZ
ZX
UV
WU
VW

Instances

Eq Plane Source #
Instance details Defined in Data.GCode.Canon Methods (==) :: Plane -> Plane -> Bool # (/=) :: Plane -> Plane -> Bool #
Ord Plane Source #
Instance details Defined in Data.GCode.Canon Methods compare :: Plane -> Plane -> Ordering # (<) :: Plane -> Plane -> Bool # (<=) :: Plane -> Plane -> Bool # (>) :: Plane -> Plane -> Bool # (>=) :: Plane -> Plane -> Bool # max :: Plane -> Plane -> Plane # min :: Plane -> Plane -> Plane #
Show Plane Source #
Instance details Defined in Data.GCode.Canon Methods showsPrec :: Int -> Plane -> ShowS # show :: Plane -> String # showList :: [Plane] -> ShowS #

data CutterCompenstationSide Source #

Constructors

CutterCompensationRight
CutterCompensationLeft
CutterCompensationOff

Instances

Eq CutterCompenstationSide Source #
Instance details Defined in Data.GCode.Canon Methods (==) :: CutterCompenstationSide -> CutterCompenstationSide -> Bool # (/=) :: CutterCompenstationSide -> CutterCompenstationSide -> Bool #
Ord CutterCompenstationSide Source #
Instance details Defined in Data.GCode.Canon Methods compare :: CutterCompenstationSide -> CutterCompenstationSide -> Ordering # (<) :: CutterCompenstationSide -> CutterCompenstationSide -> Bool # (<=) :: CutterCompenstationSide -> CutterCompenstationSide -> Bool # (>) :: CutterCompenstationSide -> CutterCompenstationSide -> Bool # (>=) :: CutterCompenstationSide -> CutterCompenstationSide -> Bool # max :: CutterCompenstationSide -> CutterCompenstationSide -> CutterCompenstationSide # min :: CutterCompenstationSide -> CutterCompenstationSide -> CutterCompenstationSide #
Show CutterCompenstationSide Source #
Instance details Defined in Data.GCode.Canon Methods showsPrec :: Int -> CutterCompenstationSide -> ShowS # show :: CutterCompenstationSide -> String # showList :: [CutterCompenstationSide] -> ShowS #

type Speed = Double Source #

type Seconds = Double Source #

data RotationDirection Source #

Constructors

ClockWise
CounterClockWise

Instances

Eq RotationDirection Source #
Instance details Defined in Data.GCode.Canon Methods (==) :: RotationDirection -> RotationDirection -> Bool # (/=) :: RotationDirection -> RotationDirection -> Bool #
Ord RotationDirection Source #
Instance details Defined in Data.GCode.Canon Methods compare :: RotationDirection -> RotationDirection -> Ordering # (<) :: RotationDirection -> RotationDirection -> Bool # (<=) :: RotationDirection -> RotationDirection -> Bool # (>) :: RotationDirection -> RotationDirection -> Bool # (>=) :: RotationDirection -> RotationDirection -> Bool # max :: RotationDirection -> RotationDirection -> RotationDirection # min :: RotationDirection -> RotationDirection -> RotationDirection #
Show RotationDirection Source #
Instance details Defined in Data.GCode.Canon Methods showsPrec :: Int -> RotationDirection -> ShowS # show :: RotationDirection -> String # showList :: [RotationDirection] -> ShowS #

data LengthUnit Source #

Constructors

Inches
MilliMeters
CentiMeters
Meters

Instances

Eq LengthUnit Source #
Instance details Defined in Data.GCode.Canon Methods (==) :: LengthUnit -> LengthUnit -> Bool # (/=) :: LengthUnit -> LengthUnit -> Bool #
Ord LengthUnit Source #
Instance details Defined in Data.GCode.Canon Methods compare :: LengthUnit -> LengthUnit -> Ordering # (<) :: LengthUnit -> LengthUnit -> Bool # (<=) :: LengthUnit -> LengthUnit -> Bool # (>) :: LengthUnit -> LengthUnit -> Bool # (>=) :: LengthUnit -> LengthUnit -> Bool # max :: LengthUnit -> LengthUnit -> LengthUnit # min :: LengthUnit -> LengthUnit -> LengthUnit #
Show LengthUnit Source #
Instance details Defined in Data.GCode.Canon Methods showsPrec :: Int -> LengthUnit -> ShowS # show :: LengthUnit -> String # showList :: [LengthUnit] -> ShowS #

data HeaterType Source #

Constructors

HeatedExtruder
HeatedBed
HeatedChamber

Instances

Eq HeaterType Source #
Instance details Defined in Data.GCode.Canon Methods (==) :: HeaterType -> HeaterType -> Bool # (/=) :: HeaterType -> HeaterType -> Bool #
Ord HeaterType Source #
Instance details Defined in Data.GCode.Canon Methods compare :: HeaterType -> HeaterType -> Ordering # (<) :: HeaterType -> HeaterType -> Bool # (<=) :: HeaterType -> HeaterType -> Bool # (>) :: HeaterType -> HeaterType -> Bool # (>=) :: HeaterType -> HeaterType -> Bool # max :: HeaterType -> HeaterType -> HeaterType # min :: HeaterType -> HeaterType -> HeaterType #
Show HeaterType Source #
Instance details Defined in Data.GCode.Canon Methods showsPrec :: Int -> HeaterType -> ShowS # show :: HeaterType -> String # showList :: [HeaterType] -> ShowS #

data Heater Source #

Some heater with id or Nothing for current / default

Constructors

Heater HeaterType (Maybe Int)

Instances

Eq Heater Source #
Instance details Defined in Data.GCode.Canon Methods (==) :: Heater -> Heater -> Bool # (/=) :: Heater -> Heater -> Bool #
Ord Heater Source #
Instance details Defined in Data.GCode.Canon Methods compare :: Heater -> Heater -> Ordering # (<) :: Heater -> Heater -> Bool # (<=) :: Heater -> Heater -> Bool # (>) :: Heater -> Heater -> Bool # (>=) :: Heater -> Heater -> Bool # max :: Heater -> Heater -> Heater # min :: Heater -> Heater -> Heater #
Show Heater Source #
Instance details Defined in Data.GCode.Canon Methods showsPrec :: Int -> Heater -> ShowS # show :: Heater -> String # showList :: [Heater] -> ShowS #

data CompensationMode Source #

Tool length compensation

Constructors

NoCompensation	Tool length compensation is disabled
LengthTable	Following moves will take into account tool offset from tool table
Dynamic Axes	Apply dynamic offset
Add Int	Add tool offset of the tool specified by the parameter to currently selected tool offset

Instances

Eq CompensationMode Source #
Instance details Defined in Data.GCode.Canon Methods (==) :: CompensationMode -> CompensationMode -> Bool # (/=) :: CompensationMode -> CompensationMode -> Bool #
Ord CompensationMode Source #
Instance details Defined in Data.GCode.Canon Methods compare :: CompensationMode -> CompensationMode -> Ordering # (<) :: CompensationMode -> CompensationMode -> Bool # (<=) :: CompensationMode -> CompensationMode -> Bool # (>) :: CompensationMode -> CompensationMode -> Bool # (>=) :: CompensationMode -> CompensationMode -> Bool # max :: CompensationMode -> CompensationMode -> CompensationMode # min :: CompensationMode -> CompensationMode -> CompensationMode #
Show CompensationMode Source #
Instance details Defined in Data.GCode.Canon Methods showsPrec :: Int -> CompensationMode -> ShowS # show :: CompensationMode -> String # showList :: [CompensationMode] -> ShowS #

data ArcParams Source #

Constructors

ArcParams
Fields arcFirstEnd :: Double first second coordinates according to selected plane arcSecondEnd :: Double arcFirstAxis :: Double arcSecondAxis :: Double arcRotation :: Int arcAxisEndPoint :: Double arcA :: Double arcB :: Double arcC :: Double arcU :: Double arcV :: Double arcW :: Double

Instances

Eq ArcParams Source #
Instance details Defined in Data.GCode.Canon Methods (==) :: ArcParams -> ArcParams -> Bool # (/=) :: ArcParams -> ArcParams -> Bool #
Ord ArcParams Source #
Instance details Defined in Data.GCode.Canon Methods compare :: ArcParams -> ArcParams -> Ordering # (<) :: ArcParams -> ArcParams -> Bool # (<=) :: ArcParams -> ArcParams -> Bool # (>) :: ArcParams -> ArcParams -> Bool # (>=) :: ArcParams -> ArcParams -> Bool # max :: ArcParams -> ArcParams -> ArcParams # min :: ArcParams -> ArcParams -> ArcParams #
Show ArcParams Source #
Instance details Defined in Data.GCode.Canon Methods showsPrec :: Int -> ArcParams -> ShowS # show :: ArcParams -> String # showList :: [ArcParams] -> ShowS #

data Canon Source #

Constructors

StraightTraverse Axes	Rapid motion to end position specified by Axes
StraightFeed Axes	Machining motion
StraightProbe Axes	Straight probe towards workpeice
SetCoords Axes	Set coordinates to provided values without motion
ArcFeed ArcParams	Movement along arc
ProgramEnd	End of the program
SetFeedRate Speed	Set feed rate for machining moves
SetTraverseRate Speed	Set feed rate for travel moves
PlaneSelect Plane	Set plane
PauseSeconds Double	Do nothing for specified number of seconds
SpindleStart
Fields spindleDirection :: RotationDirection Rotate spindle according to `RotationDirection` spindleWaitForSpeed :: Bool Wait for spindle to reach desired RPM
SpindleStop	Stop spindle
SpindleSpeed Speed	Set spindle RPM
CoolantMist	Enable mist coolant
CoolantFlood	Enable flood coolant
CoolantStop	Stop all coolant flows Tools
ToolSelect Int	Select tool by its index
ToolChange	Perform tool change
ToolLengthCompensation CompensationMode	Enable tool length compensation Printer
FanOn	Enable fan
FanOff	Disable fan
SetTemperature Heater Double	Set temperature of the specific heater
SetTemperatureWait Heater Double	Set temperature and wait for it to be reached
CancelWaitTemperature	Cancel all temperature waits
LevelBed	Perform automated bed leveling Misc
DisableMotors Axes	Disable power to motors
DisplayMessage ByteString	Display a message, typically on LCD
Comment ByteString	Just a comment

Instances

Eq Canon Source #
Instance details Defined in Data.GCode.Canon Methods (==) :: Canon -> Canon -> Bool # (/=) :: Canon -> Canon -> Bool #
Ord Canon Source #
Instance details Defined in Data.GCode.Canon Methods compare :: Canon -> Canon -> Ordering # (<) :: Canon -> Canon -> Bool # (<=) :: Canon -> Canon -> Bool # (>) :: Canon -> Canon -> Bool # (>=) :: Canon -> Canon -> Bool # max :: Canon -> Canon -> Canon # min :: Canon -> Canon -> Canon #
Show Canon Source #
Instance details Defined in Data.GCode.Canon Methods showsPrec :: Int -> Canon -> ShowS # show :: Canon -> String # showList :: [Canon] -> ShowS #

data CanonState Source #

State of the Canon interpreter

Constructors

CanonState
Fields canonPosition :: Axes Position canonTraverseRate :: Speed Speed for travel moves canonFeedRate :: Speed Speed for machining moves canonPlane :: Plane Selected plane

Instances

Eq CanonState Source #
Instance details Defined in Data.GCode.Canon Methods (==) :: CanonState -> CanonState -> Bool # (/=) :: CanonState -> CanonState -> Bool #
Ord CanonState Source #
Instance details Defined in Data.GCode.Canon Methods compare :: CanonState -> CanonState -> Ordering # (<) :: CanonState -> CanonState -> Bool # (<=) :: CanonState -> CanonState -> Bool # (>) :: CanonState -> CanonState -> Bool # (>=) :: CanonState -> CanonState -> Bool # max :: CanonState -> CanonState -> CanonState # min :: CanonState -> CanonState -> CanonState #
Show CanonState Source #
Instance details Defined in Data.GCode.Canon Methods showsPrec :: Int -> CanonState -> ShowS # show :: CanonState -> String # showList :: [CanonState] -> ShowS #

initCanonState :: CanonState Source #

Initial state of the Canon interpreter

stepCanon :: CanonState -> Canon -> CanonState Source #

Step Canon interpreter, returning new state

evalCanon :: (CanonState -> CanonState -> Canon -> [a]) -> [Canon] -> [a] Source #

Fully eval list of Canon commands.

Slow, only useful for testing, use Pipes variant instead