LVAL iview_transformation(V)
{
IVIEW_WINDOW w;
LVAL m = NULL, object;
int set = FALSE;
int vars;
object = xlgaobject();
w = (IVIEW_WINDOW) get_iview_address(object);
if (moreargs()) {
set = TRUE;
m = xlgetarg();
}
vars = IViewNumVariables(w);
if (set) {
if (m == NIL) IViewSetIdentityTransformation(w);
else {
set_internal_transformation(vars, m, NIL);
IViewSetTransformation(w, transform);
}
check_redraw(object, TRUE, TRUE);
}
else m = (IViewIsTransformed(w))
? make_transformation(IViewTransformation(w), vars) : NIL;
return(m);
}
LVAL iview_std_adjust_screen(V)
{
IVIEW_WINDOW w;
w = (IVIEW_WINDOW) get_iview_address(xlgaobject());
IViewStdAdjustScreen(w);
return(NIL);
}
LVAL iview_std_adjust_screen_point(V)
{
LVAL object;
int point;
object = xlgaobject();
point = getfixnum(xlgafixnum());
xllastarg();
IViewStdAdjustScreenPoint((IVIEW_WINDOW) get_iview_address(object), point);
return(NIL);
}
LVAL iview_scaled_range()
{
LVAL object = xlgaobject(), result;
int set = (xlargc > 1) ? TRUE : FALSE, draw;
wind = get_iview_address(object);
draw = draw_key_arg(TRUE);
range_type = 'S';
result = range();
if (set) check_redraw(object, draw, FALSE);
return(result);
}
LVAL iview_std_mark_points_in_rect(V)
{
IVIEW_WINDOW w;
int left, top, width, height;
w = (IVIEW_WINDOW) get_iview_address(xlgaobject());
left = getfixnum(xlgafixnum());
top = getfixnum(xlgafixnum());
width = getfixnum(xlgafixnum());
height = getfixnum(xlgafixnum());
xllastarg();
IViewStdMarkPointsInRect(w, left, top, width, height);
return(NIL);
}
LVAL iview_std_adjust_points_in_rect(V)
{
IVIEW_WINDOW w;
int left, top, width, height;
PointState state;
w = (IVIEW_WINDOW) get_iview_address(xlgaobject());
left = getfixnum(xlgafixnum());
top = getfixnum(xlgafixnum());
width = getfixnum(xlgafixnum());
height = getfixnum(xlgafixnum());
state = decode_point_state(xlgetarg());
xllastarg();
IViewStdAdjustPointsInRect(w, left, top, width, height, state);
return(NIL);
}
LVAL iview_rotate_2(V)
{
IVIEW_WINDOW w;
int var1, var2;
double alpha;
LVAL object;
object = xlgaobject();
w = (IVIEW_WINDOW) get_iview_address(object);
var1 = getfixnum(xlgafixnum());
var2 = getfixnum(xlgafixnum());
alpha = makefloat(xlgetarg());
IViewRotate2(w, var1, var2, alpha);
check_redraw(object, TRUE, TRUE);
return(NIL);
}
LVAL iview_apply_transformation(V)
{
IVIEW_WINDOW w;
LVAL m, b, object;
int vars;
object = xlgaobject();
w = (IVIEW_WINDOW) get_iview_address(object);
m = xlgamatrix();
if (! xlgetkeyarg(sk_basis, &b)) b = NIL;
vars = IViewNumVariables(w);
set_internal_transformation(vars, m, b);
IViewApplyTransformation(w, transform, inbasis);
check_redraw(object, TRUE, TRUE);
return(NIL);
}
LVAL iview_range(V)
{
LVAL object = xlgaobject(), result, *oldargv = NULL;
int set = (xlargc > 1) ? TRUE : FALSE, draw, oldargc = 0;
wind = (IVIEW_WINDOW) get_iview_address(object);
draw = draw_key_arg(TRUE);
range_type = 'N';
if (set) {
oldargc = xlargc;
oldargv = xlargv;
}
result = range();
if (set) {
xlargc = oldargc - 3;
xlargv = oldargv + 3;
check_redraw(object, draw, FALSE);
}
return(result);
}
static LVAL draw_data P1C(int, which)
{
IVIEW_WINDOW w;
int var1, var2, m, n;
w = (IVIEW_WINDOW) get_iview_address(xlgaobject());
var1 = getfixnum(xlgafixnum());
var2 = getfixnum(xlgafixnum());
m = getfixnum(xlgafixnum());
n = getfixnum(xlgafixnum());
xllastarg();
switch(which) {
case 'P': IViewDrawDataPoints(w, var1, var2, m, n); break;
case 'L': IViewDrawDataLines(w, var1, var2, m, n); break;
#ifdef USESTRINGS
case 'S': IViewDrawDataStrings(w, var1, var2, m, n); break;
#endif /* USESTRINGS */
}
return(NIL);
}
LVAL iview_variable_label(V)
{
wind = (IVIEW_WINDOW) get_iview_address(xlgaobject());
return(variable_label());
}
LVAL iview_screen_range(V)
{
wind = (IVIEW_WINDOW) get_iview_address(xlgaobject());
return(screen_range());
}
LVAL iview_variable_label()
{
wind = get_iview_address(xlgaobject());
return(variable_label());
}
LVAL iview_screen_range()
{
wind = get_iview_address(xlgaobject());
return(screen_range());
}
