> |
makeboxb := proc( mid, wid, level, CL )
local Tl,Tr,TL,TR,P1,P2,P3,c,nl,nr, delta, ht;
delta := .26; ht := delta*level;
c := COLOR(RGB, 0, 0, .78);
nl := evalf(mid-wid,3); nr := evalf(mid+wid,3);
Tl := plots[textplot]( [mid-wid, 2*ht, nl],
align={ABOVE,MIDDLE},font=[TIMES,ROMAN,13]):
Tr := plots[textplot]( [mid+wid, 2*ht, nr],
align={ABOVE,MIDDLE},font=[TIMES,ROMAN,13]):
TL := plots[textplot]( [mid-wid, -2*ht, CL],
align={BOTTOM,LEFT},font=[TIMES,BOLD,15], color = c):
TR := plots[textplot]( [mid+wid, -2*ht, CL],
align={BOTTOM,RIGHT},font=[TIMES,BOLD,15], color = c):
P1 := plot( [[mid+wid,ht],[mid-wid,ht],[mid-wid,+ht],
[mid-wid,-ht],[mid-wid/5,-ht],[mid,0],[mid+wid/5,-ht],
[mid+wid,-ht],[mid+wid,ht]],
thickness = 1, color = c, filled = true ):
#P2 := plot( [],thickness = 8, color = c ):
P3 := plot( [[mid-(1.4*wid),0],[mid+(1.4*wid),0]],
thickness = 1, color = COLOR(RGB, .8, .6, 0) ):
plots[display]( [P1,P3,Tl,Tr,TL,TR], scaling = constrained);
end proc:
|