COM - VB - XAML Pie Chart Demo

Oleg,

I was expecting the following markup to work but it just fills the shape with black:

<Canvas>
<Polygon Points='80,80 159,79 158,78 158,76 158,75 158,73 158,72 158,71 158,69 158,68 158,67 157,65 157,64 157,62 156,61 156,60 156,58 155,57 155,56 155,54 154,53 154,52 153,51 153,49 152,48 152,47 151,45 150,44 150,43 149,42 149,40 148,39'>
    <Polygon.Fill>
        <LinearGradientBrush EndPoint="0.5,1" StartPoint="0.5, 0">
            <GradientStop Color="#FFFF00" Offset="0"/>
            <GradientStop Color="#00FF00" Offset="1"/>
        </LinearGradientBrush>
    </Polygon.Fill>
</Polygon>
</Canvas>

Hola, niños:

Qué, dandele a la teclas. Eso está muy bien.

Os dejo un trocito de codigo que seguro que os pondrá cachondos.

private void CambiaAngleMin(Double p)
        {

            Polygon A = new Polygon();

            int angulo_A, angulo_B;

            if (AngleMax < p)
            {
                angulo_A = (int)p;

                angulo_B = (int)AngleMax;
            }
            else
            {
                angulo_A = (int)AngleMax;

                angulo_B = (int)p;
            }
            A.Points.Add(new Point(55, 55));

          

            while (angulo_A != angulo_B)
            {
                Point Punto = new Point();
                Double Angulo;
                Double x, y;

                // Radianes;
                Angulo = (Math.PI * (angulo_A - 90)) / 180;

                x = Math.Cos(Angulo) * 55;
                y = Math.Sin(Angulo) * 55;

                x = x + 55;
                y = y + 55;

                Punto.X = x;
                Punto.Y = y;
                A.Points.Add(Punto);

                angulo_A--;
            }

           
            A.Points.Add(new Point(55, 55));

            A.Stroke = Brushes.Black;
            A.Fill = Brushes.Red;




            PEDRO.Children.Clear();
            PEDRO.Children.Add(A);

        }

Saludos.-