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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
mode(-1)
xbasc() ;
xset('color',2)
wrect=[0.2 0.1 0.6 0.6] ;
frect=[0 -1 10 1] ;// coordonnees utilsateurs
dx=frect(3)-frect(1) ;ex=0.07*dx
dy=frect(4)-frect(2) ;ey=0.07*dy
f=1/7 ;arect=ones(4,1)*f
xsetech(wrect=wrect,frect=frect,arect=arect)
xset('thickness',3)
L=dx/(1-2*f)
H=dy/(1-2*f)
Lt=L/wrect(3)
Ht=H/wrect(4)
//Full window rectangle
//=====================
xrect(frect(1)-f*L-wrect(1)*Lt+0.03,frect(4)+f*H+wrect(2)*Ht-0.01,Lt-0.06,Ht-0.04)
xstring(frect(1)-f*L-wrect(1)*Lt+ex/2,frect(4)+f*H+wrect(2)*Ht-Ht+ey,'(0,0)')
xstring(frect(1)-f*L-wrect(1)*Lt+ex/2,frect(4)+f*H+wrect(2)*Ht-2*ey,'(0,1)')
xstring(frect(1)-f*L-wrect(1)*Lt+Lt-2*ex,frect(4)+f*H+wrect(2)*Ht-Ht+ey,'(1,0)')
//Draw wrect relatives
//===================
xset('thickness',1) ;xset('color',2)
//origin
xsegs([frect(1)-f*L-wrect(1)*Lt ;frect(1)-f*L],..
[frect(2)-f*H ;frect(2)-f*H]) ;
xstring(frect(1)-f*L-wrect(1)*Lt+ex,frect(2)-f*H,'xleft')
xsegs([frect(1)-f*L;frect(1)-f*L],..
[frect(2)-f*H+H ;frect(4)+f*H+wrect(2)*Ht]) ;
xstring(frect(1)-f*L+ex/2,(frect(2)-f*H+H+frect(4)+f*H+wrect(2)*Ht)/2,'yup')
//width and height
;xset('font',4,2)
xsegs((frect(1)-f*L-ex)*ones(2,2),[frect(4)+f*H ,frect(4)+f*H-H/2-ey ;
frect(4)+f*H-H/2+ey,frect(4)+f*H-H])
xstring(frect(1)-f*L-ex,frect(4)+f*H-H/2-ey/2,'h')
xsegs([frect(1)-f*L,frect(1)-f*L+L/2+ex
frect(1)-f*L+L/2-ex,frect(1)-f*L+L],(frect(4)+f*H+ey)*ones(2,2))
xstring(frect(1)-f*L+L/2,frect(4)+f*H+ey/2,'w')
xset('font',2,1)
// wrect rectangle
xset('color',5)
xset('thickness',2)
xrect(frect(1)-f*L,frect(4)+f*H,L,H)
xset('thickness',1)
// width and height
xset('font',4,2) ;
xset('foreground',5)
drawaxis(x=frect(1)-f*L,y=frect(4)+f*H-H+[0,H],val=['0','1'],seg=0,sub_int=3)
drawaxis(x=frect(1)-f*L+[0,L],y=frect(4)+f*H-H,val=['0','1'],dir='d',seg=0,sub_int=3)
//xset('font',2,1)
//user coordinate rectangle
//=========================
xset('color',5) ;xset('thickness',1)
xsegs([4 ;4],[1 ;1+f*H]) ;xstring(4+ex/2,1+f*H/2-ey/2,'y_up')
xsegs([4 ;4],[-1 ;-1-f*H]);xstring(4+ex,-1-f*H/2,'y_down')
xsegs([10 ;10+f*L],[0 ;0]);xstring(10+ex/2,0,'x_right')
xsegs([0 ;0-f*L],[0 ;0]);xstring(ex/2-f*L,0,'x_left')
xset('color',0),xset('thickness',3)
//draw a curve inside user coordinate rectangle
//=============================================
xset('color',14) ;xset('foreground',14)
xrect(0,1,10,2)
xset('color',16)
r=xstringl(0,0,'yminx')
xstring(0-r(3),-1-r(2)/2,'ymin')
xstring(0-r(3),1-r(2)/2,'ymax')
r=xstringl(0,0,'xminx')
xstring(0-r(3)/2,-1-r(2)*1.5,'xmin')
xstring(10-r(3)/2,-1-r(2)*1.5,'xmax')
t=0 :0.1 :10 ;
plot2d(t,sin(t),style=16,axesflag=2)
xset('foreground',0) ;xset('color',0)
//Draw legend
txt=['wrect=[xleft,yup,w,h]'
'arect=[x_left, x_right,y_up,y_down]'
'frect=[xmin,ymin,xmax,ymax] //user co-ordinates'
' '
'xsetech(wrect=wrect,frect=frect,arect=arect)']
xset('font',2,3)
r=xstringl(0,0,txt)
y=frect(4)+f*H+wrect(2)*Ht-Ht+ey
x=frect(1)-f*L-wrect(1)*Lt+(Lt-r(3))/2
xstring(x,y,txt(5)) //xsetech
y=y+r(4)/5
xstring(x,y,txt(4)) //
y=y+r(4)/5
xset('color',16)
xstring(x,y,txt(3))//frect
y=y+r(4)/5
xset('color',14) //arect
k=strindex(txt(2),'=')
xstring(x,y,part(txt(2),1:k))
r1=xstringl(0,0,part(txt(2),1:k))
xset('color',5)
xstring(x+r1(3),y,part(txt(2),k+1:length(txt(2))))
y=y+r(4)/5
k=strindex(txt(1),'=') //wrect
xset('color',5)
xstring(x,y,part(txt(1),1:k))
xset('color',2)
r1=xstringl(0,0,part(txt(1),1:k))
xstring(x+r1(3),y,part(txt(1),k+1:length(txt(1))))
xset('color',0)
|
