diff options
Diffstat (limited to 'lib/tv/src/tv_pd_scale.erl')
| -rw-r--r-- | lib/tv/src/tv_pd_scale.erl | 303 |
1 files changed, 303 insertions, 0 deletions
diff --git a/lib/tv/src/tv_pd_scale.erl b/lib/tv/src/tv_pd_scale.erl new file mode 100644 index 0000000000..c94e57f468 --- /dev/null +++ b/lib/tv/src/tv_pd_scale.erl @@ -0,0 +1,303 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 1997-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% +%%%********************************************************************* +%%% +%%% Description: Part of pd controlling the scale, i.e., the scrollbar +%%% imitation. +%%% +%%%********************************************************************* + + +-module(tv_pd_scale). + + + +-export([init_scale/2, + resize_scale/2, + set_scale_range/3, + set_scale_pos/3]). + + + +-include("tv_int_def.hrl"). +-include("tv_pd_int_def.hrl"). + + + + + + +%%%********************************************************************* +%%% EXTERNAL FUNCTIONS +%%%********************************************************************* + + + + +%%====================================================================== +%% Function: +%% +%% Return Value: +%% +%% Description: +%% +%% Parameters: +%%====================================================================== + + +init_scale(FrameP, ScaleP) -> + #frame_params{sheet_frame_id = SheetFrameId, + sheet_frame_width = SheetFrameWidth, + sheet_frame_height = SheetFrameHeight, + grid_frame_width = GridFrameWidth, + grid_frame_height = GridFrameHeight} = FrameP, + + VScaleId = create_scale(vscale, SheetFrameId, SheetFrameWidth, GridFrameHeight), + HScaleId = create_scale(hscale, SheetFrameId, GridFrameWidth, SheetFrameHeight), + + ScaleP#scale_params{vscale_id = VScaleId, + vscale_pos = 0, + hscale_id = HScaleId, + hscale_pos = 0 + }. + + + + + + + +%%====================================================================== +%% Function: +%% +%% Return Value: +%% +%% Description: +%% +%% Parameters: +%%====================================================================== + + +resize_scale(FrameP, ScaleP) -> + #frame_params{sheet_frame_width = SheetFrameWidth, + sheet_frame_height = SheetFrameHeight, + grid_frame_width = GridFrameWidth, + grid_frame_height = GridFrameHeight} = FrameP, + + #scale_params{vscale_id = VScaleId, + hscale_id = HScaleId} = ScaleP, + + config_scale(vscale, VScaleId, SheetFrameWidth, GridFrameHeight), + config_scale(hscale, HScaleId, GridFrameWidth, SheetFrameHeight), + ScaleP. + + + + + + + + + +%%====================================================================== +%% Function: +%% +%% Return Value: +%% +%% Description: +%% +%% Parameters: +%%====================================================================== + + +set_scale_range(vscale, Range, ScaleP) -> + {Lo, Hi} = Range, + NewRange = if + Lo > Hi -> + {Hi, Hi}; + true -> + Range + end, + VScaleId = ScaleP#scale_params.vscale_id, + gs:config(VScaleId, [{range, NewRange}]); +set_scale_range(hscale, Range, ScaleP) -> + {Lo, Hi} = Range, + NewRange = if + Lo > Hi -> + {Hi, Hi}; + true -> + Range + end, + HScaleId = ScaleP#scale_params.hscale_id, + gs:config(HScaleId, [{range, NewRange}]). + + + + + + + + +%%====================================================================== +%% Function: +%% +%% Return Value: +%% +%% Description: +%% +%% Parameters: +%%====================================================================== + + +set_scale_pos(_ScaleName, undefined, ScaleP) -> + ScaleP; +set_scale_pos(vscale, NewPos, ScaleP) -> + ScaleId = ScaleP#scale_params.vscale_id, + gs:config(ScaleId, [{pos, NewPos}]), + ScaleP#scale_params{vscale_pos = NewPos}; +set_scale_pos(hscale, NewPos, ScaleP) -> + ScaleId = ScaleP#scale_params.hscale_id, + gs:config(ScaleId, [{pos, NewPos}]), + ScaleP#scale_params{hscale_pos = NewPos}. + + + + + + + +%%%******************************************************************** +%%% INTERNAL FUNCTIONS +%%%******************************************************************** + + + + + + +%%====================================================================== +%% Function: +%% +%% Return Value: +%% +%% Description: +%% +%% Parameters: +%%====================================================================== + + +config_scale(ScaleName, ScaleId, FrameWidth, FrameHeight) -> + {Width, Height, Xpos, Ypos} = get_scale_coords(ScaleName, + FrameWidth, + FrameHeight), + gs:config(ScaleId, [{height, Height}, + {width, Width}, + {x, Xpos}, + {y, Ypos} + ]). + + + + + + + + + +%%====================================================================== +%% Function: +%% +%% Return Value: +%% +%% Description: +%% +%% Parameters: +%%====================================================================== + + +create_scale(ScaleName, FrameId, FrameWidth, FrameHeight) -> + {Width, Height, Xpos, Ypos} = get_scale_coords(ScaleName, + FrameWidth, + FrameHeight), + {Orientation, Range} = case ScaleName of + vscale -> + {vertical, {1, 1}}; + hscale -> + {horizontal, {1, 1}} + end, + gs:scale(FrameId, [{data, ScaleName}, + {orient, Orientation}, + {buttonpress, true}, + {buttonrelease, true}, + {height, Height}, + {width, Width}, + {x, Xpos}, + {y, Ypos}, + {bg, ?DEFAULT_BG_COLOR}, + {fg, {0, 0, 0}}, + {range, Range} + ]). + + + + + + + +%%====================================================================== +%% Function: +%% +%% Return Value: +%% +%% Description: +%% +%% Parameters: +%%====================================================================== + + +get_scale_coords(hscale, FrameWidth, FrameHeight) -> + Height = ?HSCALE_HEIGHT, + Xpos = ?VBTN_WIDTH - 3, % Subtracting 3 makes it look better! + Ypos = FrameHeight - Height, + Width = FrameWidth - Xpos + 5, % Adding 5 for better look! + {Width, Height, Xpos, Ypos}; +get_scale_coords(vscale, FrameWidth, FrameHeight) -> + Width = ?VSCALE_WIDTH, + Xpos = (FrameWidth - Width), + Ypos = ?HBTN_HEIGHT - 3, % Subtracting 3 makes it look better! + Height = FrameHeight - Ypos + 5, % Adding 5 for better look! + {Width, Height, Xpos, Ypos}. + + + + + + + + + + + + + + + + + + + |