Unit Tetris1

Classes

TTetro1 -

Functions

Types

TFigureCorner
TFigureWorksheet
TMoveDirect

Constants

BarHeight
BarWidth
Box
FieldWidth
FigureWorkSheet
GlassHeight
GlassWidth
LCorner
LeftOfs
LZigzag
MaxCornerNumber
MaxFigureColor
MaxFigureNumber
MaxFigureSize
NextBarHeight
NextBarWidth
RCorner
RZigzag
Stick
TopOfs
Triada

Variables

GlassWorkSheet
OldGlassWorkSheet
Tetro1


Functions


Types


TFigureCorner=(fc00,fc90,fc180,fc270);

TFigureWorksheet=array [1..4,1..4] of Byte;

TMoveDirect=  (mdDown,mdLeft,mdRight);

Constants

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))


Variables

GlassWorkSheet : array [1..GlassHeight,1..GlassWidth] of Byte

OldGlassWorkSheet : array [1..GlassHeight,1..GlassWidth] of Byte

Tetro1 : TTetro1