clear;
m=6;
n=8;
x=15;
y=21;
s=sqrt|2;
mt=tic|(m/2);
nt=tic|(n/2);
(*)=============(*)
top=rinid(m,n+1,1,1)|[0,0,0 ; 1,0,0]
		#rinid(m+1,n,1,1)|[0,0,0 ; 0,1,0];
(*)=============(*)
w1=lamid(.5,.5)|[0,0,0 ; .5,.5,-1];
web=rinid(m,2,1,n-1)|w1;
web=web#rinid(2,n,m-1,1)|w1;
tranw1=tranid(1,1)|w1;
tranw1=tranw1#tranid(2,2)|w1;
web=pex|web#rinid(mt,nt,2,2)|tranw1;
(*)=====(*)
bot=rinid(mt,nt,2,2)|lamid(1.5,1.5)|[.5,.5,-1 ; 1.5,1.5,-1];
BOT=BOT#RINID(m-1,2,1,n-1)|[.5,.5,-1 ; 1.5,.5,-1] #RINID(2,n-1,m-1,1)|[.5,.5,-1 ; .5,1.5,-1];
bot = bot#rinid(2,nt,m-2,2)|[.5,1.5,-1 ; 1.5,1.5,-1];
(*)=============(*)
web1=w1;
web1=rinid(m,n,1,1)|w1;
(*)====(*)
bot1=rinid(m-1,n,1,1)|[.5,.5,-1 ; 1.5,.5,-1 ];
bot1=bot1#rinid(m,n-1,1,1)|[.5,.5,-1 ; .5,1.5,-1 ];
(*)=============(*)
to=rinid(m,n+1,1,1)|[0,0,0 ; 1,0,0]
		#rinid(m+1,n,1,1)|[0,0,0 ; 0,1,0];
g=top#web1#bot1;
gg=bt(x/(m-1),y/(n-1),(s/2)*(x/m))|g;
use &,vm(2),vs(.1);
draw gg;