Lines Matching refs:p1
457 my ( $name, $command, $p1, $p2, $p3 ) = @_;
460 if ( $p1 ne "" ) {
461 $result .= " " . command_value( $p1 );
483 my $p1 = "", $p2 = "", $p3 = "";
485 $p1 = $1;
498 if ( $p1 eq "100000" ) {
499 $p1 = value( 'w' );
501 insert_formula_params( $name, "sum", $p1, $p2, $p3 );
505 if ( ( $p2 =~ /^(w|h|ss|hd2|wd2|vc)$/ ) && defined( $variables{$p1} ) ) {
507 my $tmp = $p1;
508 $p1 = $p2;
512 if ( ( $p1 =~ /^(w|h|ss|hd2|wd2|vc)$/ ) && defined( $variables{$p2} ) ) {
515 $val3 *= ( value( 'w' ) / value( $p1 ) );
519 $p1 = 1;
527 $p1 = ( $p3 * 100000 ) / $val3;
548 my $val = value( $p1 );
550 $p1 = sprintf( "%.0f", ( value( 'w' ) * $val / 100000 ) );
554 if ( ( value( $p1 ) eq value( $p3 ) ) || ( value( $p2 ) eq value( $p3 ) ) ) {
555 my $val = value( ( value( $p1 ) eq value( $p3 ) )? $p2: $p1 );
564 insert_formula_params( $name, "prod", $p1, $p2, $p3 );
570 my $constructed = insert_formula_params( "", "sum", $p1, $p2, "0" );
575 insert_formula_params( $name, "if", $p1, $p2, $p3 );
592 insert_formula_params( $name, $command, $p1, $p2, "" );
596 insert_formula_params( $name, $command, $p1, "", "" );
600 insert_formula_params( $name, $command, $p1, $p2, "" );
604 insert_formula_params( $name, "atan2", $p1, $p2, "" );
608 insert_formula_params( $name, "cosatan2", $p1, $p2, $p3 );
612 insert_formula_params( $name, "sinatan2", $p1, $p2, $p3 );
616 insert_formula_params( $name, "sqrt", $p1, "", "" );
620 insert_formula_params( $name, "mod", $p1, $p2, $p3 );
624 insert_formula_params( $name, "val", value( $p1 ), "", "" );