Module:Infobox AFDO

Module documentation[view] [edit] [history] [purge]

This module should not be invoked directly; use its corresponding template instead: Template:Infobox AFDO.

Generates an infobox providing information about a given arithmetic frequency division of the octave.

Introspection summary for Module:Infobox AFDO
Functions provided (1) Line Function Params 5 infobox_AFDO (invokable) (frame)	Lua modules required (2) Variable Module Functions used infobox Module:Infobox build u Module:Utils is_prime _prime_factorization

No function descriptions were provided. The Lua code may have further information.

---

local p = {}
local u = require('Module:Utils')
local infobox = require('Module:Infobox')

function p.infobox_AFDO(frame)
	-- debug mode will disable the categories
	local debug_mode = frame.args['debug'] ~= nil
	local categories = ''
	
	local steps = frame.args['steps']
	local stepnum = tonumber(steps)
	local dualfifth = stepnum % 2 == 1
	local fifth = steps+math.ceil(steps/2)
	local special_properties = ""
	
	-- category of the main article
	--categories = categories .. '[[Category:' .. tuning .. '| ]]'
	-- category of the equal division
	--if rat.eq(et.equave, 2) then
		categories = categories .. '[[Category:AFDO|' .. string.rep ('#', string.len (stepnum)) .. ']]'
	--else
	--	categories = categories .. '[[Category:' .. et.suffix .. '|' .. string.rep ('#', string.len (et.size)) .. ']]'
	--end
	
	-- prime test
	local prime = ""
	if u.is_prime(et.size) then
		prime = " (prime)"
		if rat.eq(et.equave, 2) then
			categories = categories .. '[[Category:Prime AFDO|' .. string.rep ('#', string.len (et.size)) .. ']]'
		end
	end
	
	local infobox_data = {}
	table.insert(infobox_data, {
		'Prime factorization',
		u._prime_factorization(stepnum) .. prime
	})

	table.insert(infobox_data, {
		'Fifth',
		fifth .. '/' .. steps .. ' (' .. math.floor(math.log(fifth/steps)/math.log(2) * 1200 * 1000)/1000 .. 'c)'
	})

    if(dualfifth) then
    	table.insert(infobox_data, {
		'Dual sharp fifth',
		fifth .. '/' .. steps .. ' (' .. math.floor(math.log(fifth/steps)/math.log(2) * 1200 * 1000)/1000 .. 'c)'
		})    
		table.insert(infobox_data, {
		'Dual flat fifth',
		(fifth-1) .. '/' .. steps .. ' (' .. math.floor(math.log((fifth-1)/steps)/math.log(2) * 1200 * 1000)/1000 .. 'c)'
		})
    end

   if(special_properties ~= "") then
   		table.insert(infobox_data, {'Special properties', special_properties})
   	end

	local result = infobox.build(
		'<-<small>&nbsp;[[' .. (steps - 1).. 'afdo]]&nbsp;</small>' .. '[[' .. steps .. 'afdo]]' .. '<small>&nbsp;[[' .. (steps + 1).. 'afdo]]&nbsp;-></small>',
		infobox_data
	)
	
	if not debug_mode then
		result = result .. categories
	end
	return result
end

return p