Сайт о Delphi, Pascal и MIDletPascal

Посоветуйте кафе в Киеве, где можно заказать вкусную пиццу.

tressag29 — Wed, 21 May 2025 20:20:43 GMT

Форум: Для новичков
Автор темы: tressag29
Автор последнего сообщения: grusakpavel
Количество ответов: 2

как сделать таймер

ger1234567 — Tue, 24 Feb 2009 19:49:57 GMT

Форум: Для новичков
Автор темы: ger1234567
Автор последнего сообщения: Ivin
Количество ответов: 2

музыка

ger1234567 — Tue, 24 Feb 2009 19:48:06 GMT

Форум: Для новичков
Автор темы: ger1234567
Автор последнего сообщения: Ivin
Количество ответов: 2

real to string

ger1234567 — Tue, 24 Feb 2009 19:45:21 GMT

чувакки как real в string преобразовать если можа дайте код java библиотеки для этого и ли просто java функцию!!!!

простой и красивый 3d-тетраэдр

turkeevm — Fri, 17 Oct 2008 12:07:42 GMT

Написал ради интереса простенький набор функций для 3d графики, и решил проверить на Мидлет Паскале. Все работает. Как на эмуле, так и на старом добром Motorola C380.

Вот исходник

Code

program Simple3d;

type
   T3dPoint=record
    x,y,z:real;
   end;

   T2dPoint=record
    x,y:real;
   end;

var fx,fy,fz:real;

function Round(x:real):integer;
begin
   Round:=Trunc(x);
   if ((Trunc(x)+0.5)    Round:=Trunc(x)+1;
end;

function GetScreenProection(P:T3dPoint):T2dPoint;
var buf:T2dPoint;
begin
   buf.x:=fx-fz*(P.x-fx)/(P.z-fz);
   buf.y:=fy-fz*(P.y-fy)/(P.z-fz);
   GetScreenProection:=buf;
end;

procedure ClearDevice;
begin
   SetColor(0,0,0);
   FillRect(0,0,GetWidth,GetHeight);
end;

procedure Line(A,B:T2dPoint);
begin
   DrawLine(Round(A.x),
            Round(A.y),
            Round(B.x),
            Round(B.y));
end;

procedure Line3d(A,B:T3dPoint);
begin
   Line(GetScreenProection(A), GetScreenProection(B));
end;

function Rotation(X,O:T3dPoint; alpha, beta:real):T3dPoint;
var
   vector:T3dPoint;
   buf:T3dPoint;
begin
   vector.x:=X.x-O.x;
   vector.y:=X.y-O.y;
   vector.z:=X.z-O.z;

   buf.x:=O.x+cos(alpha)*vector.x+sin(alpha)*vector.z;
   buf.y:=O.y+vector.y;
   buf.z:=O.z-sin(alpha)*vector.x+cos(alpha)*vector.z;

   vector.x:=buf.x-O.x;
   vector.y:=buf.y-O.y;
   vector.z:=buf.z-O.z;

   buf.x:=O.x+vector.x;
   buf.y:=O.y+cos(beta)*vector.y-sin(beta)*vector.z;
   buf.z:=O.z+sin(beta)*vector.y+cos(beta)*vector.z;

   Rotation:=buf;
end;

const pause=50;

var
   x_angle,
   y_angle:real;
   i,j:integer;
   A,B,C,D,O:T3dPoint;

begin
   x_angle:=Pi/30;
   y_angle:=-Pi/40;

   O.x:=GetWidth div 2;
   O.y:=GetHeight div 2;
   O.z:=60;

   fx:=O.x;
   fy:=O.y;
   fz:=-800;

   A.x:=O.x;      A.y:=O.y-50; A.z:=O.z;
   B.x:=O.x-41;   B.y:=O.y+17; B.z:=O.z-28;
   C.x:=O.y+41;   C.y:=O.y+17; C.z:=O.z-28;
   D.x:=O.x;      D.y:=O.y+17; D.z:=O.z+56;

   repeat
     ClearDevice;
//   SetColor(255,0,0);
//   Line3d(O,A);
//   Line3d(O,B);
//   Line3d(O,C);
//   Line3d(O,D);
     SetColor(0,255,0);
     Line3d(A,B);
     Line3d(A,C);
     Line3d(A,D);
     Line3d(B,C);
     Line3d(C,D);
     Line3d(D,B);

     A:=Rotation(A,O,x_angle,y_angle);
     B:=Rotation(B,O,x_angle,y_angle);
     C:=Rotation(C,O,x_angle,y_angle);
     D:=Rotation(D,O,x_angle,y_angle);

    Repaint;
    Delay(pause);
   until false;

end.

заполнение цветом ограниченных областей

turkeevm — Tue, 09 Sep 2008 10:40:29 GMT

Возникла проблема. Собсно сабж.
В самом Мидлет Паскале такой функции нет. Есть некий FillRect, но это совсем другое. Ценой большого геморроя в голове, мне удалось придумать как рисовать закрашенные треугольники, но это не решение. Требуется функция для заполнения произвольных областей.
Знатоки java. Прошу помочь бедным паскалистам и написать соответствующий модуль.

try finally end

ger1234567 — Mon, 11 Aug 2008 14:09:11 GMT

Форум: Для новичков
Автор темы: ger1234567
Автор последнего сообщения: turkeevm
Количество ответов: 2

Осуществление операций с HTTP

yurok — Tue, 17 Jun 2008 20:13:21 GMT

Народ, кто знает, может поможет разобраться как использовать HTTP связь в MidletPascal? Может у кого-то есть примеры... Самой справки не достаточно чтобы все понять.