Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Java программирование > Общие вопросы по Java, Java SE, Kotlin
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.03.2012, 21:55   #1
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию Код Java перевести в Delphi.

Здравствуйте, начинающие и эксперты.
Есть код, взятый с хабра(он в свою очередь взят с англоязычного сайта).
В этом коде рисуется реалистичная 2D-роза.
Кто-нибудь может помочь конвертировать код?
Благодарю за потраченное на прочтение моей темы время. А если поможете, то Благодарю*Благодарю.
В частности непонятны выделенные строки, и непонятные операторы. Так же непонятно представление чисел ".7", ".4". Понял ли я правильно, что это 0.7 и 0.4 ?
Код:
<!doctype html>
<html>
    <head>
        <title>JS1k, 1k demo submission [1022]</title>
        <meta charset="utf-8" />
    </head>
    <body>
        <canvas id="c"></canvas>
        <script>
            var b = document.body;
            var c = document.getElementsByTagName('canvas')[0];
            var a = c.getContext('2d');
            document.body.clientWidth; // fix bug in webkit: http://qfox.nl/weblog/218
        </script>
        <script>
            // start of submission //
            with(m=Math)C=cos,S=sin,P=pow,R=random;
            c.width=c.height=f=500;
        h=-250;
            function p(a,b,c)
            {
        if(c>60)return[S(a*7)*(13+5/(.2+P(b*4,4)))-
                S(b)*50,b*f+50,625+C(a*7)*(13+5/(.2+P(b*4,4)))+b*400,a*1-b/2,a];
                A=a*2-1;
                B=b*2-1;
                if(A*A+B*B<1)
                {
            if(c>37)
            {
                n=(j=c&1)?6:4;
                o=.5/(a+.01)+C(b*125)*3-a*300;
                w=b*h;
                return[o*C(n)+w*S(n)+j*610-390,o*S(n)-
                w*C(n)+550-j*350,1180+C(B+A)*99-j*300,
                .4-a*.1+P(1-B*B,-h*6)*.15-a*b*.4+
                C(a+b)/5+P(C((o*(a+1)+(B>0?w:-w))/25),30)*
                .1*(1-B*B),o/1e3+.7-o*w*3e-6]
            }
            if(c>32)
            {
                c=c*1.16-.15;
                o=a*45-20;
                w=b*b*h;
                z=o*S©+w*C©+620;
                return[o*C©-w*S©,28+C(B*.5)*99-b*b*b*60-z/2-h,z,
                (b*b*.3+P((1-(A*A)),7)*.15+.3)*b,b*.7]
            }
            o=A*(2-b)*(80-c*2);
            w=99-C(A)*120-C(b)*(-h-c*4.9)+C(P(1-b,7))*
            50+c*2;z=o*S©+w*C©+700;
            return[o*C©-w*S©,B*99-C(P(b, 7))*50-c/3-z/1.35+
            450,z,(1-b/1.2)*.9+a*.1, P((1-b),20)/4+.05]
        }
        }

setInterval('for(i=0;i<1e4;i++)
if(s=p(R(),R(),i%46/.74))
{
    z=s[2];x=~~(s[0]*f/z-h);
    y=~~(s[1]*f/z-h);
    if(!m[q=y*f+x]|m[q]>z)m[q]=z,a.fillStyle="rgb("+~(s[3]*h)+","+
    ~(s[4]*h)+","+~(s[3]*s[3]*-80)+")",a.fillRect(x,y,1,1)
}',0)
            // end of submission //
        </script>
    </body>
</html>
Если помог, проси поставить минус. Будь оригинален!

Последний раз редактировалось Rin; 19.03.2012 в 23:02.
Rin вне форума Ответить с цитированием
Старый 20.03.2012, 00:17   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

это не Java, это JavaScript.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 20.03.2012, 01:32   #3
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

Serge_Bliznykov, я, получается, не в тот раздел создал тему. Я лошара.
Прошу прощения, но тему можно закрывать. Нашёл таблицу операторов и обозначенные функции для JavaScript, пошёл сам разобраться. А значок "©" хаброжитель поставил, чтобы показать, что он скопировал чужой код.
Если помог, проси поставить минус. Будь оригинален!

Последний раз редактировалось Rin; 20.03.2012 в 02:53.
Rin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
перевести код на С++ из Delphi yakuza Общие вопросы C/C++ 1 24.04.2011 00:06
перевести код с Delphi в C++ Drunken_Sailor Общие вопросы C/C++ 1 18.05.2010 22:54
перевести код с vb в delphi fize Помощь студентам 11 11.01.2010 18:40
перевести код с delphi на java. Neymexa Фриланс 1 21.11.2008 16:07