>
|
use plots,plottools in
ex3825:=module()
local p1,p2,p3,p4,p5,p6,AA,BB,CC,dd,PP,QQ;
export fig;
AA:=[0,10-6*sqrt(2)];
BB:=[0,10];
PP:=[6,10];
CC:=[8,10];
QQ:=[8,10-4*sqrt(2)];
dd:=[8,10-6*sqrt(2)];
p1:=rectangle(BB,[8,0],style=line);
p2:=polygon([AA,BB,PP],color=blue, transparency=.7);
p3:=polygon([AA,PP,QQ],color=red,transparency=.5);
p4:=polygon([PP,CC,QQ],color=yellow,transparency=.5);
p5:=polygon([AA,dd,QQ],color=green,transparency=.5);
p6:=textplot({[3.7,6,typeset(L)],
[2.6,10.4,typeset(8-x)],
[7,10.4,typeset(x)],
[1.8,1.8,typeset(theta)],
[7.7,6,typeset(theta)],
[7.7,3.8,typeset(psi)],
[6.6,9.6,typeset(psi)],
[-.3,1.5,typeset(P)],
[-.3,10,typeset(Q)],
[6,10.4,typeset(A)],
[8.3,10,typeset(R)],
[8.3,4.3,typeset(B)],
[8.3,1.5,typeset(S)]},font=[default,12]);
fig:=display(p1,p2,p3,p4,p5,p6,scaling=constrained,axes=none);
end module;
end use:
|