Online PHP Javascript Script Decoder

Online PHP and Javascript Decoder decode hidden script to uncover its real functionality

Original code:

<?php
 goto ISxE4; UZ5Av: $htk = 0.05; goto IEwJJ; r4pKn: if ($Kol > 0) { $StrokaM = Markirovka_($AB, $Sym, $Kol, $Zvt, $kL1, $kL2, $kL3, $FF, $ArrKoef, $Dmax_, $Dmin_, $L_, $S_, $Sm, $Cyl, $kL4, $htk_, $Ornt, $UserZveta0); } else { $StrokaM = ''; } goto WOidL; Cbr0L: $kL1 = 0.075; goto SrKz7; oaskV: $m_ = $m / $Km; goto NPdGh; pIe50: $Podval = "\x5d" . chr(10) . "\x7d"; goto gMq8l; NPdGh: $v_ = $v / $Km; goto ArzJ9; i3Bss: function SplineCoord4_($k, $Tn, $Yn, $Yx, $Y0, &$ArrKoef, &$TochkiSegment) { list($TochkiSegment["\103\157\157\162\144\130"][1], $TochkiSegment["\x43\x6f\x6f\162\x64\131"][1]) = array($Tn, $Yn); $x = abs($Tn); $S = $Yn - $Y0; $R = $Yx - $Y0; $p = -(27 * pow($x, 4) * $R / (4 * $S)); $q = 27 * pow($x, 6) * $R / (4 * $S); $D4 = pow($p / 3, 3) + pow($q / 2, 2); $k0 = sqrt($D4); $qk1 = -$q / 2 + $k0; $zq1 = $qk1 < 0 ? -1 : 1; $qk2 = -$q / 2 - $k0; $zq2 = $qk2 < 0 ? -1 : 1; $c4 = $zq1 * pow(abs($qk1), 1 / 3) + $zq2 * pow(abs($qk2), 1 / 3); $a4 = -27 * $R / (4 * pow($c4, 3)); $ArrKoef["\x61"] = $a4; $ArrKoef["\143"] = $c4; $x04 = -sqrt(2 * $c4 / 3); $x24 = -sqrt(2 * $c4 / 5); $y24 = $a4 * pow($x24, 4) * (pow($x24, 2) - $c4) + $Y0; $sec1 = 5 * $k; $Shag = ($x04 - $Tn) / $sec1; $kol = $sec1 - 1; for ($i = 1; $i <= $kol; $i++) { $n = $i + 1; $x = $Tn + $i * $Shag; $y = $a4 * pow($x, 4) * (pow($x, 2) - $c4) + $Y0; list($TochkiSegment["\103\x6f\157\162\144\x58"][$n], $TochkiSegment["\x43\157\157\162\144\x59"][$n]) = array($x, $y); } list($TochkiSegment["\x43\157\x6f\162\x64\130"][$sec1 + 1], $TochkiSegment["\103\x6f\x6f\x72\x64\x59"][$sec1 + 1]) = array($x04, $Yx); $sec2 = 3 * $k; $Shag = ($x24 - $x04) / $sec2; $kol = $sec2 - 1; for ($i = 1; $i <= $kol; $i++) { $n = $sec1 + $i + 1; $x = $x04 + $i * $Shag; $y = $a4 * pow($x, 4) * (pow($x, 2) - $c4) + $Y0; list($TochkiSegment["\103\x6f\x6f\162\x64\130"][$n], $TochkiSegment["\x43\x6f\157\x72\144\131"][$n]) = array($x, $y); } list($TochkiSegment["\x43\x6f\157\x72\x64\130"][$sec1 + $sec2 + 1], $TochkiSegment["\x43\157\157\162\x64\x59"][$sec1 + $sec2 + 1]) = array($x24, $y24); $sec3 = 4 * $k; $Shag = (0 - $x24) / $sec3; $kol = $sec3 - 1; for ($i = 1; $i <= $kol; $i++) { $n = $sec1 + $sec2 + $i + 1; $x = $x24 + $i * $Shag; $y = $a4 * pow($x, 4) * (pow($x, 2) - $c4) + $Y0; list($TochkiSegment["\103\x6f\157\x72\x64\130"][$n], $TochkiSegment["\x43\157\x6f\x72\x64\131"][$n]) = array($x, $y); } list($TochkiSegment["\x43\157\x6f\162\x64\130"][$sec1 + $sec2 + $sec3 + 1], $TochkiSegment["\103\x6f\x6f\x72\144\131"][$sec1 + $sec2 + $sec3 + 1]) = array(0, $Y0); return; } goto w2eRS; zKCw9: $kL4 = 0.55; goto xMkWE; ehMI2: function Stroka_($Nazva, $Mater_Nam, $Mater_RGB, $Mater_Prz, &$Ind, &$Mass) { $Zagolovok = "\x44\x45\106\40" . $Nazva . "\x20\124\162\x61\156\163\146\x6f\162\x6d\40\x7b" . chr(10) . "\143\x68\151\154\144\x72\145\x6e\x20\133" . chr(10) . "\123\x68\141\160\145\40\x7b" . chr(10); $Material = "\x61\x70\160\145\141\162\x61\156\x63\x65\40\104\105\x46\x20" . $Mater_Nam . "\x20\101\x70\160\x65\141\162\x61\156\x63\145\40\x7b" . chr(10) . "\x6d\141\164\145\x72\151\141\x6c\40\115\141\x74\145\162\151\x61\x6c\x20\x7b" . chr(10) . "\x64\x69\146\146\x75\x73\145\103\x6f\x6c\157\x72\40" . $Mater_RGB . chr(10) . "\164\162\x61\156\163\x70\141\162\145\x6e\143\x79\x20" . $Mater_Prz . chr(10) . "\175" . chr(10) . "\175" . chr(10); $Geometry = "\147\145\157\x6d\145\x74\162\x79\x20\x44\x45\106\40\x46\x41\103\105\x53\x45\x54\x5f" . $Nazva . "\40\111\156\x64\145\x78\145\x64\x46\x61\x63\x65\x53\x65\164\x20\173" . chr(10) . "\x63\143\167\40\x46\101\114\123\105" . chr(10) . "\x63\x72\x65\x61\163\x65\101\x6e\147\x6c\x65\40\60\56\x35" . chr(10); $Stroka = "\143\x6f\157\x72\x64\40\x43\x6f\157\162\144\x69\x6e\141\x74\x65\40\173" . chr(10) . "\160\x6f\151\x6e\x74\x20\x5b"; $asd = ''; $i = 0; $reccount = SizeOf($Mass["\103\157\x6f\x72\144\130"]); for ($i = 0; $i <= $reccount - 1; $i++) { $asd = $asd . round($Mass["\x43\157\157\162\144\130"][$i], 4) . "\40" . round($Mass["\x43\x6f\x6f\x72\144\x59"][$i], 4) . "\40" . round($Mass["\103\157\x6f\162\144\132"][$i], 4) . "\x2c"; $asd = ($i + 1) % 10 != 0 ? $asd : ($i != $reccount - 1 ? $asd . chr(10) . "\x20\40" : $asd); } $Stroka = $Stroka . substr($asd, 0, strlen($asd) - 1) . "\x5d" . chr(10) . "\x7d" . chr(10); $Stroka = $Zagolovok . $Material . $Geometry . $Stroka . $Ind; return $Stroka; } goto SB8CM; roFyu: $PaB = (int) substr($Kach, 2, 2); goto kOhb0; SrKz7: $kL2 = 0.125; goto WmX6J; qvWlJ: function Vyvody_($Dmax_k, $L_k, $t_k, $S_k, $h_k, $Sm_k, $mb_k, $vs_k, $Krb_k, $PaB_k, $Cyl_k, $Orient_k) { $Rb = $Krb_k * $t_k; if ($Orient_k == "\110") { $Zq = $Sm_k - $Rb; } else { $Zq = $h_k + $L_k; } $TochkiAllRP = array("\122\145\x62\162\157" => array("\x30" => NULL), "\120\157\160\145\162" => array("\60" => NULL), "\103\157\x6f\x72\x64\130" => array("\x30" => NULL), "\103\157\x6f\162\144\131" => array("\60" => NULL), "\103\x6f\x6f\162\144\x5a" => array("\60" => NULL)); $m = 2 * $PaB_k + 2; $xv = $Cyl_k / 8; $Sqrt45 = sqrt(2) / 2; $t2 = $t_k / 2; $s2 = $S_k / 2; $gt = 2 * pi() / $Cyl_k; $rt = pi() / (2 * ($PaB_k - 1)); $Xq = $s2 - $Rb; $Za = -($mb_k + $vs_k); $P45 = ($PaB_k + 3) / 2; $P45sm = $m - $P45 + 1; $n = $P45 - 3; for ($b = 1; $b <= $xv; $b++) { if ($b > 1) { $pred = 2 - $b; $g = ($b - 1) * $gt; $cs = cos($g); $sn = sin($g); $dob = 1; } else { $dob = 0; $pred = 0; } for ($i = 1; $i <= 8; $i++) { $R = ($i - 1) * $xv * (1 + $dob) + 1 + $dob - $pred * $dob; $pred = $R; if ($b > 1) { $mnXY = intval($i / 2) % 2; if ($mnXY == 0) { $mnX = $cs; $mnY = $sn; } else { $mnX = $sn; $mnY = $cs; } } else { $md2 = $i % 2; $md4 = $i % 4; $mnXY = $md2 * $md4 % 2 * 10 - intval($md2 * $md4 / 2) * 9; if ($mnXY == 0) { list($mnX, $mnY) = array(sqrt(2) / 2, sqrt(2) / 2); } else { $mnX = intval($mnXY / 10); $mnY = $mnXY % 10; } } $md0 = intval($i / 3) - intval($i / 6) - intval($i / 7) + 1; $znX = $md0 - 3 * intval($md0 / 2); $znY = 2 * intval($i / 5) - 1; $X = $s2 + $t2 * $mnX * $znX; $Y = $t2 * $mnY * $znY; $Nom = ($R - 1) * $m; $Nsm = $R * $m - 1; list($TochkiAllRP["\x52\x65\x62\x72\x6f"][$Nom], $TochkiAllRP["\120\x6f\160\x65\x72"][$Nom], $TochkiAllRP["\x43\157\x6f\x72\x64\x58"][$Nom], $TochkiAllRP["\103\157\x6f\x72\144\x59"][$Nom], $TochkiAllRP["\103\x6f\x6f\162\x64\132"][$Nom]) = array($R, 1, $X, $Y, $Za); list($TochkiAllRP["\122\145\x62\x72\x6f"][$Nsm], $TochkiAllRP["\120\157\x70\145\x72"][$Nsm], $TochkiAllRP["\x43\x6f\x6f\x72\x64\130"][$Nsm], $TochkiAllRP["\103\157\x6f\x72\x64\x59"][$Nsm], $TochkiAllRP["\x43\x6f\157\162\x64\x5a"][$Nsm]) = array($R, $m, -$X, $Y, $Za); $Nom = ($R - 1) * $m + 1; $Nsm = $R * $m - 2; list($TochkiAllRP["\x52\145\x62\162\157"][$Nom], $TochkiAllRP["\120\x6f\x70\x65\162"][$Nom], $TochkiAllRP["\x43\x6f\x6f\x72\144\x58"][$Nom], $TochkiAllRP["\103\157\x6f\162\144\131"][$Nom], $TochkiAllRP["\x43\157\157\162\x64\x5a"][$Nom]) = array($R, 1, $X, $Y, $Zq); list($TochkiAllRP["\122\145\x62\x72\x6f"][$Nsm], $TochkiAllRP["\120\x6f\160\145\x72"][$Nsm], $TochkiAllRP["\x43\157\x6f\x72\x64\x58"][$Nsm], $TochkiAllRP["\x43\157\x6f\162\x64\x59"][$Nsm], $TochkiAllRP["\103\x6f\x6f\162\x64\132"][$Nsm]) = array($R, $m, -$X, $Y, $Zq); $Z = $Zq + $Rb + $t2 * $mnX * $znX; $Nom = ($R - 1) * $m + $PaB_k; $Nsm = $Nom + 1; list($TochkiAllRP["\122\145\142\162\x6f"][$Nom], $TochkiAllRP["\x50\x6f\x70\145\162"][$Nom], $TochkiAllRP["\x43\157\157\162\144\130"][$Nom], $TochkiAllRP["\103\x6f\x6f\x72\x64\131"][$Nom], $TochkiAllRP["\103\157\157\162\144\132"][$Nom]) = array($R, $PaB_k + 1, $Xq, $Y, $Z); list($TochkiAllRP["\122\145\x62\x72\157"][$Nsm], $TochkiAllRP["\x50\157\160\145\162"][$Nsm], $TochkiAllRP["\103\157\x6f\162\144\x58"][$Nsm], $TochkiAllRP["\103\x6f\x6f\x72\x64\x59"][$Nsm], $TochkiAllRP["\x43\157\x6f\162\x64\x5a"][$Nsm]) = array($R, $PaB_k + 2, -$Xq, $Y, $Z); $Rtek = $Rb + $X - $s2; for ($j = 1; $j <= $n; $j++) { $rj = $j * $rt; $rCs = cos($rj); $rSn = sin($rj); $X1j = $Xq + $Rtek * $rCs; $Z1j = $Zq + $Rtek * $rSn; $P1 = $j + 2; $P1sm = $m - $P1 + 1; $Nom = ($R - 1) * $m + $P1 - 1; $Nsm = $R * $m - $P1; list($TochkiAllRP["\x52\145\142\x72\x6f"][$Nom], $TochkiAllRP["\120\157\160\145\162"][$Nom], $TochkiAllRP["\103\157\157\x72\x64\x58"][$Nom], $TochkiAllRP["\x43\157\x6f\x72\x64\x59"][$Nom], $TochkiAllRP["\x43\157\x6f\x72\144\132"][$Nom]) = array($R, $P1, $X1j, $Y, $Z1j); list($TochkiAllRP["\x52\145\x62\162\157"][$Nsm], $TochkiAllRP["\120\x6f\x70\x65\x72"][$Nsm], $TochkiAllRP["\103\x6f\157\162\144\x58"][$Nsm], $TochkiAllRP["\103\x6f\157\x72\144\x59"][$Nsm], $TochkiAllRP["\103\157\157\162\x64\x5a"][$Nsm]) = array($R, $P1sm, -$X1j, $Y, $Z1j); $X2j = $Xq + $Rtek * $rSn; $Z2j = $Zq + $Rtek * $rCs; $P2 = 2 * $P45 - $P1; $P2sm = $m - $P2 + 1; $Nom = ($R - 1) * $m + $P2 - 1; $Nsm = $R * $m - $P2; list($TochkiAllRP["\122\145\x62\x72\157"][$Nom], $TochkiAllRP["\120\157\160\145\162"][$Nom], $TochkiAllRP["\x43\x6f\x6f\162\x64\130"][$Nom], $TochkiAllRP["\x43\157\157\162\x64\x59"][$Nom], $TochkiAllRP["\103\x6f\x6f\162\144\132"][$Nom]) = array($R, $P2, $X2j, $Y, $Z2j); list($TochkiAllRP["\122\x65\x62\162\157"][$Nsm], $TochkiAllRP["\x50\157\x70\145\x72"][$Nsm], $TochkiAllRP["\103\157\x6f\x72\x64\x58"][$Nsm], $TochkiAllRP["\x43\157\x6f\162\x64\131"][$Nsm], $TochkiAllRP["\103\x6f\157\x72\x64\x5a"][$Nsm]) = array($R, $P2sm, -$X2j, $Y, $Z2j); } $X45 = $Xq + $Rtek * $Sqrt45; $Z45 = $Zq + $Rtek * $Sqrt45; $Nom = ($R - 1) * $m + $P45 - 1; $Nsm = $R * $m - $P45; list($TochkiAllRP["\x52\145\142\x72\157"][$Nom], $TochkiAllRP["\120\157\160\145\x72"][$Nom], $TochkiAllRP["\103\157\157\162\x64\130"][$Nom], $TochkiAllRP["\x43\157\x6f\x72\x64\131"][$Nom], $TochkiAllRP["\x43\x6f\157\x72\x64\x5a"][$Nom]) = array($R, $P45, $X45, $Y, $Z45); list($TochkiAllRP["\x52\145\142\x72\157"][$Nsm], $TochkiAllRP["\x50\157\160\x65\162"][$Nsm], $TochkiAllRP["\103\157\157\x72\144\130"][$Nsm], $TochkiAllRP["\103\x6f\157\x72\x64\x59"][$Nsm], $TochkiAllRP["\x43\157\157\162\x64\x5a"][$Nsm]) = array($R, $P45sm, -$X45, $Y, $Z45); } } $tsg = SizeOf($TochkiAllRP["\x43\157\x6f\x72\x64\130"]); for ($i = 0; $i < $tsg; $i++) { list($TochkiAll["\116\157\155\x65\162"][$i], $TochkiAll["\x43\x6f\157\x72\144\130"][$i], $TochkiAll["\103\157\x6f\x72\x64\131"][$i], $TochkiAll["\103\x6f\157\162\144\132"][$i]) = array(intval(($TochkiAllRP["\122\x65\142\162\157"][$i] - 1) * $m + $TochkiAllRP["\120\x6f\x70\145\162"][$i]), $TochkiAllRP["\x43\x6f\157\x72\x64\x58"][$i], $TochkiAllRP["\103\x6f\157\x72\x64\x59"][$i], $TochkiAllRP["\x43\157\157\162\144\132"][$i]); } unset($TochkiAllRP); $Ind = Polygons_($Cyl_k, $m, True, True); $Stroka = Stroka_("\x56\171\166\x6f\x64\x79", "\132\166\145\x74\x56\171\166\x6f\x64\157\x76", "\60\x2e\70\x20\60\56\70\40\60\56\x38\63", "\x30", $Ind, $TochkiAll); unset($Ind, $Dmax_k, $L_k, $t_k, $S_k, $h_k, $Sm_k, $mb_k, $vs_k, $Krb_k, $PaB_k, $Cyl_k, $Orient_k); unset($TochkiAll); return $Stroka; } goto M1VuG; Y75D0: function Markirovka_($AB_k, $Sym_k, $Kol_k, $Zvt_k, $kL1_k, $kL2_k, $kL3_k, $FF_k, &$ArrKoef_k, $Dmax_k, $Dmin_k, $L_k, $S_k, $Sm_k, $Cyl_k, $kL4_k, $htk_k, $Orient_k, &$UserZveta0_k) { if ($AB_k == 1) { if ($Sym_k == 1) { list($f1, $f2) = array(0.1 * $L_k, 0.1 * $L_k); list($k432, $k4, $k3, $k2, $kf1, $kn1, $c1, $kz, $kn2, $c2) = array(1, 1, 2, 1, 0, 1, 0, 1, 1, 0); } elseif ($Sym_k == 2) { list($f1, $f2) = array(0.1 * $L_k, 0.1 * $L_k); list($k432, $k4, $k3, $k2, $kf1, $kn1, $c1, $kz, $kn2, $c2) = array(1, 1, 2, 1, 0, 1, 0, 1, 0, 0); } else { if ($Kol_k == 6) { list($f1, $f2) = array(2 * $L_k / 30, 2 * $L_k / 30); } else { list($f1, $f2) = array(0.1 * $L_k, 0.1 * $L_k); } list($k432, $k4, $k3, $k2, $kf1, $kn1, $c1, $kz, $kn2, $c2) = array(1, 2, 2, 1, 0, 2, 0, 1, 0, 10); } } else { if ($Sym_k == 1) { list($f1, $f2) = array(sqrt(1.5), 1 / $f1); list($k432, $k4, $k3, $k2, $kf1, $kn1, $c1, $kz, $kn2, $c2) = array(2, 1, 2, 1, 1, 2, 2, 2, 1, 0); } elseif ($Sym_k == 2) { list($f1, $f2) = array(sqrt(1.5), 1 / $f1); list($k432, $k4, $k3, $k2, $kf1, $kn1, $c1, $kz, $kn2, $c2) = array(2, 1, 2, 1, 1, 2, 2, 2, 0, 0); } else { $f1 = sqrt(1.5); $f2 = $Kol_k == 6 ? 2 * $L_k / 30 : 1 / $f1; list($k432, $k4, $k3, $k2, $kf1, $kn1, $c1, $kz, $kn2, $c2) = array(1, 1, 1, 0, 0, 1, 0, 0, 0, 5); } } $z = ($k432 * ($k4 * $kL4_k * $L_k + $k3 * $kL3_k * $L_k + $k2 * $kL2_k * $L_k) - $kf1 * $f1 - $f2 * ($kn1 * $Kol_k - 1 - $c1)) / ($kz * ($Kol_k - $kn2) + $c2); $arrZvt = explode("\x5f", $Zvt_k); $Sm1 = $kL1_k * $L_k + 0.5 * ($kL2_k * $L_k - $f1); $StrokaKolez = ''; $m = $FF_k == 0 ? 2 : ($Cyl_k / 8 - 3) * 4 + 1; $Ind = Polygons_($Cyl_k, $m, False, False); $tsg = SizeOf($arrZvt); for ($i = 1; $i <= $tsg; $i++) { $namColor = $arrZvt[$i - 1]; $hexColor = $UserZveta0_k[$namColor]; $aZvt = hexToRgb($hexColor); $rw = round($aZvt["\x72\x65\144"] / 255, 4); $gw = round($aZvt["\x67\162\145\145\156"] / 255, 4); $bw = round($aZvt["\142\154\x75\x65"] / 255, 4); $wrlColor = $rw . "\x20" . $gw . "\x20" . $bw; $f = $i == 1 ? $f1 : $f2; $Sm0 = $i == 1 ? $Sm1 : ($i == $Kol_k ? $Sym_k == 2 ? $Sm1 + $f1 + $Kol_k * $z + ($Kol_k - 2) * $f2 : $Sm1 + $f1 + ($Kol_k - 1) * $z + ($Kol_k - 2) * $f2 : $Sm1 + $f1 + ($i - 1) * $z + ($i - 2) * $f2); $Sm0 = $Sm0 - $L_k / 2; if ($FF_k == 0) { $StrokaTek = Kolzo_($Dmax_k, $Dmin_k, $L_k, $S_k, $Sm_k, $Cyl_k, $kL4_k, $htk_k, $i, $wrlColor, $Sm0, $f, $Ind, $Orient_k); } else { $StrokaTek = Kolzo_($ArrKoef_k["\x61"], $Dmin_k, $ArrKoef_k["\x63"], $S_k, $Sm_k, $Cyl_k, $FF_k, $htk_k, $i, $wrlColor, $Sm0, $f, $Ind, $Orient_k); } $StrokaKolez = $StrokaKolez . $StrokaTek; } return $StrokaKolez; } goto bwDCx; kOhb0: $PaM = (int) substr($Kach, 4, 2); goto UZ5Av; SB8CM: function Korpus_($Dmax_k, $Dmin_k, $L_k, $t_k, $S_k, $Sm_k, $mb_k, $vs_k, $PaB_k, $PaM_k, $Cyl_k, $kL1_k, $kL2_k, $kL3_k, $kL4_k, $Zvet_k, $Orient_k, &$ArrKoef_k) { $TochkiSegment = array("\x43\x6f\157\x72\144\x58" => array("\60" => 0), "\103\157\157\x72\x64\131" => array("\x30" => 0)); if ($PaM_k > 4) { $Tn1 = -$L_k / 2; $Tk1 = $Tn1 + $L_k * $kL1_k; $Tn2 = $Tk1 + $L_k * $kL2_k; $Tk2 = $Tn2 + $L_k * $kL3_k; $Yn1 = $t_k / 2; $Yk1 = $Dmax_k / 2; SplineCoord0_(0, $PaB_k, $Tn1, $Tk1, $Yn1, $Yk1, $TochkiSegment); $Yn2 = $Yk1; $Yk2 = $Dmin_k / 2; SplineCoord0_($PaB_k, $PaM_k, $Tn2, $Tk2, $Yn2, $Yk2, $TochkiSegment); $m = 2 * ($PaB_k + $PaM_k); } else { $Tn = -$L_k / 2; $Yn = $t_k / 2; $Yx = $Dmax_k / 2; $Y0 = $Dmin_k / 2; $k24 = $Cyl_k / 8 - 3; if ($PaM_k == 2) { SplineCoord2_($k24, $Tn, $Yn, $Yx, $Y0, $ArrKoef_k, $TochkiSegment); } else { SplineCoord4_($k24, $Tn, $Yn, $Yx, $Y0, $ArrKoef_k, $TochkiSegment); } $m = 24 * $k24 + 1; } unset($TochkiSegment["\x43\x6f\x6f\x72\x64\x58"][0], $TochkiSegment["\x43\x6f\x6f\162\x64\131"][0]); array_multisort($TochkiSegment["\x43\x6f\157\x72\144\130"], SORT_ASC, SORT_NUMERIC, $TochkiSegment["\x43\x6f\157\x72\144\x59"], SORT_ASC, SORT_NUMERIC); $TochkiAllRP = array("\122\145\142\x72\157" => array("\x30" => NULL), "\120\157\160\x65\x72" => array("\60" => NULL), "\103\x6f\x6f\x72\x64\130" => array("\x30" => NULL), "\x43\x6f\x6f\162\x64\x59" => array("\60" => NULL), "\x43\x6f\157\162\144\132" => array("\60" => NULL)); $xv = $Cyl_k / 8; $gt = 2 * pi() / $Cyl_k; for ($b = 1; $b <= $xv; $b++) { if ($b > 1) { $pred = 2 - $b; $g = ($b - 1) * $gt; $cs = COS($g); $sn = SIN($g); $dob = 1; } else { $dob = 0; $pred = 0; } for ($i = 1; $i <= 8; $i++) { $R = ($i - 1) * $xv * (1 + $dob) + 1 + $dob - $pred * $dob; $pred = $R; if ($b > 1) { $mnYZ = intval($i / 2) % 2; if ($mnYZ == 0) { $mnY = $cs; $mnZ = $sn; } else { $mnY = $sn; $mnZ = $cs; } } else { $md2 = $i % 2; $md4 = $i % 4; $mnYZ = $md2 * $md4 % 2 * 10 - intval($md2 * $md4 / 2) * 9; if ($mnYZ == 0) { list($mnY, $mnZ) = array(sqrt(2) / 2, sqrt(2) / 2); } else { $mnY = intval($mnYZ / 10); $mnZ = $mnYZ % 10; } } $md0 = intval($i / 3) - intval($i / 6) - intval($i / 7) + 1; $znY = $md0 - 3 * intval($md0 / 2); $znZ = 2 * intval($i / 5) - 1; $tsg = SizeOf($TochkiSegment["\103\157\x6f\162\x64\x58"]); for ($j = 0; $j < $tsg; $j++) { $X = $TochkiSegment["\103\157\x6f\x72\144\130"][$j]; $Ytk = $TochkiSegment["\x43\157\157\162\144\x59"][$j]; $Y = $znY * $Ytk * $mnY; $Z = $znZ * $Ytk * $mnZ; $Nom = ($R - 1) * $m + $j; $Nsm = $R * $m - $j - 1; list($TochkiAllRP["\x52\145\x62\162\157"][$Nom], $TochkiAllRP["\120\x6f\x70\145\x72"][$Nom], $TochkiAllRP["\x43\157\157\x72\x64\x58"][$Nom], $TochkiAllRP["\103\x6f\x6f\162\144\x59"][$Nom], $TochkiAllRP["\103\x6f\x6f\x72\x64\x5a"][$Nom]) = array($R, $j + 1, $X, $Y, $Z); if ($m - $j > $j) { list($TochkiAllRP["\x52\145\x62\x72\x6f"][$Nsm], $TochkiAllRP["\x50\x6f\160\x65\x72"][$Nsm], $TochkiAllRP["\103\157\x6f\162\x64\130"][$Nsm], $TochkiAllRP["\x43\157\157\x72\x64\131"][$Nsm], $TochkiAllRP["\103\x6f\157\162\x64\x5a"][$Nsm]) = array($R, $m - $j, -$X, $Y, $Z); } } } } unset($TochkiSegment); $tsg = SizeOf($TochkiAllRP["\x43\157\x6f\162\x64\x58"]); $TochkiAll = array("\116\157\155\x65\x72" => array("\x30" => NULL), "\x43\x6f\x6f\162\x64\x58" => array("\x30" => NULL), "\x43\157\157\162\144\131" => array("\60" => NULL), "\103\x6f\x6f\162\x64\x5a" => array("\x30" => NULL)); if ($Orient_k == "\x48") { for ($i = 0; $i < $tsg; $i++) { list($TochkiAll["\x4e\157\155\x65\162"][$i], $TochkiAll["\103\x6f\x6f\162\144\130"][$i], $TochkiAll["\103\157\x6f\x72\x64\131"][$i], $TochkiAll["\x43\x6f\x6f\x72\144\x5a"][$i]) = array(intval(($TochkiAllRP["\122\x65\x62\162\x6f"][$i] - 1) * $m + $TochkiAllRP["\120\157\x70\145\162"][$i]), $TochkiAllRP["\x43\157\157\x72\x64\x58"][$i], $TochkiAllRP["\x43\157\157\x72\x64\131"][$i], $TochkiAllRP["\x43\x6f\x6f\162\144\132"][$i] + $Sm_k); } } else { $DS2 = $S_k / 2; for ($i = 0; $i < $tsg; $i++) { list($TochkiAll["\x4e\x6f\x6d\145\162"][$i], $TochkiAll["\x43\157\157\162\144\x58"][$i], $TochkiAll["\x43\157\x6f\162\144\x59"][$i], $TochkiAll["\103\157\x6f\x72\144\x5a"][$i]) = array(intval(($TochkiAllRP["\122\x65\x62\x72\157"][$i] - 1) * $m + $TochkiAllRP["\x50\157\x70\145\x72"][$i]), -$TochkiAllRP["\103\157\157\162\x64\132"][$i] + $DS2, $TochkiAllRP["\x43\157\x6f\x72\x64\x59"][$i], $TochkiAllRP["\103\x6f\x6f\162\144\x58"][$i] + $Sm_k); } } unset($TochkiAllRP); $Ind = Polygons_($Cyl_k, $m, False, False); $aZvt = hexToRgb($Zvet_k); $rw = round($aZvt["\162\145\x64"] / 255, 4); $gw = round($aZvt["\x67\x72\x65\x65\156"] / 255, 4); $bw = round($aZvt["\x62\x6c\165\145"] / 255, 4); $wrlColor = $rw . "\x20" . $gw . "\x20" . $bw; $Stroka = Stroka_("\x4b\157\x72\x70\165\x73", "\x5a\166\x65\164\x4b\x6f\x72\160\165\163\141", $wrlColor, "\x30", $Ind, $TochkiAll); unset($TochkiAll); unset($Ind, $Dmax_k, $Dmin_k, $L_k, $t_k, $S_k, $Sm_k, $mb_k, $vs_k, $PaB_k, $PaM_k, $Cyl_k, $kL1_k, $kL2_k, $kL3_k, $kL4_k, $Zvet_k); return $Stroka; } goto qvWlJ; P5WpB: $h_ = $h_ / $Km; goto oaskV; mOeIb: $Dmax_ = $Dmax / $Km; goto QlxSy; QlxSy: $Dmin_ = $Dmin / $Km; goto K2yZH; w2eRS: function Polygons_($c, $n, $TorezNac, $TorezKon) { list($t1, $t2, $t3, $t4, $q) = array(0, 0, 0, 0, 0); $asd = ''; $Indexy = "\40\x63\157\157\162\x64\x49\156\144\145\x78\x20\133"; $m0 = $n - 1; for ($i = 1; $i <= $c; $i++) { $SdvigV = ($i - 1) * $n; $SdvigP = $i * $n % ($n * $c); for ($j = 1; $j <= $m0; $j++) { $t1 = $SdvigV + $j; $t2 = $SdvigP + $j; $t3 = $SdvigP + $j + 1; $t4 = $SdvigV + $j + 1; $q++; $asd = $asd . ($t1 - 1) . "\x2c" . ($t2 - 1) . "\54" . ($t3 - 1) . "\54" . ($t4 - 1) . "\54\55\x31\54"; $asd = $q % 10 != 0 ? $asd : ($q != $c * $m0 ? $asd . chr(10) . "\40\x20" : $asd); } } $asd = substr($asd, 0, strlen($asd) - 1); $zxc = ''; if ($TorezNac == TRUE) { for ($i = 1; $i <= $c; $i++) { $zxc = $zxc . ($i - 1) * $n . "\x2c"; } $zxc = $zxc . "\x2d\61" . "\54"; } $asd = $zxc . $asd; $zxc = ''; if ($TorezKon == TRUE) { for ($i = 1; $i <= $c; $i++) { $zxc = $zxc . ($i * $n - 1) . "\54"; } $zxc = "\x2c" . $zxc . "\x2d\61"; } $asd = $asd . $zxc; $Indexy = $Indexy . $asd . "\135" . chr(10) . "\175" . chr(10) . "\x7d" . chr(10) . "\x5d" . chr(10) . "\175" . chr(10); return $Indexy; } goto ehMI2; gMq8l: $Stroka = $ZagolovokGruppa . $Stroka0 . $StrokaV . $StrokaM . $Podval; goto VDSYX; prdV2: $ArrKoef = array("\x61" => NULL, "\143" => NULL); goto vLYo1; ISxE4: if (!defined("\115\x79\x33\x64")) { die("\x61\x63\143\x65\163\163\x20\144\x65\156\151\x65\144"); } goto wx1e_; wx1e_: $Krb = 1.375; goto Cbr0L; ArzJ9: $xv = $Cyl / 8; goto lhHNt; kxZ1g: $StrokaV = Vyvody_($Dmax_, $L_, $t_, $S_, $h_, $Sm, $m_, $v_, $Krb, $PaB, $Cyl, $Ornt); goto r4pKn; cw06e: $t_ = $t / $Km; goto ztnle; IEwJJ: $Km = $Izmer == 2 ? 2.63158 : 1.0; goto mOeIb; bwDCx: function hexToRgb($hex, $return_string = false) { $hex = trim($hex, "\40\x23"); $size = strlen($hex); if ($size == 3 || $size == 4) { $parts = str_split($hex, 1); $hex = ''; foreach ($parts as $row) { $hex .= $row . $row; } } $dec = hexdec($hex); $rgb = array(); if ($size == 3 || $size == 6) { $rgb["\162\145\144"] = 255 & $dec >> 16; $rgb["\147\162\145\145\156"] = 255 & $dec >> 8; $rgb["\x62\154\165\x65"] = 255 & $dec; if ($return_string) { return "\x72\147\x62\50" . implode("\54", $rgb) . "\x29"; } } elseif ($size == 4 || $size == 8) { $rgb["\x72\x65\x64"] = 255 & $dec >> 22; $rgb["\x67\162\x65\145\x6e"] = 255 & $dec >> 16; $rgb["\142\154\x75\145"] = 255 & $dec >> 8; $rgb["\x61\x6c\160\150\x61"] = 255 & $dec; if ($return_string) { $rgb["\141\154\160\x68\141"] = round($rgb["\x61\x6c\160\150\x61"] / (255 / 100) / 100, 2); return "\x72\147\142\x61\x28" . implode("\54", $rgb) . "\51"; } else { $rgb["\141\154\160\150\x61"] = 127 - ($rgb["\141\154\160\150\141"] >> 1); } } else { return false; } return $rgb; } goto LlpUu; M1VuG: function Kolzo_(&$Dmax_k, $Dmin_k, &$L_k, $S_k, $Sm_k, $Cyl_k, $kL4_k, $htk_k, $Nom_k, $Zvet_k, $Xnac_k, $f_k, &$Ind_k, $Orient_k) { $TochkiSegment = array("\103\x6f\x6f\x72\x64\x58" => array("\60" => 0), "\x43\157\x6f\162\x64\131" => array("\60" => 0)); $Xkon = $Xnac_k + $f_k; if ($kL4_k > 1) { $Y0 = $Dmin_k / 2 + $htk_k; $ff = $kL4_k; $m = ($Cyl_k / 8 - 3) * 4; $Shag = $f_k / $m; $a = $Dmax_k; $c = $L_k; if ($ff == 2) { for ($i = 0; $i <= $m; $i++) { $n = $i + 1; $x = $Xnac_k + $i * $Shag; $y = $a * pow($x, 2) * (pow($x, 2) - $c) + $Y0; list($TochkiSegment["\103\157\x6f\x72\144\x58"][$n], $TochkiSegment["\103\157\x6f\x72\x64\131"][$n]) = array($x, $y); } } else { for ($i = 0; $i <= $m; $i++) { $n = $i + 1; $x = $Xnac_k + $i * $Shag; $y = $a * pow($x, 4) * (pow($x, 2) - $c) + $Y0; list($TochkiSegment["\x43\157\157\162\144\130"][$n], $TochkiSegment["\x43\157\157\x72\x64\131"][$n]) = array($x, $y); } } $m = $m + 1; } else { $d = ABS($Xnac_k) < $L_k * $kL4_k / 2 ? $Dmin_k : $Dmax_k; $Y1 = ($d + $htk_k) / 2; list($TochkiSegment["\x43\x6f\157\162\144\130"][1], $TochkiSegment["\x43\x6f\157\162\x64\131"][1]) = array($Xnac_k, $Y1); $m = 2; list($TochkiSegment["\103\157\x6f\162\144\130"][$m], $TochkiSegment["\103\x6f\x6f\x72\x64\131"][$m]) = array($Xkon, $Y1); } unset($TochkiSegment["\x43\x6f\x6f\x72\x64\130"][0], $TochkiSegment["\x43\x6f\157\162\x64\131"][0]); array_multisort($TochkiSegment["\103\x6f\157\162\x64\130"], SORT_ASC, SORT_NUMERIC, $TochkiSegment["\x43\157\x6f\162\x64\131"], SORT_ASC, SORT_NUMERIC); $TochkiAllRP = array("\x52\145\142\x72\x6f" => array("\x30" => NULL), "\x50\x6f\x70\x65\162" => array("\60" => NULL), "\x43\x6f\157\162\x64\x58" => array("\x30" => NULL), "\x43\x6f\x6f\162\144\131" => array("\60" => NULL), "\103\157\x6f\x72\144\x5a" => array("\x30" => NULL)); $xv = $Cyl_k / 8; $gt = 2 * pi() / $Cyl_k; for ($b = 1; $b <= $xv; $b++) { if ($b > 1) { $pred = 2 - $b; $g = ($b - 1) * $gt; $cs = cos($g); $sn = sin($g); $dob = 1; } else { $dob = 0; $pred = 0; } for ($i = 1; $i <= 8; $i++) { $R = ($i - 1) * $xv * (1 + $dob) + 1 + $dob - $pred * $dob; $pred = $R; if ($b > 1) { $mnYZ = intval($i / 2) % 2; if ($mnYZ == 0) { $mnY = $cs; $mnZ = $sn; } else { $mnY = $sn; $mnZ = $cs; } } else { $md2 = $i % 2; $md4 = $i % 4; $mnYZ = $md2 * $md4 % 2 * 10 - intval($md2 * $md4 / 2) * 9; if ($mnYZ == 0) { list($mnY, $mnZ) = array(sqrt(2) / 2, sqrt(2) / 2); } else { $mnY = intval($mnYZ / 10); $mnZ = $mnYZ % 10; } } $md0 = intval($i / 3) - intval($i / 6) - intval($i / 7) + 1; $znY = $md0 - 3 * intval($md0 / 2); $znZ = 2 * intval($i / 5) - 1; $tsg = SizeOf($TochkiSegment["\103\x6f\157\x72\144\x58"]); for ($j = 0; $j < $tsg; $j++) { $X = $TochkiSegment["\103\x6f\157\162\x64\x58"][$j]; $Ytk = $TochkiSegment["\x43\157\157\x72\x64\131"][$j]; $Y = $znY * $Ytk * $mnY; $Z = $znZ * $Ytk * $mnZ; $Nom = ($R - 1) * $m + $j; list($TochkiAllRP["\x52\x65\x62\x72\x6f"][$Nom], $TochkiAllRP["\120\x6f\x70\x65\162"][$Nom], $TochkiAllRP["\103\157\x6f\162\144\130"][$Nom], $TochkiAllRP["\103\157\x6f\x72\x64\131"][$Nom], $TochkiAllRP["\x43\157\x6f\162\144\x5a"][$Nom]) = array($R, $j + 1, $X, $Y, $Z); } } } unset($TochkiSegment); $tsg = SizeOf($TochkiAllRP["\103\x6f\x6f\x72\x64\x58"]); $TochkiAll = array("\x4e\x6f\x6d\x65\162" => array("\60" => NULL), "\103\x6f\157\x72\144\x58" => array("\60" => NULL), "\x43\x6f\x6f\x72\x64\x59" => array("\x30" => NULL), "\x43\157\157\162\144\132" => array("\60" => NULL)); if ($Orient_k == "\x48") { for ($i = 0; $i < $tsg; $i++) { list($TochkiAll["\x4e\x6f\x6d\x65\162"][$i], $TochkiAll["\103\x6f\x6f\162\144\130"][$i], $TochkiAll["\103\x6f\157\162\144\131"][$i], $TochkiAll["\x43\x6f\157\162\x64\x5a"][$i]) = array(intval(($TochkiAllRP["\x52\145\x62\x72\157"][$i] - 1) * $m + $TochkiAllRP["\120\x6f\x70\x65\162"][$i]), $TochkiAllRP["\x43\157\157\162\x64\x58"][$i], $TochkiAllRP["\103\157\x6f\x72\144\x59"][$i], $TochkiAllRP["\103\x6f\157\162\144\132"][$i] + $Sm_k); } } else { $DS2 = $S_k / 2; for ($i = 0; $i < $tsg; $i++) { list($TochkiAll["\116\157\x6d\145\162"][$i], $TochkiAll["\103\157\157\162\x64\x58"][$i], $TochkiAll["\103\157\x6f\x72\x64\x59"][$i], $TochkiAll["\x43\157\157\162\x64\x5a"][$i]) = array(intval(($TochkiAllRP["\x52\x65\142\x72\x6f"][$i] - 1) * $m + $TochkiAllRP["\120\x6f\x70\145\x72"][$i]), -$TochkiAllRP["\x43\157\x6f\162\x64\132"][$i] + $DS2, $TochkiAllRP["\x43\x6f\157\162\x64\x59"][$i], $TochkiAllRP["\103\x6f\157\x72\x64\x58"][$i] + $Sm_k); } } unset($TochkiAllRP); $Nzk = "\x4b\157\154\172\x6f" . $Nom_k; $Mrk = "\115\141\162\153\x69\162\157\x76\x6b\x61" . $Nom_k; $Stroka = Stroka_($Nzk, $Mrk, $Zvet_k, "\x30", $Ind_k, $TochkiAll); unset($R, $X, $Y, $Z, $Y1, $xv, $gt, $m, $i, $ff, $Shag, $n, $a, $c, $d, $pred, $b, $cs, $sn, $dob, $mny, $mnz, $zny, $znz, $md0, $md2, $md4); unset($TochkiAll); return $Stroka; } goto Y75D0; VDSYX: $txt = print_r($Stroka, true); goto HYYEu; Q8wvA: $Stroka0 = Korpus_($Dmax_, $Dmin_, $L_, $t_, $S_, $Sm, $m_, $v_, $PaB, $fm, $Cyl, $kL1, $kL2, $kL3, $kL4, $rezZvet, $Ornt, $ArrKoef); goto kxZ1g; ztnle: $S_ = $S / $Km; goto Yg62F; WOidL: $ZagolovokGruppa = "\43\126\122\x4d\x4c\x20\126\62\x2e\x30\40\165\164\x66\x38" . chr(10) . chr(10) . "\x23\x43\x72\145\x61\x74\145\x64\40\142\171\40\x56\x69\x73\165\141\x6c\x20\106\157\x78\120\x72\x6f" . chr(10) . chr(10) . "\104\x45\x46\x20\107\162\x75\x70\x70\x61\40\x54\162\141\x6e\x73\146\157\162\155\40\173" . chr(10) . "\x63\150\x69\x6c\144\162\145\156\x20\133" . chr(10); goto pIe50; vLYo1: $fm = $FF == 0 ? $PaM : $FF; goto Q8wvA; WmX6J: $kL3 = 0.025; goto zKCw9; lhHNt: $gt = 2 * pi() / $Cyl; goto UQCGf; Yg62F: $htk_ = $htk / $Km; goto P5WpB; UQCGf: if ($Ornt == "\110") { $h_ = $h_ + $htk_; $Sm = $h_ + $Dmax_ / 2; } else { $Sm = $h_ + $L_ / 2; } goto prdV2; K2yZH: $L_ = $L / $Km; goto cw06e; xMkWE: $Cyl = (int) substr($Kach, 0, 2); goto roFyu; RFw4O: function SplineCoord2_($k, $Tn, $Yn, $Yx, $Y0, &$ArrKoef, &$TochkiSegment) { list($TochkiSegment["\x43\157\x6f\x72\x64\130"][1], $TochkiSegment["\103\157\x6f\162\x64\x59"][1]) = array($Tn, $Yn); $x = abs($Tn); $S = $Yn - $Y0; $R = $Yx - $Y0; $D2 = 16 * pow($x, 4) * (pow($R, 2) - $R * $S); $c21 = 2 * pow($x, 2) * ($R + sqrt(pow($R, 2) - $R * $S)) / $S; $c22 = 2 * pow($x, 2) * ($R - sqrt(pow($R, 2) - $R * $S)) / $S; $c2 = max($c21, $c22); $a2 = -4 * $R / pow($c2, 2); $ArrKoef["\x61"] = $a2; $ArrKoef["\143"] = $c2; $x02 = -sqrt($c2 / 2); $x22 = -sqrt($c2 / 6); $y22 = $a2 * pow($x22, 2) * (pow($x22, 2) - $c2) + $Y0; $sec1 = 5 * $k; $Shag = ($x02 - $Tn) / $sec1; $kol = $sec1 - 1; for ($i = 1; $i <= $kol; $i++) { $n = $i + 1; $x = $Tn + $i * $Shag; $y = $a2 * pow($x, 2) * (pow($x, 2) - $c2) + $Y0; list($TochkiSegment["\103\157\x6f\162\x64\130"][$n], $TochkiSegment["\103\x6f\157\x72\x64\131"][$n]) = array($x, $y); } list($TochkiSegment["\103\157\157\162\144\130"][$sec1 + 1], $TochkiSegment["\x43\157\157\162\x64\131"][$sec1 + 1]) = array($x02, $Yx); $sec2 = 3 * $k; $Shag = ($x22 - $x02) / $sec2; $kol = $sec2 - 1; for ($i = 1; $i <= $kol; $i++) { $n = $sec1 + $i + 1; $x = $x02 + $i * $Shag; $y = $a2 * pow($x, 2) * (pow($x, 2) - $c2) + $Y0; list($TochkiSegment["\103\157\157\162\144\x58"][$n], $TochkiSegment["\103\157\157\162\x64\x59"][$n]) = array($x, $y); } list($TochkiSegment["\103\157\157\162\144\x58"][$sec1 + $sec2 + 1], $TochkiSegment["\103\x6f\x6f\162\x64\131"][$sec1 + $sec2 + 1]) = array($x22, $y22); $sec3 = 4 * $k; $Shag = (0 - $x22) / $sec3; $kol = $sec3 - 1; for ($i = 1; $i <= $kol; $i++) { $n = $sec1 + $sec2 + $i + 1; $x = $x22 + $i * $Shag; $y = $a2 * pow($x, 2) * (pow($x, 2) - $c2) + $Y0; list($TochkiSegment["\x43\x6f\x6f\x72\x64\130"][$n], $TochkiSegment["\x43\x6f\x6f\162\x64\131"][$n]) = array($x, $y); } list($TochkiSegment["\103\157\157\x72\144\130"][$sec1 + $sec2 + $sec3 + 1], $TochkiSegment["\x43\157\157\162\x64\131"][$sec1 + $sec2 + $sec3 + 1]) = array(0, $Y0); return; } goto i3Bss; HYYEu: function SplineCoord0_($Sdvig, $Ps, $Tn, $Tk, $Yn, $Yk, &$TochkiSegment) { $a = 0.5 * ($Yk - $Yn); $k = 1 / ($Tk - $Tn); $b = 0.5 * ($Tn + $Tk) / ($Tn - $Tk); $c = 0.5 * ($Yk + $Yn); $d = intval($Ps / 2); $X0 = ($Tk + $Tn) / 2; $Y0 = ($Yk + $Yn) / 2; list($TochkiSegment["\103\157\157\162\x64\130"][1 + $Sdvig], $TochkiSegment["\x43\x6f\157\162\144\x59"][1 + $Sdvig]) = array($Tn, $Yn); list($TochkiSegment["\x43\157\157\162\x64\130"][$d + 1 + $Sdvig], $TochkiSegment["\x43\x6f\157\162\x64\131"][$d + 1 + $Sdvig]) = array($X0, $Y0); list($TochkiSegment["\x43\x6f\x6f\162\x64\130"][$Ps + $Sdvig], $TochkiSegment["\103\x6f\x6f\x72\144\x59"][$Ps + $Sdvig]) = array($Tk, $Yk); $KasMax = $a * $k * pi() * cos(($k * $X0 + $b) * pi()); $KasStep = $KasMax / $d; for ($i = 1; $i <= $d - 1; $i++) { $KasTek = $KasStep * $i; $Xtek1 = (acos($KasTek / ($a * $k * pi())) / pi() - $b) / $k; $Ytek1 = $a * sin(($k * $Xtek1 + $b) * pi()) + $c; $Vdl1 = $i + 1 + $Sdvig; $Xtek2 = 2 * $X0 - $Xtek1; $Ytek2 = 2 * $c - $Ytek1; $Vdl2 = 2 * ($d + 1 + $Sdvig) - $Vdl1; list($TochkiSegment["\x43\x6f\x6f\x72\x64\130"][$Vdl1], $TochkiSegment["\103\x6f\x6f\162\x64\131"][$Vdl1]) = array($Xtek1, $Ytek1); list($TochkiSegment["\x43\157\157\162\144\130"][$Vdl2], $TochkiSegment["\103\x6f\x6f\x72\x64\131"][$Vdl2]) = array($Xtek2, $Ytek2); } return; } goto RFw4O; LlpUu: ?>

Decrypted code:

goto ISxE4; UZ5Av: $htk = 0.05; goto IEwJJ; r4pKn: if ($Kol > 0) { $StrokaM = Markirovka_($AB, $Sym, $Kol, $Zvt, $kL1, $kL2, $kL3, $FF, $ArrKoef, $Dmax_, $Dmin_, $L_, $S_, $Sm, $Cyl, $kL4, $htk_, $Ornt, $UserZveta0); } else { $StrokaM = ''; } goto WOidL; Cbr0L: $kL1 = 0.075; goto SrKz7; oaskV: $m_ = $m / $Km; goto NPdGh; pIe50: $Podval = "]
}"; goto gMq8l; NPdGh: $v_ = $v / $Km; goto ArzJ9; i3Bss: function SplineCoord4_($k, $Tn, $Yn, $Yx, $Y0, &$ArrKoef, &$TochkiSegment) { list($TochkiSegment["CoordX"][1], $TochkiSegment["CoordY"][1]) = array($Tn, $Yn); $x = abs($Tn); $S = $Yn - $Y0; $R = $Yx - $Y0; $p = -(27 * pow($x, 4) * $R / (4 * $S)); $q = 27 * pow($x, 6) * $R / (4 * $S); $D4 = pow($p / 3, 3) + pow($q / 2, 2); $k0 = sqrt($D4); $qk1 = -$q / 2 + $k0; $zq1 = $qk1 < 0 ? -1 : 1; $qk2 = -$q / 2 - $k0; $zq2 = $qk2 < 0 ? -1 : 1; $c4 = $zq1 * pow(abs($qk1), 1 / 3) + $zq2 * pow(abs($qk2), 1 / 3); $a4 = -27 * $R / (4 * pow($c4, 3)); $ArrKoef["a"] = $a4; $ArrKoef["c"] = $c4; $x04 = -sqrt(2 * $c4 / 3); $x24 = -sqrt(2 * $c4 / 5); $y24 = $a4 * pow($x24, 4) * (pow($x24, 2) - $c4) + $Y0; $sec1 = 5 * $k; $Shag = ($x04 - $Tn) / $sec1; $kol = $sec1 - 1; for ($i = 1; $i <= $kol; $i++) { $n = $i + 1; $x = $Tn + $i * $Shag; $y = $a4 * pow($x, 4) * (pow($x, 2) - $c4) + $Y0; list($TochkiSegment["CoordX"][$n], $TochkiSegment["CoordY"][$n]) = array($x, $y); } list($TochkiSegment["CoordX"][$sec1 + 1], $TochkiSegment["CoordY"][$sec1 + 1]) = array($x04, $Yx); $sec2 = 3 * $k; $Shag = ($x24 - $x04) / $sec2; $kol = $sec2 - 1; for ($i = 1; $i <= $kol; $i++) { $n = $sec1 + $i + 1; $x = $x04 + $i * $Shag; $y = $a4 * pow($x, 4) * (pow($x, 2) - $c4) + $Y0; list($TochkiSegment["CoordX"][$n], $TochkiSegment["CoordY"][$n]) = array($x, $y); } list($TochkiSegment["CoordX"][$sec1 + $sec2 + 1], $TochkiSegment["CoordY"][$sec1 + $sec2 + 1]) = array($x24, $y24); $sec3 = 4 * $k; $Shag = (0 - $x24) / $sec3; $kol = $sec3 - 1; for ($i = 1; $i <= $kol; $i++) { $n = $sec1 + $sec2 + $i + 1; $x = $x24 + $i * $Shag; $y = $a4 * pow($x, 4) * (pow($x, 2) - $c4) + $Y0; list($TochkiSegment["CoordX"][$n], $TochkiSegment["CoordY"][$n]) = array($x, $y); } list($TochkiSegment["CoordX"][$sec1 + $sec2 + $sec3 + 1], $TochkiSegment["CoordY"][$sec1 + $sec2 + $sec3 + 1]) = array(0, $Y0); return; } goto w2eRS; zKCw9: $kL4 = 0.55; goto xMkWE; ehMI2: function Stroka_($Nazva, $Mater_Nam, $Mater_RGB, $Mater_Prz, &$Ind, &$Mass) { $Zagolovok = "DEF " . $Nazva . " Transform {
children [
Shape {
"; $Material = "appearance DEF " . $Mater_Nam . " Appearance {
material Material {
diffuseColor " . $Mater_RGB . "
transparency " . $Mater_Prz . "
}
}
"; $Geometry = "geometry DEF FACESET_" . $Nazva . " IndexedFaceSet {
ccw FALSE
creaseAngle 0u
"; $Stroka = "coord Coordinate {
point ["; $asd = ''; $i = 0; $reccount = SizeOf($Mass["CoordX"]); for ($i = 0; $i <= $reccount - 1; $i++) { $asd = $asd . round($Mass["CoordX"][$i], 4) . " " . round($Mass["CoordY"][$i], 4) . " " . round($Mass["CoordZ"][$i], 4) . ","; $asd = ($i + 1) % 10 != 0 ? $asd : ($i != $reccount - 1 ? $asd . "
  " : $asd); } $Stroka = $Stroka . substr($asd, 0, strlen($asd) - 1) . "]
}
"; $Stroka = $Zagolovok . $Material . $Geometry . $Stroka . $Ind; return $Stroka; } goto SB8CM; roFyu: $PaB = (int) substr($Kach, 2, 2); goto kOhb0; SrKz7: $kL2 = 0.125; goto WmX6J; qvWlJ: function Vyvody_($Dmax_k, $L_k, $t_k, $S_k, $h_k, $Sm_k, $mb_k, $vs_k, $Krb_k, $PaB_k, $Cyl_k, $Orient_k) { $Rb = $Krb_k * $t_k; if ($Orient_k == "H") { $Zq = $Sm_k - $Rb; } else { $Zq = $h_k + $L_k; } $TochkiAllRP = array("Rebro" => array("0" => NULL), "Poper" => array("0" => NULL), "CoordX" => array("0" => NULL), "CoordY" => array("0" => NULL), "CoordZ" => array("0" => NULL)); $m = 2 * $PaB_k + 2; $xv = $Cyl_k / 8; $Sqrt45 = sqrt(2) / 2; $t2 = $t_k / 2; $s2 = $S_k / 2; $gt = 2 * pi() / $Cyl_k; $rt = pi() / (2 * ($PaB_k - 1)); $Xq = $s2 - $Rb; $Za = -($mb_k + $vs_k); $P45 = ($PaB_k + 3) / 2; $P45sm = $m - $P45 + 1; $n = $P45 - 3; for ($b = 1; $b <= $xv; $b++) { if ($b > 1) { $pred = 2 - $b; $g = ($b - 1) * $gt; $cs = cos($g); $sn = sin($g); $dob = 1; } else { $dob = 0; $pred = 0; } for ($i = 1; $i <= 8; $i++) { $R = ($i - 1) * $xv * (1 + $dob) + 1 + $dob - $pred * $dob; $pred = $R; if ($b > 1) { $mnXY = intval($i / 2) % 2; if ($mnXY == 0) { $mnX = $cs; $mnY = $sn; } else { $mnX = $sn; $mnY = $cs; } } else { $md2 = $i % 2; $md4 = $i % 4; $mnXY = $md2 * $md4 % 2 * 10 - intval($md2 * $md4 / 2) * 9; if ($mnXY == 0) { list($mnX, $mnY) = array(sqrt(2) / 2, sqrt(2) / 2); } else { $mnX = intval($mnXY / 10); $mnY = $mnXY % 10; } } $md0 = intval($i / 3) - intval($i / 6) - intval($i / 7) + 1; $znX = $md0 - 3 * intval($md0 / 2); $znY = 2 * intval($i / 5) - 1; $X = $s2 + $t2 * $mnX * $znX; $Y = $t2 * $mnY * $znY; $Nom = ($R - 1) * $m; $Nsm = $R * $m - 1; list($TochkiAllRP["Rebro"][$Nom], $TochkiAllRP["Poper"][$Nom], $TochkiAllRP["CoordX"][$Nom], $TochkiAllRP["CoordY"][$Nom], $TochkiAllRP["CoordZ"][$Nom]) = array($R, 1, $X, $Y, $Za); list($TochkiAllRP["Rebro"][$Nsm], $TochkiAllRP["Poper"][$Nsm], $TochkiAllRP["CoordX"][$Nsm], $TochkiAllRP["CoordY"][$Nsm], $TochkiAllRP["CoordZ"][$Nsm]) = array($R, $m, -$X, $Y, $Za); $Nom = ($R - 1) * $m + 1; $Nsm = $R * $m - 2; list($TochkiAllRP["Rebro"][$Nom], $TochkiAllRP["Poper"][$Nom], $TochkiAllRP["CoordX"][$Nom], $TochkiAllRP["CoordY"][$Nom], $TochkiAllRP["CoordZ"][$Nom]) = array($R, 1, $X, $Y, $Zq); list($TochkiAllRP["Rebro"][$Nsm], $TochkiAllRP["Poper"][$Nsm], $TochkiAllRP["CoordX"][$Nsm], $TochkiAllRP["CoordY"][$Nsm], $TochkiAllRP["CoordZ"][$Nsm]) = array($R, $m, -$X, $Y, $Zq); $Z = $Zq + $Rb + $t2 * $mnX * $znX; $Nom = ($R - 1) * $m + $PaB_k; $Nsm = $Nom + 1; list($TochkiAllRP["Rebro"][$Nom], $TochkiAllRP["Poper"][$Nom], $TochkiAllRP["CoordX"][$Nom], $TochkiAllRP["CoordY"][$Nom], $TochkiAllRP["CoordZ"][$Nom]) = array($R, $PaB_k + 1, $Xq, $Y, $Z); list($TochkiAllRP["Rebro"][$Nsm], $TochkiAllRP["Poper"][$Nsm], $TochkiAllRP["CoordX"][$Nsm], $TochkiAllRP["CoordY"][$Nsm], $TochkiAllRP["CoordZ"][$Nsm]) = array($R, $PaB_k + 2, -$Xq, $Y, $Z); $Rtek = $Rb + $X - $s2; for ($j = 1; $j <= $n; $j++) { $rj = $j * $rt; $rCs = cos($rj); $rSn = sin($rj); $X1j = $Xq + $Rtek * $rCs; $Z1j = $Zq + $Rtek * $rSn; $P1 = $j + 2; $P1sm = $m - $P1 + 1; $Nom = ($R - 1) * $m + $P1 - 1; $Nsm = $R * $m - $P1; list($TochkiAllRP["Rebro"][$Nom], $TochkiAllRP["Poper"][$Nom], $TochkiAllRP["CoordX"][$Nom], $TochkiAllRP["CoordY"][$Nom], $TochkiAllRP["CoordZ"][$Nom]) = array($R, $P1, $X1j, $Y, $Z1j); list($TochkiAllRP["Rebro"][$Nsm], $TochkiAllRP["Poper"][$Nsm], $TochkiAllRP["CoordX"][$Nsm], $TochkiAllRP["CoordY"][$Nsm], $TochkiAllRP["CoordZ"][$Nsm]) = array($R, $P1sm, -$X1j, $Y, $Z1j); $X2j = $Xq + $Rtek * $rSn; $Z2j = $Zq + $Rtek * $rCs; $P2 = 2 * $P45 - $P1; $P2sm = $m - $P2 + 1; $Nom = ($R - 1) * $m + $P2 - 1; $Nsm = $R * $m - $P2; list($TochkiAllRP["Rebro"][$Nom], $TochkiAllRP["Poper"][$Nom], $TochkiAllRP["CoordX"][$Nom], $TochkiAllRP["CoordY"][$Nom], $TochkiAllRP["CoordZ"][$Nom]) = array($R, $P2, $X2j, $Y, $Z2j); list($TochkiAllRP["Rebro"][$Nsm], $TochkiAllRP["Poper"][$Nsm], $TochkiAllRP["CoordX"][$Nsm], $TochkiAllRP["CoordY"][$Nsm], $TochkiAllRP["CoordZ"][$Nsm]) = array($R, $P2sm, -$X2j, $Y, $Z2j); } $X45 = $Xq + $Rtek * $Sqrt45; $Z45 = $Zq + $Rtek * $Sqrt45; $Nom = ($R - 1) * $m + $P45 - 1; $Nsm = $R * $m - $P45; list($TochkiAllRP["Rebro"][$Nom], $TochkiAllRP["Poper"][$Nom], $TochkiAllRP["CoordX"][$Nom], $TochkiAllRP["CoordY"][$Nom], $TochkiAllRP["CoordZ"][$Nom]) = array($R, $P45, $X45, $Y, $Z45); list($TochkiAllRP["Rebro"][$Nsm], $TochkiAllRP["Poper"][$Nsm], $TochkiAllRP["CoordX"][$Nsm], $TochkiAllRP["CoordY"][$Nsm], $TochkiAllRP["CoordZ"][$Nsm]) = array($R, $P45sm, -$X45, $Y, $Z45); } } $tsg = SizeOf($TochkiAllRP["CoordX"]); for ($i = 0; $i < $tsg; $i++) { list($TochkiAll["Nomer"][$i], $TochkiAll["CoordX"][$i], $TochkiAll["CoordY"][$i], $TochkiAll["CoordZ"][$i]) = array(intval(($TochkiAllRP["Rebro"][$i] - 1) * $m + $TochkiAllRP["Poper"][$i]), $TochkiAllRP["CoordX"][$i], $TochkiAllRP["CoordY"][$i], $TochkiAllRP["CoordZ"][$i]); } unset($TochkiAllRP); $Ind = Polygons_($Cyl_k, $m, True, True); $Stroka = Stroka_("Vyvody", "ZvetVyvodov", "0.8 0.8 0.83", "0", $Ind, $TochkiAll); unset($Ind, $Dmax_k, $L_k, $t_k, $S_k, $h_k, $Sm_k, $mb_k, $vs_k, $Krb_k, $PaB_k, $Cyl_k, $Orient_k); unset($TochkiAll); return $Stroka; } goto M1VuG; Y75D0: function Markirovka_($AB_k, $Sym_k, $Kol_k, $Zvt_k, $kL1_k, $kL2_k, $kL3_k, $FF_k, &$ArrKoef_k, $Dmax_k, $Dmin_k, $L_k, $S_k, $Sm_k, $Cyl_k, $kL4_k, $htk_k, $Orient_k, &$UserZveta0_k) { if ($AB_k == 1) { if ($Sym_k == 1) { list($f1, $f2) = array(0.1 * $L_k, 0.1 * $L_k); list($k432, $k4, $k3, $k2, $kf1, $kn1, $c1, $kz, $kn2, $c2) = array(1, 1, 2, 1, 0, 1, 0, 1, 1, 0); } elseif ($Sym_k == 2) { list($f1, $f2) = array(0.1 * $L_k, 0.1 * $L_k); list($k432, $k4, $k3, $k2, $kf1, $kn1, $c1, $kz, $kn2, $c2) = array(1, 1, 2, 1, 0, 1, 0, 1, 0, 0); } else { if ($Kol_k == 6) { list($f1, $f2) = array(2 * $L_k / 30, 2 * $L_k / 30); } else { list($f1, $f2) = array(0.1 * $L_k, 0.1 * $L_k); } list($k432, $k4, $k3, $k2, $kf1, $kn1, $c1, $kz, $kn2, $c2) = array(1, 2, 2, 1, 0, 2, 0, 1, 0, 10); } } else { if ($Sym_k == 1) { list($f1, $f2) = array(sqrt(1.5), 1 / $f1); list($k432, $k4, $k3, $k2, $kf1, $kn1, $c1, $kz, $kn2, $c2) = array(2, 1, 2, 1, 1, 2, 2, 2, 1, 0); } elseif ($Sym_k == 2) { list($f1, $f2) = array(sqrt(1.5), 1 / $f1); list($k432, $k4, $k3, $k2, $kf1, $kn1, $c1, $kz, $kn2, $c2) = array(2, 1, 2, 1, 1, 2, 2, 2, 0, 0); } else { $f1 = sqrt(1.5); $f2 = $Kol_k == 6 ? 2 * $L_k / 30 : 1 / $f1; list($k432, $k4, $k3, $k2, $kf1, $kn1, $c1, $kz, $kn2, $c2) = array(1, 1, 1, 0, 0, 1, 0, 0, 0, 5); } } $z = ($k432 * ($k4 * $kL4_k * $L_k + $k3 * $kL3_k * $L_k + $k2 * $kL2_k * $L_k) - $kf1 * $f1 - $f2 * ($kn1 * $Kol_k - 1 - $c1)) / ($kz * ($Kol_k - $kn2) + $c2); $arrZvt = explode("_", $Zvt_k); $Sm1 = $kL1_k * $L_k + 0.5 * ($kL2_k * $L_k - $f1); $StrokaKolez = ''; $m = $FF_k == 0 ? 2 : ($Cyl_k / 8 - 3) * 4 + 1; $Ind = Polygons_($Cyl_k, $m, False, False); $tsg = SizeOf($arrZvt); for ($i = 1; $i <= $tsg; $i++) { $namColor = $arrZvt[$i - 1]; $hexColor = $UserZveta0_k[$namColor]; $aZvt = hexToRgb($hexColor); $rw = round($aZvt["red"] / 255, 4); $gw = round($aZvt["green"] / 255, 4); $bw = round($aZvt["blue"] / 255, 4); $wrlColor = $rw . " " . $gw . " " . $bw; $f = $i == 1 ? $f1 : $f2; $Sm0 = $i == 1 ? $Sm1 : ($i == $Kol_k ? $Sym_k == 2 ? $Sm1 + $f1 + $Kol_k * $z + ($Kol_k - 2) * $f2 : $Sm1 + $f1 + ($Kol_k - 1) * $z + ($Kol_k - 2) * $f2 : $Sm1 + $f1 + ($i - 1) * $z + ($i - 2) * $f2); $Sm0 = $Sm0 - $L_k / 2; if ($FF_k == 0) { $StrokaTek = Kolzo_($Dmax_k, $Dmin_k, $L_k, $S_k, $Sm_k, $Cyl_k, $kL4_k, $htk_k, $i, $wrlColor, $Sm0, $f, $Ind, $Orient_k); } else { $StrokaTek = Kolzo_($ArrKoef_k["a"], $Dmin_k, $ArrKoef_k["c"], $S_k, $Sm_k, $Cyl_k, $FF_k, $htk_k, $i, $wrlColor, $Sm0, $f, $Ind, $Orient_k); } $StrokaKolez = $StrokaKolez . $StrokaTek; } return $StrokaKolez; } goto bwDCx; kOhb0: $PaM = (int) substr($Kach, 4, 2); goto UZ5Av; SB8CM: function Korpus_($Dmax_k, $Dmin_k, $L_k, $t_k, $S_k, $Sm_k, $mb_k, $vs_k, $PaB_k, $PaM_k, $Cyl_k, $kL1_k, $kL2_k, $kL3_k, $kL4_k, $Zvet_k, $Orient_k, &$ArrKoef_k) { $TochkiSegment = array("CoordX" => array("0" => 0), "CoordY" => array("0" => 0)); if ($PaM_k > 4) { $Tn1 = -$L_k / 2; $Tk1 = $Tn1 + $L_k * $kL1_k; $Tn2 = $Tk1 + $L_k * $kL2_k; $Tk2 = $Tn2 + $L_k * $kL3_k; $Yn1 = $t_k / 2; $Yk1 = $Dmax_k / 2; SplineCoord0_(0, $PaB_k, $Tn1, $Tk1, $Yn1, $Yk1, $TochkiSegment); $Yn2 = $Yk1; $Yk2 = $Dmin_k / 2; SplineCoord0_($PaB_k, $PaM_k, $Tn2, $Tk2, $Yn2, $Yk2, $TochkiSegment); $m = 2 * ($PaB_k + $PaM_k); } else { $Tn = -$L_k / 2; $Yn = $t_k / 2; $Yx = $Dmax_k / 2; $Y0 = $Dmin_k / 2; $k24 = $Cyl_k / 8 - 3; if ($PaM_k == 2) { SplineCoord2_($k24, $Tn, $Yn, $Yx, $Y0, $ArrKoef_k, $TochkiSegment); } else { SplineCoord4_($k24, $Tn, $Yn, $Yx, $Y0, $ArrKoef_k, $TochkiSegment); } $m = 24 * $k24 + 1; } unset($TochkiSegment["CoordX"][0], $TochkiSegment["CoordY"][0]); array_multisort($TochkiSegment["CoordX"], SORT_ASC, SORT_NUMERIC, $TochkiSegment["CoordY"], SORT_ASC, SORT_NUMERIC); $TochkiAllRP = array("Rebro" => array("0" => NULL), "Poper" => array("0" => NULL), "CoordX" => array("0" => NULL), "CoordY" => array("0" => NULL), "CoordZ" => array("0" => NULL)); $xv = $Cyl_k / 8; $gt = 2 * pi() / $Cyl_k; for ($b = 1; $b <= $xv; $b++) { if ($b > 1) { $pred = 2 - $b; $g = ($b - 1) * $gt; $cs = COS($g); $sn = SIN($g); $dob = 1; } else { $dob = 0; $pred = 0; } for ($i = 1; $i <= 8; $i++) { $R = ($i - 1) * $xv * (1 + $dob) + 1 + $dob - $pred * $dob; $pred = $R; if ($b > 1) { $mnYZ = intval($i / 2) % 2; if ($mnYZ == 0) { $mnY = $cs; $mnZ = $sn; } else { $mnY = $sn; $mnZ = $cs; } } else { $md2 = $i % 2; $md4 = $i % 4; $mnYZ = $md2 * $md4 % 2 * 10 - intval($md2 * $md4 / 2) * 9; if ($mnYZ == 0) { list($mnY, $mnZ) = array(sqrt(2) / 2, sqrt(2) / 2); } else { $mnY = intval($mnYZ / 10); $mnZ = $mnYZ % 10; } } $md0 = intval($i / 3) - intval($i / 6) - intval($i / 7) + 1; $znY = $md0 - 3 * intval($md0 / 2); $znZ = 2 * intval($i / 5) - 1; $tsg = SizeOf($TochkiSegment["CoordX"]); for ($j = 0; $j < $tsg; $j++) { $X = $TochkiSegment["CoordX"][$j]; $Ytk = $TochkiSegment["CoordY"][$j]; $Y = $znY * $Ytk * $mnY; $Z = $znZ * $Ytk * $mnZ; $Nom = ($R - 1) * $m + $j; $Nsm = $R * $m - $j - 1; list($TochkiAllRP["Rebro"][$Nom], $TochkiAllRP["Poper"][$Nom], $TochkiAllRP["CoordX"][$Nom], $TochkiAllRP["CoordY"][$Nom], $TochkiAllRP["CoordZ"][$Nom]) = array($R, $j + 1, $X, $Y, $Z); if ($m - $j > $j) { list($TochkiAllRP["Rebro"][$Nsm], $TochkiAllRP["Poper"][$Nsm], $TochkiAllRP["CoordX"][$Nsm], $TochkiAllRP["CoordY"][$Nsm], $TochkiAllRP["CoordZ"][$Nsm]) = array($R, $m - $j, -$X, $Y, $Z); } } } } unset($TochkiSegment); $tsg = SizeOf($TochkiAllRP["CoordX"]); $TochkiAll = array("Nomer" => array("0" => NULL), "CoordX" => array("0" => NULL), "CoordY" => array("0" => NULL), "CoordZ" => array("0" => NULL)); if ($Orient_k == "H") { for ($i = 0; $i < $tsg; $i++) { list($TochkiAll["Nomer"][$i], $TochkiAll["CoordX"][$i], $TochkiAll["CoordY"][$i], $TochkiAll["CoordZ"][$i]) = array(intval(($TochkiAllRP["Rebro"][$i] - 1) * $m + $TochkiAllRP["Poper"][$i]), $TochkiAllRP["CoordX"][$i], $TochkiAllRP["CoordY"][$i], $TochkiAllRP["CoordZ"][$i] + $Sm_k); } } else { $DS2 = $S_k / 2; for ($i = 0; $i < $tsg; $i++) { list($TochkiAll["Nomer"][$i], $TochkiAll["CoordX"][$i], $TochkiAll["CoordY"][$i], $TochkiAll["CoordZ"][$i]) = array(intval(($TochkiAllRP["Rebro"][$i] - 1) * $m + $TochkiAllRP["Poper"][$i]), -$TochkiAllRP["CoordZ"][$i] + $DS2, $TochkiAllRP["CoordY"][$i], $TochkiAllRP["CoordX"][$i] + $Sm_k); } } unset($TochkiAllRP); $Ind = Polygons_($Cyl_k, $m, False, False); $aZvt = hexToRgb($Zvet_k); $rw = round($aZvt["red"] / 255, 4); $gw = round($aZvt["green"] / 255, 4); $bw = round($aZvt["blue"] / 255, 4); $wrlColor = $rw . " " . $gw . " " . $bw; $Stroka = Stroka_("Korpus", "ZvetKorpusa", $wrlColor, "0", $Ind, $TochkiAll); unset($TochkiAll); unset($Ind, $Dmax_k, $Dmin_k, $L_k, $t_k, $S_k, $Sm_k, $mb_k, $vs_k, $PaB_k, $PaM_k, $Cyl_k, $kL1_k, $kL2_k, $kL3_k, $kL4_k, $Zvet_k); return $Stroka; } goto qvWlJ; P5WpB: $h_ = $h_ / $Km; goto oaskV; mOeIb: $Dmax_ = $Dmax / $Km; goto QlxSy; QlxSy: $Dmin_ = $Dmin / $Km; goto K2yZH; w2eRS: function Polygons_($c, $n, $TorezNac, $TorezKon) { list($t1, $t2, $t3, $t4, $q) = array(0, 0, 0, 0, 0); $asd = ''; $Indexy = " coordIndex ["; $m0 = $n - 1; for ($i = 1; $i <= $c; $i++) { $SdvigV = ($i - 1) * $n; $SdvigP = $i * $n % ($n * $c); for ($j = 1; $j <= $m0; $j++) { $t1 = $SdvigV + $j; $t2 = $SdvigP + $j; $t3 = $SdvigP + $j + 1; $t4 = $SdvigV + $j + 1; $q++; $asd = $asd . ($t1 - 1) . "," . ($t2 - 1) . "," . ($t3 - 1) . "," . ($t4 - 1) . ",i,"; $asd = $q % 10 != 0 ? $asd : ($q != $c * $m0 ? $asd . "
  " : $asd); } } $asd = substr($asd, 0, strlen($asd) - 1); $zxc = ''; if ($TorezNac == TRUE) { for ($i = 1; $i <= $c; $i++) { $zxc = $zxc . ($i - 1) * $n . ","; } $zxc = $zxc . "-1,"; } $asd = $zxc . $asd; $zxc = ''; if ($TorezKon == TRUE) { for ($i = 1; $i <= $c; $i++) { $zxc = $zxc . ($i * $n - 1) . ","; } $zxc = "," . $zxc . "-1"; } $asd = $asd . $zxc; $Indexy = $Indexy . $asd . "]
}
}
]
}
"; return $Indexy; } goto ehMI2; gMq8l: $Stroka = $ZagolovokGruppa . $Stroka0 . $StrokaV . $StrokaM . $Podval; goto VDSYX; prdV2: $ArrKoef = array("a" => NULL, "c" => NULL); goto vLYo1; ISxE4: if (!defined("My3d")) { die("access denied"); } goto wx1e_; wx1e_: $Krb = 1.375; goto Cbr0L; ArzJ9: $xv = $Cyl / 8; goto lhHNt; kxZ1g: $StrokaV = Vyvody_($Dmax_, $L_, $t_, $S_, $h_, $Sm, $m_, $v_, $Krb, $PaB, $Cyl, $Ornt); goto r4pKn; cw06e: $t_ = $t / $Km; goto ztnle; IEwJJ: $Km = $Izmer == 2 ? 2.63158 : 1.0; goto mOeIb; bwDCx: function hexToRgb($hex, $return_string = false) { $hex = trim($hex, " #"); $size = strlen($hex); if ($size == 3 || $size == 4) { $parts = str_split($hex, 1); $hex = ''; foreach ($parts as $row) { $hex .= $row . $row; } } $dec = hexdec($hex); $rgb = array(); if ($size == 3 || $size == 6) { $rgb["red"] = 255 & $dec >> 16; $rgb["green"] = 255 & $dec >> 8; $rgb["blue"] = 255 & $dec; if ($return_string) { return "rgb(" . implode(",", $rgb) . ")"; } } elseif ($size == 4 || $size == 8) { $rgb["red"] = 255 & $dec >> 22; $rgb["green"] = 255 & $dec >> 16; $rgb["blue"] = 255 & $dec >> 8; $rgb["alpha"] = 255 & $dec; if ($return_string) { $rgb["alpha"] = round($rgb["alpha"] / (255 / 100) / 100, 2); return "rgba(" . implode(",", $rgb) . ")"; } else { $rgb["alpha"] = 127 - ($rgb["alpha"] >> 1); } } else { return false; } return $rgb; } goto LlpUu; M1VuG: function Kolzo_(&$Dmax_k, $Dmin_k, &$L_k, $S_k, $Sm_k, $Cyl_k, $kL4_k, $htk_k, $Nom_k, $Zvet_k, $Xnac_k, $f_k, &$Ind_k, $Orient_k) { $TochkiSegment = array("CoordX" => array("0" => 0), "CoordY" => array("0" => 0)); $Xkon = $Xnac_k + $f_k; if ($kL4_k > 1) { $Y0 = $Dmin_k / 2 + $htk_k; $ff = $kL4_k; $m = ($Cyl_k / 8 - 3) * 4; $Shag = $f_k / $m; $a = $Dmax_k; $c = $L_k; if ($ff == 2) { for ($i = 0; $i <= $m; $i++) { $n = $i + 1; $x = $Xnac_k + $i * $Shag; $y = $a * pow($x, 2) * (pow($x, 2) - $c) + $Y0; list($TochkiSegment["CoordX"][$n], $TochkiSegment["CoordY"][$n]) = array($x, $y); } } else { for ($i = 0; $i <= $m; $i++) { $n = $i + 1; $x = $Xnac_k + $i * $Shag; $y = $a * pow($x, 4) * (pow($x, 2) - $c) + $Y0; list($TochkiSegment["CoordX"][$n], $TochkiSegment["CoordY"][$n]) = array($x, $y); } } $m = $m + 1; } else { $d = ABS($Xnac_k) < $L_k * $kL4_k / 2 ? $Dmin_k : $Dmax_k; $Y1 = ($d + $htk_k) / 2; list($TochkiSegment["CoordX"][1], $TochkiSegment["CoordY"][1]) = array($Xnac_k, $Y1); $m = 2; list($TochkiSegment["CoordX"][$m], $TochkiSegment["CoordY"][$m]) = array($Xkon, $Y1); } unset($TochkiSegment["CoordX"][0], $TochkiSegment["CoordY"][0]); array_multisort($TochkiSegment["CoordX"], SORT_ASC, SORT_NUMERIC, $TochkiSegment["CoordY"], SORT_ASC, SORT_NUMERIC); $TochkiAllRP = array("Rebro" => array("0" => NULL), "Poper" => array("0" => NULL), "CoordX" => array("0" => NULL), "CoordY" => array("0" => NULL), "CoordZ" => array("0" => NULL)); $xv = $Cyl_k / 8; $gt = 2 * pi() / $Cyl_k; for ($b = 1; $b <= $xv; $b++) { if ($b > 1) { $pred = 2 - $b; $g = ($b - 1) * $gt; $cs = cos($g); $sn = sin($g); $dob = 1; } else { $dob = 0; $pred = 0; } for ($i = 1; $i <= 8; $i++) { $R = ($i - 1) * $xv * (1 + $dob) + 1 + $dob - $pred * $dob; $pred = $R; if ($b > 1) { $mnYZ = intval($i / 2) % 2; if ($mnYZ == 0) { $mnY = $cs; $mnZ = $sn; } else { $mnY = $sn; $mnZ = $cs; } } else { $md2 = $i % 2; $md4 = $i % 4; $mnYZ = $md2 * $md4 % 2 * 10 - intval($md2 * $md4 / 2) * 9; if ($mnYZ == 0) { list($mnY, $mnZ) = array(sqrt(2) / 2, sqrt(2) / 2); } else { $mnY = intval($mnYZ / 10); $mnZ = $mnYZ % 10; } } $md0 = intval($i / 3) - intval($i / 6) - intval($i / 7) + 1; $znY = $md0 - 3 * intval($md0 / 2); $znZ = 2 * intval($i / 5) - 1; $tsg = SizeOf($TochkiSegment["CoordX"]); for ($j = 0; $j < $tsg; $j++) { $X = $TochkiSegment["CoordX"][$j]; $Ytk = $TochkiSegment["CoordY"][$j]; $Y = $znY * $Ytk * $mnY; $Z = $znZ * $Ytk * $mnZ; $Nom = ($R - 1) * $m + $j; list($TochkiAllRP["Rebro"][$Nom], $TochkiAllRP["Poper"][$Nom], $TochkiAllRP["CoordX"][$Nom], $TochkiAllRP["CoordY"][$Nom], $TochkiAllRP["CoordZ"][$Nom]) = array($R, $j + 1, $X, $Y, $Z); } } } unset($TochkiSegment); $tsg = SizeOf($TochkiAllRP["CoordX"]); $TochkiAll = array("Nomer" => array("0" => NULL), "CoordX" => array("0" => NULL), "CoordY" => array("0" => NULL), "CoordZ" => array("0" => NULL)); if ($Orient_k == "H") { for ($i = 0; $i < $tsg; $i++) { list($TochkiAll["Nomer"][$i], $TochkiAll["CoordX"][$i], $TochkiAll["CoordY"][$i], $TochkiAll["CoordZ"][$i]) = array(intval(($TochkiAllRP["Rebro"][$i] - 1) * $m + $TochkiAllRP["Poper"][$i]), $TochkiAllRP["CoordX"][$i], $TochkiAllRP["CoordY"][$i], $TochkiAllRP["CoordZ"][$i] + $Sm_k); } } else { $DS2 = $S_k / 2; for ($i = 0; $i < $tsg; $i++) { list($TochkiAll["Nomer"][$i], $TochkiAll["CoordX"][$i], $TochkiAll["CoordY"][$i], $TochkiAll["CoordZ"][$i]) = array(intval(($TochkiAllRP["Rebro"][$i] - 1) * $m + $TochkiAllRP["Poper"][$i]), -$TochkiAllRP["CoordZ"][$i] + $DS2, $TochkiAllRP["CoordY"][$i], $TochkiAllRP["CoordX"][$i] + $Sm_k); } } unset($TochkiAllRP); $Nzk = "Kolzo" . $Nom_k; $Mrk = "Markirovka" . $Nom_k; $Stroka = Stroka_($Nzk, $Mrk, $Zvet_k, "0", $Ind_k, $TochkiAll); unset($R, $X, $Y, $Z, $Y1, $xv, $gt, $m, $i, $ff, $Shag, $n, $a, $c, $d, $pred, $b, $cs, $sn, $dob, $mny, $mnz, $zny, $znz, $md0, $md2, $md4); unset($TochkiAll); return $Stroka; } goto Y75D0; VDSYX: $txt = print_r($Stroka, true); goto HYYEu; Q8wvA: $Stroka0 = Korpus_($Dmax_, $Dmin_, $L_, $t_, $S_, $Sm, $m_, $v_, $PaB, $fm, $Cyl, $kL1, $kL2, $kL3, $kL4, $rezZvet, $Ornt, $ArrKoef); goto kxZ1g; ztnle: $S_ = $S / $Km; goto Yg62F; WOidL: $ZagolovokGruppa = "#VRML V2.0 utf8

#Created by Visual FoxPro

DEF Gruppa Transform {
children [
"; goto pIe50; vLYo1: $fm = $FF == 0 ? $PaM : $FF; goto Q8wvA; WmX6J: $kL3 = 0.025; goto zKCw9; lhHNt: $gt = 2 * pi() / $Cyl; goto UQCGf; Yg62F: $htk_ = $htk / $Km; goto P5WpB; UQCGf: if ($Ornt == "H") { $h_ = $h_ + $htk_; $Sm = $h_ + $Dmax_ / 2; } else { $Sm = $h_ + $L_ / 2; } goto prdV2; K2yZH: $L_ = $L / $Km; goto cw06e; xMkWE: $Cyl = (int) substr($Kach, 0, 2); goto roFyu; RFw4O: function SplineCoord2_($k, $Tn, $Yn, $Yx, $Y0, &$ArrKoef, &$TochkiSegment) { list($TochkiSegment["CoordX"][1], $TochkiSegment["CoordY"][1]) = array($Tn, $Yn); $x = abs($Tn); $S = $Yn - $Y0; $R = $Yx - $Y0; $D2 = 16 * pow($x, 4) * (pow($R, 2) - $R * $S); $c21 = 2 * pow($x, 2) * ($R + sqrt(pow($R, 2) - $R * $S)) / $S; $c22 = 2 * pow($x, 2) * ($R - sqrt(pow($R, 2) - $R * $S)) / $S; $c2 = max($c21, $c22); $a2 = -4 * $R / pow($c2, 2); $ArrKoef["a"] = $a2; $ArrKoef["c"] = $c2; $x02 = -sqrt($c2 / 2); $x22 = -sqrt($c2 / 6); $y22 = $a2 * pow($x22, 2) * (pow($x22, 2) - $c2) + $Y0; $sec1 = 5 * $k; $Shag = ($x02 - $Tn) / $sec1; $kol = $sec1 - 1; for ($i = 1; $i <= $kol; $i++) { $n = $i + 1; $x = $Tn + $i * $Shag; $y = $a2 * pow($x, 2) * (pow($x, 2) - $c2) + $Y0; list($TochkiSegment["CoordX"][$n], $TochkiSegment["CoordY"][$n]) = array($x, $y); } list($TochkiSegment["CoordX"][$sec1 + 1], $TochkiSegment["CoordY"][$sec1 + 1]) = array($x02, $Yx); $sec2 = 3 * $k; $Shag = ($x22 - $x02) / $sec2; $kol = $sec2 - 1; for ($i = 1; $i <= $kol; $i++) { $n = $sec1 + $i + 1; $x = $x02 + $i * $Shag; $y = $a2 * pow($x, 2) * (pow($x, 2) - $c2) + $Y0; list($TochkiSegment["CoordX"][$n], $TochkiSegment["CoordY"][$n]) = array($x, $y); } list($TochkiSegment["CoordX"][$sec1 + $sec2 + 1], $TochkiSegment["CoordY"][$sec1 + $sec2 + 1]) = array($x22, $y22); $sec3 = 4 * $k; $Shag = (0 - $x22) / $sec3; $kol = $sec3 - 1; for ($i = 1; $i <= $kol; $i++) { $n = $sec1 + $sec2 + $i + 1; $x = $x22 + $i * $Shag; $y = $a2 * pow($x, 2) * (pow($x, 2) - $c2) + $Y0; list($TochkiSegment["CoordX"][$n], $TochkiSegment["CoordY"][$n]) = array($x, $y); } list($TochkiSegment["CoordX"][$sec1 + $sec2 + $sec3 + 1], $TochkiSegment["CoordY"][$sec1 + $sec2 + $sec3 + 1]) = array(0, $Y0); return; } goto i3Bss; HYYEu: function SplineCoord0_($Sdvig, $Ps, $Tn, $Tk, $Yn, $Yk, &$TochkiSegment) { $a = 0.5 * ($Yk - $Yn); $k = 1 / ($Tk - $Tn); $b = 0.5 * ($Tn + $Tk) / ($Tn - $Tk); $c = 0.5 * ($Yk + $Yn); $d = intval($Ps / 2); $X0 = ($Tk + $Tn) / 2; $Y0 = ($Yk + $Yn) / 2; list($TochkiSegment["CoordX"][1 + $Sdvig], $TochkiSegment["CoordY"][1 + $Sdvig]) = array($Tn, $Yn); list($TochkiSegment["CoordX"][$d + 1 + $Sdvig], $TochkiSegment["CoordY"][$d + 1 + $Sdvig]) = array($X0, $Y0); list($TochkiSegment["CoordX"][$Ps + $Sdvig], $TochkiSegment["CoordY"][$Ps + $Sdvig]) = array($Tk, $Yk); $KasMax = $a * $k * pi() * cos(($k * $X0 + $b) * pi()); $KasStep = $KasMax / $d; for ($i = 1; $i <= $d - 1; $i++) { $KasTek = $KasStep * $i; $Xtek1 = (acos($KasTek / ($a * $k * pi())) / pi() - $b) / $k; $Ytek1 = $a * sin(($k * $Xtek1 + $b) * pi()) + $c; $Vdl1 = $i + 1 + $Sdvig; $Xtek2 = 2 * $X0 - $Xtek1; $Ytek2 = 2 * $c - $Ytek1; $Vdl2 = 2 * ($d + 1 + $Sdvig) - $Vdl1; list($TochkiSegment["CoordX"][$Vdl1], $TochkiSegment["CoordY"][$Vdl1]) = array($Xtek1, $Ytek1); list($TochkiSegment["CoordX"][$Vdl2], $TochkiSegment["CoordY"][$Vdl2]) = array($Xtek2, $Ytek2); } return; } goto RFw4O; LlpUu:

Recent submissions: