| Line 122... |
Line 122... |
| 122 |
{ die('Invalid horizontal mode[shift]... Check number of parameters '); }
|
122 |
{ die('Invalid horizontal mode[shift]... Check number of parameters '); }
|
| 123 |
if ( ($cmd eq "poly.eqd") && ($npar != 2) )
|
123 |
if ( ($cmd eq "poly.eqd") && ($npar != 2) )
|
| 124 |
{ die('Invalid horizontal mode[poly.eqd]... Check number of parameters '); }
|
124 |
{ die('Invalid horizontal mode[poly.eqd]... Check number of parameters '); }
|
| 125 |
if ( ($cmd eq "poly.grid") && ($npar != 1) )
|
125 |
if ( ($cmd eq "poly.grid") && ($npar != 1) )
|
| 126 |
{ die('Invalid horizontal mode[poly.grid]... Check number of parameters ');}
|
126 |
{ die('Invalid horizontal mode[poly.grid]... Check number of parameters ');}
|
| - |
|
127 |
if ( ($cmd eq "mask.grid") && ($npar != 2) )
|
| - |
|
128 |
{ die('Invalid horizontal mode[mask.grid]... Check number of parameters ');}
|
| - |
|
129 |
if ( ($cmd eq "mask.eqd") && ($npar != 3) )
|
| - |
|
130 |
{ die('Invalid horizontal mode[mask.eqd]... Check number of parameters ');}
|
| 127 |
|
131 |
|
| 128 |
# Write parameters
|
132 |
# Write parameters
|
| 129 |
print "\"$cmd\"\n";
|
133 |
print "\"$cmd\"\n";
|
| 130 |
print "@param\n";
|
134 |
print "@param\n";
|
| 131 |
|
135 |
|