Differences From Artifact [c83d02ae5f]:

• File mttroot/mtt/lib/cr/perl/lin.pm — part of check-in [d2afdadec0] at 2004-09-03 08:34:26 on branch origin/master — Moved standard CR packages into the mtt:: workspace. (user: geraint@users.sourceforge.net, size: 9570) [annotate] [blame] [check-ins using] [more...]

To Artifact [961e5e7d01]:

• File mtt/lib/cr/perl/lin.pm — part of check-in [af3953deae] at 2021-03-01 11:39:42 on branch master — Cleanup repository after cvs2git conversion. (user: jeff@gridfinity.com, size: 9574) [annotate] [blame] [check-ins using] [more...]
• File mttroot/mtt/lib/cr/perl/lin.pm — part of check-in [e8996ce9e1] at 2004-09-09 23:15:40 on branch origin/master — Typo: missing $ in front of variable names. (user: geraint@users.sourceforge.net, size: 9574) [annotate] [blame] [check-ins using]

90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110

	    $input,
	    $in_causality,
	    $in_port) = @args;

	if (($out_port == 2) and
	    ($in_port  == 1))
	{			# uni-causal
	    $retval = "((input)*(gain))";
	}

	elsif (($out_port == 1) and
	       ($in_port  == 2))
	{			# bi-causal
	    $retval = "((input)/(gain))";
	}
    }
    
    if ($retval)
    {
	return $retval;
    }

|





|

90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110

	    $input,
	    $in_causality,
	    $in_port) = @args;

	if (($out_port == 2) and
	    ($in_port  == 1))
	{			# uni-causal
	    $retval = "(($input)*($gain))";
	}

	elsif (($out_port == 1) and
	       ($in_port  == 2))
	{			# bi-causal
	    $retval = "(($input)/($gain))";
	}
    }
    
    if ($retval)
    {
	return $retval;
    }