Skip to content

E
elphel-web-393
Commit dab23f58 authored by Andrey Filippov's avatar Andrey Filippov
Browse files
Options

debugging with new drivers

parent d1c2b55b
Hide whitespace changes
Inline Side-by-side
Showing with 224 additions and 106 deletions
src/php_top/framepars.php
View file @ dab23f58
...@@ -418,13 +418,17 @@ CAPTION; ...@@ -418,13 +418,17 @@ CAPTION;
// $xml->addChild ( 'compressor_irqon_result', fseek ( $circbuf_file, ELPHEL_LSEEK_INTERRUPT_ON, SEEK_END ) ); // #define LSEEK_INTERRUPT_ON 0x24 /// enable camera interrupts // $xml->addChild ( 'compressor_irqon_result', fseek ( $circbuf_file, ELPHEL_LSEEK_INTERRUPT_ON, SEEK_END ) ); // #define LSEEK_INTERRUPT_ON 0x24 /// enable camera interrupts
// fclose ( $circbuf_file ); // fclose ( $circbuf_file );
// Init turn on cmdseq interrupts, but not compressor ones // Init turn on cmdseq interrupts, but not compressor ones
$xml->addChild ( 'frame_before' . strval ( $sensor_port ), elphel_get_frame($sensor_port));
$xml->addChild ('DEBUG_01_'. strval ( $sensor_port ), $GLOBALS ['framepars_paths'] [$sensor_port]); $xml->addChild ('DEBUG_01_'. strval ( $sensor_port ), $GLOBALS ['framepars_paths'] [$sensor_port]);
$xml->addChild ( 'LSEEK_FRAMEPARS_INIT' . strval ( $sensor_port ), fseek ( $framepars_file, ELPHEL_LSEEK_FRAMEPARS_INIT, SEEK_END ) ); $xml->addChild ( 'LSEEK_FRAMEPARS_INIT' . strval ( $sensor_port ), fseek ( $framepars_file, ELPHEL_LSEEK_FRAMEPARS_INIT, SEEK_END ) );
$xml->addChild ( 'elphel_set_P_value' . strval ( $sensor_port ), elphel_set_P_value ( $sensor_port, ELPHEL_SENSOR, 0x00, 0, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC ) ); // / will start detection $xml->addChild ( 'elphel_set_P_value' . strval ( $sensor_port ), elphel_set_P_value ( $sensor_port, ELPHEL_SENSOR, 0x00, 0, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC ) ); // / will start detection
// Seems that next LSEEK_SENSORPROC is not needed as 0->ELPHEL_SENSOR will trigger it anyway // Seems that next LSEEK_SENSORPROC is not needed as 0->ELPHEL_SENSOR will trigger it anyway
// Still try it to make sure new lock handles it // Still try it to make sure new lock handles it
// $xml->addChild ( 'LSEEK_SENSORPROC' . strval ( $sensor_port ), fseek ( $framepars_file, ELPHEL_LSEEK_SENSORPROC, SEEK_END ) ); // $xml->addChild ( 'LSEEK_SENSORPROC' . strval ( $sensor_port ), fseek ( $framepars_file, ELPHEL_LSEEK_SENSORPROC, SEEK_END ) );
$frame = 0; //$frame = 0 (in NC353)
$frame = elphel_get_frame($sensor_port);
$xml->addChild ( 'frame' . strval ( $sensor_port ), $frame);
//elphel_get_frame
// gets half-frame // gets half-frame
elphel_set_P_value ( $sensor_port, ELPHEL_MAXAHEAD, 2, 0, 8 ); // / When servicing interrupts, try programming up to 2 frames ahead of due time) elphel_set_P_value ( $sensor_port, ELPHEL_MAXAHEAD, 2, 0, 8 ); // / When servicing interrupts, try programming up to 2 frames ahead of due time)
...@@ -436,13 +440,22 @@ CAPTION; ...@@ -436,13 +440,22 @@ CAPTION;
elphel_set_P_value ( $sensor_port, ELPHEL_BITS, 8, $frame + 3, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC ); elphel_set_P_value ( $sensor_port, ELPHEL_BITS, 8, $frame + 3, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC );
elphel_set_P_value ( $sensor_port, ELPHEL_QUALITY, 80, $frame + 4, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC ); elphel_set_P_value ( $sensor_port, ELPHEL_QUALITY, 80, $frame + 4, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC );
elphel_set_P_value ( $sensor_port, ELPHEL_COLOR, 1, $frame + 4, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC ); elphel_set_P_value ( $sensor_port, ELPHEL_COLOR, ELPHEL_CONST_COLORMODE_COLOR, $frame + 4, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC );
elphel_set_P_value ( $sensor_port, ELPHEL_COLOR_SATURATION_BLUE, 200, $frame + 4, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC ); elphel_set_P_value ( $sensor_port, ELPHEL_COLOR_SATURATION_BLUE, 200, $frame + 4, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC );
elphel_set_P_value ( $sensor_port, ELPHEL_COLOR_SATURATION_RED, 200, $frame + 4, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC ); elphel_set_P_value ( $sensor_port, ELPHEL_COLOR_SATURATION_RED, 200, $frame + 4, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC );
elphel_set_P_value ( $sensor_port, ELPHEL_BAYER, 0, $frame + 4, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC ); elphel_set_P_value ( $sensor_port, ELPHEL_BAYER, 0, $frame + 4, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC );
elphel_set_P_value ( $sensor_port, ELPHEL_GAING, 0x10000, $frame + 4, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC );
elphel_set_P_value ( $sensor_port, ELPHEL_GAINGB, 0x10000, $frame + 4, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC );
elphel_set_P_value ( $sensor_port, ELPHEL_GAINR, 0x10000, $frame + 4, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC );
elphel_set_P_value ( $sensor_port, ELPHEL_GAINB, 0x10000, $frame + 4, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC );
elphel_set_P_value ( $sensor_port, ELPHEL_VIGNET_C, 0x8000, $frame + 4, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC );
elphel_set_P_value ( $sensor_port, ELPHEL_VIGNET_SHL, 1, $frame + 4, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC );
elphel_set_P_value ( $sensor_port, ELPHEL_SENSOR_RUN, 2, $frame + 4, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC ); elphel_set_P_value ( $sensor_port, ELPHEL_SENSOR_RUN, 2, $frame + 4, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC );
elphel_set_P_value ( $sensor_port, ELPHEL_COMPRESSOR_RUN, 2, $frame + 4, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC ); // / run compressor elphel_set_P_value ( $sensor_port, ELPHEL_COMPRESSOR_RUN, 2, $frame + 4, ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC ); // / run compressor
$xml->addChild ( 'frame_after' . strval ( $sensor_port ), elphel_get_frame($sensor_port));
fclose ( $framepars_file ); fclose ( $framepars_file );
$gamma = 57; $gamma = 57;
$black = 10; $black = 10;
...@@ -461,6 +474,7 @@ CAPTION; ...@@ -461,6 +474,7 @@ CAPTION;
); );
$frame = elphel_get_frame ( $sensor_port ); // 0 $frame = elphel_get_frame ( $sensor_port ); // 0
elphel_set_P_arr ( $sensor_port, $gamma_pars, $frame + 3, 0 ); elphel_set_P_arr ( $sensor_port, $gamma_pars, $frame + 3, 0 );
$xml->addChild ( 'frame_final' . strval ( $sensor_port ), elphel_get_frame($sensor_port));
} else if ($value == "initgamma") { } else if ($value == "initgamma") {
$gammas_file = fopen ( "/dev/gamma_cache", "w+" ); $gammas_file = fopen ( "/dev/gamma_cache", "w+" );
$xml->addChild ( 'LSEEK_GAMMA_INIT' . strval ( $sensor_port ), fseek ( $gammas_file, ELPHEL_LSEEK_GAMMA_INIT, SEEK_END ) ); $xml->addChild ( 'LSEEK_GAMMA_INIT' . strval ( $sensor_port ), fseek ( $gammas_file, ELPHEL_LSEEK_GAMMA_INIT, SEEK_END ) );
......
src/php_top/parsedit.php
View file @ dab23f58
...@@ -135,8 +135,11 @@ ...@@ -135,8 +135,11 @@
$testBefore=2;/// Start compressor $testBefore frames before first task $testBefore=2;/// Start compressor $testBefore frames before first task
$testAfter=2; /// Stop compressor $testAfter frames after the last task $testAfter=2; /// Stop compressor $testAfter frames after the last task
$framesBeforeStart=2; ///In test mode - compressor will be started theis frames after "now" $framesBeforeStart=2; ///In test mode - compressor will be started theis frames after "now"
$imgsrv="http://".$_SERVER['SERVER_ADDR'].":8081"; // $imgsrv="http://".$_SERVER['SERVER_ADDR'].":8081";
/// $imglink="img"; /// use this for faster output (and safer in simultaneous accesses from multiple hosts $imgsrv_base="http://".$_SERVER['SERVER_ADDR'].":";
$imgsrv_ports= array ("2323","2324","2325","2326");
/// $imglink="img"; /// use this for faster output (and safer in simultaneous accesses from multiple hosts
$imglink="bimg"; ///It was "img" - faster, but image may get corrupted if buffer is overrun before it is trasferred (network congestion) $imglink="bimg"; ///It was "img" - faster, but image may get corrupted if buffer is overrun before it is trasferred (network congestion)
$defaultImgScale=0.2; /// 20% image size $defaultImgScale=0.2; /// 20% image size
$defaultImagesPerRow=3; $defaultImagesPerRow=3;
...@@ -164,6 +167,8 @@ ...@@ -164,6 +167,8 @@
if (array_key_exists ( 'sensor_port', $_GET )) { if (array_key_exists ( 'sensor_port', $_GET )) {
$GLOBALS [sensor_port] = (myval($_GET ['sensor_port'])) & 3; $GLOBALS [sensor_port] = (myval($_GET ['sensor_port'])) & 3;
} }
$imgsrv = $imgsrv_base.$imgsrv_ports[$GLOBALS [sensor_port]];
$elp_const=get_defined_constants(true); $elp_const=get_defined_constants(true);
$elp_const=$elp_const["elphel"]; $elp_const=$elp_const["elphel"];
$immediateMode=parseGetNames(); $immediateMode=parseGetNames();
...@@ -571,95 +576,103 @@ echo "</pre>"; ...@@ -571,95 +576,103 @@ echo "</pre>";
///TODO:if $todo is provided in $_GET - try to find the correct images even if they are not the latest ///TODO:if $todo is provided in $_GET - try to find the correct images even if they are not the latest
function showLastImages($numImg,$imagesPerRow,$imgScale) { function showLastImages($numImg, $imagesPerRow, $imgScale) {
$done= decodeTodo ($_GET['done']); elphel_update_exif(); // just for testing
// $this_exif=elphel_get_exif_elphel(0); $done = decodeTodo ( $_GET ['done'] );
$circbuf_pointers=elphel_get_circbuf_pointers($GLOBALS [sensor_port],1); // $this_exif=elphel_get_exif_elphel(0);
$framesAgo=0; $circbuf_pointers = elphel_get_circbuf_pointers ( $GLOBALS [sensor_port], 1 );
//echo "<pre>\n"; echo "<!--";
end($circbuf_pointers); var_dump($circbuf_pointers);
if ($done) { echo "-->";
end($done); $framesAgo = 0;
$lastFrameNumber=key($done); // echo "<pre>\n";
$cur_ptr=current($circbuf_pointers); end ( $circbuf_pointers );
while($cur_ptr['frame'] > $lastFrameNumber) { if ($done) {
if (!prev($circbuf_pointers)) { /// failed to find the right frame in circbuf - probably overwritten end ( $done );
end($circbuf_pointers); $lastFrameNumber = key ( $done );
break; $cur_ptr = current ( $circbuf_pointers );
} while ( $cur_ptr ['frame'] > $lastFrameNumber ) {
$cur_ptr=current($circbuf_pointers); if (! prev ( $circbuf_pointers )) { // / failed to find the right frame in circbuf - probably overwritten
$framesAgo++; end ( $circbuf_pointers );
} break;
}
} $cur_ptr = current ( $circbuf_pointers );
///TODO: If all changes were later than the images shown - disregard $todo $framesAgo ++;
//print_r($circbuf_pointers); }
//print_r($done); }
// /TODO: If all changes were later than the images shown - disregard $todo
//echo "</pre>\n"; // print_r($circbuf_pointers);
$meta=array(); // print_r($done);
// end($circbuf_pointers);
$lastFrameIndex=key($circbuf_pointers); // echo "</pre>\n";
for ($i=0; $i<=min(($numImg-1),$lastFrameIndex);$i++) { $meta = array ();
$meta[$i]=array('circbuf_pointer'=>$circbuf_pointers[$lastFrameIndex-($numImg-1)+$i]['circbuf_pointer'], // end($circbuf_pointers);
'meta'=>elphel_get_interframe_meta($GLOBALS [sensor_port],$circbuf_pointers[$lastFrameIndex-($numImg-1)+$i]['circbuf_pointer']), $lastFrameIndex = key ( $circbuf_pointers );
'Exif'=>elphel_get_exif_elphel ($GLOBALS [sensor_port],$circbuf_pointers[$lastFrameIndex-($numImg-1)+$i]['exif_pointer'])); for($i = 0; $i <= min ( ($numImg - 1), $lastFrameIndex ); $i ++) {
$lastFrameNumber=$circbuf_pointers[$lastFrameIndex-($numImg-1)+$i]['frame']; $meta [$i] = array (
} 'circbuf_pointer' => $circbuf_pointers [$lastFrameIndex - ($numImg - 1) + $i] ['circbuf_pointer'],
$running=(elphel_get_P_value($GLOBALS [sensor_port], ELPHEL_COMPRESSOR_RUN)==ELPHEL_CONST_COMPRESSOR_RUN_CONT) && 'meta' => elphel_get_interframe_meta (
(elphel_get_P_value($GLOBALS [sensor_port], ELPHEL_SENSOR_RUN)==ELPHEL_CONST_SENSOR_RUN_CONT); $GLOBALS [sensor_port],
$page_title=sprintf("%s %d images acquired to the circular buffer (circbuf). Acquisition is %s. Last frame is %d" $circbuf_pointers [$lastFrameIndex - ($numImg - 1) + $i] ['circbuf_pointer'] ),
,$framesAgo?"$framesAgo frames (stored) ago":"Latest" 'Exif' => elphel_get_exif_elphel (
,$numImg $GLOBALS [sensor_port],
,$running?"on - these frames are/will be overwritten in the camera memory":"off" $circbuf_pointers [$lastFrameIndex - ($numImg - 1) + $i] ['exif_pointer'] )
,$lastFrameNumber); );
/* $lastFrameNumber = $circbuf_pointers [$lastFrameIndex - ($numImg - 1) + $i] ['frame'];
$page_title=sprintf("%d: %s %d images acquired to the circular buffer (circbuf). Acquisition is %s" }
,$lastFrameNumber echo "<!--";
,$framesAgo?"$framesAgo frames ago":"Latest" var_dump($meta);
,$numImg echo "-->";
,$running?"on - these frames are/will be overwritten in the camera memory":"off"
); $running = (elphel_get_P_value ( $GLOBALS [sensor_port], ELPHEL_COMPRESSOR_RUN ) == ELPHEL_CONST_COMPRESSOR_RUN_CONT) && (elphel_get_P_value ( $GLOBALS [sensor_port], ELPHEL_SENSOR_RUN ) == ELPHEL_CONST_SENSOR_RUN_CONT);
*/ $page_title = sprintf ( "%s %d images acquired to the circular buffer (circbuf). Acquisition is %s. Last frame is %d", $framesAgo ? "$framesAgo frames (stored) ago" : "Latest", $numImg, $running ? "on - these frames are/will be overwritten in the camera memory" : "off", $lastFrameNumber );
startPage($page_title, ""); /*
printf("<h4>%s</h4>\n",$page_title); * $page_title=sprintf("%d: %s %d images acquired to the circular buffer (circbuf). Acquisition is %s"
printf ("<table>\n"); * ,$lastFrameNumber
$rowOpen=$false; * ,$framesAgo?"$framesAgo frames ago":"Latest"
$lastFrame=0; * ,$numImg
$done_left=count($done); * ,$running?"on - these frames are/will be overwritten in the camera memory":"off"
reset($done); * );
$slice_start=0; */
$slice_count=0; startPage ( $page_title, "" );
for ($i=0;$i<$numImg;$i++) { printf ( "<h4>%s</h4>\n", $page_title );
$slice_start+=$slice_count; printf ( "<table>\n" );
$slice_count=0; $rowOpen = $false;
$frame=$meta[$i]['Exif']['FrameNumber']; $lastFrame = 0;
while($done_left && (key($done) <= $frame)) { $done_left = count ( $done );
$slice_count++; reset ( $done );
$done_left--; $slice_start = 0;
next($done); $slice_count = 0;
} for($i = 0; $i < $numImg; $i ++) {
///$done per image $slice_start += $slice_count;
$this_done=array_slice($done,$slice_start,$slice_count,true); $slice_count = 0;
if (!($i % $imagesPerRow)) { $frame = $meta [$i] ['Exif'] ['FrameNumber'];
if ($rowOpen) { while ( $done_left && (key ( $done ) <= $frame) ) {
printf ("</tr>\n"); $slice_count ++;
} $done_left --;
printf ("<tr>\n"); next ( $done );
$rowOpen=true; }
} // /$done per image
printf("<td style='vertical-align: top;'>"); $this_done = array_slice ( $done, $slice_start, $slice_count, true );
$skipped=($i>0)?($frame-$lastFrame-1):0; if (! ($i % $imagesPerRow)) {
$lastFrame=$frame; if ($rowOpen) {
showImgData($meta[$i],$skipped,$numImg-$i-1,$imgScale,$this_done); printf ( "</tr>\n" );
printf("</td>\n"); }
} printf ( "<tr>\n" );
while ($i++ % $imagesPerRow) { $rowOpen = true;
printf ("<td>&nbsp;</td>\n"); }
} printf ( "<td style='vertical-align: top;'>" );
printf ("</tr>\n"); $skipped = ($i > 0) ? ($frame - $lastFrame - 1) : 0;
printf ("</table>\n"); $lastFrame = $frame;
endPage(); showImgData ( $meta [$i], $skipped, $numImg - $i - 1, $imgScale, $this_done );
printf ( "</td>\n" );
}
while ( $i ++ % $imagesPerRow ) {
printf ( "<td>&nbsp;</td>\n" );
}
printf ( "</tr>\n" );
printf ( "</table>\n" );
endPage ();
} }
/** /**
...@@ -734,7 +747,7 @@ function showSequence($todo,$frame_zero) { ...@@ -734,7 +747,7 @@ function showSequence($todo,$frame_zero) {
printf ("</table>\n"); printf ("</table>\n");
} }
function applyPost($todo,$noFinalWait=false) { function applyPost_debug($todo,$noFinalWait=false) {
global $maxahead,$minahead,$frame_zero,$showSeqMode; global $maxahead,$minahead,$frame_zero,$showSeqMode;
if ($showSeqMode>0) { if ($showSeqMode>0) {
printf("<h4>Running sequence...</h4>\n"); printf("<h4>Running sequence...</h4>\n");
...@@ -747,10 +760,12 @@ function applyPost($todo,$noFinalWait=false) { ...@@ -747,10 +760,12 @@ function applyPost($todo,$noFinalWait=false) {
/// Skip to the next frame (so more deterministic phase - maximal time till next frame) /// Skip to the next frame (so more deterministic phase - maximal time till next frame)
$waitingEnabled=true; $waitingEnabled=true;
/*
foreach ($todo as $pars) if (array_key_exists('SENSOR', $pars)) { foreach ($todo as $pars) if (array_key_exists('SENSOR', $pars)) {
$waitingEnabled=false; $waitingEnabled=false;
break; break;
} }
*/
if (elphel_get_frame($GLOBALS [sensor_port])< 8) $waitingEnabled=false; /// or is "==0" enough? if (elphel_get_frame($GLOBALS [sensor_port])< 8) $waitingEnabled=false; /// or is "==0" enough?
if ($waitingEnabled && !$noFinalWait) elphel_skip_frames($GLOBALS [sensor_port],1); // in GET mode, do not skip any frames if ($waitingEnabled && !$noFinalWait) elphel_skip_frames($GLOBALS [sensor_port],1); // in GET mode, do not skip any frames
/// store the current frame number as reference for all actions delays /// store the current frame number as reference for all actions delays
...@@ -762,20 +777,43 @@ function applyPost($todo,$noFinalWait=false) { ...@@ -762,20 +777,43 @@ function applyPost($todo,$noFinalWait=false) {
if (($since-$maxahead) >$frame_since ) { /// too early to program, need to wait if (($since-$maxahead) >$frame_since ) { /// too early to program, need to wait
$frame_since=$since-$minahead; $frame_since=$since-$minahead;
$frame_now=$frame_since+$frame_zero; $frame_now=$frame_since+$frame_zero;
if ($waitingEnabled) { if ($waitingEnabled) {
if ($showSeqMode>0) {printf ("waiting frame %d (0x%x) ... ",$frame_now,$frame_now); ob_flush(); flush();} if ($showSeqMode > 0) {
elphel_wait_frame_abs($GLOBALS [sensor_port], $frame_now); printf ( "waiting frame %d (0x%x) ...s=%d, fs=%d noFinalWait=",
if ($showSeqMode>0) {printf ("done\n"); ob_flush(); flush();} $frame_now, $frame_now, $since, $frame_since, $noFinalWait);
} ob_flush ();
flush ();
}
elphel_wait_frame_abs ( $GLOBALS [sensor_port], $frame_now );
if ($showSeqMode > 0) {
printf ( "done\n" );
ob_flush ();
flush ();
}
}
} }
elphel_set_P_arr ($GLOBALS [sensor_port], $pgmpars, $frame_zero+$since,ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC); /// Are these flags needed? elphel_set_P_arr ($GLOBALS [sensor_port], $pgmpars, $frame_zero+$since,ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC); /// Are these flags needed?
// if ($showSeqMode > 0) {
// printf ( "frame_zero=%d, since=%d",$frame_zero,$since);
// printf ( "elphel_set_P_arr ($GLOBALS [sensor_port], $pgmpars, $frame_zero+$since,ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC)");
// ob_flush ();
// flush ();
// }
} }
if (!$noFinalWait) { if (!$noFinalWait) {
$frame_now=$since+$frame_zero+1; /// wait just 1 frame longer that the target of the last command in $todo $frame_now=$since+$frame_zero+1; /// wait just 1 frame longer that the target of the last command in $todo
// echo "since=$since\n"; ob_flush(); flush(); // $frame_now+=256;
if ($showSeqMode>0) {printf ("waiting frame %d (0x%x) ... ",$frame_now,$frame_now); ob_flush(); flush();} // if ($showSeqMode > 0) {
// printf ( "frame_zero=%d, since=%d",$frame_zero,$since);
// printf ( "elphel_set_P_arr ($GLOBALS [sensor_port], $pgmpars, $frame_zero+$since,ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC)");
// ob_flush ();
// flush ();
// }
// echo "since=$since\n"; ob_flush(); flush();
if ($showSeqMode>0) {printf ("(final) waiting frame %d (0x%x) ... ",$frame_now,$frame_now); ob_flush(); flush();}
if ($waitingEnabled) { if ($waitingEnabled) {
elphel_wait_frame_abs($GLOBALS [sensor_port], $frame_now); $rslt = elphel_wait_frame_abs($GLOBALS [sensor_port], $frame_now);
} else { } else {
$timeout_step= 100000; /// 0.1 sec $timeout_step= 100000; /// 0.1 sec
$timeout= 3000000; /// 3.0sec $timeout= 3000000; /// 3.0sec
...@@ -785,11 +823,77 @@ function applyPost($todo,$noFinalWait=false) { ...@@ -785,11 +823,77 @@ function applyPost($todo,$noFinalWait=false) {
} }
} }
} }
if ($showSeqMode>0) {printf ("done\n"); ob_flush(); flush();} // $rslt2 = elphel_wait_frame_abs($GLOBALS [sensor_port], 100);
// $rslt3 = elphel_wait_frame_abs($GLOBALS [sensor_port], $frame_now);
// $rslt4 = elphel_skip_frames($GLOBALS [sensor_port],4);
if ($showSeqMode>0) {printf ("done, frame is %d, rslt=%d, frame_now was %d, waitingEnabled=%d\n",
elphel_get_frame($GLOBALS [sensor_port]), $rslt, $frame_now, $waitingEnabled);
ob_flush(); flush();
}
if ($showSeqMode>0) echo "</pre>"; if ($showSeqMode>0) echo "</pre>";
// exit (0); // exit (0);
} }
function applyPost($todo,$noFinalWait=false) {
global $maxahead,$minahead,$frame_zero,$showSeqMode;
if ($showSeqMode>0) {
printf("<h4>Running sequence...</h4>\n");
echo "<pre>";
}
// print_r($_POST);
// print_r($posted_params);
// var_dump($todo);
// print_r($todo);
/// Skip to the next frame (so more deterministic phase - maximal time till next frame)
$waitingEnabled=true;
foreach ($todo as $pars) if (array_key_exists('SENSOR', $pars)) {
$waitingEnabled=false;
break;
}
if (elphel_get_frame($GLOBALS [sensor_port])< 8) $waitingEnabled=false; /// or is "==0" enough?
if ($waitingEnabled && !$noFinalWait) elphel_skip_frames($GLOBALS [sensor_port],1); // in GET mode, do not skip any frames
/// store the current frame number as reference for all actions delays
$frame_zero=elphel_get_frame($GLOBALS [sensor_port]);
$frame_since=0;
$frame_now=$frame_zero;
///Iterate through $todo array, programming the parameter changes
foreach ($todo as $since=>$pgmpars) {
if (($since-$maxahead) >$frame_since ) { /// too early to program, need to wait
$frame_since=$since-$minahead;
$frame_now=$frame_since+$frame_zero;
// $frame_now=$frame_since+$frame_zero+2; // NC393: adding 2 extra
if ($waitingEnabled) {
$frame_now=$frame_since+$frame_zero;
if ($showSeqMode>0) {printf ("waiting frame %d (0x%x) ... ",$frame_now,$frame_now); ob_flush(); flush();}
elphel_wait_frame_abs($GLOBALS [sensor_port], $frame_now);
if ($showSeqMode>0) {printf ("done (%d)\n", elphel_get_frame($GLOBALS [sensor_port])); ob_flush(); flush();}
}
}
elphel_set_P_arr ($GLOBALS [sensor_port], $pgmpars, $frame_zero+$since,ELPHEL_CONST_FRAMEPAIR_FORCE_NEWPROC); /// Are these flags needed?
}
if (!$noFinalWait) {
// $frame_now=$since+$frame_zero+1; /// wait just 1 frame longer that the target of the last command in $todo
$frame_now=$since+$frame_zero+2; /// wait just 1 frame longer that the target of the last command in $todo
// echo "since=$since\n"; ob_flush(); flush();
if ($showSeqMode>0) {printf ("waiting frame %d (0x%x) ... ",$frame_now,$frame_now); ob_flush(); flush();}
if ($waitingEnabled) {
elphel_wait_frame_abs($GLOBALS [sensor_port], $frame_now);
} else {
$timeout_step= 100000; /// 0.1 sec
$timeout= 3000000; /// 3.0sec
for ($i=0 ; $i < $timeout; $i+=$timeout_step) {
if (elphel_get_frame($GLOBALS [sensor_port])>=$frame_now) break;
usleep($timeout_step);
}
}
}
if ($showSeqMode>0) {printf ("done (%d, 0x%x)\n", elphel_get_frame($GLOBALS [sensor_port]), elphel_get_frame($GLOBALS [sensor_port])); ob_flush(); flush();}
if ($showSeqMode>0) echo "</pre>";
// exit (0);
}
function parsePost() { function parsePost() {
global $_POST,$testMode,$showSeqMode,$posted_params; global $_POST,$testMode,$showSeqMode,$posted_params;
$posted_params=array(); $posted_params=array();
...@@ -1204,11 +1308,11 @@ function printPage($encoded_todo) { ...@@ -1204,11 +1308,11 @@ function printPage($encoded_todo) {
printf ("<table border='1' style='font-family: Courier, monospace;'>\n"); printf ("<table border='1' style='font-family: Courier, monospace;'>\n");
if ($embedImageScale) { if ($embedImageScale) {
$fd_circ=fopen("/dev/circbuf","r"); $fd_circ=fopen("/dev/circbuf".strval($GLOBALS['sensor_port']),"r");
fseek($fd_circ, ELPHEL_LSEEK_CIRC_LAST,SEEK_END); fseek($fd_circ, ELPHEL_LSEEK_CIRC_LAST,SEEK_END);
$circbuf_pointer=ftell($fd_circ); $circbuf_pointer=ftell($fd_circ);
fclose($fd_circ); fclose($fd_circ);
// echo "circbuf_pointer=$circbuf_pointer";
if ($circbuf_pointer>=0) { if ($circbuf_pointer>=0) {
$meta=elphel_get_interframe_meta($GLOBALS [sensor_port], $circbuf_pointer); $meta=elphel_get_interframe_meta($GLOBALS [sensor_port], $circbuf_pointer);
$width= floor($meta['width']*$embedImageScale); $width= floor($meta['width']*$embedImageScale);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment