Thu Nov 17 16:19:01 WET 2005 Malcolm.Wallace@cs.york.ac.uk
* update simple.blobpalette with correct types, new shapes
{
hunk ./simple.blobpalette 2
- [ ("circle", Circle { shapeStyle = ShapeStyle { styleStrokeWidth = 1
- , styleStrokeColour = RGB 0 0 0
- , styleFill = RGB 200 128 200
- }
- , shapeRadius = 0.5 }
- , Just () )
- , ("square", Polygon { shapeStyle = ShapeStyle { styleStrokeWidth = 2
- , styleStrokeColour = RGB 0 0 0
- , styleFill = RGB 200 200 128
- }
- , shapePerimeter = [ DoublePoint (-0.5) (-0.5)
- , DoublePoint 0.5 (-0.5)
- , DoublePoint 0.5 0.5
- , DoublePoint (-0.5) 0.5 ] }
- , Just () )
- , ("triangle", Polygon { shapeStyle = ShapeStyle { styleStrokeWidth = 1
- , styleStrokeColour = RGB 0 0 0
- , styleFill = RGB 128 200 200
- }
- , shapePerimeter = [ DoublePoint (-0.5) (-0.5)
- , DoublePoint 0.5 (-0.5)
- , DoublePoint 0.0 0.5 ] }
- , Just () )
- , ("lines", Composite { shapeSegments =
+ [ ("circle"
+ , Circle { shapeStyle = ShapeStyle { styleStrokeWidth = 1
+ , styleStrokeColour = RGB 0 0 0
+ , styleFill = RGB 128 200 128
+ }
+ , shapeRadius = 0.5 }
+ , Just [] )
+ , ("square"
+ , Polygon { shapeStyle = ShapeStyle { styleStrokeWidth = 2
+ , styleStrokeColour = RGB 0 0 0
+ , styleFill = RGB 200 128 200
+ }
+ , shapePerimeter = [ DoublePoint (-0.5) (-0.5)
+ , DoublePoint 0.5 (-0.5)
+ , DoublePoint 0.5 0.5
+ , DoublePoint (-0.5) 0.5 ] }
+ , Just [] )
+ , ("triangle left"
+ , Polygon { shapeStyle = ShapeStyle { styleStrokeWidth = 1
+ , styleStrokeColour = RGB 0 0 0
+ , styleFill = RGB 128 200 200
+ }
+ , shapePerimeter = [ DoublePoint (-0.5) 0
+ , DoublePoint 0.5 (-0.5)
+ , DoublePoint 0.5 0.5 ] }
+ , Just [] )
+ , ("triangle right"
+ , Polygon { shapeStyle = ShapeStyle { styleStrokeWidth = 1
+ , styleStrokeColour = RGB 0 0 0
+ , styleFill = RGB 128 200 200
+ }
+ , shapePerimeter = [ DoublePoint (-0.5) (-0.5)
+ , DoublePoint (-0.5) 0.5
+ , DoublePoint 0.5 0.0 ] }
+ , Just [] )
+ , ("wire"
+ , Composite { shapeSegments =
hunk ./simple.blobpalette 41
- , styleStrokeColour = RGB 200 0 0
+ , styleStrokeColour = RGB 0 0 0
hunk ./simple.blobpalette 48
- , styleStrokeColour = RGB 200 0 0
+ , styleStrokeColour = RGB 0 0 0
hunk ./simple.blobpalette 54
- , Just () )
+ , Just [] )
}