Triangle à coins arrondis

rem ============================================================================
rem      Triangle à coins arrondis
rem ============================================================================
width 0,1000
Triangle_Coins_Arrondis(200,250,200,10,255,0,255)
Triangle_Coins_Arrondis(450,250,100,20,100,50,20)
Triangle_Coins_Arrondis(600,250,050,10,0,255,255)
Triangle_Coins_Arrondis(800,250,240,50,0,0,255)
Triangle_Coins_Arrondis(550,150,80,20,0,0,0)
end
rem ============================================================================
' Tracer un triangle équilateral plein à coins arrondis
' xcentre,ycentre : coordonnées du centre du triangle
' rayon : distance du centre du triangle aux sommets
' courbure : rayon de l'arrondi
' r,g,b : couleur de remplissage du triangle
SUB Triangle_Coins_Arrondis(xcentre,ycentre,rayon,courbure,r,g,b)
    dim_local xp,yp,i,r1,r2,r3,cr,cg,cb
    cr = COLOR_PIXEL_RED(0,Xcentre,Ycentre)
    cg = COLOR_PIXEL_GREEN(0,Xcentre,Ycentre)
    cb = COLOR_PIXEL_BLUE(0,Xcentre,Ycentre)
    r1 = courbure : r3 =  sqr(3) : r2 = r1*r3
    degrees
    xp = rayon * Cos(-90) + xcentre : yp = rayon * Sin(-90) + ycentre
    2d_fill_color r,g,b : 2d_pen_color r,g,b : 2d_poly_from xp,yp
    for i = 1 to 3
        xp = xcentre + rayon * Cos(120 * i - 90)
        yp = ycentre + rayon * sin(120 * i - 90)
        2D_poly_to xp,yp
        if i = 1 then 2d_circle xp-r2,yp-r1,r1
        if i = 2 then 2d_circle xp+r2,yp-r1,r1
    next i
    2d_circle xp,yp+2*r1,r1 : 2d_flood xcentre,ycentre,r,g,b
    2d_pen_color cr,cg,cb
    for i = 1 to 3
        xp = xcentre + rayon * Cos(120 * i - 90)
        yp = ycentre + rayon * sin(120 * i - 90)
        2D_poly_to xp,yp
    next i
END_SUB
rem ============================================================================