Что за язык программирования?
Вопщем нарыл супер плеер на смарт 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
Ето сам язык плеера,для него специально,или ето какой то другой,более роспостранённый? |
