module Graphics.UI.FLTK.LowLevel.Draw
(
LineStyle(..),
flcSetColor,
flcSetColorWithC,
flcSetColorWithRgb,
flcColor,
flcPushClip,
flcPushNoClip,
flcPopClip,
flcNotClipped,
flcClipBox,
flcRestoreClip,
flcSetClipRegion,
flcClipRegion,
flcPoint,
flcLineStyle,
flcRect,
flcRectWithColor,
flcRectf,
flcRectfWithColor,
flcRectfWithRgb,
flcLine,
flcLineWithX2Y2,
flcLoop,
flcLoopWithX3Y3,
flcPolygon,
flcPolygonWithX3Y3,
flcXyline,
flcXylineWithX2,
flcXylineWithY2X3,
flcYxlineWithY1,
flcYxlineWithY2X2,
flcYxlineWithY2X3,
flcArcByWidthHeight,
flcPie,
flcPushMatrix,
flcPopMatrix,
flcScaleWithY,
flcScale,
flcTranslate,
flcRotate,
flcMultMatrix,
flcBeginPoints,
flcBeginLine,
flcBeginLoop,
flcBeginPolygon,
flcVertex,
flcCurve,
flcArcByRadius,
flcCircle,
flcEndPoints,
flcEndLine,
flcEndLoop,
flcEndPolygon,
flcBeginComplexPolygon,
flcGap,
flcEndComplexPolygon,
flcTransformX,
flcTransformY,
flcTransformDx,
flcTransformDy,
flcTransformedVertex,
flcSetFont,
flcFont,
flcSize,
flcHeight,
flcSetHeight,
flcDescent,
flcWidth,
flcWidthWithN,
flcWidthWithC,
flcTextExtents,
flcTextExtentsWithN,
flcLatin1ToLocal,
flcLatin1ToLocalWithN,
flcLocalToLatin1,
flcLocalToLatin1WithN,
flcMacRomanToLocal,
flcMacRomanToLocalWithN,
flcLocalToMacRoman,
flcLocalToMacRomanWithN,
flcDraw,
flcDrawWithAngle,
flcDrawWithN,
flcDrawWithNAngle,
flcRtlDraw,
flcMeasure,
flcDrawInBoxWithImageReference,
flcDrawInBox,
flcFrame,
flcFrame2,
flcDrawBox,
flcDrawImageBuf,
flcDrawImageMonoBuf,
flcCanDoAlphaBlending,
flcReadImage,
flcDrawPixmapWithColor,
flcDrawPixmap,
flcDrawPixmapWithCdataColor,
flcDrawPixmapWithCdata,
flcMeasurePixmap,
flcMeasurePixmapWithCdata,
flcShortcutLabel,
flcOldShortcut,
flcOverlayRect,
flcOverlayClear,
flcCursorWithFgBg,
flcCursorWithFg,
flcCursorWithBg,
flcCursor,
flcSetStatus,
flcSetSpotWithWin,
flcSetSpot,
flcResetSpot,
flcDrawSymbol
)
where
import qualified Foreign.C.String as C2HSImp
import qualified Foreign.C.Types as C2HSImp
import qualified Foreign.Marshal.Utils as C2HSImp
import qualified Foreign.Ptr as C2HSImp
import C2HS hiding (cFromEnum, cFromBool, cToBool,cToEnum)
import Foreign.C
import Graphics.UI.FLTK.LowLevel.Fl_Types
import Graphics.UI.FLTK.LowLevel.Fl_Enumerations
import Graphics.UI.FLTK.LowLevel.Utils
import Graphics.UI.FLTK.LowLevel.Dispatch
import Graphics.UI.FLTK.LowLevel.Hierarchy
import Data.ByteString
data LineStyle = SolidLineStyle
| SolidDash
| SolidDot
| SolidDashDot
| SolidDashDotDot
| SolidCapFlat
| SolidCapRound
| SolidCapSquare
| SolidJoinMiter
| SolidJoinRound
| SolidJoinBevel
deriving (Show)
instance Enum LineStyle where
succ SolidLineStyle = SolidDash
succ SolidDash = SolidDot
succ SolidDot = SolidDashDot
succ SolidDashDot = SolidDashDotDot
succ SolidDashDotDot = SolidCapFlat
succ SolidCapFlat = SolidCapRound
succ SolidCapRound = SolidCapSquare
succ SolidCapSquare = SolidJoinMiter
succ SolidJoinMiter = SolidJoinRound
succ SolidJoinRound = SolidJoinBevel
succ SolidJoinBevel = error "LineStyle.succ: SolidJoinBevel has no successor"
pred SolidDash = SolidLineStyle
pred SolidDot = SolidDash
pred SolidDashDot = SolidDot
pred SolidDashDotDot = SolidDashDot
pred SolidCapFlat = SolidDashDotDot
pred SolidCapRound = SolidCapFlat
pred SolidCapSquare = SolidCapRound
pred SolidJoinMiter = SolidCapSquare
pred SolidJoinRound = SolidJoinMiter
pred SolidJoinBevel = SolidJoinRound
pred SolidLineStyle = error "LineStyle.pred: SolidLineStyle has no predecessor"
enumFromTo from to = go from
where
end = fromEnum to
go v = case compare (fromEnum v) end of
LT -> v : go (succ v)
EQ -> [v]
GT -> []
enumFrom from = enumFromTo from SolidJoinBevel
fromEnum SolidLineStyle = 0
fromEnum SolidDash = 1
fromEnum SolidDot = 2
fromEnum SolidDashDot = 3
fromEnum SolidDashDotDot = 4
fromEnum SolidCapFlat = 256
fromEnum SolidCapRound = 512
fromEnum SolidCapSquare = 768
fromEnum SolidJoinMiter = 4096
fromEnum SolidJoinRound = 8192
fromEnum SolidJoinBevel = 12288
toEnum 0 = SolidLineStyle
toEnum 1 = SolidDash
toEnum 2 = SolidDot
toEnum 3 = SolidDashDot
toEnum 4 = SolidDashDotDot
toEnum 256 = SolidCapFlat
toEnum 512 = SolidCapRound
toEnum 768 = SolidCapSquare
toEnum 4096 = SolidJoinMiter
toEnum 8192 = SolidJoinRound
toEnum 12288 = SolidJoinBevel
toEnum unmatched = error ("LineStyle.toEnum: Cannot match " ++ show unmatched)
flcSetColor' :: (Color) -> IO ()
flcSetColor' a1 =
let {a1' = cFromColor a1} in
flcSetColor''_ a1' >>
return ()
flcSetColor :: Color -> IO ()
flcSetColor c = flcSetColor' c
flcSetColorWithC' :: (Int) -> IO ()
flcSetColorWithC' a1 =
let {a1' = fromIntegral a1} in
flcSetColorWithC''_ a1' >>
return ()
flcSetColorWithC :: Int -> IO ()
flcSetColorWithC c = flcSetColorWithC' c
flcSetColorWithRgb' :: (CUChar) -> (CUChar) -> (CUChar) -> IO ()
flcSetColorWithRgb' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = id a2} in
let {a3' = id a3} in
flcSetColorWithRgb''_ a1' a2' a3' >>
return ()
flcSetColorWithRgb :: RGB -> IO ()
flcSetColorWithRgb (r', g' , b') = flcSetColorWithRgb' r' g' b'
flcColor' :: IO ((Color))
flcColor' =
flcColor''_ >>= \res ->
let {res' = cToColor res} in
return (res')
flcColor :: IO (Color)
flcColor = flcColor'
flcPushClip' :: (Int) -> (Int) -> (Int) -> (Int) -> IO ()
flcPushClip' a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
flcPushClip''_ a1' a2' a3' a4' >>
return ()
flcPushClip :: Rectangle -> IO ()
flcPushClip rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in flcPushClip' x_pos' y_pos' width' height'
flcPushNoClip' :: IO ()
flcPushNoClip' =
flcPushNoClip''_ >>
return ()
flcPushNoClip :: IO ()
flcPushNoClip = flcPushNoClip'
flcPopClip' :: IO ()
flcPopClip' =
flcPopClip''_ >>
return ()
flcPopClip :: IO ()
flcPopClip = flcPopClip'
flcNotClipped' :: (Int) -> (Int) -> (Int) -> (Int) -> IO ((Int))
flcNotClipped' a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
flcNotClipped''_ a1' a2' a3' a4' >>= \res ->
let {res' = fromIntegral res} in
return (res')
flcNotClipped :: Rectangle -> IO (Int)
flcNotClipped rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in flcNotClipped' x_pos' y_pos' width' height'
flcClipBox' :: (Int) -> (Int) -> (Int) -> (Int) -> IO ((Int), (Int), (Int), (Int), (Int))
flcClipBox' a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
alloca $ \a5' ->
alloca $ \a6' ->
alloca $ \a7' ->
alloca $ \a8' ->
flcClipBox''_ a1' a2' a3' a4' a5' a6' a7' a8' >>= \res ->
let {res' = fromIntegral res} in
peekIntConv a5'>>= \a5'' ->
peekIntConv a6'>>= \a6'' ->
peekIntConv a7'>>= \a7'' ->
peekIntConv a8'>>= \a8'' ->
return (res', a5'', a6'', a7'', a8'')
flcClipBox :: Rectangle -> IO (Int,Rectangle)
flcClipBox rectangle =
let (x_pos', y_pos', width', height') = fromRectangle rectangle
in
do
(result, _x', _y', _w', _h') <- flcClipBox' x_pos' y_pos' width' height'
return $ (result, toRectangle (_x', _y', _w', _h'))
flcRestoreClip' :: IO ()
flcRestoreClip' =
flcRestoreClip''_ >>
return ()
flcRestoreClip :: IO ()
flcRestoreClip = flcRestoreClip'
flcSetClipRegion' :: (Ptr ()) -> IO ()
flcSetClipRegion' a1 =
let {a1' = id a1} in
flcSetClipRegion''_ a1' >>
return ()
flcSetClipRegion :: Ref Region -> IO ()
flcSetClipRegion r = withRef r $ \rPtr -> flcSetClipRegion' rPtr
flcClipRegion' :: IO ((Ptr ()))
flcClipRegion' =
flcClipRegion''_ >>= \res ->
let {res' = id res} in
return (res')
flcClipRegion :: IO (Maybe (Ref Region))
flcClipRegion = flcClipRegion' >>= toMaybeRef
flcPoint' :: (Int) -> (Int) -> IO ()
flcPoint' a1 a2 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
flcPoint''_ a1' a2' >>
return ()
flcPoint :: Position -> IO ()
flcPoint (Position (X x_pos') (Y y_pos')) = flcPoint' x_pos' y_pos'
flcLineStyleWithWidthDashes' :: (LineStyle) -> (Int) -> (Ptr CChar) -> IO ()
flcLineStyleWithWidthDashes' a1 a2 a3 =
let {a1' = cFromEnum a1} in
let {a2' = fromIntegral a2} in
let {a3' = id a3} in
flcLineStyleWithWidthDashes''_ a1' a2' a3' >>
return ()
flcLineStyle :: LineStyle -> Maybe Int -> Maybe String -> IO ()
flcLineStyle style width' dashes' = do
let _width = maybe 0 id width'
_dashes <- maybe (return nullPtr) newCString dashes'
flcLineStyleWithWidthDashes' style _width _dashes
flcRect' :: (Int) -> (Int) -> (Int) -> (Int) -> IO ()
flcRect' a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
flcRect''_ a1' a2' a3' a4' >>
return ()
flcRect :: Rectangle -> IO ()
flcRect rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in flcRect' x_pos' y_pos' width' height'
flcRectWithColor' :: (Int) -> (Int) -> (Int) -> (Int) -> (Color) -> IO ()
flcRectWithColor' a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = cFromColor a5} in
flcRectWithColor''_ a1' a2' a3' a4' a5' >>
return ()
flcRectWithColor :: Rectangle -> Color -> IO ()
flcRectWithColor rectangle c = let (x_pos', y_pos', width', height') = fromRectangle rectangle in flcRectWithColor' x_pos' y_pos' width' height' c
flcRectf' :: (Int) -> (Int) -> (Int) -> (Int) -> IO ()
flcRectf' a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
flcRectf''_ a1' a2' a3' a4' >>
return ()
flcRectf :: Rectangle -> IO ()
flcRectf rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in flcRectf' x_pos' y_pos' width' height'
flcRectfWithColor' :: (Int) -> (Int) -> (Int) -> (Int) -> (Color) -> IO ()
flcRectfWithColor' a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = cFromColor a5} in
flcRectfWithColor''_ a1' a2' a3' a4' a5' >>
return ()
flcRectfWithColor :: Rectangle -> Color -> IO ()
flcRectfWithColor rectangle c = let (x_pos', y_pos', width', height') = fromRectangle rectangle in flcRectfWithColor' x_pos' y_pos' width' height' c
flcRectfWithRgb' :: (Int) -> (Int) -> (Int) -> (Int) -> (CUChar) -> (CUChar) -> (CUChar) -> IO ()
flcRectfWithRgb' a1 a2 a3 a4 a5 a6 a7 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = id a5} in
let {a6' = id a6} in
let {a7' = id a7} in
flcRectfWithRgb''_ a1' a2' a3' a4' a5' a6' a7' >>
return ()
flcRectfWithRgb :: Rectangle -> RGB -> IO ()
flcRectfWithRgb rectangle (r', g' , b') = let (x_pos', y_pos', width', height') = fromRectangle rectangle in flcRectfWithRgb' x_pos' y_pos' width' height' r' g' b'
flcLine' :: (Int) -> (Int) -> (Int) -> (Int) -> IO ()
flcLine' a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
flcLine''_ a1' a2' a3' a4' >>
return ()
flcLine :: Position -> Position -> IO ()
flcLine (Position (X x_pos') (Y y_pos'))(Position (X x_pos'') (Y y_pos'')) = flcLine' x_pos' y_pos' x_pos'' y_pos''
flcLineWithX2Y2' :: (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> IO ()
flcLineWithX2Y2' a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
flcLineWithX2Y2''_ a1' a2' a3' a4' a5' a6' >>
return ()
flcLineWithX2Y2 :: Position -> Int -> Int -> Int -> Int -> IO ()
flcLineWithX2Y2 (Position (X x_pos') (Y y_pos')) x1 y1 x2 y2 = flcLineWithX2Y2' x_pos' y_pos' x1 y1 x2 y2
flcLoop' :: (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> IO ()
flcLoop' a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
flcLoop''_ a1' a2' a3' a4' a5' a6' >>
return ()
flcLoop :: Position -> Int -> Int -> Int -> Int -> IO ()
flcLoop (Position (X x_pos') (Y y_pos')) x1 y1 x2 y2 = flcLoop' x_pos' y_pos' x1 y1 x2 y2
flcLoopWithX3Y3' :: (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> IO ()
flcLoopWithX3Y3' a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = fromIntegral a7} in
let {a8' = fromIntegral a8} in
flcLoopWithX3Y3''_ a1' a2' a3' a4' a5' a6' a7' a8' >>
return ()
flcLoopWithX3Y3 :: Position -> Int -> Int -> Int -> Int -> Int -> Int -> IO ()
flcLoopWithX3Y3 (Position (X x_pos') (Y y_pos')) x1 y1 x2 y2 x3 y3 = flcLoopWithX3Y3' x_pos' y_pos' x1 y1 x2 y2 x3 y3
flcPolygon' :: (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> IO ()
flcPolygon' a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
flcPolygon''_ a1' a2' a3' a4' a5' a6' >>
return ()
flcPolygon :: Position -> Int -> Int -> Int -> Int -> IO ()
flcPolygon (Position (X x_pos') (Y y_pos')) x1 y1 x2 y2 = flcPolygon' x_pos' y_pos' x1 y1 x2 y2
flcPolygonWithX3Y3' :: (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> IO ()
flcPolygonWithX3Y3' a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = fromIntegral a7} in
let {a8' = fromIntegral a8} in
flcPolygonWithX3Y3''_ a1' a2' a3' a4' a5' a6' a7' a8' >>
return ()
flcPolygonWithX3Y3 :: Position -> Int -> Int -> Int -> Int -> Int -> Int -> IO ()
flcPolygonWithX3Y3 (Position (X x_pos') (Y y_pos')) x1 y1 x2 y2 x3 y3 = flcPolygonWithX3Y3' x_pos' y_pos' x1 y1 x2 y2 x3 y3
flcXyline' :: (Int) -> (Int) -> (Int) -> IO ()
flcXyline' a1 a2 a3 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
flcXyline''_ a1' a2' a3' >>
return ()
flcXyline :: Position -> Int -> IO ()
flcXyline (Position (X x_pos') (Y y_pos')) x1 = flcXyline' x_pos' y_pos' x1
flcXylineWithX2' :: (Int) -> (Int) -> (Int) -> (Int) -> IO ()
flcXylineWithX2' a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
flcXylineWithX2''_ a1' a2' a3' a4' >>
return ()
flcXylineWithX2 :: Position -> Int -> Int -> IO ()
flcXylineWithX2 (Position (X x_pos') (Y y_pos')) x1 y2 = flcXylineWithX2' x_pos' y_pos' x1 y2
flcXylineWithY2X3' :: (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> IO ()
flcXylineWithY2X3' a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
flcXylineWithY2X3''_ a1' a2' a3' a4' a5' >>
return ()
flcXylineWithY2X3 :: Position -> Int -> Int -> Int -> IO ()
flcXylineWithY2X3 (Position (X x_pos') (Y y_pos')) x1 y2 x3 = flcXylineWithY2X3' x_pos' y_pos' x1 y2 x3
flcYxlineWithY1' :: (Int) -> (Int) -> (Int) -> IO ()
flcYxlineWithY1' a1 a2 a3 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
flcYxlineWithY1''_ a1' a2' a3' >>
return ()
flcYxlineWithY1 :: Position -> Int -> IO ()
flcYxlineWithY1 (Position (X x_pos') (Y y_pos')) y1 = flcYxlineWithY1' x_pos' y_pos' y1
flcYxlineWithY2X2' :: (Int) -> (Int) -> (Int) -> (Int) -> IO ()
flcYxlineWithY2X2' a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
flcYxlineWithY2X2''_ a1' a2' a3' a4' >>
return ()
flcYxlineWithY2X2 :: Position -> Int -> Int -> IO ()
flcYxlineWithY2X2 (Position (X x_pos') (Y y_pos')) y1 x2 = flcYxlineWithY2X2' x_pos' y_pos' y1 x2
flcYxlineWithY2X3' :: (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> IO ()
flcYxlineWithY2X3' a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
flcYxlineWithY2X3''_ a1' a2' a3' a4' a5' >>
return ()
flcYxlineWithY2X3 :: Position -> Int -> Int -> Int -> IO ()
flcYxlineWithY2X3 (Position (X x_pos') (Y y_pos')) y1 x2 y3 = flcYxlineWithY2X3' x_pos' y_pos' y1 x2 y3
flcArcByWidthHeight' :: (Int) -> (Int) -> (Int) -> (Int) -> (Double) -> (Double) -> IO ()
flcArcByWidthHeight' a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = realToFrac a5} in
let {a6' = realToFrac a6} in
flcArcByWidthHeight''_ a1' a2' a3' a4' a5' a6' >>
return ()
flcArcByWidthHeight :: Rectangle -> Double -> Double -> IO ()
flcArcByWidthHeight rectangle a1 a2 = let (x_pos', y_pos', width', height') = fromRectangle rectangle in flcArcByWidthHeight' x_pos' y_pos' width' height' a1 a2
flcPie' :: (Int) -> (Int) -> (Int) -> (Int) -> (Double) -> (Double) -> IO ()
flcPie' a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = realToFrac a5} in
let {a6' = realToFrac a6} in
flcPie''_ a1' a2' a3' a4' a5' a6' >>
return ()
flcPie :: Rectangle -> Double -> Double -> IO ()
flcPie rectangle a1 a2 = let (x_pos', y_pos', width', height') = fromRectangle rectangle in flcPie' x_pos' y_pos' width' height' a1 a2
flcPushMatrix' :: IO ()
flcPushMatrix' =
flcPushMatrix''_ >>
return ()
flcPushMatrix :: IO ()
flcPushMatrix = flcPushMatrix'
flcPopMatrix' :: IO ()
flcPopMatrix' =
flcPopMatrix''_ >>
return ()
flcPopMatrix :: IO ()
flcPopMatrix = flcPopMatrix'
flcScaleWithY' :: (Double) -> (Double) -> IO ()
flcScaleWithY' a1 a2 =
let {a1' = realToFrac a1} in
let {a2' = realToFrac a2} in
flcScaleWithY''_ a1' a2' >>
return ()
flcScaleWithY :: ByXY -> IO ()
flcScaleWithY (ByXY (ByX by_x') (ByY by_y')) = flcScaleWithY' by_x' by_y'
flcScale' :: (Double) -> IO ()
flcScale' a1 =
let {a1' = realToFrac a1} in
flcScale''_ a1' >>
return ()
flcScale :: ByX -> IO ()
flcScale (ByX by_x') = flcScale' by_x'
flcTranslate' :: (Double) -> (Double) -> IO ()
flcTranslate' a1 a2 =
let {a1' = realToFrac a1} in
let {a2' = realToFrac a2} in
flcTranslate''_ a1' a2' >>
return ()
flcTranslate :: ByXY -> IO ()
flcTranslate (ByXY (ByX by_x') (ByY by_y')) = flcTranslate' by_x' by_y'
flcRotate' :: (Double) -> IO ()
flcRotate' a1 =
let {a1' = realToFrac a1} in
flcRotate''_ a1' >>
return ()
flcRotate :: Double -> IO ()
flcRotate d = flcRotate' d
flcMultMatrix' :: (Double) -> (Double) -> (Double) -> (Double) -> (Double) -> (Double) -> IO ()
flcMultMatrix' a1 a2 a3 a4 a5 a6 =
let {a1' = realToFrac a1} in
let {a2' = realToFrac a2} in
let {a3' = realToFrac a3} in
let {a4' = realToFrac a4} in
let {a5' = realToFrac a5} in
let {a6' = realToFrac a6} in
flcMultMatrix''_ a1' a2' a3' a4' a5' a6' >>
return ()
flcMultMatrix :: Double -> Double -> Double -> Double -> ByXY -> IO ()
flcMultMatrix a b c d (ByXY (ByX by_x') (ByY by_y')) = flcMultMatrix' a b c d by_x' by_y'
flcBeginPoints' :: IO ()
flcBeginPoints' =
flcBeginPoints''_ >>
return ()
flcBeginPoints :: IO ()
flcBeginPoints = flcBeginPoints'
flcBeginLine' :: IO ()
flcBeginLine' =
flcBeginLine''_ >>
return ()
flcBeginLine :: IO ()
flcBeginLine = flcBeginLine'
flcBeginLoop' :: IO ()
flcBeginLoop' =
flcBeginLoop''_ >>
return ()
flcBeginLoop :: IO ()
flcBeginLoop = flcBeginLoop'
flcBeginPolygon' :: IO ()
flcBeginPolygon' =
flcBeginPolygon''_ >>
return ()
flcBeginPolygon :: IO ()
flcBeginPolygon = flcBeginPolygon'
flcVertex' :: (Double) -> (Double) -> IO ()
flcVertex' a1 a2 =
let {a1' = realToFrac a1} in
let {a2' = realToFrac a2} in
flcVertex''_ a1' a2' >>
return ()
flcVertex :: ByXY -> IO ()
flcVertex (ByXY (ByX by_x') (ByY by_y')) = flcVertex' by_x' by_y'
flcCurve' :: (Double) -> (Double) -> (Double) -> (Double) -> (Double) -> (Double) -> (Double) -> (Double) -> IO ()
flcCurve' a1 a2 a3 a4 a5 a6 a7 a8 =
let {a1' = realToFrac a1} in
let {a2' = realToFrac a2} in
let {a3' = realToFrac a3} in
let {a4' = realToFrac a4} in
let {a5' = realToFrac a5} in
let {a6' = realToFrac a6} in
let {a7' = realToFrac a7} in
let {a8' = realToFrac a8} in
flcCurve''_ a1' a2' a3' a4' a5' a6' a7' a8' >>
return ()
flcCurve :: Double -> Double -> Double -> Double -> Double -> Double -> Double -> Double -> IO ()
flcCurve x0 y0 x1 y1 x2 y2 x3 y3 = flcCurve' x0 y0 x1 y1 x2 y2 x3 y3
flcArcByRadius' :: (Double) -> (Double) -> (Double) -> (Double) -> (Double) -> IO ()
flcArcByRadius' a1 a2 a3 a4 a5 =
let {a1' = realToFrac a1} in
let {a2' = realToFrac a2} in
let {a3' = realToFrac a3} in
let {a4' = realToFrac a4} in
let {a5' = realToFrac a5} in
flcArcByRadius''_ a1' a2' a3' a4' a5' >>
return ()
flcArcByRadius :: ByXY -> Double -> Double -> Double -> IO ()
flcArcByRadius (ByXY (ByX by_x') (ByY by_y')) r start' end' = flcArcByRadius' by_x' by_y' r start' end'
flcCircle' :: (Double) -> (Double) -> (Double) -> IO ()
flcCircle' a1 a2 a3 =
let {a1' = realToFrac a1} in
let {a2' = realToFrac a2} in
let {a3' = realToFrac a3} in
flcCircle''_ a1' a2' a3' >>
return ()
flcCircle :: ByXY -> Double -> IO ()
flcCircle (ByXY (ByX by_x') (ByY by_y')) r = flcCircle' by_x' by_y' r
flcEndPoints' :: IO ()
flcEndPoints' =
flcEndPoints''_ >>
return ()
flcEndPoints :: IO ()
flcEndPoints = flcEndPoints'
flcEndLine' :: IO ()
flcEndLine' =
flcEndLine''_ >>
return ()
flcEndLine :: IO ()
flcEndLine = flcEndLine'
flcEndLoop' :: IO ()
flcEndLoop' =
flcEndLoop''_ >>
return ()
flcEndLoop :: IO ()
flcEndLoop = flcEndLoop'
flcEndPolygon' :: IO ()
flcEndPolygon' =
flcEndPolygon''_ >>
return ()
flcEndPolygon :: IO ()
flcEndPolygon = flcEndPolygon'
flcBeginComplexPolygon' :: IO ()
flcBeginComplexPolygon' =
flcBeginComplexPolygon''_ >>
return ()
flcBeginComplexPolygon :: IO ()
flcBeginComplexPolygon = flcBeginComplexPolygon'
flcGap' :: IO ()
flcGap' =
flcGap''_ >>
return ()
flcGap :: IO ()
flcGap = flcGap'
flcEndComplexPolygon' :: IO ()
flcEndComplexPolygon' =
flcEndComplexPolygon''_ >>
return ()
flcEndComplexPolygon :: IO ()
flcEndComplexPolygon = flcEndComplexPolygon'
flcTransformX' :: (Double) -> (Double) -> IO ((Double))
flcTransformX' a1 a2 =
let {a1' = realToFrac a1} in
let {a2' = realToFrac a2} in
flcTransformX''_ a1' a2' >>= \res ->
let {res' = realToFrac res} in
return (res')
flcTransformX :: ByXY -> IO (Double)
flcTransformX (ByXY (ByX by_x') (ByY by_y')) = flcTransformX' by_x' by_y'
flcTransformY' :: (Double) -> (Double) -> IO ((Double))
flcTransformY' a1 a2 =
let {a1' = realToFrac a1} in
let {a2' = realToFrac a2} in
flcTransformY''_ a1' a2' >>= \res ->
let {res' = realToFrac res} in
return (res')
flcTransformY :: ByXY -> IO (Double)
flcTransformY (ByXY (ByX by_x') (ByY by_y')) = flcTransformY' by_x' by_y'
flcTransformDx' :: (Double) -> (Double) -> IO ((Double))
flcTransformDx' a1 a2 =
let {a1' = realToFrac a1} in
let {a2' = realToFrac a2} in
flcTransformDx''_ a1' a2' >>= \res ->
let {res' = realToFrac res} in
return (res')
flcTransformDx :: ByXY -> IO (Double)
flcTransformDx (ByXY (ByX by_x') (ByY by_y')) = flcTransformDx' by_x' by_y'
flcTransformDy' :: (Double) -> (Double) -> IO ((Double))
flcTransformDy' a1 a2 =
let {a1' = realToFrac a1} in
let {a2' = realToFrac a2} in
flcTransformDy''_ a1' a2' >>= \res ->
let {res' = realToFrac res} in
return (res')
flcTransformDy :: ByXY -> IO (Double)
flcTransformDy (ByXY (ByX by_x') (ByY by_y')) = flcTransformDy' by_x' by_y'
flcTransformedVertex' :: (Double) -> (Double) -> IO ()
flcTransformedVertex' a1 a2 =
let {a1' = realToFrac a1} in
let {a2' = realToFrac a2} in
flcTransformedVertex''_ a1' a2' >>
return ()
flcTransformedVertex :: Double -> Double -> IO ()
flcTransformedVertex xf yf = flcTransformedVertex' xf yf
flcSetFont' :: (Font) -> (CInt) -> IO ()
flcSetFont' a1 a2 =
let {a1' = cFromFont a1} in
let {a2' = id a2} in
flcSetFont''_ a1' a2' >>
return ()
flcSetFont :: Font -> FontSize -> IO ()
flcSetFont face (FontSize fsize) = flcSetFont' face fsize
flcFont' :: IO ((Font))
flcFont' =
flcFont''_ >>= \res ->
let {res' = cToFont res} in
return (res')
flcFont :: IO (Font)
flcFont = flcFont'
flcSize' :: IO ((CInt))
flcSize' =
flcSize''_ >>= \res ->
let {res' = id res} in
return (res')
flcSize :: IO (FontSize)
flcSize = flcSize' >>= return . FontSize
flcHeight' :: IO ((Int))
flcHeight' =
flcHeight''_ >>= \res ->
let {res' = fromIntegral res} in
return (res')
flcHeight :: IO (Int)
flcHeight = flcHeight'
flcSetHeight' :: (Int) -> (Int) -> IO ((Int))
flcSetHeight' a1 a2 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
flcSetHeight''_ a1' a2' >>= \res ->
let {res' = fromIntegral res} in
return (res')
flcSetHeight :: Int -> Int -> IO (Int)
flcSetHeight font' size' = flcSetHeight' font' size'
flcDescent' :: IO ((Int))
flcDescent' =
flcDescent''_ >>= \res ->
let {res' = fromIntegral res} in
return (res')
flcDescent :: IO (Int)
flcDescent = flcDescent'
flcWidth' :: (String) -> IO ((Double))
flcWidth' a1 =
C2HSImp.withCString a1 $ \a1' ->
flcWidth''_ a1' >>= \res ->
let {res' = realToFrac res} in
return (res')
flcWidth :: String -> IO (Double)
flcWidth txt = flcWidth' txt
flcWidthWithN' :: (String) -> (Int) -> IO ((Double))
flcWidthWithN' a1 a2 =
C2HSImp.withCString a1 $ \a1' ->
let {a2' = fromIntegral a2} in
flcWidthWithN''_ a1' a2' >>= \res ->
let {res' = realToFrac res} in
return (res')
flcWidthWithN :: String -> Int -> IO (Double)
flcWidthWithN txt n = flcWidthWithN' txt n
flcWidthWithC' :: (Int) -> IO ((Double))
flcWidthWithC' a1 =
let {a1' = fromIntegral a1} in
flcWidthWithC''_ a1' >>= \res ->
let {res' = realToFrac res} in
return (res')
flcWidthWithC :: Int -> IO (Double)
flcWidthWithC c = flcWidthWithC' c
flcTextExtents' :: (String) -> IO ((Int), (Int), (Int), (Int))
flcTextExtents' a1 =
C2HSImp.withCString a1 $ \a1' ->
alloca $ \a2' ->
alloca $ \a3' ->
alloca $ \a4' ->
alloca $ \a5' ->
flcTextExtents''_ a1' a2' a3' a4' a5' >>
peekIntConv a2'>>= \a2'' ->
peekIntConv a3'>>= \a3'' ->
peekIntConv a4'>>= \a4'' ->
peekIntConv a5'>>= \a5'' ->
return (a2'', a3'', a4'', a5'')
flcTextExtents :: String -> IO (Rectangle)
flcTextExtents s = flcTextExtents' s >>= \(rectangle') -> return $ (toRectangle rectangle')
flcTextExtentsWithN' :: (String) -> (Int) -> IO ((Int), (Int), (Int), (Int))
flcTextExtentsWithN' a1 a2 =
C2HSImp.withCString a1 $ \a1' ->
let {a2' = fromIntegral a2} in
alloca $ \a3' ->
alloca $ \a4' ->
alloca $ \a5' ->
alloca $ \a6' ->
flcTextExtentsWithN''_ a1' a2' a3' a4' a5' a6' >>
peekIntConv a3'>>= \a3'' ->
peekIntConv a4'>>= \a4'' ->
peekIntConv a5'>>= \a5'' ->
peekIntConv a6'>>= \a6'' ->
return (a3'', a4'', a5'', a6'')
flcTextExtentsWithN :: String -> Int -> IO (Rectangle)
flcTextExtentsWithN t n = flcTextExtentsWithN' t n >>= \(rectangle') -> return $ (toRectangle rectangle')
flcLatin1ToLocal' :: (String) -> IO ((String))
flcLatin1ToLocal' a1 =
C2HSImp.withCString a1 $ \a1' ->
flcLatin1ToLocal''_ a1' >>= \res ->
let {res' = unsafeFromCString res} in
return (res')
flcLatin1ToLocal :: String -> IO (String)
flcLatin1ToLocal t = flcLatin1ToLocal' t
flcLatin1ToLocalWithN' :: (String) -> (Int) -> IO ((String))
flcLatin1ToLocalWithN' a1 a2 =
C2HSImp.withCString a1 $ \a1' ->
let {a2' = fromIntegral a2} in
flcLatin1ToLocalWithN''_ a1' a2' >>= \res ->
let {res' = unsafeFromCString res} in
return (res')
flcLatin1ToLocalWithN :: String -> Int -> IO (String)
flcLatin1ToLocalWithN t n = flcLatin1ToLocalWithN' t n
flcLocalToLatin1' :: (String) -> IO ((String))
flcLocalToLatin1' a1 =
C2HSImp.withCString a1 $ \a1' ->
flcLocalToLatin1''_ a1' >>= \res ->
let {res' = unsafeFromCString res} in
return (res')
flcLocalToLatin1 :: String -> IO (String)
flcLocalToLatin1 t = flcLocalToLatin1' t
flcLocalToLatin1WithN' :: (String) -> (Int) -> IO ((String))
flcLocalToLatin1WithN' a1 a2 =
C2HSImp.withCString a1 $ \a1' ->
let {a2' = fromIntegral a2} in
flcLocalToLatin1WithN''_ a1' a2' >>= \res ->
let {res' = unsafeFromCString res} in
return (res')
flcLocalToLatin1WithN :: String -> Int -> IO (String)
flcLocalToLatin1WithN t n = flcLocalToLatin1WithN' t n
flcMacRomanToLocal' :: (String) -> IO ((String))
flcMacRomanToLocal' a1 =
C2HSImp.withCString a1 $ \a1' ->
flcMacRomanToLocal''_ a1' >>= \res ->
let {res' = unsafeFromCString res} in
return (res')
flcMacRomanToLocal :: String -> IO (String)
flcMacRomanToLocal t = flcMacRomanToLocal' t
flcMacRomanToLocalWithN' :: (String) -> (Int) -> IO ((String))
flcMacRomanToLocalWithN' a1 a2 =
C2HSImp.withCString a1 $ \a1' ->
let {a2' = fromIntegral a2} in
flcMacRomanToLocalWithN''_ a1' a2' >>= \res ->
let {res' = unsafeFromCString res} in
return (res')
flcMacRomanToLocalWithN :: String -> Int -> IO (String)
flcMacRomanToLocalWithN t n = flcMacRomanToLocalWithN' t n
flcLocalToMacRoman' :: (String) -> IO ((String))
flcLocalToMacRoman' a1 =
C2HSImp.withCString a1 $ \a1' ->
flcLocalToMacRoman''_ a1' >>= \res ->
let {res' = unsafeFromCString res} in
return (res')
flcLocalToMacRoman :: String -> IO (String)
flcLocalToMacRoman t = flcLocalToMacRoman' t
flcLocalToMacRomanWithN' :: (String) -> (Int) -> IO ((String))
flcLocalToMacRomanWithN' a1 a2 =
C2HSImp.withCString a1 $ \a1' ->
let {a2' = fromIntegral a2} in
flcLocalToMacRomanWithN''_ a1' a2' >>= \res ->
let {res' = unsafeFromCString res} in
return (res')
flcLocalToMacRomanWithN :: String -> Int -> IO (String)
flcLocalToMacRomanWithN t n = flcLocalToMacRomanWithN' t n
flcDraw' :: (String) -> (Int) -> (Int) -> IO ()
flcDraw' a1 a2 a3 =
C2HSImp.withCString a1 $ \a1' ->
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
flcDraw''_ a1' a2' a3' >>
return ()
flcDraw :: String -> Position -> IO ()
flcDraw str (Position (X x_pos') (Y y_pos')) = flcDraw' str x_pos' y_pos'
flcDrawWithAngle' :: (Int) -> (String) -> (Int) -> (Int) -> IO ()
flcDrawWithAngle' a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
C2HSImp.withCString a2 $ \a2' ->
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
flcDrawWithAngle''_ a1' a2' a3' a4' >>
return ()
flcDrawWithAngle :: Int -> String -> Position -> IO ()
flcDrawWithAngle angle str (Position (X x_pos') (Y y_pos')) = flcDrawWithAngle' angle str x_pos' y_pos'
flcDrawWithN' :: (String) -> (Int) -> (Int) -> (Int) -> IO ()
flcDrawWithN' a1 a2 a3 a4 =
C2HSImp.withCString a1 $ \a1' ->
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
flcDrawWithN''_ a1' a2' a3' a4' >>
return ()
flcDrawWithN :: String -> Int -> Position -> IO ()
flcDrawWithN str n (Position (X x_pos') (Y y_pos')) = flcDrawWithN' str n x_pos' y_pos'
flcDrawWithNAngle' :: (Int) -> (String) -> (Int) -> (Int) -> (Int) -> IO ()
flcDrawWithNAngle' a1 a2 a3 a4 a5 =
let {a1' = fromIntegral a1} in
C2HSImp.withCString a2 $ \a2' ->
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
flcDrawWithNAngle''_ a1' a2' a3' a4' a5' >>
return ()
flcDrawWithNAngle :: Int -> String -> Int -> Position -> IO ()
flcDrawWithNAngle angle str n (Position (X x_pos') (Y y_pos')) = flcDrawWithNAngle' angle str n x_pos' y_pos'
flcRtlDraw' :: (String) -> (Int) -> (Int) -> (Int) -> IO ()
flcRtlDraw' a1 a2 a3 a4 =
C2HSImp.withCString a1 $ \a1' ->
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
flcRtlDraw''_ a1' a2' a3' a4' >>
return ()
flcRtlDraw :: String -> Int -> Position -> IO ()
flcRtlDraw str n (Position (X x_pos') (Y y_pos')) = flcRtlDraw' str n x_pos' y_pos'
flcMeasureWithDrawSymbols' :: (String) -> (Ptr CInt) -> (Ptr CInt) -> (CInt) -> IO ()
flcMeasureWithDrawSymbols' a1 a2 a3 a4 =
C2HSImp.withCString a1 $ \a1' ->
let {a2' = id a2} in
let {a3' = id a3} in
let {a4' = fromIntegral a4} in
flcMeasureWithDrawSymbols''_ a1' a2' a3' a4' >>
return ()
flcMeasure :: String -> Bool -> Bool -> IO (Size)
flcMeasure str word_wrap draw_symbols =
alloca $ \widthPtr' ->
alloca $ \heightPtr' ->
let doit = do
flcMeasureWithDrawSymbols' str widthPtr' heightPtr' (fromBool draw_symbols)
w' <- peekIntConv widthPtr'
h' <- peekIntConv heightPtr'
return $ toSize (w',h')
in
if word_wrap
then poke widthPtr' 1 >> doit
else doit
flcDrawWithImgDrawSymbols' :: (String) -> (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> (Ptr ()) -> (Bool) -> IO ()
flcDrawWithImgDrawSymbols' a1 a2 a3 a4 a5 a6 a7 a8 =
C2HSImp.withCString a1 $ \a1' ->
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
let {a8' = C2HSImp.fromBool a8} in
flcDrawWithImgDrawSymbols''_ a1' a2' a3' a4' a5' a6' a7' a8' >>
return ()
flcDrawWithCallthisImgDrawSymbols' :: (String) -> (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> (FunPtr DrawCallbackPrim) -> (Ptr ()) -> (Bool) -> IO ()
flcDrawWithCallthisImgDrawSymbols' a1 a2 a3 a4 a5 a6 a7 a8 a9 =
C2HSImp.withCString a1 $ \a1' ->
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
let {a8' = id a8} in
let {a9' = C2HSImp.fromBool a9} in
flcDrawWithCallthisImgDrawSymbols''_ a1' a2' a3' a4' a5' a6' a7' a8' a9' >>
return ()
flcDrawInBoxWithImageReference' :: String -> Rectangle -> Alignments -> Maybe DrawCallback -> Ptr () -> Maybe Bool -> IO ()
flcDrawInBoxWithImageReference' string' rectangle' align' draw_callback' image_ptr draw_flags' =
let (x_pos', y_pos', width', height') = fromRectangle rectangle' in
case draw_callback' of
Nothing -> flcDrawWithImgDrawSymbols' string' x_pos' y_pos' width' height' (alignmentsToInt align') image_ptr (maybe False id draw_flags')
Just c' -> do
fptr <- toDrawCallback c'
flcDrawWithCallthisImgDrawSymbols' string' x_pos' y_pos' width' height' (alignmentsToInt align') fptr image_ptr (maybe False id draw_flags')
flcDrawInBoxWithImageReference :: (Parent a Image) => String -> Rectangle -> Alignments -> Maybe DrawCallback -> Ref a -> Maybe Bool -> IO ()
flcDrawInBoxWithImageReference string' rectangle' align' draw_callback' image' draw_flags'
= withRef image' $ \imagePtr' -> flcDrawInBoxWithImageReference' string' rectangle' align' draw_callback' imagePtr' draw_flags'
flcDrawInBox :: String -> Rectangle -> Alignments -> Maybe DrawCallback -> Maybe Bool -> IO ()
flcDrawInBox string' rectangle' align' draw_callback' draw_flags'
= flcDrawInBoxWithImageReference' string' rectangle' align' draw_callback' (castPtr nullPtr) draw_flags'
flcFrame' :: (String) -> (Int) -> (Int) -> (Int) -> (Int) -> IO ()
flcFrame' a1 a2 a3 a4 a5 =
C2HSImp.withCString a1 $ \a1' ->
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
flcFrame''_ a1' a2' a3' a4' a5' >>
return ()
flcFrame :: String -> Rectangle -> IO ()
flcFrame s rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in flcFrame' s x_pos' y_pos' width' height'
flcFrame2' :: (String) -> (Int) -> (Int) -> (Int) -> (Int) -> IO ()
flcFrame2' a1 a2 a3 a4 a5 =
C2HSImp.withCString a1 $ \a1' ->
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
flcFrame2''_ a1' a2' a3' a4' a5' >>
return ()
flcFrame2 :: String -> Rectangle -> IO ()
flcFrame2 s rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in flcFrame2' s x_pos' y_pos' width' height'
flcDrawBox' :: (Boxtype) -> (Int) -> (Int) -> (Int) -> (Int) -> (Color) -> IO ()
flcDrawBox' a1 a2 a3 a4 a5 a6 =
let {a1' = cFromEnum a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = cFromColor a6} in
flcDrawBox''_ a1' a2' a3' a4' a5' a6' >>
return ()
flcDrawBox :: Boxtype -> Rectangle -> Color -> IO ()
flcDrawBox boxtype rectangle color' = let (x_pos', y_pos', width', height') = fromRectangle rectangle in flcDrawBox' boxtype x_pos' y_pos' width' height' color'
flcDrawImageBufWithDL' :: (Ptr CUChar) -> (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> IO ()
flcDrawImageBufWithDL' a1 a2 a3 a4 a5 a6 a7 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = fromIntegral a7} in
flcDrawImageBufWithDL''_ a1' a2' a3' a4' a5' a6' a7' >>
return ()
flcDrawImageBuf :: ByteString -> Rectangle -> Delta -> LineDelta -> IO ()
flcDrawImageBuf buf rectangle d l =
let (x_pos', y_pos', width', height') = fromRectangle rectangle
in useAsCString
buf
(\cs ->
case (d,l) of
(Just d', Nothing) -> flcDrawImageBufWithDL' (castPtr cs) x_pos' y_pos' width' height' d' 0
(Nothing, Just l') -> flcDrawImageBufWithDL' (castPtr cs) x_pos' y_pos' width' height' 0 l'
(Nothing, Nothing) -> flcDrawImageBufWithDL' (castPtr cs) x_pos' y_pos' width' height' 0 0
(Just d', Just l') -> flcDrawImageBufWithDL' (castPtr cs) x_pos' y_pos' width' height' d' l')
flcDrawImageMonoBufWithDL' :: (Ptr CUChar) -> (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> IO ()
flcDrawImageMonoBufWithDL' a1 a2 a3 a4 a5 a6 a7 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = fromIntegral a7} in
flcDrawImageMonoBufWithDL''_ a1' a2' a3' a4' a5' a6' a7' >>
return ()
flcDrawImageMonoBuf :: ByteString -> Rectangle -> Delta -> LineDelta -> IO ()
flcDrawImageMonoBuf buf rectangle d l =
let (x_pos', y_pos', width', height') = fromRectangle rectangle
in useAsCString
buf
(\cs ->
case (d,l) of
(Just d', Nothing) -> flcDrawImageMonoBufWithDL' (castPtr cs) x_pos' y_pos' width' height' d' 0
(Nothing, Just l') -> flcDrawImageMonoBufWithDL' (castPtr cs) x_pos' y_pos' width' height' 0 l'
(Nothing, Nothing) -> flcDrawImageMonoBufWithDL' (castPtr cs) x_pos' y_pos' width' height' 0 0
(Just d', Just l') -> flcDrawImageMonoBufWithDL' (castPtr cs) x_pos' y_pos' width' height' d' l')
flcCanDoAlphaBlending' :: IO ((Bool))
flcCanDoAlphaBlending' =
flcCanDoAlphaBlending''_ >>= \res ->
let {res' = cToBool res} in
return (res')
flcCanDoAlphaBlending :: IO (Bool)
flcCanDoAlphaBlending = flcCanDoAlphaBlending'
flcReadImageWithAlpha' :: (Ptr CUChar) -> (Int) -> (Int) -> (Int) -> (Int) -> (Bool) -> IO ((Ptr CUChar))
flcReadImageWithAlpha' a1 a2 a3 a4 a5 a6 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = C2HSImp.fromBool a6} in
flcReadImageWithAlpha''_ a1' a2' a3' a4' a5' a6' >>= \res ->
let {res' = id res} in
return (res')
flcReadImage :: Rectangle -> Bool -> IO (ByteString)
flcReadImage rectangle alpha =
let (x_pos', y_pos', width', height') = fromRectangle rectangle
buffer_size = width' * height' * (if alpha then 4 else 3)
in
do
buffer <- flcReadImageWithAlpha' nullPtr x_pos' y_pos' width' height' alpha
bs <- packCStringLen ((castPtr buffer), buffer_size)
free buffer
return bs
flcDrawPixmapWithColor' :: ((Ptr (Ptr CChar))) -> (Int) -> (Int) -> (Color) -> IO ((Int))
flcDrawPixmapWithColor' a1 a2 a3 a4 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = cFromColor a4} in
flcDrawPixmapWithColor''_ a1' a2' a3' a4' >>= \res ->
let {res' = fromIntegral res} in
return (res')
flcDrawPixmapWithColor :: PixmapHs -> Position -> Color -> IO (Int)
flcDrawPixmapWithColor pixmap (Position (X x_pos') (Y y_pos')) color' =
withPixmap pixmap $ \pptr -> flcDrawPixmapWithColor' pptr x_pos' y_pos' color'
flcDrawPixmap' :: ((Ptr(Ptr CChar))) -> (Int) -> (Int) -> IO ((Int))
flcDrawPixmap' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
flcDrawPixmap''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
flcDrawPixmap :: PixmapHs -> Position -> IO (Int)
flcDrawPixmap pixmap (Position (X x_pos') (Y y_pos')) =
withPixmap pixmap $ \pptr -> flcDrawPixmap' pptr x_pos' y_pos'
flcDrawPixmapWithCdataColor' :: ((Ptr (Ptr CChar))) -> (Int) -> (Int) -> (Color) -> IO ((Int))
flcDrawPixmapWithCdataColor' a1 a2 a3 a4 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = cFromColor a4} in
flcDrawPixmapWithCdataColor''_ a1' a2' a3' a4' >>= \res ->
let {res' = fromIntegral res} in
return (res')
flcDrawPixmapWithCdataColor :: PixmapHs -> Position -> Color -> IO (Int)
flcDrawPixmapWithCdataColor pixmap (Position (X x_pos') (Y y_pos')) color' =
withPixmap pixmap $ \pptr -> flcDrawPixmapWithCdataColor' pptr x_pos' y_pos' color'
flcDrawPixmapWithCdata' :: ((Ptr (Ptr CChar))) -> (Int) -> (Int) -> IO ((Int))
flcDrawPixmapWithCdata' a1 a2 a3 =
let {a1' = id a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
flcDrawPixmapWithCdata''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
return (res')
flcDrawPixmapWithCdata :: PixmapHs -> Position -> IO (Int)
flcDrawPixmapWithCdata pixmap (Position (X x_pos') (Y y_pos')) =
withPixmap pixmap $ \pptr -> flcDrawPixmapWithCdata' pptr x_pos' y_pos'
flcMeasurePixmap' :: ((Ptr (Ptr CChar))) -> IO ((Int), (Int), (Int))
flcMeasurePixmap' a1 =
let {a1' = id a1} in
alloca $ \a2' ->
alloca $ \a3' ->
flcMeasurePixmap''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
peekIntConv a2'>>= \a2'' ->
peekIntConv a3'>>= \a3'' ->
return (res', a2'', a3'')
flcMeasurePixmap :: PixmapHs -> IO (Int,Size)
flcMeasurePixmap pixmap =
withPixmap pixmap $ \pptr ->
flcMeasurePixmap' pptr >>= \(result, width', height') ->
return $ (result, toSize (width', height'))
flcMeasurePixmapWithCdata' :: ((Ptr (Ptr CChar))) -> IO ((Int), (Int), (Int))
flcMeasurePixmapWithCdata' a1 =
let {a1' = id a1} in
alloca $ \a2' ->
alloca $ \a3' ->
flcMeasurePixmapWithCdata''_ a1' a2' a3' >>= \res ->
let {res' = fromIntegral res} in
peekIntConv a2'>>= \a2'' ->
peekIntConv a3'>>= \a3'' ->
return (res', a2'', a3'')
flcMeasurePixmapWithCdata :: PixmapHs -> IO (Int,Size)
flcMeasurePixmapWithCdata pixmap =
withPixmap pixmap (\pptr -> do
(result, width', height') <- flcMeasurePixmapWithCdata' pptr
return (result, toSize (width', height'))
)
flcShortcutLabel' :: (Int) -> IO ((String))
flcShortcutLabel' a1 =
let {a1' = fromIntegral a1} in
flcShortcutLabel''_ a1' >>= \res ->
let {res' = unsafeFromCString res} in
return (res')
flcShortcutLabel :: Int -> IO (String)
flcShortcutLabel shortcut = flcShortcutLabel' shortcut
flcOldShortcut' :: (String) -> IO ((Int))
flcOldShortcut' a1 =
C2HSImp.withCString a1 $ \a1' ->
flcOldShortcut''_ a1' >>= \res ->
let {res' = fromIntegral res} in
return (res')
flcOldShortcut :: String -> IO (Int)
flcOldShortcut s = flcOldShortcut' s
flcOverlayRect' :: (Int) -> (Int) -> (Int) -> (Int) -> IO ()
flcOverlayRect' a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
flcOverlayRect''_ a1' a2' a3' a4' >>
return ()
flcOverlayRect :: Rectangle -> IO ()
flcOverlayRect rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in flcOverlayRect' x_pos' y_pos' width' height'
flcOverlayClear' :: IO ()
flcOverlayClear' =
flcOverlayClear''_ >>
return ()
flcOverlayClear :: IO ()
flcOverlayClear = flcOverlayClear'
flcCursorWithFgBg' :: (Cursor) -> (Color) -> (Color) -> IO ()
flcCursorWithFgBg' a1 a2 a3 =
let {a1' = cFromEnum a1} in
let {a2' = cFromColor a2} in
let {a3' = cFromColor a3} in
flcCursorWithFgBg''_ a1' a2' a3' >>
return ()
flcCursorWithFgBg :: Cursor -> Color -> Color -> IO ()
flcCursorWithFgBg cursore fg bg = flcCursorWithFgBg' cursore fg bg
flcCursorWithFg' :: (Cursor) -> (Color) -> IO ()
flcCursorWithFg' a1 a2 =
let {a1' = cFromEnum a1} in
let {a2' = cFromColor a2} in
flcCursorWithFg''_ a1' a2' >>
return ()
flcCursorWithFg :: Cursor -> Color -> IO ()
flcCursorWithFg cursor fg = flcCursorWithFg' cursor fg
flcCursorWithBg' :: (Cursor) -> (Color) -> IO ()
flcCursorWithBg' a1 a2 =
let {a1' = cFromEnum a1} in
let {a2' = cFromColor a2} in
flcCursorWithBg''_ a1' a2' >>
return ()
flcCursorWithBg :: Cursor -> Color -> IO ()
flcCursorWithBg cursor bg = flcCursorWithBg' cursor bg
flcCursor' :: (Cursor) -> IO ()
flcCursor' a1 =
let {a1' = cFromEnum a1} in
flcCursor''_ a1' >>
return ()
flcCursor :: Cursor -> IO ()
flcCursor cursor = flcCursor' cursor
flcSetStatus' :: (Int) -> (Int) -> (Int) -> (Int) -> IO ()
flcSetStatus' a1 a2 a3 a4 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
flcSetStatus''_ a1' a2' a3' a4' >>
return ()
flcSetStatus :: Rectangle -> IO ()
flcSetStatus rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in flcSetStatus' x_pos' y_pos' width' height'
flcSetSpotWithWin' :: (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> (Ptr ()) -> IO ()
flcSetSpotWithWin' a1 a2 a3 a4 a5 a6 a7 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
let {a7' = id a7} in
flcSetSpotWithWin''_ a1' a2' a3' a4' a5' a6' a7' >>
return ()
flcSetSpotWithWin :: (Parent a Window) => Int -> Int -> Rectangle -> Ref a -> IO ()
flcSetSpotWithWin font' size' rectangle win = let (x_pos', y_pos', width', height') = fromRectangle rectangle in withRef win $ \winPtr -> flcSetSpotWithWin' font' size' x_pos' y_pos' width' height' winPtr
flcSetSpot' :: (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> (Int) -> IO ()
flcSetSpot' a1 a2 a3 a4 a5 a6 =
let {a1' = fromIntegral a1} in
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = fromIntegral a6} in
flcSetSpot''_ a1' a2' a3' a4' a5' a6' >>
return ()
flcSetSpot :: Int -> Int -> Rectangle -> IO ()
flcSetSpot font' size' rectangle = let (x_pos', y_pos', width', height') = fromRectangle rectangle in flcSetSpot' font' size' x_pos' y_pos' width' height'
flcResetSpot' :: IO ()
flcResetSpot' =
flcResetSpot''_ >>
return ()
flcResetSpot :: IO ()
flcResetSpot = flcResetSpot'
flcDrawSymbol' :: (String) -> (Int) -> (Int) -> (Int) -> (Int) -> (Color) -> IO ((Int))
flcDrawSymbol' a1 a2 a3 a4 a5 a6 =
C2HSImp.withCString a1 $ \a1' ->
let {a2' = fromIntegral a2} in
let {a3' = fromIntegral a3} in
let {a4' = fromIntegral a4} in
let {a5' = fromIntegral a5} in
let {a6' = cFromColor a6} in
flcDrawSymbol''_ a1' a2' a3' a4' a5' a6' >>= \res ->
let {res' = fromIntegral res} in
return (res')
flcDrawSymbol :: String -> Rectangle -> Color -> IO (Int)
flcDrawSymbol label rectangle color' = let (x_pos', y_pos', width', height') = fromRectangle rectangle in flcDrawSymbol' label x_pos' y_pos' width' height' color'
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_set_color"
flcSetColor''_ :: (C2HSImp.CUInt -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_set_color_with_c"
flcSetColorWithC''_ :: (C2HSImp.CInt -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_set_color_with_rgb"
flcSetColorWithRgb''_ :: (C2HSImp.CUChar -> (C2HSImp.CUChar -> (C2HSImp.CUChar -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_color"
flcColor''_ :: (IO C2HSImp.CUInt)
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_push_clip"
flcPushClip''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ())))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_push_no_clip"
flcPushNoClip''_ :: (IO ())
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_pop_clip"
flcPopClip''_ :: (IO ())
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_not_clipped"
flcNotClipped''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_clip_box"
flcClipBox''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> (IO C2HSImp.CInt)))))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_restore_clip"
flcRestoreClip''_ :: (IO ())
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_set_clip_region"
flcSetClipRegion''_ :: ((C2HSImp.Ptr ()) -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_clip_region"
flcClipRegion''_ :: (IO (C2HSImp.Ptr ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_point"
flcPoint''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_line_style_with_width_dashes"
flcLineStyleWithWidthDashes''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> ((C2HSImp.Ptr C2HSImp.CChar) -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_rect"
flcRect''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ())))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_rect_with_color"
flcRectWithColor''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CUInt -> (IO ()))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_rectf"
flcRectf''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ())))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_rectf_with_color"
flcRectfWithColor''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CUInt -> (IO ()))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_rectf_with_rgb"
flcRectfWithRgb''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CUChar -> (C2HSImp.CUChar -> (C2HSImp.CUChar -> (IO ()))))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_line"
flcLine''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ())))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_line_with_x2_y2"
flcLineWithX2Y2''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ())))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_loop"
flcLoop''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ())))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_loop_with_x3_y3"
flcLoopWithX3Y3''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ())))))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_polygon"
flcPolygon''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ())))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_polygon_with_x3_y3"
flcPolygonWithX3Y3''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ())))))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_xyline"
flcXyline''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_xyline_with_x2"
flcXylineWithX2''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ())))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_xyline_with_y2_x3"
flcXylineWithY2X3''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_yxline_with_y1"
flcYxlineWithY1''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_yxline_with_y2_x2"
flcYxlineWithY2X2''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ())))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_yxline_with_y2_x3"
flcYxlineWithY2X3''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_arc_by_width_height"
flcArcByWidthHeight''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CDouble -> (C2HSImp.CDouble -> (IO ())))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_pie"
flcPie''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CDouble -> (C2HSImp.CDouble -> (IO ())))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_push_matrix"
flcPushMatrix''_ :: (IO ())
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_pop_matrix"
flcPopMatrix''_ :: (IO ())
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_scale_with_y"
flcScaleWithY''_ :: (C2HSImp.CDouble -> (C2HSImp.CDouble -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_scale"
flcScale''_ :: (C2HSImp.CDouble -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_translate"
flcTranslate''_ :: (C2HSImp.CDouble -> (C2HSImp.CDouble -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_rotate"
flcRotate''_ :: (C2HSImp.CDouble -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_mult_matrix"
flcMultMatrix''_ :: (C2HSImp.CDouble -> (C2HSImp.CDouble -> (C2HSImp.CDouble -> (C2HSImp.CDouble -> (C2HSImp.CDouble -> (C2HSImp.CDouble -> (IO ())))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_begin_points"
flcBeginPoints''_ :: (IO ())
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_begin_line"
flcBeginLine''_ :: (IO ())
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_begin_loop"
flcBeginLoop''_ :: (IO ())
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_begin_polygon"
flcBeginPolygon''_ :: (IO ())
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_vertex"
flcVertex''_ :: (C2HSImp.CDouble -> (C2HSImp.CDouble -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_curve"
flcCurve''_ :: (C2HSImp.CDouble -> (C2HSImp.CDouble -> (C2HSImp.CDouble -> (C2HSImp.CDouble -> (C2HSImp.CDouble -> (C2HSImp.CDouble -> (C2HSImp.CDouble -> (C2HSImp.CDouble -> (IO ())))))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_arc_by_radius"
flcArcByRadius''_ :: (C2HSImp.CDouble -> (C2HSImp.CDouble -> (C2HSImp.CDouble -> (C2HSImp.CDouble -> (C2HSImp.CDouble -> (IO ()))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_circle"
flcCircle''_ :: (C2HSImp.CDouble -> (C2HSImp.CDouble -> (C2HSImp.CDouble -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_end_points"
flcEndPoints''_ :: (IO ())
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_end_line"
flcEndLine''_ :: (IO ())
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_end_loop"
flcEndLoop''_ :: (IO ())
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_end_polygon"
flcEndPolygon''_ :: (IO ())
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_begin_complex_polygon"
flcBeginComplexPolygon''_ :: (IO ())
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_gap"
flcGap''_ :: (IO ())
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_end_complex_polygon"
flcEndComplexPolygon''_ :: (IO ())
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_transform_x"
flcTransformX''_ :: (C2HSImp.CDouble -> (C2HSImp.CDouble -> (IO C2HSImp.CDouble)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_transform_y"
flcTransformY''_ :: (C2HSImp.CDouble -> (C2HSImp.CDouble -> (IO C2HSImp.CDouble)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_transform_dx"
flcTransformDx''_ :: (C2HSImp.CDouble -> (C2HSImp.CDouble -> (IO C2HSImp.CDouble)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_transform_dy"
flcTransformDy''_ :: (C2HSImp.CDouble -> (C2HSImp.CDouble -> (IO C2HSImp.CDouble)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_transformed_vertex"
flcTransformedVertex''_ :: (C2HSImp.CDouble -> (C2HSImp.CDouble -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_set_font"
flcSetFont''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_font"
flcFont''_ :: (IO C2HSImp.CInt)
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_size"
flcSize''_ :: (IO C2HSImp.CInt)
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_height"
flcHeight''_ :: (IO C2HSImp.CInt)
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_set_height"
flcSetHeight''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (IO C2HSImp.CInt)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_descent"
flcDescent''_ :: (IO C2HSImp.CInt)
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_width"
flcWidth''_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> (IO C2HSImp.CDouble))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_width_with_n"
flcWidthWithN''_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (IO C2HSImp.CDouble)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_width_with_c"
flcWidthWithC''_ :: (C2HSImp.CUInt -> (IO C2HSImp.CDouble))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_text_extents"
flcTextExtents''_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> (IO ()))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_text_extents_with_n"
flcTextExtentsWithN''_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> (IO ())))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_latin1_to_local"
flcLatin1ToLocal''_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> (IO (C2HSImp.Ptr C2HSImp.CChar)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_latin1_to_local_with_n"
flcLatin1ToLocalWithN''_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (IO (C2HSImp.Ptr C2HSImp.CChar))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_local_to_latin1"
flcLocalToLatin1''_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> (IO (C2HSImp.Ptr C2HSImp.CChar)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_local_to_latin1_with_n"
flcLocalToLatin1WithN''_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (IO (C2HSImp.Ptr C2HSImp.CChar))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_mac_roman_to_local"
flcMacRomanToLocal''_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> (IO (C2HSImp.Ptr C2HSImp.CChar)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_mac_roman_to_local_with_n"
flcMacRomanToLocalWithN''_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (IO (C2HSImp.Ptr C2HSImp.CChar))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_local_to_mac_roman"
flcLocalToMacRoman''_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> (IO (C2HSImp.Ptr C2HSImp.CChar)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_local_to_mac_roman_with_n"
flcLocalToMacRomanWithN''_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (IO (C2HSImp.Ptr C2HSImp.CChar))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_draw"
flcDraw''_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_draw_with_angle"
flcDrawWithAngle''_ :: (C2HSImp.CInt -> ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ())))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_draw_with_n"
flcDrawWithN''_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ())))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_draw_with_n_angle"
flcDrawWithNAngle''_ :: (C2HSImp.CInt -> ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_rtl_draw"
flcRtlDraw''_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ())))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_measure_with_draw_symbols"
flcMeasureWithDrawSymbols''_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> (C2HSImp.CInt -> (IO ())))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_draw_with_img_draw_symbols"
flcDrawWithImgDrawSymbols''_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CUInt -> ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ())))))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_draw_with_callthis_img_draw_symbols"
flcDrawWithCallthisImgDrawSymbols''_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CUInt -> ((C2HSImp.FunPtr ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ())))))) -> ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (IO ()))))))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_frame"
flcFrame''_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_frame2"
flcFrame2''_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_draw_box"
flcDrawBox''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CUInt -> (IO ())))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_draw_image_buf_with_d_l"
flcDrawImageBufWithDL''_ :: ((C2HSImp.Ptr C2HSImp.CUChar) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_draw_image_mono_buf_with_d_l"
flcDrawImageMonoBufWithDL''_ :: ((C2HSImp.Ptr C2HSImp.CUChar) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ()))))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_can_do_alpha_blending"
flcCanDoAlphaBlending''_ :: (IO C2HSImp.CChar)
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_read_image_with_alpha"
flcReadImageWithAlpha''_ :: ((C2HSImp.Ptr C2HSImp.CUChar) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO (C2HSImp.Ptr C2HSImp.CUChar))))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_draw_pixmap_with_color"
flcDrawPixmapWithColor''_ :: ((C2HSImp.Ptr (C2HSImp.Ptr C2HSImp.CChar)) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CUInt -> (IO C2HSImp.CInt)))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_draw_pixmap"
flcDrawPixmap''_ :: ((C2HSImp.Ptr (C2HSImp.Ptr C2HSImp.CChar)) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_draw_pixmap_with_cdata_color"
flcDrawPixmapWithCdataColor''_ :: ((C2HSImp.Ptr (C2HSImp.Ptr C2HSImp.CChar)) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CUInt -> (IO C2HSImp.CInt)))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_draw_pixmap_with_cdata"
flcDrawPixmapWithCdata''_ :: ((C2HSImp.Ptr (C2HSImp.Ptr C2HSImp.CChar)) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_measure_pixmap"
flcMeasurePixmap''_ :: ((C2HSImp.Ptr (C2HSImp.Ptr C2HSImp.CChar)) -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_measure_pixmap_with_cdata"
flcMeasurePixmapWithCdata''_ :: ((C2HSImp.Ptr (C2HSImp.Ptr C2HSImp.CChar)) -> ((C2HSImp.Ptr C2HSImp.CInt) -> ((C2HSImp.Ptr C2HSImp.CInt) -> (IO C2HSImp.CInt))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_shortcut_label"
flcShortcutLabel''_ :: (C2HSImp.CUInt -> (IO (C2HSImp.Ptr C2HSImp.CChar)))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_old_shortcut"
flcOldShortcut''_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> (IO C2HSImp.CUInt))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_overlay_rect"
flcOverlayRect''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ())))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_overlay_clear"
flcOverlayClear''_ :: (IO ())
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_cursor_with_fg_bg"
flcCursorWithFgBg''_ :: (C2HSImp.CInt -> (C2HSImp.CUInt -> (C2HSImp.CUInt -> (IO ()))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_cursor_with_fg"
flcCursorWithFg''_ :: (C2HSImp.CInt -> (C2HSImp.CUInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_cursor_with_bg"
flcCursorWithBg''_ :: (C2HSImp.CInt -> (C2HSImp.CUInt -> (IO ())))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_cursor"
flcCursor''_ :: (C2HSImp.CInt -> (IO ()))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_set_status"
flcSetStatus''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ())))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_set_spot_with_win"
flcSetSpotWithWin''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> ((C2HSImp.Ptr ()) -> (IO ()))))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_set_spot"
flcSetSpot''_ :: (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO ())))))))
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_reset_spot"
flcResetSpot''_ :: (IO ())
foreign import ccall safe "Graphics/UI/FLTK/LowLevel/Draw.chs.h flc_draw_symbol"
flcDrawSymbol''_ :: ((C2HSImp.Ptr C2HSImp.CChar) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CInt -> (C2HSImp.CUInt -> (IO C2HSImp.CInt)))))))