Palette
  [ ("interface"
    , ( Circle { shapeStyle = ShapeStyle
                                               { styleStrokeWidth = 2
                                               , styleStrokeColour = RGB 255 255 255
                                               , styleFill = RGB 255 255 255
                                               }
                             , shapeRadius = 0.25
                             }
      , Just [("interface", DoublePoint 0.0 0.25)]
      , Just [] ))
  , ("Add"
    , ( Composite { shapeSegments =
                    [ Circle { shapeStyle = ShapeStyle
                                               { styleStrokeWidth = 2
                                               , styleStrokeColour = RGB 250 0 0
                                               , styleFill = RGB 255 255 255
                                               }
                             , shapeRadius = 0.5
                             }
                    , Lines { shapeStyle = ShapeStyle
                                               { styleStrokeWidth = 2
                                               , styleStrokeColour = RGB 250 0 0
                                               , styleFill = RGB 128 128 128
                                               }
                            , shapePerimeter = [ DoublePoint (-0.25) 0.25
					       , DoublePoint 0.0     (-0.35)
                                               , DoublePoint 0.25    0.25    ] }
                    , Lines { shapeStyle = ShapeStyle
                                               { styleStrokeWidth = 2
                                               , styleStrokeColour = RGB 250 0 0
                                               , styleFill = RGB 128 128 128
                                               }
                            , shapePerimeter = [ DoublePoint (-0.20) 0.10
                                               , DoublePoint 0.20    0.10    ] }
                    ] }
      , Just [("down" , DoublePoint 0.0    0.5)
             ,("left" , DoublePoint (-0.5) 0.0)
             ,("right", DoublePoint 0.5    0.0)]
      , Just [] ))
 , ("Z"
    , ( Composite { shapeSegments =
                    [ Circle { shapeStyle = ShapeStyle
                                               { styleStrokeWidth = 2
                                               , styleStrokeColour = RGB 250 0 0
                                               , styleFill = RGB 255 255 255
                                               }
                             , shapeRadius = 0.5
                             }
                    , Lines { shapeStyle = ShapeStyle
                                               { styleStrokeWidth = 2
                                               , styleStrokeColour = RGB 250 0 0
                                               , styleFill = RGB 128 128 128
                                               }
                            , shapePerimeter = [ DoublePoint (-0.25) (-0.25)
					       , DoublePoint   0.25  (-0.25)
					       , DoublePoint (-0.25) 0.25
                                               , DoublePoint 0.25    0.25    ] }
                    , Lines { shapeStyle = ShapeStyle
                                               { styleStrokeWidth = 2
                                               , styleStrokeColour = RGB 250 0 0
                                               , styleFill = RGB 128 128 128
                                               }
                            , shapePerimeter = [ DoublePoint (-0.15) 0.0
                                               , DoublePoint 0.15    0.0    ] }
                    ] }
      , Just [("up" , DoublePoint 0.0    (-0.5))]
      , Just [] ))
, ("S"
    , ( Composite { shapeSegments =
                    [ Circle { shapeStyle = ShapeStyle
                                               { styleStrokeWidth = 2
                                               , styleStrokeColour = RGB 250 0 0
                                               , styleFill = RGB 255 255 255
                                               }
                             , shapeRadius = 0.5
                             }
                    , Lines { shapeStyle = ShapeStyle
                                               { styleStrokeWidth = 2
                                               , styleStrokeColour = RGB 250 0 0
                                               , styleFill = RGB 128 128 128
                                               }
                            , shapePerimeter = [ DoublePoint   0.25  (-0.25)
                                               , DoublePoint (-0.25) (-0.25)
                                               , DoublePoint (-0.25) 0.0
                                               , DoublePoint 0.25    0.0
                                               , DoublePoint 0.25    0.25    
					       , DoublePoint (-0.25) 0.25
                                               ] }
                    ] }
      , Just [ ("up"   , DoublePoint 0.0    (-0.5) )
             , ("down" , DoublePoint 0.0    0.5) ]
      , Just [] ))
  ]