Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Catalog · How the catalog works

Random project

Lazarus_Projects

Lazarus Projects

View on GitHub

Anyone may press Interesting, signed in or not. It helps others find this project.

Member rating

No ratings yet.

Sign in to rate this project.

README

Lazarus_Projects

Mini 3D editor for indie games

������ �����

//----------------------------------------------------------

O(���)

������� ������ � ������� ������ ���� ��� ����

E��� ����� ������ ���� �� �������� �������

� ��� ����������� ������� ����� �������� ������ ����

�������� ������ ����������

O(self) ������� ������� ������ ����������

//----------------------------------------------------------

E(���)

������� ������� � ������� ��������� (������,�������)

���� ��� ���� ���� �� ���� �� �������� ������ ����������

//----------------------------------------------------------

V(���)

������� ������� � ������� ��������� (������,�������)

���� ��� ���� ���� �� ���� �� �������� ������ ����������

//----------------------------------------------------------

L(���)

������� ����� � ������ ��������� (������,�������)

��� �������� � �������� ������ ��� 2 ������������

������� �������� (������,�������) ��� �����

d(��� �������)

�������� ������� 1 � ��������� ����� �� ������� L

e(��� �������)

�������� ������� 2 � ��������� ����� �� ������� L

//----------------------------------------------------------

P(���)

������� ��������� � ������ ��������� (������,�������)

��� �������� � �������� ������ ��� 4 ������������

������� �������� (������,�������) ��� �����

a(��� �������)

�������� ������� 1 � ��������� ��������� �� ������� P

b(��� �������)

�������� ������� 2 � ��������� ��������� �� ������� P

c(��� �������)

�������� ������� 3 � ��������� ��������� �� ������� P

d(��� �������)

�������� ������� 4 � ��������� ��������� �� ������� P

Q(����� ������������ ������ )

1-��� ����� ����� ���������� ��� ��������� ����� ������

2-��� ����� ���������� ��� ��������� ��������� 1 ���� ��� ���� ���������

3-��� ����� ��������� ��� ��������� ��������� ���� ������

�������� � ����� ��������� ��������� h i k l

����� � ������� RGBA ��� R ��� ������� ���� � A ��� �������

h(���� 1)

�������� ���� ������� 1 � ��������� ��������� �� ������� P

i(���� 2)

�������� ���� ������� 1 � ��������� ��������� �� ������� P

k(���� 3)

�������� ���� ������� 1 � ��������� ��������� �� ������� P

l(���� 4)

�������� ���� ������� 1 � ��������� ��������� �� ������� P

//----------------------------------------------------------

������� x y z

X(�������� float)

���������� � ���������� X ������� ���������

Y(�������� float)

���������� � ���������� Y ������� ���������

Z(�������� float)

���������� � ���������� Z ������� ���������

//----------------------------------------------------------

M(������ ��� ��� ) ������ � ��� ��� �������� ��������� ����������

pascal
????????? ??????????????????????????????????????? ??????????????????????????? ??? ???????????? ?????? ???????????????????????????????????? ????????????????????????
pascal
(0) - False (-1) ????????? True

//----------------------------------------------------------

��������� x y z

x(�������� float)

���������� � ���� ������� y ������� ���������

y(�������� float)

���������� � ���� ������� y ������� ���������

z(�������� float)

���������� � ���� ������� z ������� ���������

//----------------------------------------------------------

��� �������� ��������
S( ��� ������� ) " ���������� ������� "

//----------------------------------------------------------

��� �������� �������� K( ��� �������� ) " �������� �������� "

//----------------------------------------------------------

��������� �� ����� ��������

MinRAsInMir=1;// ����������� ��������� � ������� ���� �� ������

MAxRAsInMir=1024* 32;// ������������ ��������� �� ����� ����� ���������

GMAxRAsInMir=1024*512;// ����������� ��������� ��������� � ������

MaxKolVerInEle=512*1;// ������������ ���������� ������ � ��������

MaxKolLinInObj=512*1;// ������������ ���������� ����� � ��������

MaxKolPloInObj=512*1;// ������������ ���������� ���������� � ��������

MaxKolEleInEle=16 *1;// ������������ ���������� ��������� � ��������

MaxKolObjInObj=128*1;// ������������ ���������� �������� � ����� �������

MaxKOlVerInMir=1024*64;//������������ ���������� ������ � ������� ����

MaxKOlLinInMir=1024*64;//������������ ���������� ����� � ������� ����

MaxKOlPloInMir=1024*64;//������������ ���������� ���������� � ������� ����

MaxKOlEleInMir=1024*64;//������������ ���������� ��������� � ������� ����

MaxKOlObjInMir=1024*64;//������������ ���������� �������� � ������� ����

MaxKOlAniInMir=1024* 4;//������������ ���������� �������� � ������� ����

MaxKOlScrInMir=1024* 4;//������������ ���������� �������� � ������� ����

//----------------------------------------------------------

// ---------------------------------------------------

// �������� �������� ���������� ----------------------

�����������

Scr - ������

Ani - ��������

Obj - ������

Ele - ������ �������

PLo - ���������

Lin - �����

Ver - ������

Cre_Scr( ��� , ��� ������� )

Cre_Ani( ��� , ��� ������� 1 , ��� ������� 2)

Cre_Obj( ��� )

Cre_ELE( ��� , ������������ ������� ��� ������ )

Cre_PLO( ��� , ������������ ������� ��� ������ )

Cre_LIN( ��� , ������������ ������� ��� ������ )

Cre_VER( ��� , ������������ ������� ��� ������ )

DEL_Scr( ��� )

DEL_Ani( ��� )

DEL_Obj( ��� )

DEL_ELE( ��� , ������������ ������� ��� ������ )

DEL_PLO( ��� , ������������ ������� ��� ������ )

DEL_LIN( ��� , ������������ ������� ��� ������ )

DEL_VER( ��� , ������������ ������� ��� ������ )

// -----------------------------------------------------------------

// ������� ����������� �������� ���������� � �����

Sav_Sce ( ��� ����� ) - ��������� �����

Loa_Sce ( ��� ����� ) - ��������� �����

Sav_Obj ( ��� ����� ) - ��������� ������

Loa_Obj ( ��� ����� ) - ��������� ������

Sav_ANi ( ��� ����� ) - ��������� ��������

Loa_Ani ( ��� ����� ) - ��������� ��������

Sav_Scr ( ��� ����� ) - ��������� ������

Loa_Scr ( ��� ����� ) - ��������� ������

// -----------------------------------------------------------------

if _USER<>NIL THEN _USER.OCEL.X:=

_USER.OCEL:=(1,2,3);

// -----------------------------------------------------------------

// ������ � ��������� ������� --------------------------------------

_USES.UX:= ��� ������� �� ��� X -1 �������

_USES.X:=���������� �� � ������� -5

_USER.���.X:=

����_1.

���� ���� ������ �� �������� �� �� ������ �����������

_USER.�������_�����:=3 // ������� ����� ������� ������ �������

// -----------------------------------------------------------------

�������� ������� ���������� ��� ���� � ����

��� ( ��������� )

{

������������ ��� ������

}

{

������������ ��� ������

}

// -----------------------------------------------------------------

IF

ELSE

WHILE

FOR

PRINT

// -----------------------------------------------------------------