-- Version 1.3

--[[--------------------------------------------------------------------------
This creates a boxed bar label, which defaults to the referenced bar number 
(next or prior) when no text is entered.

When the object is added to a score, the settings will default to those of the
preceding BarLabel object in the score, if one is present.
@Text
Alternate text to be displayed. When blank, the referenced bar number will be used.
@Font
The font class to be used. The default value is StaffBold.
@Scale
The scale factor for the text and box. This is a value from 5% to 400%; the
default setting is 100%. The + and - keys will increase/decrease the value by 5%.
@Which
Determines which bar the label should reference, when the bar number is used
for the label. The choices are next, prior or auto, where auto will choose the bar line
which is closest to the object. If the distance is the same, it will default to the next
bar. The default setting is next.
@Offset
An offset for the bar count. This value is added (or subtracted, if negative) to the 
bar count of the measure. The default value is 0.
--]]--------------------------------------------------------------------------

local userObjTypeName = ...
local idx = nwc.ntnidx
local drawidx = nwc.drawpos
local leftbar, rightbar
local whichList = { 'next', 'prior', 'auto' }

local object_spec = {
	{ id='Text', label='Alternate Text', type='text', default='' },
	{ id='Font', label='Font', type='enum', default='StaffBold', list=nwc.txt.TextExpressionFonts },
	{ id='Scale', label='Text Scale (%)', type='int', min=5, max=400, step=5, default=100 },
	{ id='Which', label='Reference Which Bar', type='enum', default=whichList[1], list=whichList },
	{ id='Offset', label='Offset Count', type='int', default=0 },
}

local function setFontClassScaled(font, scale, text)
	nwcdraw.setFontClass(font)
	nwcdraw.setFontSize(nwcdraw.getFontSize()*scale*.01)
	return nwcdraw.calcTextSize(text)
end

local function do_create(t)
	if idx:find('prior', 'user', userObjTypeName) then
		t.Font = idx:userProp('Font')
		t.Scale = idx:userProp('Scale')
		t.Which = idx:userProp('Which')
		t.Pos = idx:userProp('Pos')
		t.Offset = idx:userProp('Offset')
	end
end

local function do_spin(t,d)
	t.Scale = t.Scale + d*5
	t.Scale = t.Scale
end

local function do_draw(t)
	local xyar = nwcdraw.getAspectRatio()
    local _, my = nwcdraw.getMicrons()
	local which = t.Which
	if which == 'auto' then
		idx:find('prior', 'bar')
		leftbar = math.abs(idx:indexOffset())
		idx:reset()
		idx:find('next', 'bar')
		rightbar = math.abs(idx:indexOffset())
		which = leftbar < rightbar and 'prior' or 'next'
	end
	drawidx:find(which, 'bar')
	local text = t.Text == '' and drawidx:barCounter() + nwcdraw.getPageSetup('StartingBar') + t.Offset or t.Text
	local thickness = my*.3
	nwcdraw.setPen('solid', thickness)
	nwcdraw.alignText('middle', 'center')
	local w, h = setFontClassScaled(t.Font, t.Scale, text)
	local hb = h/2 + .3
	local wb = math.max(hb/xyar, w/2 + .2)
	nwcdraw.roundRect(wb, hb)
	nwcdraw.text(text)
end

return {
	spec		= object_spec,
	create		= do_create,
	spin		= do_spin,
	draw		= do_draw,
}