file LBEx;

symbol LB3(xvar L,B1,B2,B3; yvar B,L1,L2,L3);
	xvar R;
	yvar T;
	export R,T;
	default
		L := 16;
		B := 12;
		L1 := 16;
		L2 := 32;
		L3 := 48;
		B1 := 20;
		B2 := 36;
		B3 := 52;
	begin
	T := L3+4;
	R := B3+4;
	place box(B1-L+4,8,poly) at ((L+B1+4)/2,L1);
	place box(8,L1-B+4,poly) at (B1,(B+L1+4)/2);
	place box(B2-L+4,8,poly) at ((L+B2+4)/2,L2);
	place box(8,L2-B+4,poly) at (B2,(B+L2+4)/2);
	place box(B3-L+4,8,poly) at ((L+B3+4)/2,L3);
	place box(8,L3-B+4,poly) at (B3,(B+L3+4)/2)
	end;

symbol LBEx(xvar L,R; yvar B,T);
	default
		L := -36;
		B := -72;
		R := 132;
		T := 88;
	begin
	place LB3(L=R-156, B1=R-144, B2=R-120, B3=R-88,
				B=T-56, L1=T-52, L2=T-36, L3=T-20) at (0,0);
	place LB3(L=R-56, B1=R-52, B2=R-36, B3=R-20,
				B=T-132, L1=T-64, L2=T-40, L3=T-16) at (0,0);
	place LB3(L=R-156, B1=R-136, B2=R-104, B3=R-80,
				B=B+12, L1=B+28, L2=B+44, L3=B+80) at (0,0)
	end;
begin
place LBEx() at (0,0)
end.