TTetro1 -
TFigureCorner
TFigureWorksheet
TMoveDirect
BarHeight
BarWidth
Box
FieldWidth
FigureWorkSheet
GlassHeight
GlassWidth
LCorner
LeftOfs
LZigzag
MaxCornerNumber
MaxFigureColor
MaxFigureNumber
MaxFigureSize
NextBarHeight
NextBarWidth
RCorner
RZigzag
Stick
TopOfs
Triada
GlassWorkSheet
OldGlassWorkSheet
Tetro1
TFigureCorner=(fc00,fc90,fc180,fc270);
TFigureWorksheet=array [1..4,1..4] of Byte;
TMoveDirect= (mdDown,mdLeft,mdRight);
BarHeight = 14
BarWidth = 14
Box =
((1,1,0,0),
(1,1,0,0),
(0,0,0,0),
(0,0,0,0))
FieldWidth = 4
FigureWorkSheet =
((0,0,0,0),
(0,0,0,0),
(0,0,0,0),
(0,0,0,0))
GlassHeight = 23
GlassWidth = 10
LCorner =
((1,1,1,0),
(1,0,0,0),
(0,0,0,0),
(0,0,0,0))
LeftOfs = 5
LZigzag =
((1,1,0,0),
(0,1,1,0),
(0,0,0,0),
(0,0,0,0))
MaxCornerNumber = 4
MaxFigureColor = 7
MaxFigureNumber = 7
MaxFigureSize = 4
NextBarHeight = 9
NextBarWidth = 9
RCorner =
((1,1,1,0),
(0,0,1,0),
(0,0,0,0),
(0,0,0,0))
RZigzag =
((0,1,1,0),
(1,1,0,0),
(0,0,0,0),
(0,0,0,0))
Stick =
((1,1,1,1),
(0,0,0,0),
(0,0,0,0),
(0,0,0,0))
TopOfs = 6
Triada =
((0,1,0,0),
(1,1,1,0),
(0,0,0,0),
(0,0,0,0))
GlassWorkSheet : array [1..GlassHeight,1..GlassWidth] of Byte
OldGlassWorkSheet : array [1..GlassHeight,1..GlassWidth] of Byte
Tetro1 : TTetro1