1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
function plotframe(rect,axisdata,flags,legs,subwindow)
// plotframe - fixes scales, tics and grid on a graphic,
//%Syntax
// plotframe(rect,axisdata [,flags or leg or subwindow, ...)
//%Parameters
// rect : [xmin,ymin,xmax,ymax] data boudaries
// axisdata: [nx,mx,ny,my] mx and my x and y tics, nx,ny : x and y subtics
// flags : [quad,bounds] ou quad is a boolean if %t a grid is added
// bounds a booleen also : if bounds is %t then rect can be modified
// in order to have better scales on both axes which contains the
// rect initial data.
// subwindow : see xsetech (wrect)
//!
// Copyright INRIA
[lhs,rhs]=argn(0)
f_subwin=%f,f_flags=%f,f_legs=%f;
r_flags=[%f,%f];
if rhs == 5 then
select type(subwindow),
case 1 , r_subwin=subwindow, f_subwin=%t;
case 4 , r_flags =subwindow, f_flags =%t;
case 10, r_legs = subwindow, f_legs= %t;
end
end
if rhs >= 4 then
select type(legs),
case 1 , r_subwin=legs, f_subwin=%t;
case 4 , r_flags =legs, f_flags =%t;
case 10, r_legs = legs, f_legs= %t;
end
end
if rhs >= 3 then
select type(flags),
case 1 , r_subwin=flags, f_subwin=%t;
case 4 , r_flags =flags, f_flags =%t;
case 10, r_legs = flags, f_legs= %t;
end
end
if rhs <= 1 then
error('Wrong number of arguments ');
return;
end
if f_subwin then
xsetech(r_subwin,rect);
end
// -- trace du cadre et des echelles
if r_flags(2) then
plot2d(0,0,0,'051',' ',rect,axisdata)
else
plot2d(0,0,0,'011',' ',rect,axisdata)
end
// -- trace des legendes d'axes et du titre
if f_legs then
select prod(size(r_legs)),
case 1, xtitle(r_legs(1)),
case 2, xtitle(r_legs(1),r_legs(2)),
case 3, xtitle(r_legs(1),r_legs(2),r_legs(3));
end
end
if r_flags(1) then xgrid(); end
|
