1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
;# Single point routines provided for backwards compatability
;# with old perl4 version of pgperl - note array routines
;# can now be used directly, e.g.: pgpt(1,$x,$y,$symbol) etc.
sub pgerrb1 {
die 'Usage: &pgerrb1($dir,$x,$y,$e,$t)' if (scalar(@_)!=5);
local($dir,$x,$y,$e,$t) = @_;
pgerrb($dir,1,$x,$y,$e,$t);
}
sub pgerrx1 {
die 'Usage: &pgerrx1($x1,$x2,$y,$t)' if (scalar(@_)!=4);
local($x1,$x2,$y,$t) = @_;
pgerrx(1,$x1,$x2,$y,$t);
}
sub pgerry1 {
die 'Usage: &pgerry1($x,$y1,$y2,$t)' if (scalar(@_)!=4);
local($x,$y1,$y2,$t) = @_;
pgerry(1,$x,$y1,$y2,$t);
}
sub pgpoint1 {pgpt1(@_)}
sub pgpt1 {
die 'Usage: &pgpt1($xpts,$ypts,$symbol)' if (scalar(@_)!=3);
local($xpts,$ypts,$symbol) = @_;
pgpt(1,$xpts,$ypts,$symbol);
}
;# Exit with OK status
1;
|
