aboutsummaryrefslogtreecommitdiffstats
path: root/lib/percept/src/percept_image.erl
diff options
context:
space:
mode:
authorErlang/OTP <[email protected]>2009-11-20 14:54:40 +0000
committerErlang/OTP <[email protected]>2009-11-20 14:54:40 +0000
commit84adefa331c4159d432d22840663c38f155cd4c1 (patch)
treebff9a9c66adda4df2106dfd0e5c053ab182a12bd /lib/percept/src/percept_image.erl
downloadotp-84adefa331c4159d432d22840663c38f155cd4c1.tar.gz
otp-84adefa331c4159d432d22840663c38f155cd4c1.tar.bz2
otp-84adefa331c4159d432d22840663c38f155cd4c1.zip
The R13B03 release.OTP_R13B03
Diffstat (limited to 'lib/percept/src/percept_image.erl')
-rw-r--r--lib/percept/src/percept_image.erl315
1 files changed, 315 insertions, 0 deletions
diff --git a/lib/percept/src/percept_image.erl b/lib/percept/src/percept_image.erl
new file mode 100644
index 0000000000..5baedabecf
--- /dev/null
+++ b/lib/percept/src/percept_image.erl
@@ -0,0 +1,315 @@
+%%
+%% %CopyrightBegin%
+%%
+%% Copyright Ericsson AB 2007-2009. All Rights Reserved.
+%%
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%%
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%%
+%% %CopyrightEnd%
+
+-module(percept_image).
+-export([ proc_lifetime/5,
+ percentage/3,
+ graph/3,
+ graph/4,
+ activities/3,
+ activities/4]).
+-record(graph_area, {x = 0, y = 0, width, height}).
+-compile(inline).
+
+%%% -------------------------------------
+%%% GRAF
+%%% -------------------------------------
+
+%% graph(Widht, Height, Range, Data)
+
+graph(Width, Height, {RXmin, RYmin, RXmax, RYmax}, Data) ->
+ Data2 = [{X, Y1 + Y2} || {X, Y1, Y2} <- Data],
+ MinMax = percept_analyzer:minmax(Data2),
+ {Xmin, Ymin, Xmax, Ymax} = MinMax,
+ graf1(Width, Height,{ lists:min([RXmin, Xmin]),
+ lists:min([RYmin, Ymin]),
+ lists:max([RXmax, Xmax]),
+ lists:max([RYmax, Ymax])}, Data).
+
+%% graph(Widht, Height, Data) = Image
+%% In:
+%% Width = integer(),
+%% Height = integer(),
+%% Data = [{Time, Procs, Ports}]
+%% Time = float()
+%% Procs = integer()
+%% Ports = integer()
+%% Out:
+%% Image = binary()
+
+graph(Width, Height, Data) ->
+ Data2 = [{X, Y1 + Y2} || {X, Y1, Y2} <- Data],
+ Bounds = percept_analyzer:minmax(Data2),
+ graf1(Width, Height, Bounds, Data).
+
+graf1(Width, Height, {Xmin, Ymin, Xmax, Ymax}, Data) ->
+ % Calculate areas
+ HO = 20,
+ GrafArea = #graph_area{x = HO, y = 4, width = Width - 2*HO, height = Height - 17},
+ XticksArea = #graph_area{x = HO, y = Height - 13, width = Width - 2*HO, height = 13},
+ YticksArea = #graph_area{x = 1, y = 4, width = HO, height = Height - 17},
+
+ %% Initiate Image
+
+ Image = egd:create(Width, Height),
+
+ %% Set colors
+
+ Black = egd:color(Image, {0, 0, 0}),
+ ProcColor = egd:color(Image, {0, 255, 0}),
+ PortColor = egd:color(Image, {255, 0, 0}),
+
+ %% Draw graf, xticks and yticks
+ draw_graf(Image, Data, {Black, ProcColor, PortColor}, GrafArea, {Xmin, Ymin, Xmax, Ymax}),
+ draw_xticks(Image, Black, XticksArea, {Xmin, Xmax}, Data),
+ draw_yticks(Image, Black, YticksArea, {Ymin, Ymax}),
+
+ %% Kill image and return binaries
+ Binary = egd:render(Image, png),
+ egd:destroy(Image),
+ Binary.
+
+%% draw_graf(Image, Data, Color, GraphArea, DataBounds)
+%% Image, port to Image
+%% Data, list of three tuple data, (X, Y1, Y2)
+%% Color, {ForegroundColor, ProcFillColor, PortFillColor}
+%% DataBounds, {Xmin, Ymin, Xmax, Ymax}
+
+draw_graf(Im, Data, Colors, GA = #graph_area{x = X0, y = Y0, width = Width, height = Height}, {Xmin, _Ymin, Xmax, Ymax}) ->
+ Dx = (Width)/(Xmax - Xmin),
+ Dy = (Height)/(Ymax),
+ Plotdata = [{trunc(X0 + X*Dx - Xmin*Dx), trunc(Y0 + Height - Y1*Dy), trunc(Y0 + Height - (Y1 + Y2)*Dy)} || {X, Y1, Y2} <- Data],
+ draw_graf(Im, Plotdata, Colors, GA).
+
+draw_graf(Im, [{X1, Yproc1, Yport1}, {X2, Yproc2, Yport2}|Data], C, GA) when X2 - X1 < 1 ->
+ draw_graf(Im, [{X1, [{Yproc2, Yport2},{Yproc1, Yport1}]}|Data], C, GA);
+
+draw_graf(Im, [{X1, Ys1}, {X2, Yproc2, Yport2}|Data], C, GA) when X2 - X1 < 1, is_list(Ys1) ->
+ draw_graf(Im, [{X1, [{Yproc2, Yport2}|Ys1]}|Data], C, GA);
+
+draw_graf(Im, [{X1, Yproc1, Yport1}, {X2, Yproc2, Yport2}|Data], C = {B, PrC, PoC}, GA = #graph_area{y = Y0, height = H}) ->
+ GyZero = trunc(Y0 + H),
+ egd:filledRectangle(Im, {X1, GyZero}, {X2, Yproc1}, PrC),
+ egd:filledRectangle(Im, {X1, Yproc1}, {X2, Yport1}, PoC),
+ egd:line(Im, {X1, Yport1}, {X2, Yport1}, B), % top line
+ egd:line(Im, {X1, Yport2}, {X1, Yport1}, B), % right line
+ egd:line(Im, {X2, Yport1}, {X2, Yport2}, B), % right line
+ draw_graf(Im, [{X2, Yproc2, Yport2}|Data], C, GA);
+
+draw_graf(Im, [{X1, Ys1 = [{Yproc1,Yport1}|_]}, {X2, Yproc2, Yport2}|Data], C = {B, PrC, PoC}, GA = #graph_area{y = Y0, height = H}) ->
+ GyZero = trunc(Y0 + H),
+ Yprocs = [Yp || {Yp, _} <- Ys1],
+ Yports = [Yp || {_, Yp} <- Ys1],
+
+ YprMin = lists:min(Yprocs),
+ YprMax = lists:max(Yprocs),
+ YpoMax = lists:max(Yports),
+ egd:filledRectangle(Im, {X1, GyZero}, {X2, Yproc1}, PrC),
+ egd:filledRectangle(Im, {X1, Yproc1}, {X2, Yport1}, PoC),
+ egd:filledRectangle(Im, {X1, Yport1}, {X2, Yport1}, B), % top line
+ egd:filledRectangle(Im, {X2, Yport1}, {X2, Yport2}, B), % right line
+
+ egd:filledRectangle(Im, {X1, GyZero}, {X1, YprMin}, PrC), % left proc green line
+ egd:filledRectangle(Im, {X1, YprMax}, {X1, YpoMax}, PoC), % left port line
+ egd:filledRectangle(Im, {X1, YprMax}, {X1, YprMin}, B),
+
+ draw_graf(Im, [{X2, Yproc2, Yport2}|Data], C, GA);
+draw_graf(_, _, _, _) -> ok.
+
+draw_xticks(Image, Color, XticksArea, {Xmin, Xmax}, Data) ->
+ #graph_area{x = X0, y = Y0, width = Width} = XticksArea,
+
+ DX = Width/(Xmax - Xmin),
+ Offset = X0 - Xmin*DX,
+ Y = trunc(Y0),
+ Font = load_font(),
+ {FontW, _FontH} = egd_font:size(Font),
+ egd:filledRectangle(Image, {trunc(X0), Y}, {trunc(X0 + Width), Y}, Color),
+ lists:foldl(
+ fun ({X,_,_}, PX) ->
+ X1 = trunc(Offset + X*DX),
+
+ % Optimization:
+ % if offset has past half the previous text
+ % start checking this text
+
+ if
+ X1 > PX ->
+ Text = lists:flatten(io_lib:format("~.3f", [float(X)])),
+ TextLength = length(Text),
+ TextWidth = TextLength*FontW,
+ Spacing = 2,
+ if
+ X1 > PX + round(TextWidth/2) + Spacing ->
+ egd:line(Image, {X1, Y - 3}, {X1, Y + 3}, Color),
+ text(Image, {X1 - round(TextWidth/2), Y + 2}, Font, Text, Color),
+ X1 + round(TextWidth/2) + Spacing;
+ true ->
+ PX
+ end;
+ true ->
+ PX
+ end
+ end, 0, Data).
+
+draw_yticks(Im, Color, TickArea, {_,Ymax}) ->
+ #graph_area{x = X0, y = Y0, width = Width, height = Height} = TickArea,
+ Font = load_font(),
+ X = trunc(X0 + Width),
+ Dy = (Height)/(Ymax),
+ Yts = if
+ Height/(Ymax*12) < 1.0 -> round(1 + Ymax*15/Height);
+ true -> 1
+ end,
+ egd:filledRectangle(Im, {X, trunc(0 + Y0)}, {X, trunc(Y0 + Height)}, Color),
+ draw_yticks0(Im, Font, Color, 0, Yts, Ymax, {X, Height, Dy}).
+
+draw_yticks0(Im, Font, Color, Yi, Yts, Ymax, Area) when Yi < Ymax ->
+ {X, Height, Dy} = Area,
+ Y = round(Height - (Yi*Dy) + 3),
+
+ egd:filledRectangle(Im, {X - 3, Y}, {X + 3, Y}, Color),
+ Text = lists:flatten(io_lib:format("~p", [Yi])),
+ text(Im, {0, Y - 4}, Font, Text, Color),
+ draw_yticks0(Im, Font, Color, Yi + Yts, Yts, Ymax, Area);
+draw_yticks0(_, _, _, _, _, _, _) -> ok.
+
+%%% -------------------------------------
+%%% ACTIVITIES
+%%% -------------------------------------
+
+%% activities(Width, Height, Range, Activities) -> Binary
+%% In:
+%% Width = integer()
+%% Height = integer()
+%% Range = {float(), float()}
+%% Activities = [{float(), active | inactive}]
+%% Out:
+%% Binary = binary()
+
+activities(Width, Height, {UXmin, UXmax}, Activities) ->
+ Xs = [ X || {X,_} <- Activities],
+ Xmin = lists:min(Xs),
+ Xmax = lists:max(Xs),
+ activities0(Width, Height, {lists:min([Xmin, UXmin]), lists:max([UXmax, Xmax])}, Activities).
+
+activities(Width, Height, Activities) ->
+ Xs = [ X || {X,_} <- Activities],
+ Xmin = lists:min(Xs),
+ Xmax = lists:max(Xs),
+ activities0(Width, Height, {Xmin, Xmax}, Activities).
+
+activities0(Width, Height, {Xmin, Xmax}, Activities) ->
+ Image = egd:create(Width, Height),
+ Grey = egd:color(Image, {200, 200, 200}),
+ HO = 20,
+ ActivityArea = #graph_area{x = HO, y = 0, width = Width - 2*HO, height = Height},
+ egd:filledRectangle(Image, {0, 0}, {Width, Height}, Grey),
+ draw_activity(Image, {Xmin, Xmax}, ActivityArea, Activities),
+ Binary = egd:render(Image, png),
+ egd:destroy(Image),
+ Binary.
+
+draw_activity(Image, {Xmin, Xmax}, Area = #graph_area{ width = Width }, Acts) ->
+ White = egd:color({255, 255, 255}),
+ Green = egd:color({0,250, 0}),
+ Black = egd:color({0, 0, 0}),
+
+ Dx = Width/(Xmax - Xmin),
+
+ draw_activity(Image, {Xmin, Xmax}, Area, {White, Green, Black}, Dx, Acts).
+
+draw_activity(_, _, _, _, _, [_]) -> ok;
+draw_activity(Image, {Xmin, Xmax}, Area = #graph_area{ height = Height, x = X0 }, {Cw, Cg, Cb}, Dx, [{Xa1, State}, {Xa2, Act2} | Acts]) ->
+ X1 = erlang:trunc(X0 + Dx*Xa1 - Xmin*Dx),
+ X2 = erlang:trunc(X0 + Dx*Xa2 - Xmin*Dx),
+
+ case State of
+ inactive ->
+ egd:filledRectangle(Image, {X1, 0}, {X2, Height - 1}, Cw),
+ egd:rectangle(Image, {X1, 0}, {X2, Height - 1}, Cb);
+ active ->
+ egd:filledRectangle(Image, {X1, 0}, {X2, Height - 1}, Cg),
+ egd:rectangle(Image, {X1, 0}, {X2, Height - 1}, Cb)
+ end,
+ draw_activity(Image, {Xmin, Xmax}, Area, {Cw, Cg, Cb}, Dx, [{Xa2, Act2} | Acts]).
+
+
+
+%%% -------------------------------------
+%%% Process lifetime
+%%% Used by processes page
+%%% -------------------------------------
+
+proc_lifetime(Width, Height, Start, End, ProfileTime) ->
+ Im = egd:create(round(Width), round(Height)),
+ Black = egd:color(Im, {0, 0, 0}),
+ Green = egd:color(Im, {0, 255, 0}),
+
+ % Ratio and coordinates
+
+ DX = (Width-1)/ProfileTime,
+ X1 = round(DX*Start),
+ X2 = round(DX*End),
+
+ % Paint
+ egd:filledRectangle(Im, {X1, 0}, {X2, Height - 1}, Green),
+ egd:rectangle(Im, {X1, 0}, {X2, Height - 1}, Black),
+
+ Binary = egd:render(Im, png),
+ egd:destroy(Im),
+ Binary.
+
+%%% -------------------------------------
+%%% Percentage
+%%% Used by process_info page
+%%% Percentage should be 0.0 -> 1.0
+%%% -------------------------------------
+percentage(Width, Height, Percentage) ->
+ Im = egd:create(round(Width), round(Height)),
+ Font = load_font(),
+ Black = egd:color(Im, {0, 0, 0}),
+ Green = egd:color(Im, {0, 255, 0}),
+
+ % Ratio and coordinates
+
+ X = round(Width - 1 - Percentage*(Width - 1)),
+
+ % Paint
+ egd:filledRectangle(Im, {X, 0}, {Width - 1, Height - 1}, Green),
+ {FontW, _} = egd_font:size(Font),
+ String = lists:flatten(io_lib:format("~.10B %", [round(100*Percentage)])),
+
+ text( Im,
+ {round(Width/2 - (FontW*length(String)/2)), 0},
+ Font,
+ String,
+ Black),
+ egd:rectangle(Im, {X, 0}, {Width - 1, Height - 1}, Black),
+
+ Binary = egd:render(Im, png),
+ egd:destroy(Im),
+ Binary.
+
+
+load_font() ->
+ Filename = filename:join([code:priv_dir(percept),"fonts", "6x11_latin1.wingsfont"]),
+ egd_font:load(Filename).
+
+text(Image, {X,Y}, Font, Text, Color) ->
+ egd:text(Image, {X,Y-2}, Font, Text, Color).