label tag

julialabeltags.jl

using Luxor

function drawtag(w, h, pos;
    ratio    = 0.2,
    rotation = 0)
    @layer begin
        translate(pos)
        rotate(rotation)
        shape = box(O + (w/4, 0), w, h, vertices=true)
        # need point middle/left of box
        insert!(shape, 2, midpoint(shape[1], shape[2]))
        ratio = h/2 / w
        # move left corners along
        shape[3] = between(shape[3], shape[4], ratio)
        shape[1] = between(shape[1], shape[5], ratio)
        newpath()
        polysmooth(shape, 5, :path)
        newsubpath()
        circlepath(O, h/6, :path)
        fillpath()
    end
end

Drawing(500, 500, "/tmp/tagbot.svg")
background(0, 0, 0, 0)
origin()
darkercols =  [Luxor.darker_red, Luxor.darker_green, Luxor.darker_purple, ]
lightercols = [Luxor.lighter_red, Luxor.lighter_green,  Luxor.lighter_purple,]
translate(0, 40)
juliacircleradius = 140
setline(10)
for (k, pos) in enumerate(ngon(O, juliacircleradius, 3, π/6, vertices=true))
    setcolor(lightercols[k])
    circle(pos, 100, :fill)
    setcolor(darkercols[k])
    circle(pos, 100, :stroke)
    setcolor("white")
    drawtag(100, 100/MathConstants.golden, pos - (20, 20), rotation=π/4)
end
finish()
preview()