=) У меня есть программа на Бэйсике , она рисует схему. Она очень мелкая и короткая. Я хочу сделать ее только в 3D варианте и на Асме. Но думаю перевод не важно в делфи или СИ. Помогите пожалуста! очень важно. Спасибо.

ef7b_26.05.2008_CRACKLAB.rU.tgz - delta_t.bas

-----
RE In Progress [!] Coding Hazard [!] Stay Clear of this Cube

| Сообщение посчитали полезным:

а exe сделай, чтобы видеть, что должно получиться

-----
z+Dw7uLu5+jqLCDq7vLu8PvpIPHs7uMh

| Сообщение посчитали полезным:

Здесь бэйсик и скомпиленный вариант в ехе. Но без либ он не запускается от Кубэйсика. Поэтому все вместе , вес 1 метр. [url=http://up.spbland.ru/files/0805272/ ]--> Link <--[/url]

название DeltaT.exe

-----
RE In Progress [!] Coding Hazard [!] Stay Clear of this Cube

| Сообщение посчитали полезным:

Вот скомпилированная прога. работает без либ

79fc_28.05.2008_CRACKLAB.rU.tgz - DELTA_T.EXE

| Сообщение посчитали полезным:

=) кто тут по бэйсику мастер. Переведите логику работы в текст я там уже какнить накалякаю сам.

-----
RE In Progress [!] Coding Hazard [!] Stay Clear of this Cube

| Сообщение посчитали полезным:

подымаю эту тему , так как малоли кто новый увидит и сможет помочь

-----
RE In Progress [!] Coding Hazard [!] Stay Clear of this Cube

| Сообщение посчитали полезным:

дык там нет никакой логики, два вложенных цикла и расчет координат.

| Сообщение посчитали полезным:

Млин не хочу флуд подымать , но раз так просто , а для меня нет я не спец по бэйсику , то легко можно на си чтоли пример загнать. Я же помощи прошу спецам по Бэйсику.

Ara пишет:
дык там нет никакой логики, два вложенных цикла и расчет координат.
я это и так понимаю ) Спсб )

-----
RE In Progress [!] Coding Hazard [!] Stay Clear of this Cube

| Сообщение посчитали полезным:

Не знаю, что там переводить, вот к примеру первые два цикла, я тока не пойму, чем этот перевод может помочь, там и без знания васика все прозрачно.

program GovnoProga;
uses crt,graph;
const
phaseshift:real=3.14159;
var
timeslice,angle,wave1,wave2,vector1,vector2,sum,i,j:real;
grDriver,grMode:integer;
BEGIN
ClrScr;
grDriver:=Detect;
InitGraph(grDriver,grMode,'');
WriteLn('Preved, GovnoProga');
timeslice:=0;

while timeslice<=20.28 do
begin
angle:=0;
ClrScr;
write (wave1,wave2,vector1,vector2);
while angle<=20.28 do
begin
wave1:=cos(timeslice+angle);
wave2:=sin(timeslice+angle);
vector1:=cos(timeslice+40);
vector2:=sin(timeslice+40+phaseshift);
angle:=angle+0.02;
sum:=wave1-wave2;
line(320,175,round(vector1*80+320),round(vector2*80+175));
end;
timeslice:=timeslice+0.02;
end;
ClrScr;
WriteLn('Game Over ))))');
ReadLn;
END.


| Сообщение посчитали полезным:

Ara =)))) Все Спасибо. Это мне и надо было , прозрачный , но всеравно это бэйсик , например тут на дэлфе тоже проще но лайн я не знаю что это ))) В любом случае огромное спасибо )

-----
RE In Progress [!] Coding Hazard [!] Stay Clear of this Cube

| Сообщение посчитали полезным:

видимо, с такими познаниями 3д-прога на асме появится не скоро =)

| Сообщение посчитали полезным:

=) Да , я к пенсии допишу) и узнаю что такое Line в делфе , хотя это опасно ) я ничего уже не знаю ) извеняйте

-----
RE In Progress [!] Coding Hazard [!] Stay Clear of this Cube

| Сообщение посчитали полезным: