Umiestnenie súboru
www.TrSek.com/cover/werbhofen/tetrunit.pas
{ TETRUNIT.PAS }
{ Kniznica pre tetris. }
{ }
{ Author: WERBHOFEN }
{ Datum: 12.10.2009 http://www.trsek.com }
UNIT TetrUnit;
INTERFACE
TYPE Pole4x4=array[1..4,1..4]of byte;
Pole4x4x4=array[1..4]of Pole4x4;
CONST ZL:Pole4x4x4=
(((1,1,0,0),
(0,1,1,0),
(0,0,0,0),
(0,0,0,0)),
((0,1,0,0),
(1,1,0,0),
(1,0,0,0),
(0,0,0,0)),
((1,1,0,0),
(0,1,1,0),
(0,0,0,0),
(0,0,0,0)),
((0,1,0,0),
(1,1,0,0),
(1,0,0,0),
(0,0,0,0)));
ZP:Pole4x4x4=
(((0,1,1,0),
(1,1,0,0),
(0,0,0,0),
(0,0,0,0)),
((1,0,0,0),
(1,1,0,0),
(0,1,0,0),
(0,0,0,0)),
((0,1,1,0),
(1,1,0,0),
(0,0,0,0),
(0,0,0,0)),
((1,0,0,0),
(1,1,0,0),
(0,1,0,0),
(0,0,0,0)));
I:Pole4x4x4=
(((0,0,0,0),
(1,1,1,1),
(0,0,0,0),
(0,0,0,0)),
((0,1,0,0),
(0,1,0,0),
(0,1,0,0),
(0,1,0,0)),
((0,0,0,0),
(1,1,1,1),
(0,0,0,0),
(0,0,0,0)),
((0,1,0,0),
(0,1,0,0),
(0,1,0,0),
(0,1,0,0)));
O:Pole4x4x4=
(((0,0,0,0),
(0,1,1,0),
(0,1,1,0),
(0,0,0,0)),
((0,0,0,0),
(0,1,1,0),
(0,1,1,0),
(0,0,0,0)),
((0,0,0,0),
(0,1,1,0),
(0,1,1,0),
(0,0,0,0)),
((0,0,0,0),
(0,1,1,0),
(0,1,1,0),
(0,0,0,0)));
LP:Pole4x4x4=
(((0,0,1,0),
(1,1,1,0),
(0,0,0,0),
(0,0,0,0)),
((0,1,0,0),
(0,1,0,0),
(0,1,1,0),
(0,0,0,0)),
((1,1,1,0),
(1,0,0,0),
(0,0,0,0),
(0,0,0,0)),
((1,1,0,0),
(0,1,0,0),
(0,1,0,0),
(0,0,0,0)));
LL:Pole4x4x4=
(((0,0,0,0),
(1,1,1,0),
(0,0,1,0),
(0,0,0,0)),
((0,1,0,0),
(0,1,0,0),
(1,1,0,0),
(0,0,0,0)),
((1,0,0,0),
(1,1,1,0),
(0,0,0,0),
(0,0,0,0)),
((0,1,1,0),
(0,1,0,0),
(0,1,0,0),
(0,0,0,0)));
T:Pole4x4x4=
(((1,1,1,0),
(0,1,0,0),
(0,0,0,0),
(0,0,0,0)),
((0,0,1,0),
(0,1,1,0),
(0,0,1,0),
(0,0,0,0)),
((0,0,0,0),
(0,1,0,0),
(1,1,1,0),
(0,0,0,0)),
((1,0,0,0),
(1,1,0,0),
(1,0,0,0),
(0,0,0,0)));
X:Pole4x4x4=
(((0,1,0,0),
(1,1,1,0),
(0,1,0,0),
(0,0,0,0)),
((1,0,1,0),
(0,1,0,0),
(1,0,1,0),
(0,0,0,0)),
((0,1,0,0),
(1,1,1,0),
(0,1,0,0),
(0,0,0,0)),
((1,0,1,0),
(0,1,0,0),
(1,0,1,0),
(0,0,0,0)));
Y:Pole4x4x4=
(((1,0,1,0),
(0,1,0,0),
(0,1,0,0),
(0,0,0,0)),
((0,0,1,0),
(1,1,0,0),
(0,0,1,0),
(0,0,0,0)),
((0,1,0,0),
(0,1,0,0),
(1,0,1,0),
(0,0,0,0)),
((1,0,0,0),
(0,1,1,0),
(1,0,0,0),
(0,0,0,0)));
H:Pole4x4x4=
(((1,0,1,0),
(1,1,1,0),
(1,0,1,0),
(0,0,0,0)),
((1,1,1,0),
(0,1,0,0),
(1,1,1,0),
(0,0,0,0)),
((1,0,1,0),
(1,1,1,0),
(1,0,1,0),
(0,0,0,0)),
((1,1,1,0),
(0,1,0,0),
(1,1,1,0),
(0,0,0,0)));
IMPLEMENTATION
END.
Copyrigth by Zdeno Sekerak 2007,
http://www.trsek.com