function [p_shapes, r_shape] = LPmake_Figure8a ()

% LPMAKE_FIGURE8A  defines some arrays needed to generate Figure 8a
% using 30 copies of the L-triomino to tile the 18 x 5 rectangle.
 
% Create binary matrices for the triominoes
p_shapes = ones(2,2);
p_shapes(1,2) = 0;
% Create binary matrix for the region
r_shape = ones(18,5);
% Create the linear system
[ a, b ] = polyomino_monohedral_matrix ( r_shape, p_shapes );
[m,n] = size(a);
% Create and save the LP file
polyomino_lp_write ( 'Figure8a.lp', '\ Figure8a', m, n, a, b );
end