Clutch

model Clutch "Icon of a clutch"
    annotation (
        Icon(
            graphics = {
                Rectangle(
                    lineColor = {64, 64, 64},
                    fillColor = {192, 192, 192},
                    fillPattern = FillPattern.HorizontalCylinder,
                    extent = {
                        {-100, -10}, 
                        {-30, 10}}), 
                Rectangle(
                    lineColor = {64, 64, 64},
                    fillColor = {255, 255, 255},
                    fillPattern = FillPattern.HorizontalCylinder,
                    extent = {
                        {-30, -60}, 
                        {-10, 60}}), 
                Rectangle(
                    lineColor = {64, 64, 64},
                    extent = {
                        {-30, -60}, 
                        {-10, 60}}), 
                Rectangle(
                    lineColor = {64, 64, 64},
                    fillColor = {255, 255, 255},
                    fillPattern = FillPattern.HorizontalCylinder,
                    extent = {
                        {10, -60}, 
                        {30, 60}}), 
                Rectangle(
                    lineColor = {64, 64, 64},
                    extent = {
                        {10, -60}, 
                        {30, 60}}), 
                Rectangle(
                    lineColor = {64, 64, 64},
                    fillColor = {192, 192, 192},
                    fillPattern = FillPattern.HorizontalCylinder,
                    extent = {
                        {30, -10}, 
                        {100, 10}}), 
                Polygon(
                    lineColor = {0, 0, 127},
                    fillColor = {0, 0, 127},
                    fillPattern = FillPattern.Solid,
                    points = {
                        {-30, 40}, 
                        {-60, 50}, 
                        {-60, 30}, 
                        {-30, 40}}), 
                Polygon(
                    lineColor = {0, 0, 127},
                    fillColor = {0, 0, 127},
                    fillPattern = FillPattern.Solid,
                    points = {
                        {30, 40}, 
                        {60, 50}, 
                        {60, 30}, 
                        {30, 40}}), 
                Line(
                    points = {
                        {0, 90}, 
                        {90, 70}, 
                        {90, 40}, 
                        {30, 40}},
                    color = {0, 0, 127}), 
                Line(
                    points = {
                        {0, 90}, 
                        {-90, 70}, 
                        {-90, 40}, 
                        {-30, 40}},
                    color = {0, 0, 127})},
            coordinateSystem(
                extent = {
                    {-100, -100}, 
                    {100, 100}},
                preserveAspectRatio = true)),
        Documentation(info = "<html>\n<p>\nThis is the icon of a clutch from the rotational package.\n</p>\n</html>"));
end Clutch;