XProfan

Italia

###################################################################
TORTEN DIAGRAMM
Ermöglich die Anzeige eines Prozentwertes in einem Tortendiagramm.
Alle Parameter lassen sich flexibel einstellen
Copyright Sven Bader 2000
Dieser Quelltext ist Freeware. Bei Verwendung bitte Quelle angeben.
Kritik und Anregungen an: svenbader.de
Für eventuell auftretende Schäden wird keine Haftung übernommen.
###################################################################
Window (%MaxX / 2 - 320), (%MaxY / 2 - 240) - 640,480 Fenster in Bildschirmmitte anzeigen
Declare x!, y!, winkel!, wert%, hundertprozent%, first%
Declare xstart%, ystart%, scale%
winkel! = Pi() * 2
xstart%         = 320   Kreismittelpunkt
ystart%         = 220   Kreismittelpunkt
hundertprozent% = 100   100%
wert%           = 80    Anteil
scale%          = 200   Radius
Decimals 2              Nachkommastellen
SetTrueColor 1          Truecolor Modus
UsePen 0,1,0            Art, Dicke, Farbe
Print Str$(wert% / (hundertprozent% / 100)) + %
winkel! = (wert% / (hundertprozent% / winkel!)) berechnen des abschnitts

While winkel! > 0

    winkel! = (winkel! - 0.005) Zeichengenauigkeit
    x! = COS(winkel!) * scale%
    y! = SIN(winkel!) * scale%

    Ifnot first% Beim ersten Mal: Linie zum Mittelpunkt

        Line (x! + xstart%), (y! + ystart%) - xstart%, ystart%
        first% = 1

    EndIf

    SetPixel (x! + xstart%), (y! + ystart%), RGB(0,0,0)

EndWhile

SetPixel xstart%,ystart%,RGB(0,0,0)
Line (x! + xstart%), (y! + ystart%) - xstart%, ystart% am Ende Linie zum Mittelpunkt
WaitInput