Что за язык программирования?

[Mixon]

Вопщем нарыл супер плеер на смарт TTpod,там есть визуализации,хочу сам по ковырять,может напишу чегот,файлы в формате tvp,кстате видеокарта нвидиа роспознаёт ето как свой файл какой то...Вот пример визуализации:

beginwave
(function action
(= $v (+ (* $mid 10.100) 10))
(cart $x $y (* $v $midPeak) (* $step 6.283185307))
(= $x1 (+ $x $cx1))
(= $y1 (+ $y $cy1))
(if (>= $numrings 1) (block
(= $x0 (+ $x $cx2))
(= $y0 (+ $y $cy2))
))
(= $x0 (+ $x 0))
(= $y0 (+ $y 0))
)
endwave


beginsugar
(function init
(= $numparticles 1)
(= $Xchangea (rnd 0.01 0.09))
(= $Ychangea (rnd 0.01 0.09))
(= $Xchangeb (rnd 0.01 0.09))
(= $Ychangeb (rnd 0.01 0.09))
(= $Xchangec (rnd 0.01 0.09))
(= $Ychangec (rnd 0.01 0.09))
(= $Xa (rnd -1 1))
(= $Ya (rnd -1 1))
(= $Xb (rnd -1 1))
(= $Yb (rnd -1 1))
(= $Xc (rnd -1 1))
(= $UseBlendType 2)
)

(function prepare)

(function action
(if (== $particle 0)
(block (= $Xo $Xa)
(= $Yo $Ya)
(= $Xchange $Xchangea)
(= $Ychange $Ychangea)
)
)
(if (== $particle 1)
(block (= $Xo $Xb)
(= $Yo $Yb)
(= $Xchange $Xchangeb)
(= $Ychange $Ychangeb)
)
)
(if (== $particle 2)
(block (= $Xo $Xc)
(= $Yo $Yc)
(= $Xchange $Xchangec)
(= $Ychange $Ychangec)
)
)
(if (>= $Xo 1) (= $Xchange (- 0 $Xchange)))
(if (<= $Xo -1) (= $Xchange (abs $Xchange)))
(if (>= $Yo 1) (= $Ychange (- 0 $Ychange)))
(if (<= $Yo -1) (= $Ychange (abs $Ychange)))
(+= $Xo $Xchange)
(+= $Yo $Ychange)
(= $X $Xo)
(= $Y $Yo)
(= $Size 1.0)
(= $Style 1)
(= $fade (- 1.0 (* $midpeak 10)))
(if (== $particle 0)
(block (= $Xa $Xo)
(= $Ya $Yo)
(= $Xchangea $Xchange)
(= $Ychangea $Ychange)
)
)
(if (== $particle 1)
(block (= $Xb $Xo)
(= $Yb $Yo)
(= $Xchangeb $Xchange)
(= $Ychangeb $Ychange)
)
)
(if (== $particle 2)
(block (= $Xc $Xo)
(= $Yc $Yo)
(= $Xchangec $Xchange)
(= $Ychangec $Ychange)
)
)
)
endsugar

beginsugar
(function init
(= $spinAngle 0)
(= $magAngle 0)
(= $useAspect 1)
(= $steps 16)
(= $useBlendType 1)
)

(function prepare
(= $magAngle (+ $magAngle 0.016))
(= $spinAngle (+ $magAngle 0.05))
(= $mag (/ (+ (sin $magAngle) 1.1) 2.5))
)

(function action
(cart $x $y $mag (+ $spinAngle (* (/ $step $steps) (* 2 $pi))))
(= $size (/ (* $mag 2) 8))
)
endsugar

beginsugar
(function init
(= $xrchange (rnd .1))
(= $yrchange (rnd .1))
(= $zrchange (rnd .1))
(= $useAspect 1)
(= $lineSize .3)
(= $negSize (neg $lineSize))
(= $ringDots 16)
(= $ringCount 16)
(= $steps (* $ringDots $ringCount))
(= $useBlendType 1)
(= $pers 1)
(= $runAngle (rnd $pi))

// Setup point array here
(loop $step 0 (- $steps 1)
(block
(= $v1 (/ (* (trunc (/ $step $ringDots)) 2 $pi) $ringCount))
(= $v2 (/ (* (% $step $ringDots) $pi) $ringDots))

(= [$Xpoint $step] (* (cos $v1) (cos $v2)))
(= [$Ypoint $step] (* (cos $v1) (sin $v2)))
(= [$Zpoint $step] (sin $v1))
)
)

)

(function prepare
(= $xr (+ $xr $xrchange))
(= $yr (+ $yr $yrchange))
(= $zr (+ $zr $zrchange))

(3dSetup $xr $yr $zr)

(= $midpeak (+ $midpeak .1))
(if (< (abs (- $linesize $midpeak)) .025)
(= $linesize $midPeak)
(= $lineSize (if (< $midPeak $linesize) (- $linesize .025) (+ $linesize .025)))
)
(+= $linesize .01)
(= $negSize (neg $lineSize))

(= $Xcenter (/ (* (sin (* $runAngle .938)) (cos (* $runAngle 1.49))) 2))
(= $Ycenter (/ (* (sin (* $runAngle 1.1)) (cos (* $runAngle .79))) 4))
(+= $runAngle .01)
)

(function action
(3dRotate $Xo $Yo $Zo
(* [$Xpoint $step] $lineSize)
(* [$Ypoint $step] $lineSize)
(* [$Zpoint $step] $lineSize)
)

(+= $Xo $Xcenter)
(+= $Yo $Ycenter)

(= $x (/ (* $Xo $pers) (+ $pers $Zo)))
(= $y (/ (* $Yo $pers) (+ $pers $Zo)))
(= $size (/ (* .015 (* 1.2 $lineSize)) (+ (* 1.2 $lineSize) $Zo)))
)
endsugar

Ето сам язык плеера,для него специально,или ето какой то другой,более роспостранённый?

[okthxnz]

мне кажется что это С++ или C#

[Mixon]

Ето что же выходит,в плеере осуществили поддержку C++ на Symbian 8.1? О_о
Плеер - интерпритатор)))
Вот посмотрел примеры C++,врядли ето он,вот пример кода:

class Array {
public:
Array() : len(0), val(NULL) {}
Array(int _len) : len(_len) {val = new double[_len];}
Array(const Array& a);
~Array() { Free(); }
inline double Elem(int i);
inline void ChangeElem(int i, double x);
protected:
void Alloc(int _len);
void Free();
int len;
double* val;
};

Array::Array(const Array& a) : len(a.len)
{
val = new double[len];
for (int i=0; i<len; i++)
val[i] = a.val[i];
}

В визуализации везде всё в скобках почти,мне нажеться C++ этого не терпит...Ну хз,надо спросить кто знает C++ тогда,будем надеяться такие люди заходят в этот роздел сайта)

[Сомнительный]

явас?

[okthxnz]

Ето что же выходит,в плеере осуществили поддержку C++ на Symbian 8.1? О_о
Плеер - интерпритатор)))
Вот посмотрел примеры C++,врядли ето он,вот пример кода:

class Array {
public:
Array() : len(0), val(NULL) {}
Array(int _len) : len(_len) {val = new double[_len];}
Array(const Array& a);
~Array() { Free(); }
inline double Elem(int i);
inline void ChangeElem(int i, double x);
protected:
void Alloc(int _len);
void Free();
int len;
double* val;
};

Array::Array(const Array& a) : len(a.len)
{
val = new double[len];
for (int i=0; i<len; i++)
val[i] = a.val[i];
}

В визуализации везде всё в скобках почти,мне нажеться C++ этого не терпит...Ну хз,надо спросить кто знает C++ тогда,будем надеяться такие люди заходят в этот роздел сайта)

ты не понял мну, цпп видоизмененный, тобишь написана прога, а потом через чет переделана под определенное железо

[Mixon]

хм,ну я так понял что ето не конкретно какой то язык всётаки взят,а переделан он под прогу,самописный короче,и знают етот язык токо его создатели,я правельно понял?)

[Mixon]

^^^UP^^^

[rudvil]

http://www.computerfileextensions.com/file-extensions.php/TVP

[Pashkela]

Это встроенный язык для файлов визуализации для pod-ов всяческих

про синтаксис можно немного почитать здесь:

http://translate.google.ru/translate?hl=ru&sl=zh-CN&u=http://bbs.ttpod.com/viewthread.php%3Ftid%3D28238&ei=KEuJSozPCYbQ-QaG5KS7CQ&sa=X&oi=translate&resnum=1&ct=result&prev=/search%3Fq%3D(cart%2B%2524x%2B%2524y%2B(*%2B%2524v %2B%2524midPeak)%26hl%3Dru%26lr%3D%26sa%3DG%26neww indow%3D1

из ссылки удалите все пробелы

[Mixon]

Pashkela,и как всегда помог,спс!
Но то ли я такой тупой то ли перевод не очень то ли язык такой сложный,но я практически вопще не понял с данного пособия как делать визуализацию,надо будет поковырять сорсы))
Спс!
Тему мона CLOSED!:)