view release on metacpan or  search on metacpan

PLplot.pm  view on Meta::CPAN

			   plsfile
			   plgesc
			   plGetCursor
			   PARSE_FULL
			   PARSE_QUIET
			   PARSE_NODELETE
			   PARSE_SHOWALL
			   PARSE_NODASH
			   PARSE_SKIP
			   MAG_COLOR
			   FACETED
			   SURF_CONT
			   BASE_CONT
			   DRAW_SIDES
			   pl_Alloc2dGrid
			   pl_MinMax2dGrid
			   /],
	       );

# plstrl is not exported since it is not part of the API but needed
# by Starlink::AST. Do not make this part of the public API.

PLplot.xs  view on Meta::CPAN

int
PL_PARSE_SKIP()
 PROTOTYPE:
 CODE:
  RETVAL = PL_PARSE_SKIP;
 OUTPUT:
  RETVAL


int
FACETED()
 PROTOTYPE:
 CODE:
  RETVAL = FACETED;
 OUTPUT:
  RETVAL


int
MAG_COLOR()
 PROTOTYPE:
 CODE:
  RETVAL = MAG_COLOR;
 OUTPUT:

t/x08.t  view on Meta::CPAN

	   "bcdmnstuv", "z axis", 0.0, 0);
    plcol0(2);

    if ($ifshade == 0) { # diffuse light surface plot
      cmap1_init(1);
      plsurf3d(\@x, \@y, $z, 0, []);
    } elsif ($ifshade == 1) { # magnitude colored plot
      cmap1_init(0);
      plsurf3d(\@x, \@y, $z, MAG_COLOR, []);
    } elsif ($ifshade == 2) { # magnitude colored plot with faceted squares
      plsurf3d(\@x, \@y, $z, MAG_COLOR | FACETED, []);
    } else {                 #  magnitude colored plot with contours
      plsurf3d(\@x, \@y, $z, MAG_COLOR | SURF_CONT | BASE_CONT, \@clevel);
    }
    plflush();
    select undef,undef,undef,$sleep;
  }
}

plend();
exit;