Difference between revisions of "User:Lenny222"
Jump to navigation
Jump to search
Line 32: | Line 32: | ||
| Pattern |
| Pattern |
||
| Gradient |
| Gradient |
||
+ | deriving(Eq, Show) |
||
+ | |||
+ | data LineCap = |
||
+ | LineCapButt |
||
+ | | LineCapRound |
||
+ | | LineCapSquare |
||
+ | deriving(Eq, Show) |
||
+ | |||
+ | data LineJoin = |
||
+ | LineJoinMiter |
||
+ | | LineJoinRound |
||
+ | | LineJoinBevel |
||
deriving(Eq, Show) |
deriving(Eq, Show) |
||
Line 44: | Line 56: | ||
| Ellipse |
| Ellipse |
||
| Rectangle |
| Rectangle |
||
+ | | RegularPolygon |
||
| Square |
| Square |
||
+ | | Star |
||
deriving(Eq, Show) |
deriving(Eq, Show) |
||
Revision as of 16:37, 16 November 2009
Things i think need improvement
Graphic Language
data Figure = Figure {
fill :: Fill
, shape :: Shape
, stroke :: Stroke
}
data Fill = Fill {
fillPaint :: Paint,
}
data Stroke = Stroke {
strokePaint :: Paint,
, lineWidth :: Double,
, dashPattern :: DashPattern
, lineCap :: LineCap
, lineJoin :: LineJoin
, miterLimit :: Double
} deriving(Eq, Show)
data Paint =
SolidColor
| Pattern
| Gradient
deriving(Eq, Show)
data LineCap =
LineCapButt
| LineCapRound
| LineCapSquare
deriving(Eq, Show)
data LineJoin =
LineJoinMiter
| LineJoinRound
| LineJoinBevel
deriving(Eq, Show)
data Shape =
Path
| Primitive
| Text
deriving(Eq, Show)
data Primitive =
Circle
| Ellipse
| Rectangle
| RegularPolygon
| Square
| Star
deriving(Eq, Show)
class PathLike a =
convertToPath :: a -> Path
Simplified Haskell homepage
A simplified Haskell frontpage
Other programming language homepages:
Contact
Contact me via
q 4 0 9
a t
k u d l i n g
d o t
d e