- next unless m/^splot\s+([^,]+),([^,]+),([^,]+)\s*$/;
- pg('x',$1); pg('y',$2); pg('z',$3);
- last;
+ if ($ztype eq 'l') {
+ print G or die $!;
+ last if m/^END$/;
+ } elsif ($ztype eq 'T') {
+ next unless m/^splot\s+([^,]+),([^,]+),([^,]+)\s*$/;
+ pg('x',$1); pg('y',$2); pg('z',$3);
+ last;
+ }