function subring($r, $ra, $rb, $rg, $subrg, $n, $max)
{
//echo $rg.':'.$subrg.'_';
$rc = spi_ring_b($subrg);
if ($rc) {
foreach ($rc as $k => $v) {
$n++;
if ($n <= 220) {
list($x, $y) = split_r($v, 1);
$x += 1;
//$y+=1;
//if($rg>3){$x+=12; $y+=(($rg-4)*8);} else //2_rows
$y += ($rg - 1) * 10;
//matrice_width
$ra[$x][$y] = spi_atom($r[$n], $n, $max);
}
}
}
$rb[$rg] = $subrg;
if ($n < $max) {
list($rg, $subrg) = nextsubrg($rb, $rg, $subrg);
list($ra, $n) = subring($r, $ra, $rb, $rg, $subrg, $n, $max);
}
return array($ra, $n);
}
function see_conds($vl)
{
$sp = '';
$r = $_SESSION['mods'][$vl];
$cnd = $_SESSION['cond'];
if ($r) {
foreach ($r as $k => $v) {
$ra[$v[3]] += 1;
}
foreach ($ra as $k => $v) {
list($ka, $kb) = split_r($k, 3);
if ($kb) {
$kc = str_replace(array('cat', 'art'), '', $k);
} else {
$kc = $k;
}
if ($k) {
$ret .= ljb($k == $cnd[0] || $k == $cnd[1] ? 'active' : '', 'SaveBb', 'modules_' . $vl . '__' . $k, $kc);
}
}
if ($ret) {
$all = ljb($cnd[0] ? '' : 'active', 'SaveBb', 'modules_' . $vl . '__all', nms(100));
return divc('nbp', $all . $ret);
}
}
}
function see_conds($vl)
{
$sp = '';
$r = $_SESSION['mods'][$vl];
$cnd = $_SESSION['cond'];
if ($r) {
foreach ($r as $k => $v) {
$ra[$v[3]] += 1;
}
//cat list
foreach ($ra as $k => $v) {
list($ka, $kb) = split_r($k, 3);
if ($kb && ($_SESSION['line'][$kb] or is_numeric($kb))) {
$kc = $kb;
} else {
$kc = $k;
}
if ($k == $cnd[0] . $cnd[1] or $ka == $cnd[0] && !$kb or $kb && $kb == $cnd[1]) {
$css = 'active';
} else {
$css = '';
}
//as in define_modc_b()
if ($k) {
$ret .= ljb($css, 'SaveBb', 'modules_' . $vl . '__' . ajx($k), $kc);
}
}
if ($ret) {
$all = ljb($cnd[0] ? '' : 'active', 'SaveBb', 'modules_' . $vl . '__all', '-');
}
return divc('nbp', $all . $ret);
}
}
