Processing your request...
\n" ); //$PROG = "e:\kvi\projects\alig\debug\alig.exe"; $PROG = "e:\kvi\projects\alico\debug\alico.exe"; $ALIGINC = "..\\alig\\aligfun.inc"; $ALIGNPROG = "e:\kvi\projects\alig\debug\alig.exe"; $PARSER = "perl.exe e:\vnickolaev\parser\bsp.pl"; $PARSERINC = "..\\alig\\bspfun.inc"; // Linux File names: } else { // Alex // $TMP = tempnam("../tmp", "alic"); # unique filename prefix // $IMAGE_PREF = tempnam( "../../trash/", "alic" ); $TMP = rel_tempnam("../tmp", "alic"); # unique filename prefix $IMAGE_PREF = rel_tempnam( "../../trash/", "alic" ); $PROG = "./alicomp"; $ALIGINC = "../aligraf/aligfun.inc"; $ALIGNPROG = "../aligraf/aligra"; // $PARSER = "perl /usr/local/apache/cgi-bin/bsp.pl"; $PARSER = "perl /var/www/cgi-bin/bsp.pl"; $PARSERINC = "../aligraf/bspfun.inc"; } if( $Linux ) { #........add to database......... //require("/www/db/connect.php"); $TaskID=6; $SenderMail=$email; $emailaddress; //insert_message_to_db($TaskID, $SenderMail); #............................... } $PROTOCOL = $TMP.".txt"; $PARMFILE = $TMP.".opt"; $ALIGN1FILE = $TMP.".al1"; $ALIGN2FILE = $TMP.".al2"; $MISFILE = $TMP.".mis"; // mismatch file name $ERRFILE = $TMP.".err"; // *** 22.08.2001 // separate align image $PROTOCOL1 = $TMP.".tx1"; $PARMFILE1 = $TMP.".op1"; $PROTOCOL2 = $TMP.".tx2"; $PARMFILE2 = $TMP.".op2"; // Parser files $PARSERIN1 = $TMP.".in1"; $PARSEROUT1 = $TMP.".ou1"; $PARSERIN2 = $TMP.".in2"; $PARSEROUT2 = $TMP.".ou2"; // Basic/advanced ? if( isset( $CWIDTH ) ) { //if( isset( $adv_opt ) ) { $Advanced = TRUE; //echo "Advanced mode
\n"; } else { $Advanced = FALSE; //echo "Basic mode
\n"; // ----------------------- // Set default parameters for Basic mode // ----------------------- $CWIDTH = 765; $CHEIGHT = "AUTO"; $WIDTH = 765; $HEIGHT = "AUTO"; $MISMATCH = "No"; $OSCALE = "ABS"; $FILLING = "7"; $SPLIT = "NONE"; $GROUPTYPE = "0"; // AUTO } //+$GROUPTYPE = "PROTEIN"; // for a while ?? if( !isset( $CPICTURE[0] ) ) { //&& $CPICTURE[0] != "NONE" ) { $CPICTURE[0] = "OFFSETS"; } // Default matrix *** 07.09.2001 if( !isset($MATR) ) $MATR = "blosum62"; if( $test ) { echo 'Win=', $Windows, ', Linux=', $Linux, "
"; } include( $ALIGINC ); //+include "..\\alig\\aligfun.inc"; /***** #--------------------------------------------------------SIMIL # Print parameter into resulting page. If ref != 0 # is given parameter name if arranged as reference #-------------------------------------------------------- function printPar( $name, $ref, $val ) { if( $ref == "" ) //echo "$name$val"; echo "$name$val"; else //echo "$name$val"; echo "$name$val"; return 0; } # -------------------------------------------------------- # Detect moleculare type for the given sequence. # //Returns: 1 - protein, 0 - nucleotide. # Returns: 0 - protein, 1 - nucleotide. (like in C++ prog)*** # -------------------------------------------------------- $PROTEIN = 0; //1; $DNA = 1; //0; function getMolType( $seq ) { $upseq = strtoupper( $seq ); $len = strlen( $upseq ); $nlet = 0; $nnuc = 0; for( $i = 0; $i < $len; $i++ ) { #echo $seq[ $i ]." ".intval( $seq[ $i ] )."
"; #if( 64 < intval( $seq[ $i ] ) && intval( $seq[ $i ] ) < 91 ) { $nlet++; if( $seq[ $i ] == 'A' || $seq[ $i ] == 'C' || $seq[ $i ] == 'G' || $seq[ $i ] == 'N' || $seq[ $i ] == 'T' || $seq[ $i ] == 'U' ) $nnuc++; #} } // DNA PROT // $molType = ( 100*$nnuc > 80*$nlet ) ? 0 : 1; $molType = ( 100*$nnuc > 80*$nlet ) ? 1 : 0; #echo $nlet." ".$nlet." ".$len." ".$molType."
"; return $molType; } // ---------------------------------------------------- // Get Base of a file name // ---------------------------------------------------- function f_fileBase( $fName ) { $iL = strlen ( $fName ); $point = strrpos( $fName, '.' ); if( $point < 1 ) $point = $iL; // -> fName.end $slash = strrpos ( $fName, '/' ); if( $slash < 1 ) $slash = strrpos ( $fName, '\\' ); if( $slash < 1 ) $slash = 0; // php3 & 4 ? $start = 0; //fName; if( $slash > 0 ) $start = $slash + 1; $len = $point - $start; //if( len > lenMax ) len = lenMax; return substr( $fName, $start, $len ); } if( $test ) { echo " Base of /some/two/base.matr = ", f_fileBase( "/some/two/base.matr" ), "
"; } *****/ # -------------------------------------------------------- # Check some conditions. # -------------------------------------------------------- if( $ALIGN1 == "" || $ALIGN2 == "" ) { echo "
I guess, you forgot to enter/paste your favorite alignment(s).
I can't read that guy out of your mind so far. Sorry.
"; exit; } // -------------------------------- split seq //echo "SEQ = " , $seq, "
"; echo '
'; if( $test ) { echo "
ALIGN2 = " , $ALIGN2, "

"; } # -------------------------------------------------------- # Creats lock-file for input file # -------------------------------------------------------- $T = 0; //++$T = 5*( count( $P_BANKS ) + count( $N_BANKS ) ); if( $T == 0 ) $T = 5; //3; //5; echo "Estimated time before completing your request is approximately $T minutes...

"; flush(); include( $PARSERINC ); #_____________________________________ Parser: $ALIGN_SOU1 = $ALIGN1; // save to print $ALIGN1 = f_getParserAlign( $ALIGN1, $PARSER, $PARSERIN1, $PARSEROUT1 ); $ALIGN_SOU2 = $ALIGN2; // save to print $ALIGN2 = f_getParserAlign( $ALIGN2, $PARSER, $PARSERIN2, $PARSEROUT2 ); /** $WM = Array ( "BLOSUM" => Array ("blosum30.matrix","blosum50.matrix","blosum62.matrix"), "PAM" => Array ("dayhoff.matrix"), "GONNET" => Array ("johnson.matrix"), "ID" => Array ("dnarna.matrix"), "IUB" => Array ("dnarna.matrix"), "CLUSTALW" => Array ("dnarna.matrix") ); **/ /** //$PROTEIN = Array ( "dayhoff.matrix" $wmPROTEIN[0] = "dayhoff"; $wmPROTEIN[1] = "johnson"; $wmPROTEIN[2] = "blosum30"; $wmPROTEIN[3] = "blosum50"; $wmPROTEIN[4] = "blosum62"; $wmPROTEIN[5] = "reserved"; $wmPROTEIN[6] = "pam60"; $wmPROTEIN[7] = "pam120"; $wmPROTEIN[8] = "pam250"; $wmPROTEIN[9] = "gon120"; $wmPROTEIN[10] = "gon250"; $wmPROTEIN[11] = "gon350"; $wmDNARNA = "dnarna"; **/ // ----------------------- // Change defaults // ----------------------- /****** if( !empty($nplot ) ) $MN_PLOT = $nplot; if( !empty($ntext ) ) $MN_PRINT = $ntext; if( !empty($length ) ) $ML_THRESH = $length; if( !empty($power ) ) $MP_THRESH_BASIC = $power; if( !empty($power0 ) ) $MP_THRESH_MINOR = $power0; if( !empty($powerS ) ) $MP_THRESH_SIGNI = $powerS; if( !empty($accurate) ) $DH_ACCURATE = ($accurate=="Off" ? 0 : 1); if( !empty($homology) ) $MHP_THRESH = $homology; if( !empty($mfr ) ) $MFR = ($mfr=="Off" ? 0 : 1 ); if( !empty($norm ) ) $NORM = ($norm=="Off" ? 0 : 1 ); if( $MFR == 0 ) $NORN = 0; // ___________________________________________________ molType & matrix select //+if( !empty($seqtype ) ) $SEQTYPE = $seqtype; $MOLTYPE = getMolType( $seq1 ); // $seqtype == "Auto" if( $test ) echo "AUTO MOLTYPE = ", $MOLTYPE, "
"; //if( isset( $dnarna ) ) { // if( $MOLTYPE == $PROTEIN ) { if( isset( $wmatr ) ) { if( $MOLTYPE == $PROTEIN && ($wmatr[0] == "dnarna") ) { // *** echo "

Warning: The sequences seem to be Protein, but you have selected DNA matrix.


"; } //+$MOLTYPE = $DNA; // 0 } //if( isset( $protein ) ) { // if( $MOLTYPE == $DNA ) { if( isset( $wmatr ) ) { if( $MOLTYPE == $DNA && ($wmatr[0] != "dnarna" || count($wmatr) > 1) ) { // *** echo "

Warning: The sequences seem to be DNA, but you have selected Protein matrix.


"; } //+$MOLTYPE = $PROTEIN; // 0 } // Default matrix: //if( !isset( $dnarna ) && !isset( $protein ) ) { if( !isset( $wmatr ) ) { if( $MOLTYPE == $PROTEIN ) { //$wmatr[0] = "blosum30"; // *** $wmatr[0] = "dayhoff"; // *** } else { $wmatr[0] = "dnarna"; // *** } } ******/ //+if( !empty( $multi_pwmatrix ) ) $MULTI_PWMATRIX = $multi_pwmatrix; //+if( !empty( $multi_dnamatrix ) ) $MULTI_DNAMATRIX = $multi_dnamatrix; // ____________________________________________________ matrix Line /** if( $MOLTYPE == $PROTEIN ) $wmList = $WM[$MULTI_PWMATRIX]; else $wmList = $WM[$MULTI_DNAMATRIX]; $WM_LINE = f_fileBase( $wmList[0] ); if( $test ) echo " start WM_LINE = ", $WM_LINE, "
"; $numMatr = sizeof($wmList); for( $i = 1; $i < $numMatr; $i++ ){ $wm_ = f_fileBase($wmList[$i]); $WM_LINE = "$WM_LINE, $wm_"; } **/ /***** //$iL = sizeof( $wmPROTEIN ); $iL = count( $wmatr ); for( $i = 0; $i < $iL; $i++ ){ //if( !isset( $protein[ $i ] ) ) continue; // <------ //$wm_ = $wmPROTEIN[ $i ]; $wm_ = $wmatr[ $i ]; if( isset( $WM_LINE ) ) { $WM_LINE = "$WM_LINE, $wm_"; } else { $WM_LINE = $wm_; } $wmList[] = $wm_ . ".matrix"; } $numMatr = count( $wmList ); $WM_LINE = strToUpper( $WM_LINE ); // --------------------------> wmList, numMatr *****/ #______________________________Auto height /***** function f_numSeq( $Align ) { $aLi = split( "[\n]", $Align ); $iL = count( $aLi ); // Skip first non-seq ( starting with blank ): for( $i = 0; $i < $iL; ++$i ) { if( strpos( $aLi[$i], " " ) > 0 ) break; } $numSeq = 0; for( ; $i < $iL; ++$i ) { if( strpos( $aLi[$i], " " ) == 0 ) { break; } $numSeq++; } return $numSeq; } *****/ // - - - - - - - - - - - - - $auto_hei_c = FALSE; // comparison pictures $auto_hei = FALSE; // seperate align image if( strtoupper($CHEIGHT) == "AUTO" || strtoupper($HEIGHT) == "AUTO" ) { $numSeq1 = f_numSeq( $ALIGN1 ); $numSeq2 = f_numSeq( $ALIGN2 ); //+echo "
numSeq = " . $numSeq . "
\n"; $numSeq = $numSeq1; if( $numSeq2 > $numSeq ) { $numSeq = $numSeq2; } // comparison pictures if( strtoupper($CHEIGHT) == "AUTO" ) { //$CHEIGHT = $numSeq * 16 + 26 + 10 + 3*16 + 7; // ?????????? $CHEIGHT = $numSeq * 20 + 26 + 10 + 3*16 + 7 + 16; // ?????????? if( $CHEIGHT < 150 ) $CHEIGHT = 150; if( $CHEIGHT > 3000 ) $CHEIGHT = 3000; $auto_hei_c = TRUE; $CHEIGHT = 0; // 0 - AUTO, see C++ prog *** 15.07.2001 } /** // seperate align image if( strtoupper($HEIGHT) == "AUTO" ) { $HEIGHT = $numSeq * 16 + 26 + 10 + 3*16 + 7; // ?????? if( $HEIGHT < 150 ) $HEIGHT = 150; if( $HEIGHT > 6000 ) $HEIGHT = 6000; $auto_hei = TRUE; } **/ } ## ## width & height ## $cwid = $CWIDTH; $chei = $CHEIGHT; if( empty($cwid) ) { $cwid = 765; } ## default // 640 //if( empty($chei) ) { $chei = 480; } ## default if( empty($chei) ) { $chei = 0; $auto_hei_c = TRUE; } ## default AUTO if( $cwid < 320 ) { $cwid = 320; } ## min if( $cwid > 3000 ) { $cwid = 3000; } ## max //if( $chei < 240 ) { $chei = 240; } ## min //if( $chei > 1500 ) { $chei = 1500; } ## max if( $chei < 200 && !$auto_hei_c ) { $chei = 200; } ## min if( $chei > 10000 ) { $chei = 10000; } ## max //$cwid = $wid; //$chei = $hei; #______________________________PARMFILE $fp = fopen( $PARMFILE, "w" ); fputs( $fp, "-i". $IMAGE_PREF ."_\n" ); // OK "-irun\\\\\clu3_\n" -> -irun\\clu3_ //fputs( $fp, "-W". $CWIDTH ."\n" ); //fputs( $fp, "-H". $CHEIGHT ."\n" ); fputs( $fp, "-W". $cwid ."\n" ); fputs( $fp, "-H". $chei ."\n" ); if( $ALGO1 != "" ) fputs( $fp, "-A". $ALGO1 ."\n" ); if( $ALGO2 != "" ) fputs( $fp, "-B". $ALGO2 ."\n" ); if( $TITLE != "" ) fputs( $fp, "-T". $TITLE ."\n" ); fputs( $fp, "-e". $MISFILE ."\n" ); // mismatch file name // Offset scale; abs/rel. fputs( $fp, "-o". ( $OSCALE == "ABS" ? "0" : "1" ) ."\n" ); // Mismatch compare ? fputs( $fp, "-M". ( $MISMATCH == "Yes" ? "1" : "0" ) ."\n" ); fputs( $fp, "-f". $FILLING ."\n" ); // from aligra.php: aligfun.inc // +Matrix file.. like in Aligra /** if( $GROUPTYPE == "AUTO" ) { // *nothing: see C++ prog } else if( $GROUPTYPE == "PROTEIN" ) { fputs( $fp, "-m". "blosum62.matrix" ."\n" ); fputs( $fp, "-g". "color10.def" ."\n" ); } else if( $GROUPTYPE == "DNARNA" ) { fputs( $fp, "-m". "dnarna.matrix" ."\n" ); fputs( $fp, "-g". "color5.def" ."\n" ); } **/ if( $GROUPTYPE == "AUTO" ) { // *nothing: see C++ prog } else if( $GROUPTYPE == "PROTEIN" ) { if( !isset( $MATR ) ) fputs( $fp, "-m". "blosum62.matrix" ."\n" ); fputs( $fp, "-g". "color10.def" ."\n" ); } else if( $GROUPTYPE == "DNARNA" ) { if( !isset( $MATR ) ) fputs( $fp, "-m". "dnarna.matrix" ."\n" ); fputs( $fp, "-g". "color5.def" ."\n" ); } if( isset( $MATR ) ) { fputs( $fp, "-m". $MATR . ".matrix" ."\n" ); // if... } $numCPic = count($CPICTURE); $CPicType = Array ( "OFFSETS" => "0", "STAT21" => "21", "STAT22" => "22", "STAT99" => "0" ); //$PicSelType = "11"; $CPicTitle = Array ( "OFFSETS" => "Offsets comparison", "STAT21" => "Column values comparison", "STAT22" => "Column values comparison (2)", "STAT99" => "0" ); $CImageTail = Array ( "OFFSETS" => "", "STAT21" => "c1", "STAT22" => "c2", "STAT99" => "0" ); $sCPicLine = ""; if( isset( $CPICTURE[0] ) && $CPICTURE[0] != "NONE" ) { for( $i = 0; $i < $numCPic; $i++ ) { fputs( $fp, "-t". $CPicType[ $CPICTURE[$i] ] ."\n" ); if( $i == 0 ) { $sCPicLine = $CPicTitle[ $CPICTURE[$i] ]; } else { $sCPicLine = $sCPicLine . ",
" .$CPicTitle[ $CPICTURE[$i] ]; } } } /***** $numPic = count($PICTURE); $PicType = Array ( "ALLGROUPS" => "0", "MAXATCOL" => "1", "SELGROUPS" => "2", "STAT1" => "11", "STAT2" => "12", "STAT99" => "0" ); $PicSelType = "11"; $PicTitle = Array ( "ALLGROUPS" => "All groups", "MAXATCOL" => "Max group at column", "SELGROUPS" => "Selected groups", "STAT1" => "Column values", "STAT2" => "Column values (best-to-worst)", "STAT99" => "0" ); $ImageTail = Array ( "ALLGROUPS" => "a", "MAXATCOL" => "m", "SELGROUPS" => "se", "STAT1" => "s1", "STAT2" => "s2", "STAT99" => "0" ); $sPicLine = ""; if( isset( $PICTURE[0] ) && $PICTURE[0] != "NONE" ) { for( $i = 0; $i < $numPic; $i++ ) { fputs( $fp, "-t". $PicType[ $PICTURE[$i] ] ."\n" ); if( $i == 0 ) { $sPicLine = $PicTitle[ $PICTURE[$i] ]; } else { $sPicLine = $sPicLine . ",
" .$PicTitle[ $PICTURE[$i] ]; } } } $numSel = count( $SELGROUP ); //+echo "numSel = " . $numSel . "
"; if( isset( $SELGROUP[0] ) && $SELGROUP[0] != "UNSELECTED" ) { $selTit = $PicTitle["SELGROUPS"] . ": "; if( $sPicLine == "" ) { $sPicLine = "Selected groups: "; } else { $sPicLine = $sPicLine . ",
Selected groups: "; } $dlm = " "; for( $i = 0; $i < $numSel; $i++ ) { fputs( $fp, "-s". $SELGROUP[ $i ] ."\n" ); //$iWk = $sPicLine = $sPicLine . $dlm . (($SELGROUP[ $i ]) + 1); $selTit = $selTit . $dlm . (($SELGROUP[ $i ]) + 1); $dlm = ", "; } $PicTitle["SELGROUPS"] = $selTit; } //$PicTitle["SELGROUPS"] = $selTit; *****/ fclose( $fp ); /**/ $fp = fopen( $ALIGN1FILE, "w" ); // fputs( $fp, $ALIGN1 ); fclose( $fp ); $fp = fopen( $ALIGN2FILE, "w" ); // fputs( $fp, $ALIGN2 ); fclose( $fp ); #___________________________________________________C++ CALL //system( "$PROG $PARMFILE $ALIGNFILE > $PROTOCOL" ); system( "$PROG $PARMFILE $ALIGN1FILE $ALIGN2FILE > $PROTOCOL" ); //f_exeAlignProg( $ALIGN1, $ALiGNPROG, $PARMFILE1, $ALIGN1FILE, $PROTOCOL1 ); if( (isset( $PICTURE[0] ) && $PICTURE[0] != "NONE") || (isset( $SELGROUP[0] ) && $SELGROUP[0] != "UNSELECTED") ) { $hei0 = $HEIGHT; // save f_setAlignOpt ( $ALIGN1, $ALGO1, $PARMFILE1, $HEIGHT, $IMAGE_PREF . "1g" ); system( "$ALIGNPROG $PARMFILE1 $ALIGN1FILE > $PROTOCOL1" ); f_setAlignOpt ( $ALIGN2, $ALGO2, $PARMFILE2, $hei0 , $IMAGE_PREF . "2g" ); system( "$ALIGNPROG $PARMFILE2 $ALIGN2FILE > $PROTOCOL2" ); } # ----------------------------------------------------------- # Output results. # ----------------------------------------------------------- #_________________________ Banner echo "

"; echo ""; echo "

ALiComp - GeneBee Comparison of Two Alignments

"; //if( $TITLE != "" ) echo "

",$TITLE,"

"; if( $TITLE != "" ) echo "

" . $TITLE . "

"; // __________________________References: //-echo "

References:

"; #_________________________ Content //echo "

"; //echo "
"; //echo "
"; echo ""; echo ""; echo "
"; //+echo "

Contents:

    "; echo "

    Contents:



"; #_________________________ Parameters. echo "

Parameters

"; echo '

'; echo " "; echo " "; if( $TITLE != "" ) { printPar("Title","",$TITLE); } if( $EMAIL != "" ) { printPar("User Email Address","",$EMAIL); } if( $ALGO1 != "" ) { printPar("Short name of the 1st alignment","",$ALGO1); } if( $ALGO2 != "" ) { printPar("Short name of the 2nd alignment","",$ALGO2); } if( $CWIDTH == $cwid ) { printPar( "Comparison picture width" , "help.html#C PICTURE", $CWIDTH ); } else { printPar( "Comparison picture width" , "help.html#C PICTURE", $CWIDTH . " (adjusted to ".$cwid.")" ); } if( $auto_hei_c ) { //printPar( "Comparison picture height", "help.html#CPICTURE", "AUTO: " . $chei); //CHEIGHT ); printPar( "Comparison picture height", "help.html#CPICTURE", "AUTO" ); //CHEIGHT ); } else { if( $CHEIGHT == $chei ) { printPar( "Comparison picture height", "help.html#CPICTURE", $CHEIGHT ); } else { printPar( "Comparison picture height", "help.html#CPICTURE", $CHEIGHT." (adjusted to ".$chei.")" ); } } printPar( "Offset scale", "help.html#CPICTURE", ($OSCALE == "ABS" ? "1 - Max" : "Min - Max" ) ); printPar( "Compare mismatched sequences", "help.html#CPICTURE", $MISMATCH ); printPar( "Comparison picture types" , "help.html#CPICTURE", $sCPicLine ); // This matrix line only w/o compare pictures if( (!isset( $PICTURE[0] ) || $PICTURE[0] == "NONE") && // *** 07.09.2001 (!isset( $SELGROUP[0] ) || $SELGROUP[0] == "UNSELECTED") ) { if( isset( $MATR ) ) { printPar( "Weight matrix" , "help.html#matrices", $MATR ); } } // Separate align options: if( (isset( $PICTURE[0] ) && $PICTURE[0] != "NONE") || (isset( $SELGROUP[0] ) && $SELGROUP[0] != "UNSELECTED") ) { f_outAlignSpecOpt(); } //+printPar( "Picture types" , "help.html#PICTURE", $sPicLine ); //printPar( "Normalize weight matrix","help.html#mfr",( $NORM == 1 ) ? "ON" : "OFF" ); //printPar( "Weight matrices","help.html#type",$WM_LINE ); echo "
Name Value
"; #___________________________________ molType & other errors function f_outErrors( $f ) { //echo "


\n"; echo ""; echo "

WARNING

"; echo "
";
   readfile ( $f );
   echo "
\n"; echo "
"; } if( file_exists( $ERRFILE ) ) { f_outErrors( $ERRFILE ); if( $Windows ) { unlink( $ERRFILE ); } } #_________________________ Alignments. echo "

First Source Alignment

"; //+$iP = strpos( $seq1, "\n" ); // TODO: check iP ? //+echo "

", substr($seq1,0, $iP), "\n

"; //+echo substr( $seq1, $iP ),"

"; echo "
";
 echo $ALIGN_SOU1 . "
\n"; echo "

Second Source Alignment

"; echo "
";
 echo $ALIGN_SOU2 . "
\n"; //#_________________________ Groups. //echo "

Letter Groups

"; #_________________________ Comparison 1 & 2. //echo "

Comparison: 1st Alignment Versus 2nd Alignment

"; /***** #_________________________ Loop on Matrices. for( $i = 0; $i < $numMatr; $i++ ) { $wm_ = strToUpper( f_fileBase( $wmList[$i] ) ); $wmFile = $wmList[$i]; echo "

Weight Matrix of $wm_

"; echo "

"; *****/ ## ## Picture (Form) ## $fn = $IMAGE_PREF; ## Load Images ## (not the case - needed for rolling pictures - if any, some other day...) print "\n"; //++ echo " cwid/chei = " . $cwid . "/" . $chei . "
\n"; echo "
\n"; echo "

Comparison 1: 1st Alignment Versus 2nd Alignment

"; //print "
//

\n"; //print ""; // Tags for( $i = 0; $i < $numCPic; $i++ ){ $ty = $CPicType [ $CPICTURE[$i] ]; $tail = $CImageTail[ $CPICTURE[$i] ]; print "

". $CPicTitle[$CPICTURE[$i]] . "

\n"; print "

\n"; } echo "

Comparison 2: 2nd Alignment Versus 1st Alignment

"; //print "
//

\n"; //print ""; // Tags for( $i = 0; $i < $numCPic; $i++ ){ $ty = $CPicType [ $CPICTURE[$i] ]; $tail = $CImageTail[ $CPICTURE[$i] ]; print "

". $CPicTitle[$CPICTURE[$i]] . "

\n"; print "

\n"; } #_________________________ Mismatch Display. function f_outMismatch( $f ) { echo "
\n"; echo "

Mismatch Errors

"; echo "

Some sequences with same names are found to have different lengths or different letters at same positions:\n"; echo "

";
   readfile ( $f );
   echo "
\n"; } if( file_exists( $MISFILE ) ) { f_outMismatch( $MISFILE ); if( $Windows ) { unlink( $MISFILE ); } } /***** // Tags for( $i = 0; $i < $numPic; $i++ ){ $ty = $PicType [ $PICTURE[$i] ]; if( $ty > 10 ) continue; $tail = $ImageTail[ $PICTURE[$i] ]; print "

". $PicTitle[$PICTURE[$i]] . "

\n"; //print "
//
// //
print "

\n"; //

\n"; } for( $i = 0; $i < $numPic; $i++ ){ $ty = $PicType [ $PICTURE[$i] ]; if( $ty <= 10 ) continue; $tail = $ImageTail[ $PICTURE[$i] ]; print "

". $PicTitle[$PICTURE[$i]] . "

\n"; //print "
// // //
print "

\n"; //

\n"; } *****/ if( (isset( $PICTURE[0] ) && $PICTURE[0] != "NONE") || (isset( $SELGROUP[0] ) && $SELGROUP[0] != "UNSELECTED") ) { #_________________________ Graphical Alignment 1. echo "
\n"; echo "

Graphical Image of the First Alignment

"; f_outAlignImages( "pic1_", "gali1_im", $IMAGE_PREF . "1g" ); // args: images prefs #_________________________ Graphical Alignment 2. echo "
\n"; echo "

Graphical Image of the Second Alignment

"; f_outAlignImages( "pic2_", "gali2_im", $IMAGE_PREF . "2g" ); // args: images prefs } $section = "BOTTOM"; include "alicomli.h"; # Delete all temporary files. if( $Linux ) { system( "rm $ALIGNFILE" ); system( "rm $PROTOCOL" ); system( "rm $PARMFILE" ); // ? + images system( "rm $MISFILE" ); system( "rm $PARSERIN1" ); system( "rm $PARSEROUT1" ); system( "rm $PARSERIN2" ); system( "rm $PARSEROUT2" ); system( "rm $ERRFILE" ); //for( $i = 0; $i < $numMatr; $i++ ) { //system( "rm ".$IMAGE_PREF.$i.".png" ); //} } ?>

Designed by Valeri Kazatchenko. Last updated: September 7, 2001.
Comments and bug-reports send to Vladimir Nikolaev
Created: .