Difference between revisions of "User:Lenny222"
Jump to navigation
Jump to search
Line 9: | Line 9: | ||
=== Graphic Language === |
=== Graphic Language === |
||
<haskell> |
<haskell> |
||
− | Figure = Figure { |
+ | data Figure = Figure { |
− | + | fill :: Fill |
|
− | + | , shape :: Shape |
|
− | + | , stroke :: Stroke |
|
− | + | } |
|
− | Fill = Fill { |
+ | data Fill = Fill { |
− | + | paint :: Paint, |
|
− | + | } |
|
− | Stroke = Stroke { |
+ | data Stroke = Stroke { |
− | + | paint :: Paint, |
|
− | + | , strokeWidth :: Double, |
|
− | + | , dashPattern :: DashPattern |
|
− | + | , lineCap :: LineCap |
|
+ | , lineJoin :: LineJoin |
||
− | } |
||
+ | , miterLimit :: Double |
||
+ | } deriving(Eq, Show) |
||
− | Paint = |
+ | data Paint = |
− | + | SolidColor |
|
− | + | | Pattern |
|
− | + | | Gradient |
|
+ | deriving(Eq, Show) |
||
− | Shape = |
+ | data Shape = |
− | + | Path |
|
− | + | | Primitive |
|
− | + | | Text |
|
+ | deriving(Eq, Show) |
||
− | Primitive = |
+ | data Primitive = |
+ | Circle |
||
− | square |
||
+ | | Ellipse |
||
− | | circle |
||
+ | | Rectangle |
||
− | | ellipse |
||
+ | | Square |
||
− | | rectangle |
||
+ | deriving(Eq, Show) |
||
class PathLike a = |
class PathLike a = |
Revision as of 16:30, 16 November 2009
Things i think need improvement
Graphic Language
data Figure = Figure {
fill :: Fill
, shape :: Shape
, stroke :: Stroke
}
data Fill = Fill {
paint :: Paint,
}
data Stroke = Stroke {
paint :: Paint,
, strokeWidth :: Double,
, dashPattern :: DashPattern
, lineCap :: LineCap
, lineJoin :: LineJoin
, miterLimit :: Double
} deriving(Eq, Show)
data Paint =
SolidColor
| Pattern
| Gradient
deriving(Eq, Show)
data Shape =
Path
| Primitive
| Text
deriving(Eq, Show)
data Primitive =
Circle
| Ellipse
| Rectangle
| Square
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