Red [
    Title: "donut.1.red"
    Builds: [
        0.0.0.1.15 {Initial version}
    ]
    Credits: [
        "Toomas Vooglaid" {Drawing algorithm}
        "Lépine Kong" {Data conversion}
    ]
]    

do https://redlang.red/colors

do https://redlang.red/percentages-to-sectors

percentages-colors: [
    30.6 ocean
    19.4 turquoise
    11.1 lime
    11.1 mustard
    13.9 salmon
    13.9 purple
]

sectors: percentages-colors-to-sectors/with-labels percentages-colors
?? sectors
; sectors: [
;     [angles: -90x110 color: 61.160.255]
;     [angles: 20x70 color: 99.212.212]
;     [angles: 90x40 color: 80.202.115]
;     [angles: 130x40 color: 250.212.57]
;     [angles: 170x50 color: 242.97.123]
;     [angles: 220x50 color: 150.90.228]
; ]

dimensions: 400x400 d: dimensions
center: as-pair (d/1 / 2) (d/2 / 2) radius: as-pair (d/1 / 3) (d/2 / 3) inner-radius: 60
background-color: snow line-color: white line-thickness: 3

win: copy compose [title "Donut Chart" backdrop (background-color) at 0x0 box (dimensions)]

r: radius zoom: 1.10 drawing: copy []
foreach sector sectors [
    append drawing compose/deep/only [
        at 0x0 box (dimensions) draw [
            fill-pen (sector/color) pen (line-color) line-width (line-thickness)
            arc (center) (radius) (sector/angles/1) (sector/angles/2) closed
        ] on-over [face/draw/9: either event/away? [(radius)] [(as-pair r/1 * zoom r/2 * zoom)]]        
    ]    
]

append drawing compose/deep [box (dimensions) draw [fill-pen white pen white circle (center) (inner-radius)]]
append win drawing

view/tight win