require 'cairo'
--[[ EQUALIZER WIDGET
v1.1 by wlourf (13 Feb. 2010)
This widget draw a simple bar like (old) equalizers on hi-fi systems.
http://u-scripts.blogspot.com/ The arguments are :
- "name" is the type of stat to display; you can choose from 'cpu', 'memperc', 'fs_used_perc', 'battery_used_perc'...
or you can set it to "" if you want to display a numeric value with arg=numeric_value
- "arg" is the argument to the stat type, e.g. if in Conky you would write ${cpu cpu0}, 'cpu0' would be the argument.
If you would not use an argument in the Conky variable, use ''.
- "max" is the maximum value of the bar. If the Conky variable outputs a percentage, use 100.
- "nb_blocks" is the umber of block to draw
- "cap" id the cap of a block, possibles values are CAIRO_LINE_CAP_ROUND , CAIRO_LINE_CAP_SQUARE or CAIRO_LINE_CAP_BUTT
see
http://www.cairographics.org/samples/set_line_cap/ - "xb" and "yb" are the coordinates of the bottom left point of the bar
- "w" and "h" are the width and the height of a block (without caps)
- "space" is the space betwwen two blocks, can be null or negative
- "bgc" and "bga" are background colors and alpha when the block is not LIGHT OFF
- "fgc" and "fga" are foreground colors and alpha when the block is not LIGHT ON
- "alc" and "ala" are foreground colors and alpha when the block is not LIGHT ON and ALARM ON
- "alarm" is the value where blocks LIGHT ON are in a different color (values from 0 to 100)
- "led_effect" true or false : to show a block with a led effect
- "led_alpha" alpha of the center of the led (values from 0 to 1)
- "smooth" true or false : colors in the bar has a smooth effect
- "mid_color",mid_alpha" : colors of the center of the bar (mid_color can to be set to nil)
- "rotation" : angle of rotation of the bar (values are 0 to 360 degrees). 0 = vertical bar, 90 = horizontal bar
v1.0 (10 Feb. 2010) original release
v1.1 (13 Feb. 2010) numeric values can be passed instead conky stats with parameters name="", arg = numeric_value
]]
function equalizer(name, arg, max, nb_blocks, cap, xb, yb, w, h, space, bgc, bga, fgc, fga,alc,ala,alarm,led_effect,led_alpha,smooth,mid_color,mid_alpha,rotation)
local function rgb_to_r_g_b(colour, alpha)
return ((colour / 0x10000) % 0x100) / 255., ((colour / 0x100) % 0x100) / 255., (colour % 0x100) / 255., alpha
end
local function setup_equalizer()
local value = 0
if name ~="" then
local str = conky_parse(string.format('${%s %s}', name, arg))
value = tonumber(str)
else
value = arg
end
if value==nil then value =0 end
local pct = 100*value/max
local pcb = 100/nb_blocks
cairo_set_line_width (cr, h)
cairo_set_line_cap (cr, cap)
local angle= rotation*math.pi/180
for pt = 1,nb_blocks do
local light_on=false
--set colors
local col,alpha = bgc,bga
if pct>=(100/nb_blocks/2) then --start after an half bloc
if pct>=(pcb*(pt-1)) then
light_on=true
col,alpha = fgc,fga
if pct>=alarm and (pcb*pt)>alarm then col,alpha = alc,ala end
end
end
--vertical points
local x1=xb
local y1=yb-pt*(h+space)
local radius0 = yb-y1
local x2=xb+radius0*math.sin(angle)
local y2=yb-radius0*math.cos(angle)
--line on angle
local a1=(y2-yb)/(x2-xb)
local b1=y2-a1*x2
--line perpendicular to angle
local a2=-1/a1
local b2=y2-a2*x2
--dots on perpendicular
local xx0,xx1,yy0,yy1=0,0,0,0
if rotation == 90 or rotation == 270 then
xx0,xx1=x2,x2
yy0=yb
yy1=yb+w
else
xx0,xx1=x2,x2+w*math.cos(angle)
yy0=xx0*a2+b2
yy1=xx1*a2+b2
end
--perpendicular segment
cairo_move_to (cr, xx0 ,yy0)
cairo_line_to (cr, xx1 ,yy1)
--colors
local xc,yc=(xx0+xx1)/2,(yy0+yy1)/2
if light_on and led_effect then
local pat = cairo_pattern_create_radial (xc, yc, 0, xc,yc,w/1.5)
cairo_pattern_add_color_stop_rgba (pat, 0, rgb_to_r_g_b(col,led_alpha))
cairo_pattern_add_color_stop_rgba (pat, 1, rgb_to_r_g_b(col,alpha))
cairo_set_source (cr, pat)
cairo_pattern_destroy(pat)
else
cairo_set_source_rgba(cr, rgb_to_r_g_b(col,alpha))
end
if light_on and smooth then
local radius = (nb_blocks+1)*(h+space)
if pt==1 then
xc0,yc0=xc,yc --remember the center of first block
end
cairo_move_to(cr,xc0,yc0)
local pat = cairo_pattern_create_radial (xc0, yc0, 0, xc0,yc0,radius)
cairo_pattern_add_color_stop_rgba (pat, 0, rgb_to_r_g_b(fgc,fga))
cairo_pattern_add_color_stop_rgba (pat, 1, rgb_to_r_g_b(alc,ala))
if mid_color ~=nil then
cairo_pattern_add_color_stop_rgba (pat, 0.5,rgb_to_r_g_b(mid_color,mid_alpha))
end
cairo_set_source (cr, pat)
cairo_pattern_destroy(pat)
end
cairo_stroke (cr);
end
end
--prevent segmentation error
local updates=tonumber(conky_parse('${updates}'))
if updates> 3 then
setup_equalizer()
end
end
function conky_main()
if conky_window == nil then return end
local cs = cairo_xlib_surface_create(conky_window.display, conky_window.drawable, conky_window.visual, conky_window.width, conky_window.height)
cr = cairo_create(cs)
local x0 = 10, conky_window.height-10
local y0 = 190
local blocks = 20
local cap_round = CAIRO_LINE_CAP_ROUND
local cap_square = CAIRO_LINE_CAP_SQUARE
local cap_butt = CAIRO_LINE_CAP_BUTT
local w,h=5,5
local s=1
local bgc,bga = 0xffffff, 0.215
local fgc,fga = 0xA1CCD4, 1
local alc,ala = 0xCBEBF3, 1
local mid_color,mid_alpha = 0xB6E8EC, 1.0
local led_effect, led_alpha = true , 1.0
local alarm = 50
local smooth = true
local updates=tonumber(conky_parse('${updates}'))
if updates==1 then
len_t=57
t1={}
t2={}
t3={}
len_t2=3
len_t3=1
end
if updates> 3 then
for i = 1, tonumber(len_t) do
if t1[i+1]==nil then t1[i+1]=0 end
if t2[i+1]==nil then t2[i+1]=0 end
t1[i]=t1[i+1]
t2[i]=t2[i+1]
if i==len_t then
t1[len_t]=tonumber(conky_parse('${cpu}'))
t2[len_t]=tonumber(conky_parse('${cpu cpu1}'))
t3[len_t]=tonumber(conky_parse('${memperc}'))
end
--(reminder
--(name, arg, max, nb_blocks, cap, xb, yb, w, h, space, bgc, bga, fgc, fga,alc,ala,alarm,led_effect,led_alpha,smooth,mid_color,mid_alpha,rotation)
equalizer('', t1[i], 100, blocks, cap_round, 125+i*5+2, y0+4,0,h,s,bgc,bga, fgc,fga, alc,ala, 75, led_effect, led_alpha,smooth,mid_color,mid_alpha,0)
-- equalizer('', t3[i], 100, blocks, cap_round, 100, y0-i,0,h,s,bgc,bga, fgc,fga, alc,ala, 75, led_effect, led_alpha,smooth,mid_color,mid_alpha,0)
-- equalizer('', t3[i], 100, blocks, cap_round, 106, y0-i,0,h,s,bgc,bga, fgc,fga, alc,ala, 75, led_effect, led_alpha,smooth,mid_color,mid_alpha,0)
end
for i = 1, len_t3 do
if t3[i+1]==nil then t3[i+1]=0 end
t3[i]=t3[i+1]
if i==len_t3 then
t3[len_t3]=tonumber(conky_parse('${memperc}'))
end
--(name, arg, max, nb_blocks, cap, xb, yb, w, h, space, bgc, bga, fgc, fga,alc,ala,alarm,led_effect,led_alpha,smooth,mid_color,mid_alpha,rotation)
-- equalizer('', 0, 100, blocks, cap_round, 429, y0+3,0,h,s,0xFFFFFF,0.001, fgc,fga, alc,ala, 75, led_effect, led_alpha,smooth,mid_color,mid_alpha,0)
-- equalizer('', t3[i], 100, blocks, cap_round, 435, y0+3,0,h,s,0xFFFFFF,0.001, fgc,fga, alc,ala, 75, led_effect, led_alpha,smooth,mid_color,mid_alpha,0)
-- equalizer('', t3[i], 100, blocks, cap_round, 441 , y0+3,0,h,s,0xFFFFFF,0.001, fgc,fga, alc,ala, 75, led_effect, led_alpha,smooth,mid_color,mid_alpha,0)
--equalizer('', t3[i], 100, blocks, cap_round, 447, y0+3,0,h,s,0xFFFFFF,0.001, fgc,fga, alc,ala, 75, led_effect, led_alpha,smooth,mid_color,mid_alpha,0)
end
end
cairo_destroy(cr)
cairo_surface_destroy(cs)
end