PDL-Graphics-PLplot

 view release on metacpan or  search on metacpan

Demo.pm  view on Meta::CPAN

  pladv(0);
  plvpor(0.0, 1.0, 0.0, 0.9);
  plwind(-1.0, 1.0, -0.9, 1.1);
  plcol0(3);
  plmtex(1.0, 0.5, 0.5, "t", "#frPLplot Example 8 - Alt=60, Az=30");
  plcol0(1);
  plw3d(1.0, 1.0, 1.0, -1.0, 1.0, -1.0, 1.0, $zmin, $zmax, 60.0, 30.0);
  plbox3 (0.0, 0, 0.0, 0, 0.0, 0,
    "bnstu", "x axis", "bnstu", "y axis", "bcdmnstuv", "z axis");
  plcol0 (2);
  plsurf3d($x, $y, $z, MAG_COLOR | FACETED, pdl []);
  plflush();
]],

[act => q[
  # plot data of example 11
  ($XPTS, $YPTS) = (35, 46);
  ($x, $y) = map 3*(sequence($_) - int($_ / 2)) / int($_ / 2), $XPTS, $YPTS;
  ($xx, $yy) = ($x->dummy(1,$YPTS), $y->dummy(0,$XPTS));
  $z =
    3. * (1.-$xx)*(1.-$xx) * exp(-($xx*$xx) - ($yy+1.)*($yy+1.)) -

GENERATED/PDL/Graphics/PLplot.pm  view on Meta::CPAN

#
# GENERATED WITH PDL::PP! Don't modify!
#
package PDL::Graphics::PLplot;

our @EXPORT_OK = qw(PL_PARSE_PARTIAL PL_PARSE_FULL PL_PARSE_QUIET PL_PARSE_NODELETE PL_PARSE_SHOWALL PL_PARSE_OVERRIDE PL_PARSE_NOPROGRAM PL_PARSE_NODASH PL_PARSE_SKIP PL_NOTSET DRAW_LINEX DRAW_LINEY DRAW_LINEXY MAG_COLOR BASE_CONT TOP_CONT SURF_CONT...
our %EXPORT_TAGS = (Func=>\@EXPORT_OK);

use PDL::Core;
use PDL::Exporter;
use DynaLoader;


   
   our @ISA = ( 'PDL::Exporter','DynaLoader' );
   push @PDL::Core::PP, __PACKAGE__;

plplot.pd  view on Meta::CPAN

# Definitions for plmesh and plsurf3d

DRAW_LINEX
DRAW_LINEY
DRAW_LINEXY
MAG_COLOR
BASE_CONT
TOP_CONT
SURF_CONT
DRAW_SIDES
FACETED
MESH

# fonts

PL_FCI_SANS
PL_FCI_MONO

# Input event (especially keyboard) definitions for use from plplot
# event handlers.

t/x08.pl  view on Meta::CPAN

            "bnstu", "x axis", "bnstu", "y axis", "bcdmnstuv", "z axis");
    plcol0 (2);

    cmap1_init(($ifshade == 0) || 0);
    if ($ifshade == 0) {        # diffuse light surface plot
      plsurf3d($x, $y, $z, 0, pdl []);
    } elsif ($ifshade == 1) { # magnitude colored plot
      plsurf3d($x, $y, $z, MAG_COLOR, pdl []);
    }
    elsif ($ifshade == 2) {     # magnitude colored plot with faceted squares
      plsurf3d($x, $y, $z, MAG_COLOR | FACETED, pdl []);
    } elsif ($ifshade == 3) {   # magnitude colored plot with contours
      plsurf3d($x, $y, $z, MAG_COLOR | SURF_CONT | BASE_CONT, $clevel);
    } else {          # magnitude colored plot with contours and index limits.
      plsurf3dl(
        $x, $y, $zlimited, MAG_COLOR | SURF_CONT | BASE_CONT, $clevel,
        $indexxmin, $indexxmax, $indexymin, $indexymax,
      );
    }
  }
}

t/x08c.c  view on Meta::CPAN

                cmap1_init( 0 );
                if ( if_plfsurf3d )
                    plfsurf3d( x, y, plf2ops_grid_c(), ( PLPointer ) & grid_c, XPTS, YPTS, MAG_COLOR, NULL, 0 );
                else
                    plsurf3d( x, y, (PLFLT_MATRIX) z, XPTS, YPTS, MAG_COLOR, NULL, 0 );
            }
            else if ( ifshade == 2 ) //  magnitude colored plot with faceted squares
            {
                cmap1_init( 0 );
                if ( if_plfsurf3d )
                    plfsurf3d( x, y, plf2ops_grid_row_major(), ( PLPointer ) & grid_row_major, XPTS, YPTS, MAG_COLOR | FACETED, NULL, 0 );
                else
                    plsurf3d( x, y, (PLFLT_MATRIX) z, XPTS, YPTS, MAG_COLOR | FACETED, NULL, 0 );
            }
            else if ( ifshade == 3 ) // magnitude colored plot with contours
            {
                cmap1_init( 0 );
                if ( if_plfsurf3d )
                    plfsurf3d( x, y, plf2ops_grid_col_major(), ( PLPointer ) & grid_col_major, XPTS, YPTS, MAG_COLOR | SURF_CONT | BASE_CONT, clevel, nlevel );
                else
                    plsurf3d( x, y, (PLFLT_MATRIX) z, XPTS, YPTS, MAG_COLOR | SURF_CONT | BASE_CONT, clevel, nlevel );
            }
            else // magnitude colored plot with contours and index limits.